VS:SetColorChoice/ja
Jump to navigation
Jump to search
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
色ポップアップの色を設定します。
PROCEDURE SetColorChoice(
dialogID :LONGINT;
itemID :LONGINT;
colorIndex :INTEGER);
def vs.SetColorChoice(dialogID, itemID, colorIndex): return None
Parameters
dialogID LONGINT ダイアログ番号 itemID LONGINT アイテム番号 colorIndex INTEGER カラー番号
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