VS:CreateClassPullDownMenu: Difference between revisions
Jump to navigation
Jump to search
(add example for adding localized strings) |
m (Transfer Orso to _c_) |
||
(One intermediate revision by the same user not shown) | |||
Line 45: | Line 45: | ||
PROCEDURE Example; | PROCEDURE Example; | ||
VAR | VAR | ||
dialog1 :INTEGER; | dialog1 :INTEGER; | ||
result :INTEGER; | result :INTEGER; | ||
PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT); | PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT); | ||
BEGIN | |||
END; | |||
BEGIN | BEGIN | ||
dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel'); | |||
CreateClassPullDownMenu(dialog1, 4, 24); | |||
dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel'); | SetFirstLayoutItem(dialog1, 4); | ||
CreateClassPullDownMenu(dialog1, 4, 24); | result := RunLayoutDialog(dialog1, Dialog_Handler); | ||
SetFirstLayoutItem(dialog1, 4); | |||
result := RunLayoutDialog(dialog1, Dialog_Handler); | |||
END; | END; | ||
RUN(Example); | RUN(Example); | ||
Line 75: | Line 76: | ||
<remark> | <remark> | ||
[[User:CBM-c-|_c_]] (2016.02.22): Add the localized string "<Object Class>" below "New...". You must do this during the SetupDialogC event of your dialog driver: | |||
<code lang="vs"> | <code lang="vs"> | ||
GetResourceString(objClassString, 2103, 148); { fetches the localized "<Object Class>" string } | GetResourceString(objClassString, 2103, 148); { fetches the localized "<Object Class>" string } |
Latest revision as of 06:44, 30 December 2020
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
Creates a Layout Manager class pull down menu control.
PROCEDURE CreateClassPullDownMenu(
nDialogID :LONGINT;
nComponentID :LONGINT;
nWidthInChars :INTEGER);
def vs.CreateClassPullDownMenu(nDialogID, nComponentID, nWidthInChars): return None
Parameters
nDialogID LONGINT nComponentID LONGINT nWidthInChars INTEGER
Remarks
_c_ (2016.02.22): Add the localized string "<Object Class>" below "New...". You must do this during the SetupDialogC event of your dialog driver:
GetResourceString(objClassString, 2103, 148); { fetches the localized "<Object Class>" string } IF InsertPropClassOrLayerItem(dialogID, c_classPullDownMenu_Index, objClassString, '') THEN { do something, eventually };
Example
VectorScript
PROCEDURE Example; VAR dialog1 :INTEGER; result :INTEGER; PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT); BEGIN END; BEGIN dialog1 := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel'); CreateClassPullDownMenu(dialog1, 4, 24); SetFirstLayoutItem(dialog1, 4); result := RunLayoutDialog(dialog1, Dialog_Handler); END; RUN(Example);
Python
def Dialog_Handler(item , data ): pass def Example(): dialog1 = vs.CreateLayout('Example Dialog', False, 'OK', 'Cancel') vs.CreateClassPullDownMenu(dialog1, 4, 24) vs.SetFirstLayoutItem(dialog1, 4) result = vs.RunLayoutDialog(dialog1, Dialog_Handler) Example()
Version
Availability: from VectorWorks 13.0
See Also
VS Functions:
VS:CreateImageControl, VS:InsertPropClassOrLayerItem
VS Functions:
[[VS:CreateImageControl]],
[[VS:InsertPropClassOrLayerItem]]