144
Defines the colors, to display overlapping links

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>4",16,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>5",-1024,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>6",16,512);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),"L3");
_ObjectSetProperty( swimlane , "ShowLinks", 545);
_ObjectSetProperty( swimlane , "OverlapLinksColors", "red,orange");
_ObjectSetProperty( swimlane , "LinksColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", -1);
_ObjectSetProperty( swimlane , "ShowGridLines", 0);
_ObjectCallMethod( swimlane , "EndUpdate");
143
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 2)

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>4",16,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>5",-1024,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>6",16,512);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),"L3");
_ObjectSetProperty( swimlane , "ShowLinks", 673);
_ObjectSetProperty( swimlane , "LinksColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", -1);
_ObjectSetProperty( swimlane , "ShowGridLines", 0);
_ObjectCallMethod( swimlane , "EndUpdate");
142
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>4",16,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>5",-1024,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>6",16,512);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),"L3");
_ObjectSetProperty( swimlane , "ShowLinks", 545);
_ObjectSetProperty( swimlane , "LinksColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", -1);
_ObjectSetProperty( swimlane , "ShowGridLines", 0);
_ObjectCallMethod( swimlane , "EndUpdate");
141
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 1)

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>4",16,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>5",-1024,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>6",16,512);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),"L3");
_ObjectSetProperty( swimlane , "ShowLinks", 417);
_ObjectSetProperty( swimlane , "LinksColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", -1);
_ObjectSetProperty( swimlane , "ShowGridLines", 0);
_ObjectCallMethod( swimlane , "EndUpdate");
140
The exPreventOverlap flag adjusts the links to prevent them from overlapping the connected objects. The exPreventOverlap option calculates the path between A and B using the A* (A-star) pathfinding algorithm, which can be a time-consuming operation

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>4",16,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>5",-1024,-48);
	_ObjectCallMethod( elements , "Add", "Node <b>6",16,512);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),"L3");
_ObjectSetProperty( swimlane , "ShowLinks", 289);
_ObjectSetProperty( swimlane , "LinksColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", -1);
_ObjectSetProperty( swimlane , "ShowGridLines", 0);
_ObjectCallMethod( swimlane , "EndUpdate");
139
How can I replace or add an icon at runtime

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod( swimlane , "ReplaceIcon", "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" +
	"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==");
_ObjectCallMethod( swimlane , "ReplaceIcon", "C:\images\favicon.ico",0);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <img>1</img>",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
138
exActionContextMenuObject, An item from object's context menu is executing. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface. The ActionContextMenu event notifies your application once an action occurs within the object's context menu.
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 18 ? `exActionContextMenuObject` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 18 ? `exActionContextMenuObject` : value",Operation) );
END

OBJECT elements,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 0);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 2");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Right-Click the pool, element or the link to open its context menu, and change a property of it" );
137
exContextMenuObject, The object's context menu is running. The user right-clicks an object on the surface, and it's context menu is shown. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 17 ? `exContextMenuObject` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 17 ? `exContextMenuObject` : value",Operation) );
END

OBJECT elements,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 0);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 2");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Right-Click the pool, element or the link to open its context menu" );
136
exMoveLane, The user moves/changes the position of the lane of the pool. The AllowMoveLane property specifies the keys combination to allow user to moves/changes the position the lane
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 16 ? `exMoveLane` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 16 ? `exMoveLane` : value",Operation) );
END

OBJECT elements,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 0);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 2");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click the lane's header to drag to a new position" );
135
exResizeLane, The user resizes the lane of the pool. The AllowResizePoolHeader property specifies the keys combination to allow user to resize the header of the pool
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 15 ? `exResizeLane` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 15 ? `exResizeLane` : value",Operation) );
END

