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.
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the pool's header to resize it"
134
exResizePoolHeader, the user resizes the header's pool from the surface
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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.
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.EndUpdate()
? "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
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	' ElementFromPoint(-1,-1).Edit(0)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowSelectNothing = .t.
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it"
123
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Move an element"
122
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Node <b>1",-64,-64).AutoSize = .f.
	var_Element = var_Elements.Add("Node <b>1",-64,-64)
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.AutoSize = False"

	' var_Elements.Add("Node <b>2").AutoSize = .f.
	var_Element1 = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.AutoSize = False"

	' var_Elements.Add("Node <b>3",64,-64).AutoSize = .f.
	var_Element2 = var_Elements.Add("Node <b>3",64,-64)
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.AutoSize = False"

oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "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
Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
? oSwimLane.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
' Notifies the application once the control fires an event.
function Event as v (EventID  as  N)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? oSwimLane.EventParam(-2) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.FreezeEvents(.t.)
? "No event is fired after FreezeEvents(True) call" 
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.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)
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
	? oSwimLane.FocusLink.ID 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
	? oSwimLane.FocusLink.ID 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()
115
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
	? oSwimLane.FocusLink 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
	? oSwimLane.FocusLink 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
114
Focus a link
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()
113
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
oSwimLane.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\sun.png`" // oSwimLane.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
var_Element = oSwimLane.Elements.Add("<b>Element")
	var_Element.PicturesAlign = 17
	var_Element.CaptionAlign = 17
	var_Element.Pictures = "pic1"
oSwimLane.EndUpdate()
112
Expandable-caption

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
end function

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Element2 as P
Dim var_Link as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -256
	var_Element.Y = -164
	var_Element.CaptionSingleLine = 1
	var_Element.CaptionAlign = 4 '4 + 
var_Element1 = oSwimLane.Elements.Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
	var_Element1.ID = "Person"
	var_Element1.Y = -164
	var_Element1.CaptionSingleLine = 1
var_Element2 = oSwimLane.Elements.Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
	var_Element2.ID = "Student"
	var_Element2.Y = -64
	var_Element2.CaptionSingleLine = 1
var_Link = oSwimLane.Links.Add(oSwimLane.Elements.Item("Account"),oSwimLane.Elements.Item("Student"))
	var_Link.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
111
Expandable-caption

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	var_Element.CaptionSingleLine = 1
110
Draws a frame arround the link's arrow

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
109
Draws a frame arround the arrow for all links

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
oSwimLane.LinksArrowSize = 8
oSwimLane.LinksArrowColor = 16777215
oSwimLane.LinksArrowFrameColor = 0
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
108
Change the size to display the arrow of the link

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
107
Change the size to display the arrows for all links

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
oSwimLane.LinksArrowSize = 8
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
106
Extends the caption on the element's width

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -128
	var_Element.CaptionSingleLine = 1
	var_Element.AutoSize = .f.
	var_Element.Width = 256
	var_Element.Height = var_Element.AutoHeight
	var_Element.CaptionAlign = 4 '4 +
105
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	Dim var_Element as P
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	var_Element = oSwimLane.Elements.Item("Account")
		var_Element.Height = var_Element.AutoHeight
end function

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -128
	var_Element.CaptionSingleLine = 1
	var_Element.AutoSize = .f.
	var_Element.Width = 256
	var_Element.Height = var_Element.AutoHeight
	var_Element.CaptionAlign = 4 '4 +
104
Fullfit the caption on the element's width

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
	var_Element.CaptionSingleLine = 1
	var_Element.BackColor = 16316664
	var_Element.AutoSize = .f.
	var_Element.Width = 194
	var_Element.Height = 76
	var_Element.CaptionAlign = 4 '4 +
103
Wrap the caption by <br> or "\r\n" sequence only

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
	var_Element.CaptionSingleLine = 1
	var_Element.BackColor = 16316664
102
Display a custom tooltip
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	oSwimLane.ShowToolTip("new content","",,"+8","+8")
end function

Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
101
Shows the tooltip of the object moved relative to its default position
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	oSwimLane.ShowToolTip("<null>","<null>",,"+8","+8")
end function

Dim oSwimLane as P
Dim var_Element as local

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
' oSwimLane.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
var_Element = oSwimLane.Elements.Add("Element with a Tooltip")
oSwimLane.TemplateDef = "dim var_Element"
oSwimLane.TemplateDef = var_Element
oSwimLane.Template = "var_Element.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

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Pool as local

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
' oSwimLane.Pools.Add().HeaderSize(0) = 24
var_Pool = oSwimLane.Pools.Add()
oSwimLane.TemplateDef = "dim var_Pool"
oSwimLane.TemplateDef = var_Pool
oSwimLane.Template = "var_Pool.HeaderSize(0) = 24"

oSwimLane.EndUpdate()
99
How can I ensure that a specified pool fits the surface's visible area
Dim oSwimLane as P
Dim var_Pattern as P
Dim var_Pools as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Pools = oSwimLane.Pools
	var_Pattern = var_Pools.Add().Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = 14737632
	var_Pools.Add(2000).EnsureVisible()
98
No property for the pool can be saved/restored through Undo/Redo feature

Dim l as 
Dim oSwimLane as P
Dim var_Lane as P
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.AllowUndoRedo = .t.
var_Pool = oSwimLane.Pools.Add(-54,-47,244,112)
	l = var_Pool.StartUpdatePool
	var_Lane = var_Pool.Lane(1)
		var_Lane.Color = 15790320
		var_Lane.Children.Count = 2
	var_Pool.EndUpdatePool(l)
97
Rename Undo/Redo commands into the control's toolbar

Dim oSwimLane as P
Dim var_Elements as P

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

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.ToolBarFormat = "-1,100,102,101,|,103,104"
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.EndUpdate()
95
Clear Undo/Redo queue (method 2)

Dim c as 
Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
c = oSwimLane.UndoRedoQueueLength
oSwimLane.UndoRedoQueueLength = 0
oSwimLane.UndoRedoQueueLength = c
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
94
Clear Undo/Redo queue (method 1)

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.AllowUndoRedo = .t.
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
93
Removes Redo operations

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.Undo()
oSwimLane.RedoRemoveAction(10)
? oSwimLane.RedoListAction() 
oSwimLane.EndUpdate()
92
Removes Undo operations

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.UndoRemoveAction(10)
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
91
Record the UI operations as a block of undo/redo operations

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.StartBlockUndoRedo()
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.EndBlockUndoRedo()
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
90
Groups the next to current Undo/Redo Actions in a single block

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.GroupUndoRedoActions(3)
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
89
Limits the number of entries within the Undo/Redo queue

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.UndoRedoQueueLength = 1
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
88
Lists the Redo actions that can be performed on the surface

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.Undo()
? oSwimLane.RedoListAction() 
oSwimLane.EndUpdate()
87
Lists the Undo actions that can be performed on the surface

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
? oSwimLane.UndoListAction() 
oSwimLane.EndUpdate()
86
Checks whether the Undo operation is possible

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.Undo()
? "CanRedo" 
? oSwimLane.CanRedo 
oSwimLane.EndUpdate()
85
Call Redo by code

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.Undo()
oSwimLane.Redo()
oSwimLane.EndUpdate()
84
Checks whether the Undo operation is possible

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
? "CanUndo" 
? oSwimLane.CanUndo 
oSwimLane.EndUpdate()
83
Call Undo by code

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.Undo()
oSwimLane.EndUpdate()
82
Save the element's properties for Undo/Redo operations, by code

Dim h as 
Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.StartBlockUndoRedo()
var_Link = oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	h = var_Link.StartUpdateLink
	var_Link.Color = 255
	var_Link.Width = 2
	var_Link.ShowDir = .f.
	var_Link.ShowLinkType = 2
	var_Link.EndUpdateLink(h)
oSwimLane.EndBlockUndoRedo()
oSwimLane.EndUpdate()
81
No color is restored for the link when Undo/Redo operation is executed

' A new element has been added to the surface.
function AddElement as v (Element  as  OLE::Exontrol.SwimLane.1::IElement)
	' Element.ShowCheckBox = True
	' Element.CheckBoxAlign = 2
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

Dim h as 
Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Link as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
var_Elements = oSwimLane.Elements
	var_Elements.Add("Check <b>1",-64,-64)
	' var_Elements.Add("Check <b>2").Checked = 1
	var_Element = var_Elements.Add("Check <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Checked = 1"

oSwimLane.StartBlockUndoRedo()
var_Link = oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	h = var_Link.StartUpdateLink
	var_Link.Color = 255
	var_Link.Width = 2
	var_Link.ShowDir = .f.
	var_Link.ShowLinkType = 2
	var_Link.EndUpdateLink(h)
oSwimLane.EndBlockUndoRedo()
oSwimLane.EndUpdate()
80
Save the element's properties for Undo/Redo operations, by code

Dim h as 
Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Elements.Add("Item <b>1",-64,-64)
oSwimLane.StartBlockUndoRedo()
var_Element = oSwimLane.Elements.Add("Item <b>2")
	h = var_Element.StartUpdateElement
	var_Element.BackColor = 0
	var_Element.ForeColor = 16777215
	var_Element.BorderColor = 255
	var_Element.EndUpdateElement(h)
oSwimLane.EndBlockUndoRedo()
oSwimLane.EndUpdate()
79
No color is restored for the element when Undo/Redo operation is executed

Dim h as 
Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Elements.Add("Item <b>1",-64,-64)
oSwimLane.StartBlockUndoRedo()
var_Element = oSwimLane.Elements.Add("Item <b>2")
	h = var_Element.StartUpdateElement
	var_Element.BackColor = 0
	var_Element.ForeColor = 16777215
	var_Element.BorderColor = 255
	var_Element.EndUpdateElement(h)
oSwimLane.EndBlockUndoRedo()
oSwimLane.EndUpdate()
78
How can I ensure that a specified element fits the surface's visible area

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Pattern as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Pattern = var_Elements.Add("Element A",-100).Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = 14737632
	var_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
' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.EndUpdate()
76
Turn on the Undo/Redo feature

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.Pools.Add(-154,-82,244,122)
var_Elements = oSwimLane.Elements
	var_Elements.Add("Item <b>1",-64,-64)
	var_Elements.Add("Item <b>2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
oSwimLane.EndUpdate()
75
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

' A new element has been added to the surface.
function AddElement as v (Element  as  OLE::Exontrol.SwimLane.1::IElement)
	' Element.ShowCheckBox = True
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oSwimLane as P
Dim var_Appearance as P
Dim var_Element as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.ImageSize = 32
oSwimLane.Font.Size = 16
oSwimLane.ContextMenuFont.Size = 16
oSwimLane.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oSwimLane.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oSwimLane.Template = "Background(70) = 16777216" // oSwimLane.Background(70) = 16777216
oSwimLane.Template = "Background(71) = 33554432" // oSwimLane.Background(71) = 33554432
oSwimLane.Template = "Background(72) = 50331648" // oSwimLane.Background(72) = 50331648
oSwimLane.Template = "Background(102) = 67108864" // oSwimLane.Background(102) = 67108864
oSwimLane.Template = "Background(104) = 1" // oSwimLane.Background(104) = 1
var_Elements = oSwimLane.Elements
	var_Element = var_Elements.Add("Element Check 2")
		var_Element.Checked = 1
		var_Element.Pictures = "1,2"
oSwimLane.Home()
oSwimLane.EndUpdate()
74
ImageSize property on 16 (default) (specifies the size of control' icons)

' A new element has been added to the surface.
function AddElement as v (Element  as  OLE::Exontrol.SwimLane.1::IElement)
	' Element.ShowCheckBox = True
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oSwimLane as P
Dim var_Element as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.ImageSize = 16
oSwimLane.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Elements = oSwimLane.Elements
	var_Element = var_Elements.Add("Element Check 2")
		var_Element.Checked = 1
		var_Element.Pictures = "1,2"
oSwimLane.Home()
oSwimLane.EndUpdate()
73
We want to have option to start/end connectors at the middle of each side of the elements
Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.ShowLinks = -1
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>1")
	var_Elements.Add("Element <sha ;;0>2",164,64)
	var_Elements.Add("Element <sha ;;0>3",0,132)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
72
How can I determine the position the user clicks within the element's boundaries (Click event)

' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	Dim X as 
	Dim Y as 
	Dim e as P
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	e = oSwimLane.ElementFromPoint(-1,-1)
	X = -1
	Y = -1
	oSwimLane.PointToPosition(X,Y)
	? e 
	? X 
	? Y 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element 1")
	var_Elements.Add("Element 2",128,64)
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
71
How can I determine the position the user clicks within the element's boundaries (MouseMove event)

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	Dim e as P
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	e = oSwimLane.ElementFromPoint(X,Y)
	oSwimLane.PointToPosition(X,Y)
	? e 
	? X 
	? Y 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element 1")
	var_Elements.Add("Element 2",128,64)
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
70
How can I convert the screen position (mouse) to surface position

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "Point " 
	? X 
	? Y 
	oSwimLane.PointToPosition(X,Y)
	? "Position " 
	? X 
	? Y 
end function

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>1")
	var_Elements.Add("Element <sha ;;0>2",164,64)
	var_Elements.Add("Element <sha ;;0>3",0,132)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
oSwimLane.FitToClient()
oSwimLane.AxisStyle = 192
oSwimLane.AxisColor = 8421504
oSwimLane.EndUpdate()
69
Is is possible to show just the positive coordinates

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.Coord = 17 'exAllowPositiveOnly + exCartesian
oSwimLane.AxisColor = 8421504
oSwimLane.AxisStyle = 259 'exLinesThick + exLinesDot
oSwimLane.ShowLinks = -1
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>1")
	var_Elements.Add("Element <sha ;;0>2",164,64)
	var_Elements.Add("Element <sha ;;0>3",0,132)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
68
Cartesian coordinates (positive coordinates are shown top-right to the origin)

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.Coord = 1
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>1")
	var_Elements.Add("Element <sha ;;0>2",164,64)
	var_Elements.Add("Element <sha ;;0>3",0,132)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
67
Default coordinates (positive coordinates are shown bottom-right to the origin)

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

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

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 31 'exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>1")
	var_Elements.Add("Element <sha ;;0>2",164,64)
	var_Elements.Add("Element <sha ;;0>3",0,132)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
oSwimLane.Zoom = 200
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
65
Does your control supports OLE Drag and Drop
' Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
function OLEDragDrop as v (Data  as  OLE::Exontrol.SwimLane.1::IExDataObject,Effect  as  N,Button  as  N,Shift  as  N,X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? Data 
end function

' Occurs when the OLEDrag method is called.
function OLEStartDrag as v (Data  as  OLE::Exontrol.SwimLane.1::IExDataObject,AllowedEffects  as  N)
	' Data.SetData("some data to drag")
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.OLEDropMode = 1
var_Pool = oSwimLane.Pools.Add(-250,-150,500,250)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 1
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 1"

var_Elements = oSwimLane.Elements
	var_Element = var_Elements.Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
		var_Element.CaptionSingleLine = .f.
		var_Element.AutoSize = .f.
		var_Element.X = -125
		var_Element.Y = -105
		var_Element.Width = 256
		var_Element.Height = 56
	var_Element1 = var_Elements.Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
		var_Element1.CaptionSingleLine = .f.
		var_Element1.AutoSize = .f.
		var_Element1.X = -125
		var_Element1.Width = 256
		var_Element1.Height = 56
oSwimLane.EndUpdate()
64
Is it possible to disable customizing the path of a specified link

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.Color = 8421504
		var_Link2.AllowControlPoint = 0
oSwimLane.Zoom = 200
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
63
How do I let user customizes the link's path

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
oSwimLane.Zoom = 200
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
62
How can I generate a picture/image/graph from my diagram
Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Element4 as local
Dim var_Element5 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

	' var_Elements.Add("Element E").ID = "E"
	var_Element4 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element4"
	oSwimLane.TemplateDef = var_Element4
	oSwimLane.Template = "var_Element4.ID = `E`"

	' var_Elements.Add("Element E").ID = "F"
	var_Element5 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element5"
	oSwimLane.TemplateDef = var_Element5
	oSwimLane.Template = "var_Element5.ID = `F`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("E"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("F"))
oSwimLane.Template = "DefArrange(4) = False" // oSwimLane.DefArrange(4) = .f.
oSwimLane.Arrange()
var_CopyTo = oSwimLane.CopyTo("c:/temp/xtest.jpg")
? "!!!check the file c:/temp/xtest.jpg!!!"
61
How can I generate a picture/image/graph from my diagram
Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Element4 as local
Dim var_Element5 as local
Dim var_Elements as P
Dim var_Links as P
Dim var_Print as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

	' var_Elements.Add("Element E").ID = "E"
	var_Element4 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element4"
	oSwimLane.TemplateDef = var_Element4
	oSwimLane.Template = "var_Element4.ID = `E`"

	' var_Elements.Add("Element E").ID = "F"
	var_Element5 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element5"
	oSwimLane.TemplateDef = var_Element5
	oSwimLane.Template = "var_Element5.ID = `F`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("E"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("F"))
oSwimLane.Template = "DefArrange(4) = False" // oSwimLane.DefArrange(4) = .f.
oSwimLane.Arrange()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.PrintExt = oSwimLane
	var_Print.CopyTo("c:/temp/xtest.jpg")
? "!!!check the file c:/temp/xtest.jpg!!!"
60
How can I print the component
Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Link1 as P
Dim var_Link2 as P
Dim var_Links as P
Dim var_Print as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",0,76)
	var_Element = var_Elements.Add("Element <sha ;;0>C",-76,32)
		var_Element.AutoSize = .f.
		var_Element.Height = 32
	var_Element1 = var_Elements.Add("Element <sha ;;0>D",76,32)
		var_Element1.AutoSize = .f.
		var_Element1.Height = 32
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 1
		var_Link.EndPos = 1
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1))
		var_Link1.StartPos = 1
		var_Link1.EndPos = 1
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(4))
	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(4),oSwimLane.Elements.Item(3))
		var_Link2.StartPos = 0
		var_Link2.EndPos = 2
var_Print = OLE.Create("Exontrol.Print")
	var_Print.PrintExt = oSwimLane
	var_Print.Preview()
59
How can I show direct-links

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.ShowLinksType = 1
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B",128,64).ID = "B"
	var_Element1 = var_Elements.Add("Element B",128,64)
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C",128,-64).ID = "C"
	var_Element2 = var_Elements.Add("Element C",128,-64)
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
58
How can I show straight-links

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.ShowLinksType = 2
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B",128,64).ID = "B"
	var_Element1 = var_Elements.Add("Element B",128,64)
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C",128,-64).ID = "C"
	var_Element2 = var_Elements.Add("Element C",128,-64)
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
57
How can I show round-links

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.ShowLinksType = 3
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B",128,64).ID = "B"
	var_Element1 = var_Elements.Add("Element B",128,64)
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C",128,-64).ID = "C"
	var_Element2 = var_Elements.Add("Element C",128,-64)
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
56
I've tried to insert a "<br>" in the Caption property text and it just ignores it

Dim oSwimLane as P
Dim var_Element as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Element = var_Elements.Add("caption")
		var_Element.CaptionSingleLine = .f.
		var_Element.Caption = "first caption<br>second caption<br>third caption"
oSwimLane.EndUpdate()
55
How do I align the extra-caption

Dim oSwimLane as P
Dim var_Element as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Element = var_Elements.Add("caption")
		var_Element.CaptionAlign = 0
		var_Element.AutoSize = .f.
		var_Element.Width = 128
		var_Element.Height = 64
		var_Element.ExtraCaption = "extra-caption"
		var_Element.ExtraCaptionAlign = 34
oSwimLane.EndUpdate()
54
How can I add an extra caption

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	' var_Elements.Add("caption").ExtraCaption = "extra-caption"
	var_Element = var_Elements.Add("caption")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ExtraCaption = `extra-caption`"

oSwimLane.EndUpdate()
53
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowMoveNeighbors = 2
oSwimLane.Template = "DefArrange(0) = 1" // oSwimLane.DefArrange(0) = 1
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B ( move it )",16,32)
	var_Elements.Add("Element <sha ;;0>C",128,0)
oSwimLane.EndUpdate()
52
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowMoveNeighbors = 1
oSwimLane.Template = "DefArrange(1) = 0" // oSwimLane.DefArrange(1) = 0
oSwimLane.Template = "DefArrange(2) = 0" // oSwimLane.DefArrange(2) = 0
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B ( move it )",0,32)
	var_Elements.Add("Element <sha ;;0>C",0,64)
oSwimLane.EndUpdate()
51
How do I enable the reserve-neighbors feature
Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowMoveNeighbors = 1
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B ( move it )",0,32)
	var_Elements.Add("Element <sha ;;0>C",0,64)
oSwimLane.EndUpdate()
50
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Element4 as local
Dim var_Element5 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

	' var_Elements.Add("Element E").ID = "E"
	var_Element4 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element4"
	oSwimLane.TemplateDef = var_Element4
	oSwimLane.Template = "var_Element4.ID = `E`"

	' var_Elements.Add("Element E").ID = "F"
	var_Element5 = var_Elements.Add("Element E")
	oSwimLane.TemplateDef = "dim var_Element5"
	oSwimLane.TemplateDef = var_Element5
	oSwimLane.Template = "var_Element5.ID = `F`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("E"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("F"))
oSwimLane.Template = "DefArrange(4) = False" // oSwimLane.DefArrange(4) = .f.
oSwimLane.Arrange()
49
How can I move an element to a specified lane/phase/pool

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_HeaderLane as local
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.Template = "DefPoolHeaderCaptionFormat(True) = `<fgcolor 808080>Faza <off -4><b><font ;6>%i`" // oSwimLane.DefPoolHeaderCaptionFormat(.t.) = "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
oSwimLane.Template = "DefPoolHeaderCaptionFormat(False) = `<fgcolor 808080>Culoar <off -4><b><font ;6>%i`" // oSwimLane.DefPoolHeaderCaptionFormat(.f.) = "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
var_Pool = oSwimLane.Pools.Add(-100,-100,250,180)
	' var_Pool.Lane(0).Children.Count = 3
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 3"

	' var_Pool.Lane(1).Children.Count = 3
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 3"

	' var_Pool.Lane(1).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
	var_HeaderLane = var_Pool.Lane(1).Children.Item(1).Header
	oSwimLane.TemplateDef = "dim var_HeaderLane"
	oSwimLane.TemplateDef = var_HeaderLane
	oSwimLane.Template = "var_HeaderLane.Caption = `<fgcolor FF0000><b>NEW`"

var_Element = oSwimLane.Elements.Add("element 1",200,200)
	' var_Element.LaneID(.t.) = "0:H.0,0:V.0"
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.LaneID(True) = `0:H.0,0:V.0`"

var_Element1 = oSwimLane.Elements.Add("element 2",200,200)
	' var_Element1.LaneID(.t.) = "0:H.2,0:V.2"
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.LaneID(True) = `0:H.2,0:V.2`"

oSwimLane.EndUpdate()
48
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)

' A new link has been added to the links collection.
function AddLink as v (Link  as  OLE::Exontrol.SwimLane.1::ILink)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",48,48)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.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)

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",48,48)
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 4
		var_Link.EndPos = 3
46
How do I enable the cross link support ( mixed )

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Link1 as P
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",0,76)
	var_Element = var_Elements.Add("Element <sha ;;0>C",-76,32)
		var_Element.AutoSize = .f.
		var_Element.Height = 32
	var_Element1 = var_Elements.Add("Element <sha ;;0>D",76,32)
		var_Element1.AutoSize = .f.
		var_Element1.Height = 32
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 1
		var_Link.EndPos = 1
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1))
		var_Link1.StartPos = 1
		var_Link1.EndPos = 1
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(4))
	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(4),oSwimLane.Elements.Item(3))
		var_Link2.StartPos = 0
		var_Link2.EndPos = 2
oSwimLane.ShowLinks = 97 'exShowCrossLinksMixt + exShowExtendedLinks
45
How do I enable the cross link support ( triangular )

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Link1 as P
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",0,76)
	var_Element = var_Elements.Add("Element <sha ;;0>C",-76,32)
		var_Element.AutoSize = .f.
		var_Element.Height = 32
	var_Element1 = var_Elements.Add("Element <sha ;;0>D",76,32)
		var_Element1.AutoSize = .f.
		var_Element1.Height = 32
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 1
		var_Link.EndPos = 1
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1))
		var_Link1.StartPos = 1
		var_Link1.EndPos = 1
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(4))
	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(4),oSwimLane.Elements.Item(3))
		var_Link2.StartPos = 0
		var_Link2.EndPos = 2
oSwimLane.ShowLinks = 65 'exShowCrossLinksTriangle + exShowExtendedLinks
44
How do I enable the cross link support ( rectangular )

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Link1 as P
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",0,76)
	var_Element = var_Elements.Add("Element <sha ;;0>C",-76,32)
		var_Element.AutoSize = .f.
		var_Element.Height = 32
	var_Element1 = var_Elements.Add("Element <sha ;;0>D",76,32)
		var_Element1.AutoSize = .f.
		var_Element1.Height = 32
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 1
		var_Link.EndPos = 1
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1))
		var_Link1.StartPos = 1
		var_Link1.EndPos = 1
	var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(4))
	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(4),oSwimLane.Elements.Item(3))
		var_Link2.StartPos = 0
		var_Link2.EndPos = 2
oSwimLane.ShowLinks = 33 'exShowCrossLinksRect + exShowExtendedLinks
43
How do I show a link frmo bottom to top, or reverse, not from left to right

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",0,64)
var_Links = oSwimLane.Links
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
		var_Link.StartPos = 1
		var_Link.EndPos = 1
42
Is it possible to control the links, so that they are always centered

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
oSwimLane.ShowLinks = -1
oSwimLane.Template = "DefArrange(0) = 1" // oSwimLane.DefArrange(0) = 1
oSwimLane.Arrange()
41
What options to align the elements do I have if I use Arrange method

Dim h1 as 
Dim h2 as 
Dim h3 as 
Dim oSwimLane as P
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.ShowGridLines = .t.
var_Elements = oSwimLane.Elements
	h1 = var_Elements.Add("Top Alignment").ID
	var_Elements.Add("Element")
	var_Elements.Add("Element")
	var_Elements.Add("Element")
	h2 = var_Elements.Add("Center Alignment",,96).ID
	var_Elements.Add("Element",,96)
	var_Elements.Add("Element",,96)
	var_Elements.Add("Element",,96)
	h3 = var_Elements.Add("Bottom Alignment",,178).ID
	var_Elements.Add("Element",,192)
	var_Elements.Add("Element",,192)
	var_Elements.Add("Element",,192)
var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(3))
	var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(4))
	var_Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(3))
	var_Links.Add(oSwimLane.Elements.Item(5),oSwimLane.Elements.Item(6))
	var_Links.Add(oSwimLane.Elements.Item(5),oSwimLane.Elements.Item(7))
	var_Links.Add(oSwimLane.Elements.Item(6),oSwimLane.Elements.Item(8))
	var_Links.Add(oSwimLane.Elements.Item(6),oSwimLane.Elements.Item(7))
	var_Links.Add(oSwimLane.Elements.Item(9),oSwimLane.Elements.Item(10))
	var_Links.Add(oSwimLane.Elements.Item(9),oSwimLane.Elements.Item(11))
	var_Links.Add(oSwimLane.Elements.Item(10),oSwimLane.Elements.Item(12))
	var_Links.Add(oSwimLane.Elements.Item(10),oSwimLane.Elements.Item(11))
oSwimLane.Template = "DefArrange(3) = 0" // oSwimLane.DefArrange(3) = 0
oSwimLane.Arrange(h1)
oSwimLane.Template = "DefArrange(3) = 1" // oSwimLane.DefArrange(3) = 1
oSwimLane.Arrange(h2)
oSwimLane.Template = "DefArrange(3) = 2" // oSwimLane.DefArrange(3) = 2
oSwimLane.Arrange(h3)
oSwimLane.EndUpdate()
40
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
oSwimLane.Arrange()
39
Is it possible to change the distance between elements, when calling the Arrange method

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Element3 as local
Dim var_Elements as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Element A").ID = "A"
	var_Element = var_Elements.Add("Element A")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.ID = `A`"

	' var_Elements.Add("Element B").ID = "B"
	var_Element1 = var_Elements.Add("Element B")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.ID = `B`"

	' var_Elements.Add("Element C").ID = "C"
	var_Element2 = var_Elements.Add("Element C")
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.ID = `C`"

	' var_Elements.Add("Element D").ID = "D"
	var_Element3 = var_Elements.Add("Element D")
	oSwimLane.TemplateDef = "dim var_Element3"
	oSwimLane.TemplateDef = var_Element3
	oSwimLane.Template = "var_Element3.ID = `D`"

var_Links = oSwimLane.Links
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("B"))
	var_Links.Add(oSwimLane.Elements.Item("A"),oSwimLane.Elements.Item("C"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("D"))
	var_Links.Add(oSwimLane.Elements.Item("B"),oSwimLane.Elements.Item("C"))
oSwimLane.Template = "DefArrange(1) = 0" // oSwimLane.DefArrange(1) = 0
oSwimLane.Template = "DefArrange(2) = 0" // oSwimLane.DefArrange(2) = 0
oSwimLane.Arrange()