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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowDesignHeader = 0
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	with .Pools.Add(-100,-100,250,160)
		.Lane(0).Children.Count = 2
		.Lane(1).Children.Count = 2
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Right-Click the pool, element or the link to open its context menu, and change a property of it" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowDesignHeader = 0
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	with .Pools.Add(-100,-100,250,160)
		.Lane(0).Children.Count = 2
		.Lane(1).Children.Count = 2
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Right-Click the pool, element or the link to open its context menu" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowDesignHeader = 0
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	with .Pools.Add(-100,-100,250,160)
		.Lane(0).Children.Count = 2
		.Lane(1).Children.Count = 2
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click the lane's header to drag to a new position" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowDesignHeader = 0
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	with .Pools.Add(-100,-100,250,160)
		.Lane(0).Children.Count = 2
		.Lane(1).Children.Count = 2
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click the pool's header to resize it" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click the pool's header to resize it" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click a pool and drag to reposition it" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Resize a pool" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click the Design Menu and select one of the options" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Press CTRL+Z to Undo, CTRL+Y to Redo" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.EndUpdate
	DEBUGOUT( "Hold SHIFT, click an element, and drag to another element to create a link between them" )
endwith
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. ***
LPARAMETERS nop
	*** ElementFromPoint(-1,-1).Edit(0)

*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click an element to edit its caption" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Double-click on the surface and immediately drag to a new position to create an element" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowSelectNothing = .T.
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2").Selected = .T.
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Select an element, and then click outside to select nothing" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	var_s = "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unse"
	var_s = var_s + "lect it"
	DEBUGOUT( var_s )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Move an element" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64).AutoSize = .F.
		.Add("Node <b>2").AutoSize = .F.
		.Add("Node <b>3",64,-64).AutoSize = .F.
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Resize an element" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click the Home button" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click and drag the surface to reposition it" )
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
	DEBUGOUT( "Click and drag the surface to reposition it" )
endwith
118
FormatABC method formats the A,B,C values based on the giving expression and returns the result
with thisform.SwimLane1
	DEBUGOUT( .FormatABC("value format ``",1000) )
endwith
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. ***
LPARAMETERS EventID
	with thisform.SwimLane1
		DEBUGOUT( .EventParam(-2) )
	endwith

with thisform.SwimLane1
	.FreezeEvents(.T.)
	DEBUGOUT( "No event is fired after FreezeEvents(True) call" )
	.BeginUpdate
	.AllowLinkControlPoint = 3 && LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( Operation )
		DEBUGOUT( .FocusLink.ID )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( Operation )
		DEBUGOUT( .FocusLink.ID )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 99 && LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
		.Add("Node <b>3",64,-64)
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.FocusLink = "L1"
	.EndUpdate
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( Operation )
		DEBUGOUT( .FocusLink )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( Operation )
		DEBUGOUT( .FocusLink )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 3 && LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.EndUpdate
endwith
114
Focus a link
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( Operation )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutStartChanging" )
		DEBUGOUT( Operation )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 3 && LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Node <b>1",-64,-64)
		.Add("Node <b>2")
	endwith
	.Pools.Add(-100,-100,250,160)
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2),"L1")
	.FocusLink = "L1"
	.EndUpdate
endwith
113
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

with thisform.SwimLane1
	.BeginUpdate
	.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
	with .Elements.Add("<b>Element")
		.PicturesAlign = 17
		.CaptionAlign = 17
		.Pictures = "pic1"
	endwith
	.EndUpdate
endwith
112
Expandable-caption

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.SwimLane1
		DEBUGOUT( AnchorID )
	endwith

