Template:ComplexDialogLayout3swap: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
|||
(3 intermediate revisions by the same user not shown) | |||
Line 1: | Line 1: | ||
VectorScript example: | |||
<code lang="vs"> | |||
PROCEDURE dialog1_Main; | PROCEDURE dialog1_Main; | ||
CONST | CONST | ||
Line 47: | Line 49: | ||
END; | END; | ||
RUN(dialog1_Main); | RUN(dialog1_Main); | ||
</code> | |||
==== | Python example: | ||
<code lang='py'> | |||
kOK = 1 | |||
kCancel = 2 | |||
kSwapControl = 4 | |||
kSwapPane_1 = 5 | |||
kSwapPane_2 = 6 | |||
kButton_1 = 13 | |||
kButton_2 = 15 | |||
dialog1 = 0 | |||
def dialog1_Setup(): | def dialog1_Setup(): | ||
global dialog1 | |||
dialog1 = vs.CreateLayout('Swap control', False, 'OK', 'Cancel') | |||
vs.CreateSwapControl (dialog1, kSwapControl) | |||
vs.CreateGroupBox (dialog1, kSwapPane_1, 'Swap Pane 1', True) | |||
vs.CreateGroupBox (dialog1, kSwapPane_2, 'Swap Pane 2', True) | |||
vs.CreatePushButton (dialog1, kButton_1, 'Go to second pane...') | |||
vs.CreatePushButton (dialog1, kButton_2, '... go to first pane') | |||
vs.SetFirstLayoutItem(dialog1, kSwapControl) | |||
vs.CreateSwapPane (dialog1, kSwapControl, kSwapPane_1) | |||
vs.SetFirstGroupItem (dialog1, kSwapPane_1, kButton_1) | |||
vs.CreateTabPane (dialog1, kSwapControl, kSwapPane_2) | |||
vs.SetFirstGroupItem (dialog1, kSwapPane_2, kButton_2) | |||
def dialog1_Handler(item,data): | |||
if item == kButton_1: | |||
vs.DisplaySwapPane(dialog1, kSwapControl, 2) | |||
elif item == kButton_2: | |||
vs.DisplaySwapPane(dialog1, kSwapControl, 1) | |||
dialog1_Setup() | |||
if vs.RunLayoutDialog(dialog1, dialog1_Handler) == 1: | |||
pass | |||
</code> | </code> |
Latest revision as of 18:12, 17 September 2018
VectorScript example:
PROCEDURE dialog1_Main; CONST kOK = 1; kCancel = 2; kSwapControl = 4; kSwapPane_1 = 5; kSwapPane_2 = 6; kButton_1 = 13; kButton_2 = 15; VAR dialog1 :INTEGER; PROCEDURE dialog1_Setup; BEGIN dialog1 := CreateLayout('Swap control', FALSE, 'OK', 'Cancel'); CreateSwapControl (dialog1, kSwapControl); CreateGroupBox (dialog1, kSwapPane_1, 'Swap Pane 1', TRUE); CreateGroupBox (dialog1, kSwapPane_2, 'Swap Pane 2', TRUE); CreatePushButton (dialog1, kButton_1, 'Go to second pane...'); CreatePushButton (dialog1, kButton_2, '... go to first pane'); SetFirstLayoutItem(dialog1, kSwapControl); CreateSwapPane (dialog1, kSwapControl, kSwapPane_1); SetFirstGroupItem (dialog1, kSwapPane_1, kButton_1); CreateTabPane (dialog1, kSwapControl, kSwapPane_2); SetFirstGroupItem (dialog1, kSwapPane_2, kButton_2); END; PROCEDURE dialog1_Handler(VAR item :LONGINT; data :LONGINT); BEGIN CASE item OF kButton_1: BEGIN DisplaySwapPane(dialog1, kSwapControl, 2); END; kButton_2: BEGIN DisplaySwapPane(dialog1, kSwapControl, 1); END; END; END; BEGIN dialog1_Setup; IF RunLayoutDialog(dialog1, dialog1_Handler) = 1 THEN BEGIN END; END; RUN(dialog1_Main);
Python example:
kOK = 1 kCancel = 2 kSwapControl = 4 kSwapPane_1 = 5 kSwapPane_2 = 6 kButton_1 = 13 kButton_2 = 15 dialog1 = 0 def dialog1_Setup(): global dialog1 dialog1 = vs.CreateLayout('Swap control', False, 'OK', 'Cancel') vs.CreateSwapControl (dialog1, kSwapControl) vs.CreateGroupBox (dialog1, kSwapPane_1, 'Swap Pane 1', True) vs.CreateGroupBox (dialog1, kSwapPane_2, 'Swap Pane 2', True) vs.CreatePushButton (dialog1, kButton_1, 'Go to second pane...') vs.CreatePushButton (dialog1, kButton_2, '... go to first pane') vs.SetFirstLayoutItem(dialog1, kSwapControl) vs.CreateSwapPane (dialog1, kSwapControl, kSwapPane_1) vs.SetFirstGroupItem (dialog1, kSwapPane_1, kButton_1) vs.CreateTabPane (dialog1, kSwapControl, kSwapPane_2) vs.SetFirstGroupItem (dialog1, kSwapPane_2, kButton_2) def dialog1_Handler(item,data): if item == kButton_1: vs.DisplaySwapPane(dialog1, kSwapControl, 2) elif item == kButton_2: vs.DisplaySwapPane(dialog1, kSwapControl, 1) dialog1_Setup() if vs.RunLayoutDialog(dialog1, dialog1_Handler) == 1: pass