Template:ComplexDialogLayout3swap

From Vectorworks Developer
Revision as of 18:07, 17 September 2018 by Root (talk | contribs) (→‎VectorScript)
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

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()