with thisform.SwimLane1
	var_s = "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMY"
	var_s = var_s + "AjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuo"
	var_s = var_s + "NXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECM"
	var_s = var_s + "wAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEB"
	var_s = var_s + "A==>▲</a><br>+ withdraw(amount: Currency)"
	with .Elements.Add(var_s)
		.ID = "Account"
		.X = -256
		.Y = -164
		.CaptionSingleLine = 1
		.CaptionAlign = 4 && 0x4
	endwith
	var_s1 = "<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwA"
	var_s1 = var_s1 + "M4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAE"
	var_s1 = var_s1 + "BA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHA"
	var_s1 = var_s1 + "AGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>"
	with .Elements.Add(var_s1)
		.ID = "Person"
		.Y = -164
		.CaptionSingleLine = 1
	endwith
	var_s2 = "<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAEC"
	var_s2 = var_s2 + "McTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1"
	var_s2 = var_s2 + "Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAM"
	var_s2 = var_s2 + "oAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()"
	with .Elements.Add(var_s2)
		.ID = "Student"
		.Y = -64
		.CaptionSingleLine = 1
	endwith
	with .Links.Add(thisform.SwimLane1.Elements.Item("Account"),thisform.SwimLane1.Elements.Item("Student"))
		.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
	endwith
endwith
111
Expandable-caption

with thisform.SwimLane1
	with .Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CaptionSingleLine = 1
	endwith
endwith
110
Draws a frame arround the link's arrow

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		endwith
	endwith
	.FitToClient
	.EndUpdate
endwith
109
Draws a frame arround the arrow for all links

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.LinksArrowSize = 8
	.LinksArrowColor = RGB(255,255,255)
	.LinksArrowFrameColor = RGB(0,0,0)
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
		endwith
	endwith
	.FitToClient
	.EndUpdate
endwith
108
Change the size to display the arrow of the link

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
			.ArrowSize = 8
		endwith
	endwith
	.FitToClient
	.EndUpdate
endwith
107
Change the size to display the arrows for all links

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.LinksArrowSize = 8
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
		endwith
	endwith
	.FitToClient
	.EndUpdate
endwith
106
Extends the caption on the element's width

with thisform.SwimLane1
	var_s = "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMY"
	var_s = var_s + "AjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuo"
	var_s = var_s + "NXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECM"
	var_s = var_s + "wAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEB"
	var_s = var_s + "A==>▲</a><br>+ withdraw(amount: Currency)"
	with .Elements.Add(var_s)
		.ID = "Account"
		.X = -128
		.CaptionSingleLine = 1
		.AutoSize = .F.
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = 4 && 0x4
	endwith
endwith
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. ***
LPARAMETERS AnchorID,Options
	with thisform.SwimLane1
		with .Elements.Item("Account")
			.Height = .AutoHeight
		endwith
	endwith

with thisform.SwimLane1
	var_s = "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMY"
	var_s = var_s + "AjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuo"
	var_s = var_s + "NXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECM"
	var_s = var_s + "wAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEB"
	var_s = var_s + "A==>▲</a><br>+ withdraw(amount: Currency)"
	with .Elements.Add(var_s)
		.ID = "Account"
		.X = -128
		.CaptionSingleLine = 1
		.AutoSize = .F.
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = 4 && 0x4
	endwith
endwith
104
Fullfit the caption on the element's width

with thisform.SwimLane1
	var_s = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</so"
	var_s = var_s + "lidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
	with .Elements.Add(var_s)
		.CaptionSingleLine = 1
		.BackColor = RGB(248,248,248)
		.AutoSize = .F.
		.Width = 194
		.Height = 76
		.CaptionAlign = 4 && 0x4
	endwith
endwith
103
Wrap the caption by <br> or "\r\n" sequence only

with thisform.SwimLane1
	var_s = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</so"
	var_s = var_s + "lidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
	with .Elements.Add(var_s)
		.CaptionSingleLine = 1
		.BackColor = RGB(248,248,248)
	endwith
endwith
102
Display a custom tooltip
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.SwimLane1
		.ShowToolTip("new content","",Null,"+8","+8")
	endwith
101
Shows the tooltip of the object moved relative to its default position
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.SwimLane1
		.ShowToolTip("<null>","<null>",Null,"+8","+8")
	endwith

with thisform.SwimLane1
	.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
endwith
100
Add a pool to cover all visible-elements

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Pools.Add().HeaderSize(0) = 24
	.EndUpdate
endwith
99
How can I ensure that a specified pool fits the surface's visible area
with thisform.SwimLane1
	with .Pools
		with .Add().Pattern
			.Type = 6
			.Color = RGB(224,224,224)
		endwith
		.Add(2000).EnsureVisible
	endwith