OBJECT elements,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 0);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 2");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click the pool's header to resize it" );
134
exResizePoolHeader, the user resizes the header's pool from the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 14 ? `exResizePoolHeader` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 14 ? `exResizePoolHeader` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click the pool's header to resize it" );
133
exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 13 ? `exMovePool` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 13 ? `exMovePool` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click a pool and drag to reposition it" );
132
exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 12 ? `exResizePool` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 12 ? `exResizePool` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Resize a pool" );
131
exCreatePool, The user creates pools on the surface. The AllowCreatePool property specifies the keys combination to allow user to create pools on the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 11 ? `exCreatePool` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 11 ? `exCreatePool` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" );
130
exDesignMode, The user changes the surface's design mode. The exDesignMode operation occurs, when the user selects a new design-mode, from the control's toolbar.
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 10 ? `exDesignMode` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 10 ? `exDesignMode` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click the Design Menu and select one of the options" );
129
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Press CTRL+Z to Undo, CTRL+Y to Redo" );
128
exLinkObjects, the user creates an element on the surface. The AllowLinkObjects property specifies the keys combination to allow user to link elements on the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 9 ? `exLinkObjects` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 9 ? `exLinkObjects` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Hold SHIFT, click an element, and drag to another element to create a link between them" );
127
exEditObject, the user edits the element's caption
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
FUNCTION swimlaneEvents_Click()
	' ElementFromPoint(-1,-1).Edit(0)

END

// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 8 ? `exEditObject` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 8 ? `exEditObject` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click an element to edit its caption" );
126
exCreateObject, the user creates an element on the surface. The AllowCreateObject property specifies the keys combination to allow user to create elements on the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 7 ? `exCreateObject` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 7 ? `exCreateObject` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Double-click on the surface and immediately drag to a new position to create an element" );
125
exSelectNothing, the user clicks an empty zone of the surface. The AllowSelectNothing property specifies the keys combination to allow user to select nothing on the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 6 ? `exSelectNothing` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 6 ? `exSelectNothing` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowSelectNothing", -1);
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "Selected", -1);
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Select an element, and then click outside to select nothing" );
124
exSelectElement, the user clicks the object to get it selected. The AllowSelectObject property specifies the keys combination to allow user to select the object
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 5 ? `exSelectElement` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 5 ? `exSelectElement` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to uns" +
	"elect it" );
123
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 4 ? `exMoveElement` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 4 ? `exMoveElement` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Move an element" );
122
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 3 ? `exResizeElement` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 3 ? `exResizeElement` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64) , "AutoSize", 0);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>2") , "AutoSize", 0);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Node <b>3",64,-64) , "AutoSize", 0);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Resize an element" );
121
exSurfaceHome, the user clicks the Home button on the control's toolbar, so the surface is restored to original position. The Home method has the same effect
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 2 ? `exSurfaceHome` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 2 ? `exSurfaceHome` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click the Home button" );
120
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 1 ? `exSurfaceZoom` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 1 ? `exSurfaceZoom` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click and drag the surface to reposition it" );
119
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 0 ? `exSurfaceMove` : value",Operation) );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( _ObjectCallMethod( swimlane , "FormatABC", "value = 0 ? `exSurfaceMove` : value",Operation) );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
Message( "Click and drag the surface to reposition it" );
118
FormatABC method formats the A,B,C values based on the giving expression and returns the result
OBJECT swimlane;

swimlane =  ObjectByName("AN1") ;
Message( _ObjectCallMethod( swimlane , "FormatABC", "value format ``",1000) );
117
FreezeEvents(Freeze) method prevents firing any event. For instance, FreezeEvents(True) freezes the control's events, no no event is fired, until the FreezeEvents(False) is called
// Event event - Notifies the application once the control fires an event.
FUNCTION swimlaneEvents_Event(OBJECT swimlane, INT EventID)
	Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "EventParam(-2)") );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "FreezeEvents", -1);
Message( "No event is fired after FreezeEvents(True) call" );
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 3);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
116
The exAllowChangeFrom(0x20)/exAllowChangeTo(0x40) flag of LinkControlPointEnum type allows the user to adjust the link's from/to element by dragging and dropping the start control point (requires the exStartControlPoint/exEndControlPoint flag)
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( Operation );
	Message( _ObjectGetProperty( _ObjectGetProperty( swimlane , "FocusLink") , "ID") );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( Operation );
	Message( _ObjectGetProperty( _ObjectGetProperty( swimlane , "FocusLink") , "ID") );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 99);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
	_ObjectCallMethod( elements , "Add", "Node <b>3",64,-64);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectSetProperty( swimlane , "FocusLink", "L1");
_ObjectCallMethod( swimlane , "EndUpdate");
115
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( Operation );
	Message( _ObjectGetProperty( swimlane , "FocusLink") );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( Operation );
	Message( _ObjectGetProperty( swimlane , "FocusLink") );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 3);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectCallMethod( swimlane , "EndUpdate");
114
Focus a link
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( Operation );
END

// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION swimlaneEvents_LayoutStartChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutStartChanging" );
	Message( Operation );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 3);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Node <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Node <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,160);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),"L1");
_ObjectSetProperty( swimlane , "FocusLink", "L1");
_ObjectCallMethod( swimlane , "EndUpdate");
113
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "DrawPartsOrder", "extracaption,extrapicture,picture,check,caption,client");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\sun.png`");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<b>Element");
	_ObjectSetProperty( element , "PicturesAlign", 17);
	_ObjectSetProperty( element , "CaptionAlign", 17);
	_ObjectSetProperty( element , "Pictures", "pic1");
_ObjectCallMethod( swimlane , "EndUpdate");
112
Expandable-caption

// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION swimlaneEvents_AnchorClick(OBJECT swimlane, STRING AnchorID, STRING Options)
	Message( AnchorID );
END

OBJECT element,link,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" +
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
	"BA==>▲</a><br>+ withdraw(amount: Currency)");
	_ObjectSetProperty( element , "ID", "Account");
	_ObjectSetProperty( element , "X", -256);
	_ObjectSetProperty( element , "Y", -164);
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
	_ObjectSetProperty( element , "CaptionAlign", 4);
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMw" +
	"AM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAA" +
	"EBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAH" +
	"AAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>");
	_ObjectSetProperty( element , "ID", "Person");
	_ObjectSetProperty( element , "Y", -164);
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAE" +
	"CMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq" +
	"1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoA" +
	"MoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()");
	_ObjectSetProperty( element , "ID", "Student");
	_ObjectSetProperty( element , "Y", -64);
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
link = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`Account`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`Student`)"));
	_ObjectSetProperty( link , "Caption", "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>");
111
Expandable-caption

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3");
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
110
Draws a frame arround the link's arrow

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "ArrowSize", 8);
		_ObjectSetProperty( link , "ArrowColor", 16777215);
		_ObjectSetProperty( link , "ArrowFrameColor", 0);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
109
Draws a frame arround the arrow for all links

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
_ObjectSetProperty( swimlane , "LinksArrowSize", 8);
_ObjectSetProperty( swimlane , "LinksArrowColor", 16777215);
_ObjectSetProperty( swimlane , "LinksArrowFrameColor", 0);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
108
Change the size to display the arrow of the link

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "ArrowSize", 8);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
107
Change the size to display the arrows for all links

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
_ObjectSetProperty( swimlane , "LinksArrowSize", 8);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
106
Extends the caption on the element's width

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" +
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
	"BA==>▲</a><br>+ withdraw(amount: Currency)");
	_ObjectSetProperty( element , "ID", "Account");
	_ObjectSetProperty( element , "X", -128);
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
	_ObjectSetProperty( element , "AutoSize", 0);
	_ObjectSetProperty( element , "Width", 256);
	_ObjectSetProperty( element , "Height", _ObjectGetProperty( element , "AutoHeight"));
	_ObjectSetProperty( element , "CaptionAlign", 4);
105
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )

// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION swimlaneEvents_AnchorClick(OBJECT swimlane, STRING AnchorID, STRING Options)
	OBJECT element;
	element = _ObjectCallMethod(swimlane, "ExecuteTemplate", "Elements.Item(`Account`)");
		_ObjectSetProperty( element , "Height", _ObjectGetProperty( element , "AutoHeight"));
END

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" +
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
	"BA==>▲</a><br>+ withdraw(amount: Currency)");
	_ObjectSetProperty( element , "ID", "Account");
	_ObjectSetProperty( element , "X", -128);
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
	_ObjectSetProperty( element , "AutoSize", 0);
	_ObjectSetProperty( element , "Width", 256);
	_ObjectSetProperty( element , "Height", _ObjectGetProperty( element , "AutoHeight"));
	_ObjectSetProperty( element , "CaptionAlign", 4);
104
Fullfit the caption on the element's width

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" +
	"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)");
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
	_ObjectSetProperty( element , "BackColor", 16316664);
	_ObjectSetProperty( element , "AutoSize", 0);
	_ObjectSetProperty( element , "Width", 194);
	_ObjectSetProperty( element , "Height", 76);
	_ObjectSetProperty( element , "CaptionAlign", 4);
103
Wrap the caption by <br> or "\r\n" sequence only

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" +
	"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)");
	_ObjectSetProperty( element , "CaptionSingleLine", 1);
	_ObjectSetProperty( element , "BackColor", 16316664);
102
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION swimlaneEvents_MouseMove(OBJECT swimlane, INT Button, INT Shift, INT X, INT Y)
	_ObjectCallMethod( swimlane , "ShowToolTip", "new content","","","+8","+8");
END
101
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION swimlaneEvents_MouseMove(OBJECT swimlane, INT Button, INT Shift, INT X, INT Y)
	_ObjectCallMethod( swimlane , "ShowToolTip", "<null>","<null>","","+8","+8");
END

OBJECT swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element with a Tooltip") , "ToolTip", "This is a bit of text that should be displayed when cursor hovers the element.");
100
Add a pool to cover all visible-elements

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Pools.Add().HeaderSize(0) = 24");
_ObjectCallMethod( swimlane , "EndUpdate");
99
How can I ensure that a specified pool fits the surface's visible area
OBJECT pattern,pools,swimlane;

swimlane =  ObjectByName("AN1") ;
pools = _ObjectGetProperty( swimlane , "Pools");
	pattern = _ObjectGetProperty( _ObjectCallMethod( pools , "Add", ) , "Pattern");
		_ObjectSetProperty( pattern , "Type", 6);
		_ObjectSetProperty( pattern , "Color", 14737632);
	_ObjectCallMethod( _ObjectCallMethod( pools , "Add", 2000) , "EnsureVisible");
98
No property for the pool can be saved/restored through Undo/Redo feature

OBJECT lane,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -54,-47,244,112);
	l = _ObjectGetProperty( pool , "StartUpdatePool");
	lane = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1)");
		_ObjectSetProperty( lane , "Color", 15790320);
		_ObjectSetProperty( _ObjectGetProperty( lane , "Children") , "Count", 2);
	_ObjectCallMethod( pool , "EndUpdatePool", l);
97
Rename Undo/Redo commands into the control's toolbar

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectSetProperty( swimlane , "ToolBarFormat", "-1,100,102,101,|,103,104");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ToolBarCaption(103) = `Anuleaza <img>4</img>`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ToolBarCaption(104) = `<img>5</img>Reface`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ToolBarToolTip(103) = `Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z.`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ToolBarToolTip(104) = `Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y.`");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "EndUpdate");
96
Add Undo/Redo commands to control's toolbar

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectSetProperty( swimlane , "ToolBarFormat", "-1,100,102,101,|,103,104");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "EndUpdate");
95
Clear Undo/Redo queue (method 2)

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
c = _ObjectGetProperty( swimlane , "UndoRedoQueueLength");
_ObjectSetProperty( swimlane , "UndoRedoQueueLength", 0);
_ObjectSetProperty( swimlane , "UndoRedoQueueLength", c);
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
94
Clear Undo/Redo queue (method 1)

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
93
Removes Redo operations

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "Undo");
_ObjectCallMethod( swimlane , "RedoRemoveAction", 10);
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "RedoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
92
Removes Undo operations

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "UndoRemoveAction", 10);
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
91
Record the UI operations as a block of undo/redo operations

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( swimlane , "StartBlockUndoRedo");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "EndBlockUndoRedo");
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
90
Groups the next to current Undo/Redo Actions in a single block

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "GroupUndoRedoActions", 3);
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
89
Limits the number of entries within the Undo/Redo queue

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectSetProperty( swimlane , "UndoRedoQueueLength", 1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
88
Lists the Redo actions that can be performed on the surface

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "Undo");
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "RedoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
87
Lists the Undo actions that can be performed on the surface

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( swimlane , "EndUpdate");
86
Checks whether the Undo operation is possible

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "Undo");
Message( "CanRedo" );
Message( _ObjectGetProperty( swimlane , "CanRedo") );
_ObjectCallMethod( swimlane , "EndUpdate");
85
Call Redo by code

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "Undo");
_ObjectCallMethod( swimlane , "Redo");
_ObjectCallMethod( swimlane , "EndUpdate");
84
Checks whether the Undo operation is possible

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
Message( "CanUndo" );
Message( _ObjectGetProperty( swimlane , "CanUndo") );
_ObjectCallMethod( swimlane , "EndUpdate");
83
Call Undo by code

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "Undo");
_ObjectCallMethod( swimlane , "EndUpdate");
82
Save the element's properties for Undo/Redo operations, by code

OBJECT elements,link,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( swimlane , "StartBlockUndoRedo");
link = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	h = _ObjectGetProperty( link , "StartUpdateLink");
	_ObjectSetProperty( link , "Color", 255);
	_ObjectSetProperty( link , "Width", 2);
	_ObjectSetProperty( link , "ShowDir", 0);
	_ObjectSetProperty( link , "ShowLinkType", 2);
	_ObjectCallMethod( link , "EndUpdateLink", h);
_ObjectCallMethod( swimlane , "EndBlockUndoRedo");
_ObjectCallMethod( swimlane , "EndUpdate");
81
No color is restored for the link when Undo/Redo operation is executed

// AddElement event - A new element has been added to the surface.
FUNCTION swimlaneEvents_AddElement(OBJECT swimlane, OBJECT Element)
	' Element.ShowCheckBox = True
	' Element.CheckBoxAlign = 2

END

OBJECT elements,link,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Check <b>1",-64,-64);
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Check <b>2") , "Checked", 1);
_ObjectCallMethod( swimlane , "StartBlockUndoRedo");
link = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	h = _ObjectGetProperty( link , "StartUpdateLink");
	_ObjectSetProperty( link , "Color", 255);
	_ObjectSetProperty( link , "Width", 2);
	_ObjectSetProperty( link , "ShowDir", 0);
	_ObjectSetProperty( link , "ShowLinkType", 2);
	_ObjectCallMethod( link , "EndUpdateLink", h);
_ObjectCallMethod( swimlane , "EndBlockUndoRedo");
_ObjectCallMethod( swimlane , "EndUpdate");
80
Save the element's properties for Undo/Redo operations, by code

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Item <b>1",-64,-64);
_ObjectCallMethod( swimlane , "StartBlockUndoRedo");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Item <b>2");
	h = _ObjectGetProperty( element , "StartUpdateElement");
	_ObjectSetProperty( element , "BackColor", 0);
	_ObjectSetProperty( element , "ForeColor", 16777215);
	_ObjectSetProperty( element , "BorderColor", 255);
	_ObjectCallMethod( element , "EndUpdateElement", h);
_ObjectCallMethod( swimlane , "EndBlockUndoRedo");
_ObjectCallMethod( swimlane , "EndUpdate");
79
No color is restored for the element when Undo/Redo operation is executed

OBJECT element,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Item <b>1",-64,-64);
_ObjectCallMethod( swimlane , "StartBlockUndoRedo");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Item <b>2");
	h = _ObjectGetProperty( element , "StartUpdateElement");
	_ObjectSetProperty( element , "BackColor", 0);
	_ObjectSetProperty( element , "ForeColor", 16777215);
	_ObjectSetProperty( element , "BorderColor", 255);
	_ObjectCallMethod( element , "EndUpdateElement", h);
_ObjectCallMethod( swimlane , "EndBlockUndoRedo");
_ObjectCallMethod( swimlane , "EndUpdate");
78
How can I ensure that a specified element fits the surface's visible area

OBJECT elements,pattern,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	pattern = _ObjectGetProperty( _ObjectCallMethod( elements , "Add", "Element A",-100) , "Pattern");
		_ObjectSetProperty( pattern , "Type", 6);
		_ObjectSetProperty( pattern , "Color", 14737632);
	_ObjectCallMethod( _ObjectCallMethod( elements , "Add", "Element B",2000) , "EnsureVisible");
77
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION swimlaneEvents_LayoutEndChanging(OBJECT swimlane, INT Operation)
	Message( "LayoutEndChanging" );
	Message( Operation );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "EndUpdate");
76
Turn on the Undo/Redo feature

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowUndoRedo", -1);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -154,-82,244,122);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Item <b>1",-64,-64);
	_ObjectCallMethod( elements , "Add", "Item <b>2");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Links") , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "EndUpdate");
75
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddElement event - A new element has been added to the surface.
FUNCTION swimlaneEvents_AddElement(OBJECT swimlane, OBJECT Element)
	' Element.ShowCheckBox = True

END

OBJECT appearance,element,elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "ImageSize", 32);
_ObjectSetProperty( _ObjectGetProperty( swimlane , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( swimlane , "ContextMenuFont") , "Size", 16);
_ObjectCallMethod( swimlane , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
appearance = _ObjectGetProperty( swimlane , "VisualAppearance");
	_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
	_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
	"gRBCCQAgQEA==");
	_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
	_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(70) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(71) = 33554432");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(72) = 50331648");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(102) = 67108864");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(104) = 1");
elements = _ObjectGetProperty( swimlane , "Elements");
	element = _ObjectCallMethod( elements , "Add", "Element Check 2");
		_ObjectSetProperty( element , "Checked", 1);
		_ObjectSetProperty( element , "Pictures", "1,2");
_ObjectCallMethod( swimlane , "Home");
_ObjectCallMethod( swimlane , "EndUpdate");
74
ImageSize property on 16 (default) (specifies the size of control' icons)

// AddElement event - A new element has been added to the surface.
FUNCTION swimlaneEvents_AddElement(OBJECT swimlane, OBJECT Element)
	' Element.ShowCheckBox = True

END

OBJECT element,elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "ImageSize", 16);
_ObjectCallMethod( swimlane , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
elements = _ObjectGetProperty( swimlane , "Elements");
	element = _ObjectCallMethod( elements , "Add", "Element Check 2");
		_ObjectSetProperty( element , "Checked", 1);
		_ObjectSetProperty( element , "Pictures", "1,2");
_ObjectCallMethod( swimlane , "Home");
_ObjectCallMethod( swimlane , "EndUpdate");
73
We want to have option to start/end connectors at the middle of each side of the elements
OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "ShowLinks", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
72
How can I determine the position the user clicks within the element's boundaries (Click event)

// Click event - Occurs when the user presses and then releases the left mouse button over the control.
FUNCTION swimlaneEvents_Click()
	e = _ObjectCallMethod(swimlane, "ExecuteTemplate", "ElementFromPoint(-1,-1)");
	X = -1;
	Y = -1;
	_ObjectCallMethod( swimlane , "PointToPosition", X,Y);
	Message( e );
	Message( X );
	Message( Y );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element 1");
	_ObjectCallMethod( elements , "Add", "Element 2",128,64);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
71
How can I determine the position the user clicks within the element's boundaries (MouseMove event)

// MouseMove event - Occurs when the user moves the mouse.
FUNCTION swimlaneEvents_MouseMove(OBJECT swimlane, INT Button, INT Shift, INT X, INT Y)
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim X,Y")
	_ObjectCallMethod(swimlane, "TemplatePut", X)
	_ObjectCallMethod(swimlane, "TemplatePut", Y)
	e = _ObjectCallMethod(swimlane, "ExecuteTemplate", "ElementFromPoint(X,Y)");
	_ObjectCallMethod( swimlane , "PointToPosition", X,Y);
	Message( e );
	Message( X );
	Message( Y );
END

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element 1");
	_ObjectCallMethod( elements , "Add", "Element 2",128,64);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
70
How can I convert the screen position (mouse) to surface position

// MouseMove event - Occurs when the user moves the mouse.
FUNCTION swimlaneEvents_MouseMove(OBJECT swimlane, INT Button, INT Shift, INT X, INT Y)
	Message( "Point " );
	Message( X );
	Message( Y );
	_ObjectCallMethod( swimlane , "PointToPosition", X,Y);
	Message( "Position " );
	Message( X );
	Message( Y );
END

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectSetProperty( swimlane , "AxisStyle", 192);
_ObjectSetProperty( swimlane , "AxisColor", 8421504);
_ObjectCallMethod( swimlane , "EndUpdate");
69
Is is possible to show just the positive coordinates

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "Coord", 17);
_ObjectSetProperty( swimlane , "AxisColor", 8421504);
_ObjectSetProperty( swimlane , "AxisStyle", 259);
_ObjectSetProperty( swimlane , "ShowLinks", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
68
Cartesian coordinates (positive coordinates are shown top-right to the origin)

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "Coord", 1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
67
Default coordinates (positive coordinates are shown bottom-right to the origin)

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "Coord", 0);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
66
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", 31);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>1");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>2",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>3",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
_ObjectSetProperty( swimlane , "Zoom", 200);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
65
Does your control supports OLE Drag and Drop
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
FUNCTION swimlaneEvents_OLEDragDrop(OBJECT swimlane, OBJECT Data, INT Effect, INT Button, INT Shift, INT X, INT Y)
	Message( Data );
END

// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION swimlaneEvents_OLEStartDrag(OBJECT swimlane, OBJECT Data, INT AllowedEffects)
	' Data.SetData("some data to drag")

END

OBJECT element,elements,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "OLEDropMode", 1);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 2");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 1");
elements = _ObjectGetProperty( swimlane , "Elements");
	element = _ObjectCallMethod( elements , "Add", "Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>");
		_ObjectSetProperty( element , "CaptionSingleLine", 0);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "X", -125);
		_ObjectSetProperty( element , "Y", -105);
		_ObjectSetProperty( element , "Width", 256);
		_ObjectSetProperty( element , "Height", 56);
	element = _ObjectCallMethod( elements , "Add", "Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>");
		_ObjectSetProperty( element , "CaptionSingleLine", 0);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "X", -125);
		_ObjectSetProperty( element , "Width", 256);
		_ObjectSetProperty( element , "Height", 56);
_ObjectCallMethod( swimlane , "EndUpdate");
64
Is it possible to disable customizing the path of a specified link

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "Color", 8421504);
		_ObjectSetProperty( link , "AllowControlPoint", 0);
_ObjectSetProperty( swimlane , "Zoom", 200);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
63
How do I let user customizes the link's path

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowLinkControlPoint", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",164,64);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,132);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	_ObjectSetProperty( _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)")) , "CustomPath", "0.5,0.25,0.5,.75");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "ShowLinkType", 3);
		_ObjectSetProperty( link , "StartPos", 0);
_ObjectSetProperty( swimlane , "Zoom", 200);
_ObjectCallMethod( swimlane , "FitToClient");
_ObjectCallMethod( swimlane , "EndUpdate");
62
How can I generate a picture/image/graph from my diagram
OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "E");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "F");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`E`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`F`)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(4) = False");
_ObjectCallMethod( swimlane , "Arrange", );
var_CopyTo = _ObjectCallMethod(swimlane, "ExecuteTemplate", "CopyTo(`c:/temp/xtest.jpg`)");
Message( "!!!check the file c:/temp/xtest.jpg!!!" );
61
How can I generate a picture/image/graph from my diagram
OBJECT createobject("exontrol.print"),elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "E");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "F");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`E`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`F`)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(4) = False");
_ObjectCallMethod( swimlane , "Arrange", );
createobject("exontrol.print") = CreateObject("Exontrol.Print");
	_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", swimlane);
	_ObjectCallMethod( createobject("exontrol.print") , "CopyTo", "c:/temp/xtest.jpg");
Message( "!!!check the file c:/temp/xtest.jpg!!!" );
60
How can I print the component
OBJECT createobject("exontrol.print"),element,elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,76);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",-76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>D",76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
links = _ObjectGetProperty( swimlane , "Links");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"));
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "EndPos", 2);
createobject("exontrol.print") = CreateObject("Exontrol.Print");
	_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", swimlane);
	_ObjectCallMethod( createobject("exontrol.print") , "Preview");
59
How can I show direct-links

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "ShowLinksType", 1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B",128,64) , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C",128,-64) , "ID", "C");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
58
How can I show straight-links

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "ShowLinksType", 2);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B",128,64) , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C",128,-64) , "ID", "C");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
57
How can I show round-links

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "ShowLinksType", 3);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B",128,64) , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C",128,-64) , "ID", "C");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
56
I've tried to insert a "<br>" in the Caption property text and it just ignores it

OBJECT element,elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	element = _ObjectCallMethod( elements , "Add", "caption");
		_ObjectSetProperty( element , "CaptionSingleLine", 0);
		_ObjectSetProperty( element , "Caption", "first caption<br>second caption<br>third caption");
_ObjectCallMethod( swimlane , "EndUpdate");
55
How do I align the extra-caption

OBJECT element,elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	element = _ObjectCallMethod( elements , "Add", "caption");
		_ObjectSetProperty( element , "CaptionAlign", 0);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Width", 128);
		_ObjectSetProperty( element , "Height", 64);
		_ObjectSetProperty( element , "ExtraCaption", "extra-caption");
		_ObjectSetProperty( element , "ExtraCaptionAlign", 34);
_ObjectCallMethod( swimlane , "EndUpdate");
54
How can I add an extra caption

OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "caption") , "ExtraCaption", "extra-caption");
_ObjectCallMethod( swimlane , "EndUpdate");
53
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowMoveNeighbors", 2);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(0) = 1");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B ( move it )",16,32);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",128,0);
_ObjectCallMethod( swimlane , "EndUpdate");
52
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowMoveNeighbors", 1);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(1) = 0");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(2) = 0");
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B ( move it )",0,32);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",0,64);
_ObjectCallMethod( swimlane , "EndUpdate");
51
How do I enable the reserve-neighbors feature
OBJECT elements,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowMoveNeighbors", 1);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B ( move it )",0,32);
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",0,64);
_ObjectCallMethod( swimlane , "EndUpdate");
50
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "E");
	_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element E") , "ID", "F");
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`E`)"));
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`F`)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(4) = False");
_ObjectCallMethod( swimlane , "Arrange", );
49
How can I move an element to a specified lane/phase/pool

OBJECT element,pool,swimlane;

swimlane =  ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefPoolHeaderCaptionFormat(True) = `<fgcolor 808080>Faza <off -4><b><font ;6>%i`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefPoolHeaderCaptionFormat(False) = `<fgcolor 808080>Culoar <off -4><b><font ;6>%i`");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,180);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
	_ObjectCallMethod(swimlane, "TemplatePut", pool)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 3");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 3");
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Item(1).Header.Caption = `<fgcolor FF0000><b>NEW`");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "element 1",200,200);
	_ObjectCallMethod(swimlane, "TemplatePut", "Dim eleObj")
	_ObjectCallMethod(swimlane, "TemplatePut", element)
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "eleObj.LaneID(True) = `0:H.0,0:V.0`");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "element 2",200,200);
	_ObjectCallMethod(swimlane, "ExecuteTemplate", "eleObj.LaneID(True) = `0:H.2,0:V.2`");
_ObjectCallMethod( swimlane , "EndUpdate");
48
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)

// AddLink event - A new link has been added to the links collection.
FUNCTION swimlaneEvents_AddLink(OBJECT swimlane, OBJECT Link)
	OBJECT link;
	link = Link;
END

OBJECT elements,links,swimlane;

swimlane =  ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",48,48);
links = _ObjectGetProperty( swimlane , "Links");
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
47
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)

OBJECT elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",48,48);
links = _ObjectGetProperty( swimlane , "Links");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
		_ObjectSetProperty( link , "StartPos", 4);
		_ObjectSetProperty( link , "EndPos", 3);
46
How do I enable the cross link support ( mixed )

OBJECT element,elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,76);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",-76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>D",76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
links = _ObjectGetProperty( swimlane , "Links");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"));
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "EndPos", 2);
_ObjectSetProperty( swimlane , "ShowLinks", 97);
45
How do I enable the cross link support ( triangular )

OBJECT element,elements,link,links,swimlane;

swimlane =  ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
	_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,76);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",-76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
	element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>D",76,32);
		_ObjectSetProperty( element , "AutoSize", 0);
		_ObjectSetProperty( element , "Height", 32);
links = _ObjectGetProperty( swimlane , "Links");
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
		_ObjectSetProperty( link , "StartPos", 1);
		_ObjectSetProperty( link , "EndPos", 1);
	_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"));
	link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
		_ObjectSetProperty( link , "StartPos", 0);
		_ObjectSetProperty( link , "EndPos", 2);
_ObjectSetProperty( swimlane , "ShowLinks", 65);