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.
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowDesignHeader := 0/*exDesignHeaderLock*/
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements:Add("Node <b>3",64,-64)
		oPool := oSwimLane:Pools():Add(-100,-100,250,160)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 2
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 2
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2),"L1")
		oSwimLane:EndUpdate()
		DevOut( "Right-Click the pool, element or the link to open its context menu, and change a property of it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 17 ? `exContextMenuObject` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 17 ? `exContextMenuObject` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowDesignHeader := 0/*exDesignHeaderLock*/
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements:Add("Node <b>3",64,-64)
		oPool := oSwimLane:Pools():Add(-100,-100,250,160)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 2
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 2
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2),"L1")
		oSwimLane:EndUpdate()
		DevOut( "Right-Click the pool, element or the link to open its context menu" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 16 ? `exMoveLane` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 16 ? `exMoveLane` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowDesignHeader := 0/*exDesignHeaderLock*/
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements:Add("Node <b>3",64,-64)
		oPool := oSwimLane:Pools():Add(-100,-100,250,160)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 2
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 2
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2),"L1")
		oSwimLane:EndUpdate()
		DevOut( "Click the lane's header to drag to a new position" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 15 ? `exResizeLane` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 15 ? `exResizeLane` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowDesignHeader := 0/*exDesignHeaderLock*/
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements:Add("Node <b>3",64,-64)
		oPool := oSwimLane:Pools():Add(-100,-100,250,160)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 2
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 2
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2),"L1")
		oSwimLane:EndUpdate()
		DevOut( "Click the pool's header to resize it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
134
exResizePoolHeader, the user resizes the header's pool from the surface
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Click the pool's header to resize it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
133
exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 13 ? `exMovePool` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 13 ? `exMovePool` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Click a pool and drag to reposition it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
132
exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 12 ? `exResizePool` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 12 ? `exResizePool` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Resize a pool" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 11 ? `exCreatePool` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 11 ? `exCreatePool` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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.
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 10 ? `exDesignMode` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 10 ? `exDesignMode` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Click the Design Menu and select one of the options" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
129
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Press CTRL+Z to Undo, CTRL+Y to Redo" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 9 ? `exLinkObjects` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 9 ? `exLinkObjects` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements:Add("Node <b>3",64,-64)
		oSwimLane:EndUpdate()
		DevOut( "Hold SHIFT, click an element, and drag to another element to create a link between them" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
127
exEditObject, the user edits the element's caption
PROCEDURE OnClick(oSwimLane)
	/*ElementFromPoint(-1,-1).Edit(0)*/

RETURN

PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 8 ? `exEditObject` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 8 ? `exEditObject` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:Click := {|| OnClick(oSwimLane)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Click an element to edit its caption" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 7 ? `exCreateObject` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 7 ? `exCreateObject` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Double-click on the surface and immediately drag to a new position to create an element" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 6 ? `exSelectNothing` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 6 ? `exSelectNothing` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowSelectNothing := .T.
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2"):Selected := .T.
			oElements: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()
		DevOut( "Select an element, and then click outside to select nothing" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 5 ? `exSelectElement` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 5 ? `exSelectElement` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
123
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 4 ? `exMoveElement` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 4 ? `exMoveElement` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Move an element" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
122
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 3 ? `exResizeElement` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 3 ? `exResizeElement` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64):AutoSize := .F.
			oElements:Add("Node <b>2"):AutoSize := .F.
			oElements:Add("Node <b>3",64,-64):AutoSize := .F.
		oSwimLane:Pools():Add(-100,-100,250,160)
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2),"L1")
		oSwimLane:EndUpdate()
		DevOut( "Resize an element" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 2 ? `exSurfaceHome` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 2 ? `exSurfaceHome` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Click the Home button" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
120
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Click and drag the surface to reposition it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
119
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 0 ? `exSurfaceMove` : value",Operation),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(oSwimLane:FormatABC("value = 0 ? `exSurfaceMove` : value",Operation),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()
		DevOut( "Click and drag the surface to reposition it" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
118
FormatABC method formats the A,B,C values based on the giving expression and returns the result
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		DevOut( Transform(oSwimLane:FormatABC("value format ``",1000),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
PROCEDURE OnEvent(oSwimLane,EventID)
	DevOut( Transform(oSwimLane:EventParam(-2),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:Event := {|EventID| OnEvent(oSwimLane,EventID)} /*Notifies the application once the control fires an event.*/

		oSwimLane:FreezeEvents(.T.)
		DevOut( "No event is fired after FreezeEvents(True) call" )
		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements: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()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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)
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(Operation,"") )
	DevOut( Transform(oSwimLane:FocusLink:ID(),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(Operation,"") )
	DevOut( Transform(oSwimLane:FocusLink:ID(),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements:Add("Node <b>2")
			oElements: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()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
115
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(Operation,"") )
	DevOut( Transform(oSwimLane:FocusLink(),"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(Operation,"") )
	DevOut( Transform(oSwimLane:FocusLink(),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements: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()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
114
Focus a link
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(Operation,"") )
RETURN

PROCEDURE OnLayoutStartChanging(oSwimLane,Operation)
	DevOut( "LayoutStartChanging" )
	DevOut( Transform(Operation,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/
		oSwimLane:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSwimLane,Operation)} /*Occurs when the control's layout is about to be changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Node <b>1",-64,-64)
			oElements: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()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
113
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:DrawPartsOrder := "extracaption,extrapicture,picture,check,caption,client"
		oSwimLane:SetProperty("HTMLPicture","pic1","c:\exontrol\images\sun.png")
		oElement := oSwimLane:Elements():Add("<b>Element")
			oElement:PicturesAlign := 17/*exMiddleCenter*/
			oElement:CaptionAlign := 17/*exMiddleCenter*/
			oElement:Pictures := "pic1"
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
112
Expandable-caption

PROCEDURE OnAnchorClick(oSwimLane,AnchorID,Options)
	DevOut( Transform(AnchorID,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1,oElement2
	LOCAL oLink
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AnchorClick := {|AnchorID,Options| OnAnchorClick(oSwimLane,AnchorID,Options)} /*Occurs when an anchor element is clicked.*/

		oElement := 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/nUClk5gwAAE" +;
		"BA==>▲</a><br>+ withdraw(amount: Currency)")
			oElement:ID := "Account"
			oElement:X := -256
			oElement:Y := -164
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
			oElement:CaptionAlign := 4/*0x4+*/
		oElement1 := 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>")
			oElement1:ID := "Person"
			oElement1:Y := -164
			oElement1:CaptionSingleLine := 1/*exCaptionBreakWrap*/
		oElement2 := 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()")
			oElement2:ID := "Student"
			oElement2:Y := -64
			oElement2:CaptionSingleLine := 1/*exCaptionBreakWrap*/
		oLink := oSwimLane:Links():Add(oSwimLane:Elements:Item("Account"),oSwimLane:Elements:Item("Student"))
			oLink:Caption := "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
111
Expandable-caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElement := oSwimLane:Elements():Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
110
Draws a frame arround the link's arrow

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
				oLink:ArrowSize := 8
				oLink:SetProperty("ArrowColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
				oLink:SetProperty("ArrowFrameColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
109
Draws a frame arround the arrow for all links

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oSwimLane:LinksArrowSize := 8
		oSwimLane:SetProperty("LinksArrowColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
		oSwimLane:SetProperty("LinksArrowFrameColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
108
Change the size to display the arrow of the link

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
				oLink:ArrowSize := 8
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
107
Change the size to display the arrows for all links

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oSwimLane:LinksArrowSize := 8
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
106
Extends the caption on the element's width

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElement := 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/nUClk5gwAAE" +;
		"BA==>▲</a><br>+ withdraw(amount: Currency)")
			oElement:ID := "Account"
			oElement:X := -128
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
			oElement:AutoSize := .F.
			oElement:Width := 256
			oElement:Height := oElement:AutoHeight()
			oElement:CaptionAlign := 4/*0x4+*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
105
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )

PROCEDURE OnAnchorClick(oSwimLane,AnchorID,Options)
	LOCAL oElement
	oElement := oSwimLane:Elements:Item("Account")
		oElement:Height := oElement:AutoHeight()
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AnchorClick := {|AnchorID,Options| OnAnchorClick(oSwimLane,AnchorID,Options)} /*Occurs when an anchor element is clicked.*/

		oElement := 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/nUClk5gwAAE" +;
		"BA==>▲</a><br>+ withdraw(amount: Currency)")
			oElement:ID := "Account"
			oElement:X := -128
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
			oElement:AutoSize := .F.
			oElement:Width := 256
			oElement:Height := oElement:AutoHeight()
			oElement:CaptionAlign := 4/*0x4+*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
104
Fullfit the caption on the element's width

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElement := 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)")
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
			oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 248,248,248 } )  , .F. ))
			oElement:AutoSize := .F.
			oElement:Width := 194
			oElement:Height := 76
			oElement:CaptionAlign := 4/*0x4+*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
103
Wrap the caption by <br> or "\r\n" sequence only

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElement := 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)")
			oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
			oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 248,248,248 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
102
Display a custom tooltip
PROCEDURE OnMouseMove(oSwimLane,Button,Shift,X,Y)
	oSwimLane:ShowToolTip("new content","",,"+8","+8")
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSwimLane,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
101
Shows the tooltip of the object moved relative to its default position
PROCEDURE OnMouseMove(oSwimLane,Button,Shift,X,Y)
	oSwimLane:ShowToolTip("<null>","<null>",,"+8","+8")
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSwimLane,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/

		oSwimLane:Elements():Add("Element with a Tooltip"):ToolTip := "This is a bit of text that should be displayed when cursor hovers the element."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
100
Add a pool to cover all visible-elements

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Pools():Add():SetProperty("HeaderSize",0/*exHeaderLeft*/,24)
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
99
How can I ensure that a specified pool fits the surface's visible area
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oPattern
	LOCAL oPools
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oPools := oSwimLane:Pools()
			oPattern := oPools:Add():Pattern()
				oPattern:Type := 6/*exPatternBDiagonal*/
				oPattern:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 224,224,224 } )  , .F. ))
			oPools:Add(2000):EnsureVisible()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
98
No property for the pool can be saved/restored through Undo/Redo feature

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oLane
	LOCAL oPool
	LOCAL oSwimLane
	LOCAL l

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AllowUndoRedo := .T.
		oPool := oSwimLane:Pools():Add(-54,-47,244,112)
			l := oPool:StartUpdatePool()
			oLane := oPool:Lane(1/*exLaneVertical*/)
				oLane:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 240,240,240 } )  , .F. ))
				oLane:Children():Count := 2
			oPool:EndUpdatePool(l)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
97
Rename Undo/Redo commands into the control's toolbar

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:ToolBarFormat := "-1,100,102,101,|,103,104"
		oSwimLane:SetProperty("ToolBarCaption",103,"Anuleaza <img>4</img>")
		oSwimLane:SetProperty("ToolBarCaption",104,"<img>5</img>Reface")
		oSwimLane:SetProperty("ToolBarToolTip",103,"Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z.")
		oSwimLane:SetProperty("ToolBarToolTip",104,"Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y.")
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
96
Add Undo/Redo commands to control's toolbar

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:ToolBarFormat := "-1,100,102,101,|,103,104"
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
95
Clear Undo/Redo queue (method 2)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane
	LOCAL c

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		c := oSwimLane:UndoRedoQueueLength()
		oSwimLane:UndoRedoQueueLength := 0
		oSwimLane:UndoRedoQueueLength := c
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
94
Clear Undo/Redo queue (method 1)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:AllowUndoRedo := .T.
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
93
Removes Redo operations

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Undo()
		oSwimLane:RedoRemoveAction(10)
		DevOut( oSwimLane:RedoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
92
Removes Undo operations

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:UndoRemoveAction(10)
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
91
Record the UI operations as a block of undo/redo operations

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:StartBlockUndoRedo()
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:EndBlockUndoRedo()
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
90
Groups the next to current Undo/Redo Actions in a single block

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:GroupUndoRedoActions(3)
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
89
Limits the number of entries within the Undo/Redo queue

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:UndoRedoQueueLength := 1
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
88
Lists the Redo actions that can be performed on the surface

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Undo()
		DevOut( oSwimLane:RedoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
87
Lists the Undo actions that can be performed on the surface

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		DevOut( oSwimLane:UndoListAction() )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
86
Checks whether the Undo operation is possible

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Undo()
		DevOut( "CanRedo" )
		DevOut( Transform(oSwimLane:CanRedo(),"") )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
85
Call Redo by code

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Undo()
		oSwimLane:Redo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
84
Checks whether the Undo operation is possible

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		DevOut( "CanUndo" )
		DevOut( Transform(oSwimLane:CanUndo(),"") )
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
83
Call Undo by code

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:Undo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
82
Save the element's properties for Undo/Redo operations, by code

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oSwimLane
	LOCAL h

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:StartBlockUndoRedo()
		oLink := oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			h := oLink:StartUpdateLink()
			oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oLink:Width := 2
			oLink:ShowDir := .F.
			oLink:ShowLinkType := 2/*exLinkStraight*/
			oLink:EndUpdateLink(h)
		oSwimLane:EndBlockUndoRedo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
81
No color is restored for the link when Undo/Redo operation is executed

PROCEDURE OnAddElement(oSwimLane,Element)
	/*Element.ShowCheckBox = True*/
	/*Element.CheckBoxAlign = 2*/

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oSwimLane
	LOCAL h

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AddElement := {|Element| OnAddElement(oSwimLane,Element)} /*A new element has been added to the surface.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oElements := oSwimLane:Elements()
			oElements:Add("Check <b>1",-64,-64)
			oElements:Add("Check <b>2"):Checked := 1/*exChecked*/
		oSwimLane:StartBlockUndoRedo()
		oLink := oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			h := oLink:StartUpdateLink()
			oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oLink:Width := 2
			oLink:ShowDir := .F.
			oLink:ShowLinkType := 2/*exLinkStraight*/
			oLink:EndUpdateLink(h)
		oSwimLane:EndBlockUndoRedo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
80
Save the element's properties for Undo/Redo operations, by code

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane
	LOCAL h

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Elements():Add("Item <b>1",-64,-64)
		oSwimLane:StartBlockUndoRedo()
		oElement := oSwimLane:Elements():Add("Item <b>2")
			h := oElement:StartUpdateElement()
			oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
			oElement:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
			oElement:SetProperty("BorderColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oElement:EndUpdateElement(h)
		oSwimLane:EndBlockUndoRedo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
79
No color is restored for the element when Undo/Redo operation is executed

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oSwimLane
	LOCAL h

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Elements():Add("Item <b>1",-64,-64)
		oSwimLane:StartBlockUndoRedo()
		oElement := oSwimLane:Elements():Add("Item <b>2")
			h := oElement:StartUpdateElement()
			oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
			oElement:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
			oElement:SetProperty("BorderColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oElement:EndUpdateElement(h)
		oSwimLane:EndBlockUndoRedo()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
78
How can I ensure that a specified element fits the surface's visible area

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPattern
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oPattern := oElements:Add("Element A",-100):Pattern()
				oPattern:Type := 6/*exPatternBDiagonal*/
				oPattern:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 224,224,224 } )  , .F. ))
			oElements:Add("Element B",2000):EnsureVisible()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
77
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
PROCEDURE OnLayoutEndChanging(oSwimLane,Operation)
	DevOut( "LayoutEndChanging" )
	DevOut( Transform(Operation,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSwimLane,Operation)} /*Notifies your application once the control's layout has been changed.*/

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
76
Turn on the Undo/Redo feature

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowUndoRedo := .T.
		oSwimLane:Pools():Add(-154,-82,244,122)
		oElements := oSwimLane:Elements()
			oElements:Add("Item <b>1",-64,-64)
			oElements:Add("Item <b>2")
		oSwimLane:Links():Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
75
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

PROCEDURE OnAddElement(oSwimLane,Element)
	/*Element.ShowCheckBox = True*/

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oAppearance
	LOCAL oElement
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AddElement := {|Element| OnAddElement(oSwimLane,Element)} /*A new element has been added to the surface.*/

		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/GclJ9" +;
		"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +;
		"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +;
		"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +;
		"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
		oAppearance := oSwimLane:VisualAppearance()
			oAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +;
		"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +;
		"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
			oAppearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +;
		"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +;
		"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +;
		"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +;
		"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +;
		"gRBCCQAgQEA==")
			oAppearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +;
		"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +;
		"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +;
		"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +;
		"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
			oAppearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +;
		"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +;
		"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
		oSwimLane:SetProperty("Background",70/*exCheckBoxState0*/,0x1000000)
		oSwimLane:SetProperty("Background",71/*exCheckBoxState1*/,0x2000000)
		oSwimLane:SetProperty("Background",72/*exCheckBoxState2*/,0x3000000)
		oSwimLane:SetProperty("Background",102/*exContextMenuSelBackColor*/,0x4000000)
		oSwimLane:SetProperty("Background",104/*exContextMenuSelForeColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 1,0,0 } )  , .F. ))
		oElements := oSwimLane:Elements()
			oElement := oElements:Add("Element Check 2")
				oElement:Checked := 1/*exChecked*/
				oElement:Pictures := "1,2"
		oSwimLane:Home()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
74
ImageSize property on 16 (default) (specifies the size of control' icons)

PROCEDURE OnAddElement(oSwimLane,Element)
	/*Element.ShowCheckBox = True*/

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AddElement := {|Element| OnAddElement(oSwimLane,Element)} /*A new element has been added to the surface.*/

		oSwimLane:BeginUpdate()
		oSwimLane:ImageSize := 16
		oSwimLane:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +;
		"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
		oElements := oSwimLane:Elements()
			oElement := oElements:Add("Element Check 2")
				oElement:Checked := 1/*exChecked*/
				oElement:Pictures := "1,2"
		oSwimLane:Home()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
73
We want to have option to start/end connectors at the middle of each side of the elements
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:ShowLinks := -1/*exShowLinks*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
72
How can I determine the position the user clicks within the element's boundaries (Click event)

PROCEDURE OnClick(oSwimLane)
	LOCAL X,Y,e
	e := oSwimLane:ElementFromPoint(-1,-1)
	X := -1
	Y := -1
	oSwimLane:PointToPosition(X,Y)
	DevOut( Transform(e,"") )
	DevOut( Transform(X,"") )
	DevOut( Transform(Y,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:Click := {|| OnClick(oSwimLane)} /*Occurs when the user presses and then releases the left mouse button over the control.*/

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElements:Add("Element 1")
			oElements:Add("Element 2",128,64)
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
71
How can I determine the position the user clicks within the element's boundaries (MouseMove event)

PROCEDURE OnMouseMove(oSwimLane,Button,Shift,X,Y)
	LOCAL e
	e := oSwimLane:ElementFromPoint(X,Y)
	oSwimLane:PointToPosition(X,Y)
	DevOut( Transform(e,"") )
	DevOut( Transform(X,"") )
	DevOut( Transform(Y,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSwimLane,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElements:Add("Element 1")
			oElements:Add("Element 2",128,64)
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
70
How can I convert the screen position (mouse) to surface position

PROCEDURE OnMouseMove(oSwimLane,Button,Shift,X,Y)
	DevOut( "Point " )
	DevOut( Transform(X,"") )
	DevOut( Transform(Y,"") )
	oSwimLane:PointToPosition(X,Y)
	DevOut( "Position " )
	DevOut( Transform(X,"") )
	DevOut( Transform(Y,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSwimLane,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
		oSwimLane:FitToClient()
		oSwimLane:AxisStyle := 192/*exLinesSolid*/
		oSwimLane:SetProperty("AxisColor",AutomationTranslateColor( GraMakeRGBColor  ( { 128,128,128 } )  , .F. ))
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
69
Is is possible to show just the positive coordinates

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:Coord := 17/*exAllowPositiveOnly+exCartesian*/
		oSwimLane:SetProperty("AxisColor",AutomationTranslateColor( GraMakeRGBColor  ( { 128,128,128 } )  , .F. ))
		oSwimLane:AxisStyle := 259/*exLinesThick+exLinesDot*/
		oSwimLane:ShowLinks := -1/*exShowLinks*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
68
Cartesian coordinates (positive coordinates are shown top-right to the origin)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:Coord := 1/*exCartesian*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
67
Default coordinates (positive coordinates are shown bottom-right to the origin)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:Coord := 0/*exDefCoord*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
66
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := 31/*exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>1")
			oElements:Add("Element <sha ;;0>2",164,64)
			oElements:Add("Element <sha ;;0>3",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
		oSwimLane:Zoom := 200
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
65
Does your control supports OLE Drag and Drop
PROCEDURE OnOLEDragDrop(oSwimLane,Data,Effect,Button,Shift,X,Y)
	DevOut( Transform(Data,"") )
RETURN

PROCEDURE OnOLEStartDrag(oSwimLane,Data,AllowedEffects)
	/*Data.SetData("some data to drag")*/

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oElements
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:OLEDragDrop := {|Data,Effect,Button,Shift,X,Y| OnOLEDragDrop(oSwimLane,Data,Effect,Button,Shift,X,Y)} /*Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.*/
		oSwimLane:OLEStartDrag := {|Data,AllowedEffects| OnOLEStartDrag(oSwimLane,Data,AllowedEffects)} /*Occurs when the OLEDrag method is called.*/

		oSwimLane:BeginUpdate()
		oSwimLane:OLEDropMode := 1/*exOLEDropManual*/
		oPool := oSwimLane:Pools():Add(-250,-150,500,250)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 2
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 1
		oElements := oSwimLane:Elements()
			oElement := oElements:Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
				oElement:CaptionSingleLine := 0/*exCaptionWordWrap*/
				oElement:AutoSize := .F.
				oElement:X := -125
				oElement:Y := -105
				oElement:Width := 256
				oElement:Height := 56
			oElement1 := oElements:Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
				oElement1:CaptionSingleLine := 0/*exCaptionWordWrap*/
				oElement1:AutoSize := .F.
				oElement1:X := -125
				oElement1:Width := 256
				oElement1:Height := 56
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
64
Is it possible to disable customizing the path of a specified link

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
				oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 128,128,128 } )  , .F. ))
				oLink:AllowControlPoint := 0/*exNoControlPoint*/
		oSwimLane:Zoom := 200
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
63
How do I let user customizes the link's path

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",164,64)
			oElements:Add("Element <sha ;;0>B",0,132)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
			oLink := oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(1))
				oLink:ShowLinkType := 3/*exLinkRound*/
				oLink:StartPos := 0/*LeftAlignment*/
		oSwimLane:Zoom := 200
		oSwimLane:FitToClient()
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
62
How can I generate a picture/image/graph from my diagram
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane
	LOCAL var_CopyTo

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
			oElements:Add("Element E"):ID := "E"
			oElements:Add("Element E"):ID := "F"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("E"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("F"))
		oSwimLane:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
		oSwimLane:Arrange()
		var_CopyTo := oSwimLane:CopyTo("c:/temp/xtest.jpg")
		DevOut( "!!!check the file c:/temp/xtest.jpg!!!" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
61
How can I generate a picture/image/graph from my diagram
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oPrint
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
			oElements:Add("Element E"):ID := "E"
			oElements:Add("Element E"):ID := "F"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("E"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("F"))
		oSwimLane:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
		oSwimLane:Arrange()
		oPrint := CreateObject("Exontrol.Print")
			oPrint:PrintExt := oSwimLane
			oPrint:CopyTo("c:/temp/xtest.jpg")
		DevOut( "!!!check the file c:/temp/xtest.jpg!!!" )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
60
How can I print the component
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oElements
	LOCAL oPrint
	LOCAL oLink,oLink1,oLink2
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",0,76)
			oElement := oElements:Add("Element <sha ;;0>C",-76,32)
				oElement:AutoSize := .F.
				oElement:Height := 32
			oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
				oElement1:AutoSize := .F.
				oElement1:Height := 32
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 1/*CenterAlignment*/
				oLink:EndPos := 1/*CenterAlignment*/
			oLink1 := oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(1))
				oLink1:StartPos := 1/*CenterAlignment*/
				oLink1:EndPos := 1/*CenterAlignment*/
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(4))
			oLink2 := oLinks:Add(oSwimLane:Elements:Item(4),oSwimLane:Elements:Item(3))
				oLink2:StartPos := 0/*LeftAlignment*/
				oLink2:EndPos := 2/*RightAlignment*/
		oPrint := CreateObject("Exontrol.Print")
			oPrint:PrintExt := oSwimLane
			oPrint:Preview()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
59
How can I show direct-links

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:ShowLinksType := 1/*exLinkDirect*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B",128,64):ID := "B"
			oElements:Add("Element C",128,-64):ID := "C"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
58
How can I show straight-links

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:ShowLinksType := 2/*exLinkStraight*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B",128,64):ID := "B"
			oElements:Add("Element C",128,-64):ID := "C"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
57
How can I show round-links

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:ShowLinksType := 3/*exLinkRound*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B",128,64):ID := "B"
			oElements:Add("Element C",128,-64):ID := "C"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
56
I've tried to insert a "<br>" in the Caption property text and it just ignores it

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElement := oElements:Add("caption")
				oElement:CaptionSingleLine := 0/*exCaptionWordWrap*/
				oElement:Caption := "first caption<br>second caption<br>third caption"
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
55
How do I align the extra-caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElement := oElements:Add("caption")
				oElement:CaptionAlign := 0/*exTopLeft*/
				oElement:AutoSize := .F.
				oElement:Width := 128
				oElement:Height := 64
				oElement:ExtraCaption := "extra-caption"
				oElement:ExtraCaptionAlign := 34/*exBottomRight*/
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
54
How can I add an extra caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oElements := oSwimLane:Elements()
			oElements:Add("caption"):ExtraCaption := "extra-caption"
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
53
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowMoveNeighbors := 2/*exMoveNeighborsHorizontally*/
		oSwimLane:SetProperty("DefArrange",0/*exDefArrangeDir*/,1)
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B ( move it )",16,32)
			oElements:Add("Element <sha ;;0>C",128,0)
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
52
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowMoveNeighbors := 1/*exMoveNeighborsVertically*/
		oSwimLane:SetProperty("DefArrange",1/*exDefArrangeDX*/,0)
		oSwimLane:SetProperty("DefArrange",2/*exDefArrangeDY*/,0)
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B ( move it )",0,32)
			oElements:Add("Element <sha ;;0>C",0,64)
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
51
How do I enable the reserve-neighbors feature
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:AllowMoveNeighbors := 1/*exMoveNeighborsVertically*/
		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B ( move it )",0,32)
			oElements:Add("Element <sha ;;0>C",0,64)
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
50
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
			oElements:Add("Element E"):ID := "E"
			oElements:Add("Element E"):ID := "F"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("E"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("F"))
		oSwimLane:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
		oSwimLane:Arrange()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
49
How can I move an element to a specified lane/phase/pool

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oPool
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:SetProperty("DefPoolHeaderCaptionFormat",.T.,"<fgcolor 808080>Faza <off -4><b><font ;6>%i")
		oSwimLane:SetProperty("DefPoolHeaderCaptionFormat",.F.,"<fgcolor 808080>Culoar <off -4><b><font ;6>%i")
		oPool := oSwimLane:Pools():Add(-100,-100,250,180)
			oPool:Lane(0/*exLaneHorizontal*/):Children():Count := 3
			oPool:Lane(1/*exLaneVertical*/):Children():Count := 3
			oPool:Lane(1/*exLaneVertical*/):Children():Item(1):Header():Caption := "<fgcolor FF0000><b>NEW"
		oElement := oSwimLane:Elements():Add("element 1",200,200)
			oElement:SetProperty("LaneID",.T.,"0:H.0,0:V.0")
		oElement1 := oSwimLane:Elements():Add("element 2",200,200)
			oElement1:SetProperty("LaneID",.T.,"0:H.2,0:V.2")
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
48
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)

PROCEDURE OnAddLink(oSwimLane,Link)

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AddLink := {|Link| OnAddLink(oSwimLane,Link)} /*A new link has been added to the links collection.*/

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",48,48)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
47
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",48,48)
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 4/*DownAlignment*/
				oLink:EndPos := 3/*UpAlignment*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
46
How do I enable the cross link support ( mixed )

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oElements
	LOCAL oLink,oLink1,oLink2
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",0,76)
			oElement := oElements:Add("Element <sha ;;0>C",-76,32)
				oElement:AutoSize := .F.
				oElement:Height := 32
			oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
				oElement1:AutoSize := .F.
				oElement1:Height := 32
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 1/*CenterAlignment*/
				oLink:EndPos := 1/*CenterAlignment*/
			oLink1 := oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(1))
				oLink1:StartPos := 1/*CenterAlignment*/
				oLink1:EndPos := 1/*CenterAlignment*/
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(4))
			oLink2 := oLinks:Add(oSwimLane:Elements:Item(4),oSwimLane:Elements:Item(3))
				oLink2:StartPos := 0/*LeftAlignment*/
				oLink2:EndPos := 2/*RightAlignment*/
		oSwimLane:ShowLinks := 97/*exShowCrossLinksMixt+exShowExtendedLinks*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
45
How do I enable the cross link support ( triangular )

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oElements
	LOCAL oLink,oLink1,oLink2
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",0,76)
			oElement := oElements:Add("Element <sha ;;0>C",-76,32)
				oElement:AutoSize := .F.
				oElement:Height := 32
			oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
				oElement1:AutoSize := .F.
				oElement1:Height := 32
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 1/*CenterAlignment*/
				oLink:EndPos := 1/*CenterAlignment*/
			oLink1 := oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(1))
				oLink1:StartPos := 1/*CenterAlignment*/
				oLink1:EndPos := 1/*CenterAlignment*/
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(4))
			oLink2 := oLinks:Add(oSwimLane:Elements:Item(4),oSwimLane:Elements:Item(3))
				oLink2:StartPos := 0/*LeftAlignment*/
				oLink2:EndPos := 2/*RightAlignment*/
		oSwimLane:ShowLinks := 65/*exShowCrossLinksTriangle+exShowExtendedLinks*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
44
How do I enable the cross link support ( rectangular )

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElement,oElement1
	LOCAL oElements
	LOCAL oLink,oLink1,oLink2
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",0,76)
			oElement := oElements:Add("Element <sha ;;0>C",-76,32)
				oElement:AutoSize := .F.
				oElement:Height := 32
			oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
				oElement1:AutoSize := .F.
				oElement1:Height := 32
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 1/*CenterAlignment*/
				oLink:EndPos := 1/*CenterAlignment*/
			oLink1 := oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(1))
				oLink1:StartPos := 1/*CenterAlignment*/
				oLink1:EndPos := 1/*CenterAlignment*/
			oLinks:Add(oSwimLane:Elements:Item(3),oSwimLane:Elements:Item(4))
			oLink2 := oLinks:Add(oSwimLane:Elements:Item(4),oSwimLane:Elements:Item(3))
				oLink2:StartPos := 0/*LeftAlignment*/
				oLink2:EndPos := 2/*RightAlignment*/
		oSwimLane:ShowLinks := 33/*exShowCrossLinksRect+exShowExtendedLinks*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
43
How do I show a link frmo bottom to top, or reverse, not from left to right

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLink
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element <sha ;;0>A")
			oElements:Add("Element <sha ;;0>B",0,64)
		oLinks := oSwimLane:Links()
			oLink := oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
				oLink:StartPos := 1/*CenterAlignment*/
				oLink:EndPos := 1/*CenterAlignment*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
42
Is it possible to control the links, so that they are always centered

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
		oSwimLane:ShowLinks := -1/*exShowLinks*/
		oSwimLane:SetProperty("DefArrange",0/*exDefArrangeDir*/,1)
		oSwimLane:Arrange()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