endwith
98
No property for the pool can be saved/restored through Undo/Redo feature

with thisform.SwimLane1
	.AllowUndoRedo = .T.
	with .Pools.Add(-54,-47,244,112)
		l = .StartUpdatePool
		with .Lane(1)
			.Color = RGB(240,240,240)
			.Children.Count = 2
		endwith
		.EndUpdatePool(l)
	endwith
endwith
97
Rename Undo/Redo commands into the control's toolbar

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

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.ToolBarFormat = "-1,100,102,101,|,103,104"
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.EndUpdate
endwith
95
Clear Undo/Redo queue (method 2)

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	c = .UndoRedoQueueLength
	.UndoRedoQueueLength = 0
	.UndoRedoQueueLength = c
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
94
Clear Undo/Redo queue (method 1)

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.AllowUndoRedo = .T.
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
93
Removes Redo operations

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Undo
	.RedoRemoveAction(10)
	DEBUGOUT( .RedoListAction() )
	.EndUpdate
endwith
92
Removes Undo operations

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.UndoRemoveAction(10)
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
91
Record the UI operations as a block of undo/redo operations

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.StartBlockUndoRedo
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.EndBlockUndoRedo
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
90
Groups the next to current Undo/Redo Actions in a single block

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.GroupUndoRedoActions(3)
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
89
Limits the number of entries within the Undo/Redo queue

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.UndoRedoQueueLength = 1
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
88
Lists the Redo actions that can be performed on the surface

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Undo
	DEBUGOUT( .RedoListAction() )
	.EndUpdate
endwith
87
Lists the Undo actions that can be performed on the surface

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	DEBUGOUT( .UndoListAction() )
	.EndUpdate
endwith
86
Checks whether the Undo operation is possible

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Undo
	DEBUGOUT( "CanRedo" )
	DEBUGOUT( .CanRedo )
	.EndUpdate
endwith
85
Call Redo by code

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Undo
	.Redo
	.EndUpdate
endwith
84
Checks whether the Undo operation is possible

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	DEBUGOUT( "CanUndo" )
	DEBUGOUT( .CanUndo )
	.EndUpdate
endwith
83
Call Undo by code

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.Undo
	.EndUpdate
endwith
82
Save the element's properties for Undo/Redo operations, by code

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.StartBlockUndoRedo
	with .Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		h = .StartUpdateLink
		.Color = RGB(255,0,0)
		.Width = 2
		.ShowDir = .F.
		.ShowLinkType = 2
		.EndUpdateLink(h)
	endwith
	.EndBlockUndoRedo
	.EndUpdate
endwith
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. ***
LPARAMETERS Element
	*** Element.ShowCheckBox = True
	*** Element.CheckBoxAlign = 2

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	with .Elements
		.Add("Check <b>1",-64,-64)
		.Add("Check <b>2").Checked = 1
	endwith
	.StartBlockUndoRedo
	with .Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		h = .StartUpdateLink
		.Color = RGB(255,0,0)
		.Width = 2
		.ShowDir = .F.
		.ShowLinkType = 2
		.EndUpdateLink(h)
	endwith
	.EndBlockUndoRedo
	.EndUpdate
endwith
80
Save the element's properties for Undo/Redo operations, by code

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Elements.Add("Item <b>1",-64,-64)
	.StartBlockUndoRedo
	with .Elements.Add("Item <b>2")
		h = .StartUpdateElement
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(255,255,255)
		.BorderColor = RGB(255,0,0)
		.EndUpdateElement(h)
	endwith
	.EndBlockUndoRedo
	.EndUpdate
endwith
79
No color is restored for the element when Undo/Redo operation is executed

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Elements.Add("Item <b>1",-64,-64)
	.StartBlockUndoRedo
	with .Elements.Add("Item <b>2")
		h = .StartUpdateElement
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(255,255,255)
		.BorderColor = RGB(255,0,0)
		.EndUpdateElement(h)
	endwith
	.EndBlockUndoRedo
	.EndUpdate
endwith
78
How can I ensure that a specified element fits the surface's visible area

