Skip to content

Latest commit

 

History

History
150 lines (131 loc) · 3.54 KB

CreateControl.md

File metadata and controls

150 lines (131 loc) · 3.54 KB

CreateControl

Description

'''[[VS:Vectorworks 2012 Deprecated Functions|DEPRECATED after Vectorworks2012]]'''. See [[VS:CreateImageControl2|CreateImageControl2]] and [[VS:CreateThumbnailPopup|CreateThumbnailPopup]] for a replacement.

Creates a new extended dialog control item. Supported extended dialog controls include image, system color palette, and slider controls.

PROCEDURE CreateControl(
				dialogID    : LONGINT;
				itemID      : LONGINT;
				controlKind : LONGINT;
				name        : STRING;
				data        : LONGINT);
def vs.CreateControl(dialogID, itemID, controlKind, name, data):
    return None

Parameters

Name Type Description
dialogID LONGINT The index of the dialog layout containing the control.
itemID LONGINT The index that will identify the control item.
controlKind LONGINT The type of control item.
name STRING The display text of the control item.
data LONGINT Initial data for the control item.

Remarks

{| class="wikitable_c" |+ Table - Control Types

! Index !! Control Type !! Data
1
PICT Image
Resource ID of a PICT
Use [[VS:CreateImageControl2
-
2
System Color
Ignored. Pass a value of 0
-
3
Slider
Maximum value of slider whose range is 0 - ###
-
10
Image Popup
Ignored. Pass a value of 0.
Use [[VS:CreateThumbnailPopup
-
11
Gradient Slider
Width of the slider in characters
-
26
PNG Image
Resource ID of a PNG image
Use [[VS:CreateImageControl2
}

Check out the full example Align Selected Objects. http://www.vectorworks.net/support/custom/vscript/example.php It contains a working example on a modern dialogue with an image control.

Examples

==== VectorScript ====

{Slider Control Example}
PROCEDURE dialog1_Main;
CONST
kSlider = 4;
kLabel  = 5;
kValue  = 6;
VAR
dialog1   :INTEGER;
gSlider   :LONGINT;

PROCEDURE dialog1_Handler(VAR item :LONGINT; data :LONGINT);
BEGIN
CASE item OF
kSlider:
BEGIN
GetControlData(dialog1, kSlider, gSlider);
SetField(kValue, Concat(gSlider));
END;
END;
END;

BEGIN
gSlider := 1000;
dialog1 := CreateLayout('Slider Control', FALSE, 'OK', 'Cancel');
CreateControl     (dialog1, kSlider,  3, '', 1000);
CreateStaticText  (dialog1, kLabel,   'Slider Value:', -1);
CreateStaticText  (dialog1, kValue,   ' ', -1);
SetFirstLayoutItem(dialog1, kSlider);
SetBelowItem      (dialog1, kSlider,  kLabel,   0, 0);
SetRightItem      (dialog1, kLabel,   kValue,   0, 0);
IF RunLayoutDialog(dialog1, dialog1_Handler) = 1 THEN BEGIN
END;
END;
RUN(dialog1_Main);

==== Python ====

#{Slider Control Example}
def dialog1_Handler(item , data):
	if item == kSlider:
		vs.GetControlData(dialog1, kSlider, gSlider);
	
def dialog1_Main():

	global kSlider
	global kLabel
	global kValue
	global dialog1
	global gSlider

	kSlider = 4
	kLabel  = 5
	kValue  = 6

	gSlider = 1000
	dialog1 = vs.CreateLayout('Slider Control', False, 'OK', 'Cancel')
	vs.CreateControl     (dialog1, kSlider,  3, '', 1000)
	vs.CreateStaticText  (dialog1, kLabel,   'Slider Value:', -1)
	vs.CreateStaticText  (dialog1, kValue,   ' ', -1)
	vs.SetFirstLayoutItem(dialog1, kSlider)
	vs.SetBelowItem      (dialog1, kSlider,  kLabel,   0, 0)
	vs.SetRightItem      (dialog1, kLabel,   kValue,   0, 0)

	if vs.RunLayoutDialog(dialog1, dialog1_Handler) == 1:
		pass

kSlider = 0
kLabel = 0
kValue = 0
dialog1 = 0
gSlider = 0
dialog1_Main()

Version

Availability: from VectorWorks 9.0, deprecated from VW 2012

Category

  • Dialogs - Modern