Difference between revisions of "Template:ComplexDialogLayout3swap"

From Vectorworks Developer
Jump to: navigation, 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...")
 
(VectorScript)
Line 1: Line 1:
==== VectorScript ====
 
<code lang="pas">
 
 
PROCEDURE dialog1_Main;
 
PROCEDURE dialog1_Main;
 
CONST
 
CONST
kOK            = 1;
+
  kOK            = 1;
kCancel        = 2;
+
  kCancel        = 2;
kTabControl    = 4;
+
  kSwapControl  = 4;
kTabPane_1    = 5;
+
  kSwapPane_1    = 5;
kTabPane_2    = 6;
+
  kSwapPane_2    = 6;
kSwapControl_1 = 7;
+
   kButton_1      = 13;
kSwapControl_2 = 8;
+
   kButton_2      = 15;
kSwapPane_11   = 9;
+
kSwapPane_21   = 10;
+
kSwapPane_12  = 11;
+
kSwapPane_22  = 12;
+
kButton_11    = 13;
+
kButton_21    = 14;
+
kButton_12    = 15;
+
kButton_22    = 16;
+
 
VAR
 
VAR
dialog1          :INTEGER;
+
  dialog1          :INTEGER;
  
 
PROCEDURE dialog1_Setup;
 
PROCEDURE dialog1_Setup;
 
BEGIN
 
BEGIN
dialog1 := CreateLayout('Tabs and Swaps', FALSE, 'OK', 'Cancel');
+
  dialog1 := CreateLayout('Swap control', FALSE, 'OK', 'Cancel');
CreateSwapControl        (dialog1, kTabControl);
+
  CreateSwapControl        (dialog1, kSwapControl);
CreateGroupBox          (dialog1, kTabPane_1,     'Tab Pane 1', TRUE);
+
  CreateGroupBox          (dialog1, kSwapPane_1,   'Swap Pane 1', TRUE);
CreateGroupBox          (dialog1, kTabPane_2,     'Tab Pane 2', TRUE);
+
  CreateGroupBox          (dialog1, kSwapPane_2,   'Swap Pane 2', TRUE);
CreateSwapControl        (dialog1, kSwapControl_1);
+
  CreatePushButton        (dialog1, kButton_1,     'Go to second pane...');
CreateSwapControl        (dialog1, kSwapControl_2);
+
  CreatePushButton        (dialog1, kButton_2,      '... go to first pane');
CreateGroupBox          (dialog1, kSwapPane_11,    '', TRUE);
+
 
CreateGroupBox          (dialog1, kSwapPane_21,    '', TRUE);
+
  SetFirstLayoutItem(dialog1, kSwapControl);
CreateGroupBox          (dialog1, kSwapPane_12,    '', TRUE);
+
 
CreateGroupBox          (dialog1, kSwapPane_22,    '', TRUE);
+
  CreateSwapPane    (dialog1, kSwapControl,   kSwapPane_1);
CreatePushButton        (dialog1, kButton_11,      'Button 1');
+
  SetFirstGroupItem (dialog1, kSwapPane_1,     kButton_1);
CreatePushButton        (dialog1, kButton_21,      'Button 3');
+
CreatePushButton        (dialog1, kButton_12,     'Button 2');
+
CreatePushButton        (dialog1, kButton_22,     'Button 4');
+
  
SetFirstLayoutItem(dialog1, kTabControl);
+
  CreateTabPane    (dialog1, kSwapControl,    kSwapPane_2);
CreateTabPane    (dialog1, kTabControl,     kTabPane_1);
+
  SetFirstGroupItem (dialog1, kSwapPane_2,    kButton_2);
SetFirstGroupItem (dialog1, kTabPane_1,      kSwapControl_1);
+
CreateSwapPane   (dialog1, kSwapControl_1,  kSwapPane_11);
+
SetFirstGroupItem (dialog1, kSwapPane_11,   kButton_11);
+
CreateSwapPane    (dialog1, kSwapControl_1,  kSwapPane_12);
+
SetFirstGroupItem (dialog1, kSwapPane_12,    kButton_12);
+
CreateTabPane     (dialog1, kTabControl,    kTabPane_2);
+
SetFirstGroupItem (dialog1, kTabPane_2,      kSwapControl_2);
+
CreateSwapPane    (dialog1, kSwapControl_2,  kSwapPane_21);
+
SetFirstGroupItem (dialog1, kSwapPane_21,    kButton_21);
+
CreateSwapPane    (dialog1, kSwapControl_2,  kSwapPane_22);
+
SetFirstGroupItem (dialog1, kSwapPane_22,    kButton_22);
+
 
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);
</code>
 
  
 
==== Python ====
 
==== Python ====

Revision as of 14: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()
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox