Template:ComplexDialogLayout3swap: Difference between revisions
Jump to navigation
Jump to search
(Created page with "==== VectorScript ==== <code lang="pas"> PROCEDURE dialog1_Main; CONST kOK = 1; kCancel = 2; kTabControl = 4; kTabPane_1 = 5; kTabPane_2 = 6; kSwa...") |
|||
Line 1: | Line 1: | ||
PROCEDURE dialog1_Main; | PROCEDURE dialog1_Main; | ||
CONST | CONST | ||
kOK = 1; | kOK = 1; | ||
kCancel = 2; | kCancel = 2; | ||
kSwapControl = 4; | |||
kSwapPane_1 = 5; | |||
kSwapPane_2 = 6; | |||
kButton_1 = 13; | |||
kButton_2 = 15; | |||
VAR | VAR | ||
dialog1 :INTEGER; | dialog1 :INTEGER; | ||
PROCEDURE dialog1_Setup; | PROCEDURE dialog1_Setup; | ||
BEGIN | BEGIN | ||
dialog1 := CreateLayout(' | dialog1 := CreateLayout('Swap control', FALSE, 'OK', 'Cancel'); | ||
CreateSwapControl (dialog1, | CreateSwapControl (dialog1, kSwapControl); | ||
CreateGroupBox (dialog1, | CreateGroupBox (dialog1, kSwapPane_1, 'Swap Pane 1', TRUE); | ||
CreateGroupBox (dialog1, | 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); | |||
CreatePushButton (dialog1, | SetFirstGroupItem (dialog1, kSwapPane_1, kButton_1); | ||
CreateTabPane (dialog1, kSwapControl, kSwapPane_2); | |||
CreateTabPane (dialog1, | SetFirstGroupItem (dialog1, kSwapPane_2, kButton_2); | ||
SetFirstGroupItem (dialog1, | |||
END; | END; | ||
PROCEDURE dialog1_Handler(VAR item :LONGINT; data :LONGINT); | PROCEDURE dialog1_Handler(VAR item :LONGINT; data :LONGINT); | ||
BEGIN | BEGIN | ||
CASE item OF | |||
kButton_1: BEGIN | |||
DisplaySwapPane(dialog1, kSwapControl, 2); | |||
END; | |||
kButton_2: BEGIN | |||
DisplaySwapPane(dialog1, kSwapControl, 1); | |||
END; | |||
END; | |||
END; | END; | ||
BEGIN | BEGIN | ||
dialog1_Setup; | dialog1_Setup; | ||
IF RunLayoutDialog(dialog1, dialog1_Handler) = 1 THEN BEGIN | IF RunLayoutDialog(dialog1, dialog1_Handler) = 1 THEN BEGIN | ||
END; | END; | ||
END; | END; | ||
RUN(dialog1_Main); | RUN(dialog1_Main); | ||
==== Python ==== | ==== Python ==== |
Revision as of 18:07, 17 September 2018
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
def dialog1_Handler( item , data ): pass def dialog1_Setup(): kOK = 1 kCancel = 2 kTabControl = 4 kTabPane_1 = 5 kTabPane_2 = 6 kSwapControl_1 = 7 kSwapControl_2 = 8 kSwapPane_11 = 9 kSwapPane_21 = 10 kSwapPane_12 = 11 kSwapPane_22 = 12 kButton_11 = 13 kButton_21 = 14 kButton_12 = 15 kButton_22 = 16 dialog1 = vs.CreateLayout('Tabs and Swaps', False, 'OK', 'Cancel') vs.CreateSwapControl (dialog1, kTabControl) vs.CreateGroupBox (dialog1, kTabPane_1, 'Tab Pane 1', True) vs.CreateGroupBox (dialog1, kTabPane_2, 'Tab Pane 2', True) vs.CreateSwapControl (dialog1, kSwapControl_1) vs.CreateSwapControl (dialog1, kSwapControl_2) vs.CreateGroupBox (dialog1, kSwapPane_11, '', True) vs.CreateGroupBox (dialog1, kSwapPane_21, '', True) vs.CreateGroupBox (dialog1, kSwapPane_12, '', True) vs.CreateGroupBox (dialog1, kSwapPane_22, '', True) vs.CreatePushButton (dialog1, kButton_11, 'Button 1') vs.CreatePushButton (dialog1, kButton_21, 'Button 3') vs.CreatePushButton (dialog1, kButton_12, 'Button 2') vs.CreatePushButton (dialog1, kButton_22, 'Button 4') vs.SetFirstLayoutItem(dialog1, kTabControl) vs.CreateTabPane (dialog1, kTabControl, kTabPane_1) vs.SetFirstGroupItem (dialog1, kTabPane_1, kSwapControl_1) vs.CreateSwapPane (dialog1, kSwapControl_1, kSwapPane_11) vs.SetFirstGroupItem (dialog1, kSwapPane_11, kButton_11) vs.CreateSwapPane (dialog1, kSwapControl_1, kSwapPane_12) vs.SetFirstGroupItem (dialog1, kSwapPane_12, kButton_12) vs.CreateTabPane (dialog1, kTabControl, kTabPane_2) vs.SetFirstGroupItem (dialog1, kTabPane_2, kSwapControl_2) vs.CreateSwapPane (dialog1, kSwapControl_2, kSwapPane_21) vs.SetFirstGroupItem (dialog1, kSwapPane_21, kButton_21) vs.CreateSwapPane (dialog1, kSwapControl_2, kSwapPane_22) vs.SetFirstGroupItem (dialog1, kSwapPane_22, kButton_22) return dialog1 def dialog1_Main(): global dialog1 dialog1 = dialog1_Setup() if vs.RunLayoutDialog(dialog1, dialog1_Handler) == 1: pass dialog1 = 0 dialog1_Main()