with thisform.SwimLane1
	with .Elements
		with .Add("Element A",-100).Pattern
			.Type = 6
			.Color = RGB(224,224,224)
		endwith
		.Add("Element B",2000).EnsureVisible
	endwith
endwith
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. ***
LPARAMETERS Operation
	with thisform.SwimLane1
		DEBUGOUT( "LayoutEndChanging" )
		DEBUGOUT( Operation )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.EndUpdate
endwith
76
Turn on the Undo/Redo feature

with thisform.SwimLane1
	.BeginUpdate
	.AllowUndoRedo = .T.
	.Pools.Add(-154,-82,244,122)
	with .Elements
		.Add("Item <b>1",-64,-64)
		.Add("Item <b>2")
	endwith
	.Links.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	.EndUpdate
endwith
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. ***
LPARAMETERS Element
	*** Element.ShowCheckBox = True

with thisform.SwimLane1
	.BeginUpdate
	.ImageSize = 32
	.Font.Size = 16
	.ContextMenuFont.Size = 16
	var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN"
	var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy"
	var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM"
	var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F"
	var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y"
	var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF"
	var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN"
	var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio"
	var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4"
	var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6"
	var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD"
	var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT"
	var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff"
	var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6"
	var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg"
	var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR"
	var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
		var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
		var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
		var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
		var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
		var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
		var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
		var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add(1,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
		var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
		var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
		var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
		var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
		var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
		var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
		var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
		var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
		var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
		var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
		var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
		var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
		var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
		var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
		var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
		var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
		var_s2 = var_s2 + "RBCCQAgQEA=="
		.Add(2,var_s2)
		var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
		var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
		var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
		var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
		var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
		var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
		var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
		var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
		var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
		var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
		var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
		var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
		var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
		var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
		var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
		var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add(3,var_s3)
		var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s4)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	.Object.Background(102) = 0x4000000
	.Object.Background(104) = RGB(1,0,0)
	with .Elements
		with .Add("Element Check 2")
			.Checked = 1
			.Pictures = "1,2"
		endwith
	endwith
	.Home
	.EndUpdate
