|
|
Line 1: |
Line 1: |
| | <code lang="vs"> |
| PROCEDURE dialog1_Main; | | PROCEDURE dialog1_Main; |
| CONST | | CONST |
Line 47: |
Line 48: |
| END; | | END; |
| RUN(dialog1_Main); | | RUN(dialog1_Main); |
|
| |
| ==== Python ====
| |
| <code lang="py">
| |
| 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()
| |
| </code> | | </code> |
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);