VS:CreateColorPopup/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

アクティブドキュメントのカラーパレットを表示するカラーポップアップコントロールを作成します。

widthInCharactersはコントロールの幅を指定します。 -1をいれるとデフォルトサイズ(デフォルトは14)として認識します。

PROCEDURE CreateColorPopup(
              dialogID            :LONGINT;
              itemID              :LONGINT;
              widthInCharacters   :LONGINT);

def vs.CreateColorPopup(dialogID, itemID, widthInCharacters):
    return None

Parameters

dialogID		LONGINT		ダイアログ番号
itemID		LONGINT		アイテム番号
widthInCharacters		LONGINT		コントロールの大きさ

Example

PROCEDURE Example;
VAR
   dialog1 :INTEGER;
   result  :INTEGER;
PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT);
BEGIN
   CASE item OF
      SetupDialogC:
         BEGIN
            SetColorChoice(dialog1, 4, 1242);
         END;
      1:
         BEGIN
            GetColorChoice(dialog1, 4, result);
            AlrtDialog(Concat('color index: ', result));
         END;
   END;
END;
BEGIN
   dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel');
   CreateColorPopup(dialog1, 4, 24);
   SetFirstLayoutItem(dialog1, 4);
   result := RunLayoutDialog(dialog1, Dialog_Handler);
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks12.0