endwith
74
ImageSize property on 16 (default) (specifies the size of control' icons)

*** AddElement event - A new element has been added to the surface. ***
LPARAMETERS Element
	*** Element.ShowCheckBox = True

with thisform.SwimLane1
	.BeginUpdate
	.ImageSize = 16
	var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd"
	var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt"
	var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac"
	var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG"
	var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn"
	var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	.Images(var_s)
	with .Elements
		with .Add("Element Check 2")
			.Checked = 1
			.Pictures = "1,2"
		endwith
	endwith
	.Home
	.EndUpdate
endwith
73
We want to have option to start/end connectors at the middle of each side of the elements
with thisform.SwimLane1
	.BeginUpdate
	.ShowLinks = -1
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
	endwith
	.FitToClient
	.EndUpdate
endwith
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. ***
LPARAMETERS nop
	with thisform.SwimLane1
		e = .ElementFromPoint(-1,-1)
		X = -1
		Y = -1
		.PointToPosition(X,Y)
			DEBUGOUT( e )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		.Add("Element 1")
		.Add("Element 2",128,64)
	endwith
	.FitToClient
	.EndUpdate
endwith
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. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.SwimLane1
		e = .ElementFromPoint(X,Y)
		.PointToPosition(X,Y)
			DEBUGOUT( e )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		.Add("Element 1")
		.Add("Element 2",128,64)
	endwith
	.FitToClient
	.EndUpdate
endwith
70
How can I convert the screen position (mouse) to surface position

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.SwimLane1
		DEBUGOUT( "Point " )
		DEBUGOUT( X )
		DEBUGOUT( Y )
		.PointToPosition(X,Y)
		DEBUGOUT( "Position " )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
	endwith
	.FitToClient
	.AxisStyle = 192
	.AxisColor = RGB(128,128,128)
	.EndUpdate
endwith
69
Is is possible to show just the positive coordinates

with thisform.SwimLane1
	.BeginUpdate
	.Coord = 17 && CoordEnum.exAllowPositiveOnly Or CoordEnum.exCartesian
	.AxisColor = RGB(128,128,128)
	.AxisStyle = 259 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesDot
	.ShowLinks = -1
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
	endwith
	.FitToClient
	.EndUpdate
endwith
68
Cartesian coordinates (positive coordinates are shown top-right to the origin)

with thisform.SwimLane1
	.BeginUpdate
	.Coord = 1
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
	endwith
	.FitToClient
	.EndUpdate
endwith
67
Default coordinates (positive coordinates are shown bottom-right to the origin)

with thisform.SwimLane1
	.BeginUpdate
	.Coord = 0
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
	endwith
	.FitToClient
	.EndUpdate
endwith
66
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = 31 && LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Element <sha ;;0>1")
		.Add("Element <sha ;;0>2",164,64)
		.Add("Element <sha ;;0>3",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
	endwith
	.Zoom = 200
	.FitToClient
	.EndUpdate
endwith
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. ***
LPARAMETERS Data,Effect,Button,Shift,X,Y
	with thisform.SwimLane1
		DEBUGOUT( Data )
	endwith

*** OLEStartDrag event - Occurs when the OLEDrag method is called. ***
LPARAMETERS Data,AllowedEffects
	*** Data.SetData("some data to drag")

with thisform.SwimLane1
	.BeginUpdate
	.OLEDropMode = 1
	with .Pools.Add(-250,-150,500,250)
		.Lane(0).Children.Count = 2
		.Lane(1).Children.Count = 1
	endwith
	with .Elements
		with .Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
			.CaptionSingleLine = .F.
			.AutoSize = .F.
			.X = -125
			.Y = -105
			.Width = 256
			.Height = 56
		endwith
		with .Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
			.CaptionSingleLine = .F.
			.AutoSize = .F.
			.X = -125
			.Width = 256
			.Height = 56
		endwith
	endwith
	.EndUpdate
endwith
64
Is it possible to disable customizing the path of a specified link

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
			.Color = RGB(128,128,128)
			.AllowControlPoint = 0
		endwith
	endwith
	.Zoom = 200
	.FitToClient
	.EndUpdate
endwith
63
How do I let user customizes the link's path

with thisform.SwimLane1
	.BeginUpdate
	.AllowLinkControlPoint = -1 && 0xffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",164,64)
		.Add("Element <sha ;;0>B",0,132)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		with .Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(1))
			.ShowLinkType = 3
			.StartPos = 0
		endwith
	endwith
	.Zoom = 200
	.FitToClient
	.EndUpdate
endwith
62
How can I generate a picture/image/graph from my diagram
with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
		.Add("Element E").ID = "E"
		.Add("Element E").ID = "F"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("E"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("F"))
	endwith
	.Object.DefArrange(4) = .F.
	.Arrange()
	var_CopyTo = .CopyTo("c:/temp/xtest.jpg")
	DEBUGOUT( "!!!check the file c:/temp/xtest.jpg!!!" )
endwith
61
How can I generate a picture/image/graph from my diagram
with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
		.Add("Element E").ID = "E"
		.Add("Element E").ID = "F"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("E"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("F"))
	endwith
	.Object.DefArrange(4) = .F.
	.Arrange()
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.SwimLane1.Object
		.CopyTo("c:/temp/xtest.jpg")
	endwith
	DEBUGOUT( "!!!check the file c:/temp/xtest.jpg!!!" )
endwith
60
How can I print the component
with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",0,76)
		with .Add("Element <sha ;;0>C",-76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
		with .Add("Element <sha ;;0>D",76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		endwith
		with .Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(1))
			.StartPos = 1
			.EndPos = 1
		endwith
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(4))
		with .Add(thisform.SwimLane1.Elements.Item(4),thisform.SwimLane1.Elements.Item(3))
			.StartPos = 0
			.EndPos = 2
		endwith
	endwith
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.SwimLane1.Object
		.Preview
	endwith
endwith
59
How can I show direct-links

with thisform.SwimLane1
	.ShowLinksType = 1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B",128,64).ID = "B"
		.Add("Element C",128,-64).ID = "C"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
	endwith
endwith
58
How can I show straight-links

with thisform.SwimLane1
	.ShowLinksType = 2
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B",128,64).ID = "B"
		.Add("Element C",128,-64).ID = "C"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
	endwith
endwith
57
How can I show round-links

with thisform.SwimLane1
	.ShowLinksType = 3
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B",128,64).ID = "B"
		.Add("Element C",128,-64).ID = "C"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
	endwith
endwith
56
I've tried to insert a "<br>" in the Caption property text and it just ignores it

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		with .Add("caption")
			.CaptionSingleLine = .F.
			.Caption = "first caption<br>second caption<br>third caption"
		endwith
	endwith
	.EndUpdate
endwith
55
How do I align the extra-caption

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		with .Add("caption")
			.CaptionAlign = 0
			.AutoSize = .F.
			.Width = 128
			.Height = 64
			.ExtraCaption = "extra-caption"
			.ExtraCaptionAlign = 34
		endwith
	endwith
	.EndUpdate
endwith
54
How can I add an extra caption

with thisform.SwimLane1
	.BeginUpdate
	with .Elements
		.Add("caption").ExtraCaption = "extra-caption"
	endwith
	.EndUpdate
endwith
53
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
with thisform.SwimLane1
	.BeginUpdate
	.AllowMoveNeighbors = 2
	.Object.DefArrange(0) = 1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B ( move it )",16,32)
		.Add("Element <sha ;;0>C",128,0)
	endwith
	.EndUpdate
endwith
52
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
with thisform.SwimLane1
	.BeginUpdate
	.AllowMoveNeighbors = 1
	.Object.DefArrange(1) = 0
	.Object.DefArrange(2) = 0
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B ( move it )",0,32)
		.Add("Element <sha ;;0>C",0,64)
	endwith
	.EndUpdate
endwith
51
How do I enable the reserve-neighbors feature
with thisform.SwimLane1
	.BeginUpdate
	.AllowMoveNeighbors = 1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B ( move it )",0,32)
		.Add("Element <sha ;;0>C",0,64)
	endwith
	.EndUpdate
endwith
50
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
		.Add("Element E").ID = "E"
		.Add("Element E").ID = "F"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("E"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("F"))
	endwith
	.Object.DefArrange(4) = .F.
	.Arrange()
endwith
49
How can I move an element to a specified lane/phase/pool

with thisform.SwimLane1
	.BeginUpdate
	.Object.DefPoolHeaderCaptionFormat(1) = "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
	.Object.DefPoolHeaderCaptionFormat(0) = "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
	with .Pools.Add(-100,-100,250,180)
		.Lane(0).Children.Count = 3
		.Lane(1).Children.Count = 3
		.Lane(1).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
	endwith
	with .Elements.Add("element 1",200,200)
		.LaneID(1) = "0:H.0,0:V.0"
	endwith
	with .Elements.Add("element 2",200,200)
		.LaneID(1) = "0:H.2,0:V.2"
	endwith
	.EndUpdate
endwith
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. ***
LPARAMETERS Link
	with thisform.SwimLane1
		with Link
		endwith
	endwith

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",48,48)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
	endwith
endwith
47
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",48,48)
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 4
			.EndPos = 3
		endwith
	endwith
endwith
46
How do I enable the cross link support ( mixed )

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",0,76)
		with .Add("Element <sha ;;0>C",-76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
		with .Add("Element <sha ;;0>D",76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		endwith
		with .Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(1))
			.StartPos = 1
			.EndPos = 1
		endwith
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(4))
		with .Add(thisform.SwimLane1.Elements.Item(4),thisform.SwimLane1.Elements.Item(3))
			.StartPos = 0
			.EndPos = 2
		endwith
	endwith
	.ShowLinks = 97 && ShowExtendedLinksEnum.exShowCrossLinksMixt Or ShowExtendedLinksEnum.exShowExtendedLinks
endwith
45
How do I enable the cross link support ( triangular )

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",0,76)
		with .Add("Element <sha ;;0>C",-76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
		with .Add("Element <sha ;;0>D",76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		endwith
		with .Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(1))
			.StartPos = 1
			.EndPos = 1
		endwith
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(4))
		with .Add(thisform.SwimLane1.Elements.Item(4),thisform.SwimLane1.Elements.Item(3))
			.StartPos = 0
			.EndPos = 2
		endwith
	endwith
	.ShowLinks = 65 && ShowExtendedLinksEnum.exShowCrossLinksTriangle Or ShowExtendedLinksEnum.exShowExtendedLinks
endwith
44
How do I enable the cross link support ( rectangular )

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",0,76)
		with .Add("Element <sha ;;0>C",-76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
		with .Add("Element <sha ;;0>D",76,32)
			.AutoSize = .F.
			.Height = 32
		endwith
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		endwith
		with .Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(1))
			.StartPos = 1
			.EndPos = 1
		endwith
		.Add(thisform.SwimLane1.Elements.Item(3),thisform.SwimLane1.Elements.Item(4))
		with .Add(thisform.SwimLane1.Elements.Item(4),thisform.SwimLane1.Elements.Item(3))
			.StartPos = 0
			.EndPos = 2
		endwith
	endwith
	.ShowLinks = 33 && ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
endwith
43
How do I show a link frmo bottom to top, or reverse, not from left to right

with thisform.SwimLane1
	with .Elements
		.Add("Element <sha ;;0>A")
		.Add("Element <sha ;;0>B",0,64)
	endwith
	with .Links
		with .Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		endwith
	endwith
endwith
42
Is it possible to control the links, so that they are always centered

with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
	endwith
	.ShowLinks = -1
	.Object.DefArrange(0) = 1
	.Arrange()
endwith
41
What options to align the elements do I have if I use Arrange method

with thisform.SwimLane1
	.BeginUpdate
	.ShowGridLines = .T.
	with .Elements
		h1 = .Add("Top Alignment").ID
		.Add("Element")
		.Add("Element")
		.Add("Element")
		h2 = .Add("Center Alignment",Null,96).ID
		.Add("Element",Null,96)
		.Add("Element",Null,96)
		.Add("Element",Null,96)
		h3 = .Add("Bottom Alignment",Null,178).ID
		.Add("Element",Null,192)
		.Add("Element",Null,192)
		.Add("Element",Null,192)
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(2))
		.Add(thisform.SwimLane1.Elements.Item(1),thisform.SwimLane1.Elements.Item(3))
		.Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(4))
		.Add(thisform.SwimLane1.Elements.Item(2),thisform.SwimLane1.Elements.Item(3))
		.Add(thisform.SwimLane1.Elements.Item(5),thisform.SwimLane1.Elements.Item(6))
		.Add(thisform.SwimLane1.Elements.Item(5),thisform.SwimLane1.Elements.Item(7))
		.Add(thisform.SwimLane1.Elements.Item(6),thisform.SwimLane1.Elements.Item(8))
		.Add(thisform.SwimLane1.Elements.Item(6),thisform.SwimLane1.Elements.Item(7))
		.Add(thisform.SwimLane1.Elements.Item(9),thisform.SwimLane1.Elements.Item(10))
		.Add(thisform.SwimLane1.Elements.Item(9),thisform.SwimLane1.Elements.Item(11))
		.Add(thisform.SwimLane1.Elements.Item(10),thisform.SwimLane1.Elements.Item(12))
		.Add(thisform.SwimLane1.Elements.Item(10),thisform.SwimLane1.Elements.Item(11))
	endwith
	.Object.DefArrange(3) = 0
	.Arrange(h1)
	.Object.DefArrange(3) = 1
	.Arrange(h2)
	.Object.DefArrange(3) = 2
	.Arrange(h3)
	.EndUpdate
endwith
40
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
	endwith
	.Arrange()
endwith
39
Is it possible to change the distance between elements, when calling the Arrange method

with thisform.SwimLane1
	with .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	endwith
	with .Links
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("B"))
		.Add(thisform.SwimLane1.Elements.Item("A"),thisform.SwimLane1.Elements.Item("C"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("D"))
		.Add(thisform.SwimLane1.Elements.Item("B"),thisform.SwimLane1.Elements.Item("C"))
	endwith
	.Object.DefArrange(1) = 0
	.Object.DefArrange(2) = 0
	.Arrange()
endwith