41
What options to align the elements do I have if I use Arrange method

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane
	LOCAL h1,h2,h3

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:BeginUpdate()
		oSwimLane:ShowGridLines := .T.
		oElements := oSwimLane:Elements()
			h1 := oElements:Add("Top Alignment"):ID()
			oElements:Add("Element")
			oElements:Add("Element")
			oElements:Add("Element")
			h2 := oElements:Add("Center Alignment",,96):ID()
			oElements:Add("Element",,96)
			oElements:Add("Element",,96)
			oElements:Add("Element",,96)
			h3 := oElements:Add("Bottom Alignment",,178):ID()
			oElements:Add("Element",,192)
			oElements:Add("Element",,192)
			oElements:Add("Element",,192)
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(2))
			oLinks:Add(oSwimLane:Elements:Item(1),oSwimLane:Elements:Item(3))
			oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(4))
			oLinks:Add(oSwimLane:Elements:Item(2),oSwimLane:Elements:Item(3))
			oLinks:Add(oSwimLane:Elements:Item(5),oSwimLane:Elements:Item(6))
			oLinks:Add(oSwimLane:Elements:Item(5),oSwimLane:Elements:Item(7))
			oLinks:Add(oSwimLane:Elements:Item(6),oSwimLane:Elements:Item(8))
			oLinks:Add(oSwimLane:Elements:Item(6),oSwimLane:Elements:Item(7))
			oLinks:Add(oSwimLane:Elements:Item(9),oSwimLane:Elements:Item(10))
			oLinks:Add(oSwimLane:Elements:Item(9),oSwimLane:Elements:Item(11))
			oLinks:Add(oSwimLane:Elements:Item(10),oSwimLane:Elements:Item(12))
			oLinks:Add(oSwimLane:Elements:Item(10),oSwimLane:Elements:Item(11))
		oSwimLane:SetProperty("DefArrange",3/*exDefArrangeAlign*/,0)
		oSwimLane:Arrange(h1)
		oSwimLane:SetProperty("DefArrange",3/*exDefArrangeAlign*/,1)
		oSwimLane:Arrange(h2)
		oSwimLane:SetProperty("DefArrange",3/*exDefArrangeAlign*/,2)
		oSwimLane:Arrange(h3)
		oSwimLane:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
40
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
		oSwimLane:Arrange()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
39
Is it possible to change the distance between elements, when calling the Arrange method

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oElements
	LOCAL oLinks
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oElements := oSwimLane:Elements()
			oElements:Add("Element A"):ID := "A"
			oElements:Add("Element B"):ID := "B"
			oElements:Add("Element C"):ID := "C"
			oElements:Add("Element D"):ID := "D"
		oLinks := oSwimLane:Links()
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("B"))
			oLinks:Add(oSwimLane:Elements:Item("A"),oSwimLane:Elements:Item("C"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("D"))
			oLinks:Add(oSwimLane:Elements:Item("B"),oSwimLane:Elements:Item("C"))
		oSwimLane:SetProperty("DefArrange",1/*exDefArrangeDX*/,0)
		oSwimLane:SetProperty("DefArrange",2/*exDefArrangeDY*/,0)
		oSwimLane:Arrange()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN