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| Name | Type | Description |
|---|---|---|
| nDialogID | LONGINT | |
| nComponentID | LONGINT | |
| nWidthInChars | INTEGER |
_c_ (2016.02.22): Add the localized string "" 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 };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);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()VS Functions: CreateImageControl, InsertPropClassOrLayerItem
Availability: from VectorWorks 13.0