How-To Visual DataFlex (exswimlane)

144	Defines the colors, to display overlapping links Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Get ComAdd of hoElements "Node <b>4" 16 -48 to Nothing Get ComAdd of hoElements "Node <b>5" -1024 -48 to Nothing Get ComAdd of hoElements "Node <b>6" 16 512 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Variant voLinks1 Get ComLinks to voLinks1 Handle hoLinks1 Get Create (RefClass(cComLinks)) to hoLinks1 Set pvComObject of hoLinks1 to voLinks1 Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks1 vFrom1 vTo1 "L2" to Nothing Send Destroy to hoLinks1 Variant voLinks2 Get ComLinks to voLinks2 Handle hoLinks2 Get Create (RefClass(cComLinks)) to hoLinks2 Set pvComObject of hoLinks2 to voLinks2 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 2 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks2 vFrom2 vTo2 "L3" to Nothing Send Destroy to hoLinks2 Set ComShowLinks to (OLEexChangeColorOnOverlap + OLEexShowCrossLinksRect + OLEexShowExtendedLinks) Set ComOverlapLinksColors to "red,orange" Set ComLinksColor to (RGB(128,128,128)) Set ComAxisStyle to OLEexNoLines Set ComShowGridLines to False Send ComEndUpdate End_Procedure
143	The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Get ComAdd of hoElements "Node <b>4" 16 -48 to Nothing Get ComAdd of hoElements "Node <b>5" -1024 -48 to Nothing Get ComAdd of hoElements "Node <b>6" 16 512 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Variant voLinks1 Get ComLinks to voLinks1 Handle hoLinks1 Get Create (RefClass(cComLinks)) to hoLinks1 Set pvComObject of hoLinks1 to voLinks1 Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks1 vFrom1 vTo1 "L2" to Nothing Send Destroy to hoLinks1 Variant voLinks2 Get ComLinks to voLinks2 Handle hoLinks2 Get Create (RefClass(cComLinks)) to hoLinks2 Set pvComObject of hoLinks2 to voLinks2 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 2 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks2 vFrom2 vTo2 "L3" to Nothing Send Destroy to hoLinks2 Set ComShowLinks to (OLEexChangeColorOnOverlap + OLEexPreventOverlapMixt + OLEexShowCrossLinksRect + OLEexShowExtendedLinks) Set ComLinksColor to (RGB(128,128,128)) Set ComAxisStyle to OLEexNoLines Set ComShowGridLines to False Send ComEndUpdate End_Procedure
142	The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Get ComAdd of hoElements "Node <b>4" 16 -48 to Nothing Get ComAdd of hoElements "Node <b>5" -1024 -48 to Nothing Get ComAdd of hoElements "Node <b>6" 16 512 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Variant voLinks1 Get ComLinks to voLinks1 Handle hoLinks1 Get Create (RefClass(cComLinks)) to hoLinks1 Set pvComObject of hoLinks1 to voLinks1 Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks1 vFrom1 vTo1 "L2" to Nothing Send Destroy to hoLinks1 Variant voLinks2 Get ComLinks to voLinks2 Handle hoLinks2 Get Create (RefClass(cComLinks)) to hoLinks2 Set pvComObject of hoLinks2 to voLinks2 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 2 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks2 vFrom2 vTo2 "L3" to Nothing Send Destroy to hoLinks2 Set ComShowLinks to (OLEexChangeColorOnOverlap + OLEexShowCrossLinksRect + OLEexShowExtendedLinks) Set ComLinksColor to (RGB(128,128,128)) Set ComAxisStyle to OLEexNoLines Set ComShowGridLines to False Send ComEndUpdate End_Procedure
141	The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Get ComAdd of hoElements "Node <b>4" 16 -48 to Nothing Get ComAdd of hoElements "Node <b>5" -1024 -48 to Nothing Get ComAdd of hoElements "Node <b>6" 16 512 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Variant voLinks1 Get ComLinks to voLinks1 Handle hoLinks1 Get Create (RefClass(cComLinks)) to hoLinks1 Set pvComObject of hoLinks1 to voLinks1 Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks1 vFrom1 vTo1 "L2" to Nothing Send Destroy to hoLinks1 Variant voLinks2 Get ComLinks to voLinks2 Handle hoLinks2 Get Create (RefClass(cComLinks)) to hoLinks2 Set pvComObject of hoLinks2 to voLinks2 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 2 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks2 vFrom2 vTo2 "L3" to Nothing Send Destroy to hoLinks2 Set ComShowLinks to (OLEexPreventOverlap + OLEexPreventOverlapMixt + OLEexShowCrossLinksRect + OLEexShowExtendedLinks) Set ComLinksColor to (RGB(128,128,128)) Set ComAxisStyle to OLEexNoLines Set ComShowGridLines to False Send ComEndUpdate End_Procedure
140	The exPreventOverlap flag adjusts the links to prevent them from overlapping the connected objects. The exPreventOverlap option calculates the path between A and B using the A* (A-star) pathfinding algorithm, which can be a time-consuming operation Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Get ComAdd of hoElements "Node <b>4" 16 -48 to Nothing Get ComAdd of hoElements "Node <b>5" -1024 -48 to Nothing Get ComAdd of hoElements "Node <b>6" 16 512 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Variant voLinks1 Get ComLinks to voLinks1 Handle hoLinks1 Get Create (RefClass(cComLinks)) to hoLinks1 Set pvComObject of hoLinks1 to voLinks1 Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks1 vFrom1 vTo1 "L2" to Nothing Send Destroy to hoLinks1 Variant voLinks2 Get ComLinks to voLinks2 Handle hoLinks2 Get Create (RefClass(cComLinks)) to hoLinks2 Set pvComObject of hoLinks2 to voLinks2 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 2 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks2 vFrom2 vTo2 "L3" to Nothing Send Destroy to hoLinks2 Set ComShowLinks to (OLEexPreventOverlap + OLEexShowCrossLinksRect + OLEexShowExtendedLinks) Set ComLinksColor to (RGB(128,128,128)) Set ComAxisStyle to OLEexNoLines Set ComShowGridLines to False Send ComEndUpdate End_Procedure
139	How can I replace or add an icon at runtime Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Get ComReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" Nothing to Nothing Get ComReplaceIcon "C:\images\favicon.ico" 0 to Nothing Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <img>1</img>" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
138	exActionContextMenuObject, An item from object's context menu is executing. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface. The ActionContextMenu event notifies your application once an action occurs within the object's context menu. // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 18 ? `exActionContextMenuObject` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 18 ? `exActionContextMenuObject` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowDesignHeader to OLEexDesignHeaderLock Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -100 -100 250 160 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 2 Send Destroy to hoLanes1 Send Destroy to hoLane1 Send Destroy to hoPool Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Right-Click the pool, element or the link to open its context menu, and change a property of it" End_Procedure
137	exContextMenuObject, The object's context menu is running. The user right-clicks an object on the surface, and it's context menu is shown. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 17 ? `exContextMenuObject` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 17 ? `exContextMenuObject` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowDesignHeader to OLEexDesignHeaderLock Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -100 -100 250 160 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 2 Send Destroy to hoLanes1 Send Destroy to hoLane1 Send Destroy to hoPool Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Right-Click the pool, element or the link to open its context menu" End_Procedure
136	exMoveLane, The user moves/changes the position of the lane of the pool. The AllowMoveLane property specifies the keys combination to allow user to moves/changes the position the lane // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 16 ? `exMoveLane` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 16 ? `exMoveLane` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowDesignHeader to OLEexDesignHeaderLock Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -100 -100 250 160 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 2 Send Destroy to hoLanes1 Send Destroy to hoLane1 Send Destroy to hoPool Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click the lane's header to drag to a new position" End_Procedure
135	exResizeLane, The user resizes the lane of the pool. The AllowResizePoolHeader property specifies the keys combination to allow user to resize the header of the pool // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 15 ? `exResizeLane` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 15 ? `exResizeLane` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowDesignHeader to OLEexDesignHeaderLock Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -100 -100 250 160 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 2 Send Destroy to hoLanes1 Send Destroy to hoLane1 Send Destroy to hoPool Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click the pool's header to resize it" End_Procedure
134	exResizePoolHeader, the user resizes the header's pool from the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 14 ? `exResizePoolHeader` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 14 ? `exResizePoolHeader` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click the pool's header to resize it" End_Procedure
133	exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 13 ? `exMovePool` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 13 ? `exMovePool` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click a pool and drag to reposition it" End_Procedure
132	exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 12 ? `exResizePool` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 12 ? `exResizePool` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Resize a pool" End_Procedure
131	exCreatePool, The user creates pools on the surface. The AllowCreatePool property specifies the keys combination to allow user to create pools on the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 11 ? `exCreatePool` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 11 ? `exCreatePool` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" End_Procedure
130	exDesignMode, The user changes the surface's design mode. The exDesignMode operation occurs, when the user selects a new design-mode, from the control's toolbar. // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 10 ? `exDesignMode` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 10 ? `exDesignMode` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click the Design Menu and select one of the options" End_Procedure
129	exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Press CTRL+Z to Undo, CTRL+Y to Redo" End_Procedure
128	exLinkObjects, the user creates an element on the surface. The AllowLinkObjects property specifies the keys combination to allow user to link elements on the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 9 ? `exLinkObjects` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 9 ? `exLinkObjects` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Send ComEndUpdate Showln "Hold SHIFT, click an element, and drag to another element to create a link between them" End_Procedure
127	exEditObject, the user edits the element's caption // Occurs when the user presses and then releases the left mouse button over the control. Procedure OnComClick Forward Send OnComClick // ElementFromPoint(-1,-1).Edit(0) End_Procedure // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 8 ? `exEditObject` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 8 ? `exEditObject` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click an element to edit its caption" End_Procedure
126	exCreateObject, the user creates an element on the surface. The AllowCreateObject property specifies the keys combination to allow user to create elements on the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 7 ? `exCreateObject` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 7 ? `exCreateObject` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Double-click on the surface and immediately drag to a new position to create an element" End_Procedure
125	exSelectNothing, the user clicks an empty zone of the surface. The AllowSelectNothing property specifies the keys combination to allow user to select nothing on the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 6 ? `exSelectNothing` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 6 ? `exSelectNothing` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowSelectNothing to True Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComSelected of hoElement to True Send Destroy to hoElement Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Select an element, and then click outside to select nothing" End_Procedure
124	exSelectElement, the user clicks the object to get it selected. The AllowSelectObject property specifies the keys combination to allow user to select the object // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 5 ? `exSelectElement` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 5 ? `exSelectElement` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it" End_Procedure
123	exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 4 ? `exMoveElement` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 4 ? `exMoveElement` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Move an element" End_Procedure
122	exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 3 ? `exResizeElement` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 3 ? `exResizeElement` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Node <b>1" -64 -64 to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComAutoSize of hoElement to False Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Node <b>2" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComAutoSize of hoElement1 to False Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Node <b>3" 64 -64 to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComAutoSize of hoElement2 to False Send Destroy to hoElement2 Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Resize an element" End_Procedure
121	exSurfaceHome, the user clicks the Home button on the control's toolbar, so the surface is restored to original position. The Home method has the same effect // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 2 ? `exSurfaceHome` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 2 ? `exSurfaceHome` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click the Home button" End_Procedure
120	exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 1 ? `exSurfaceZoom` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 1 ? `exSurfaceZoom` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click and drag the surface to reposition it" End_Procedure
119	exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" (ComFormatABC(Self,"value = 0 ? `exSurfaceMove` : value",llOperation,Nothing,Nothing)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" (ComFormatABC(Self,"value = 0 ? `exSurfaceMove` : value",llOperation,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate Showln "Click and drag the surface to reposition it" End_Procedure
118	FormatABC method formats the A,B,C values based on the giving expression and returns the result Procedure OnCreate Forward Send OnCreate Showln (ComFormatABC(Self,"value format ``",1000,Nothing,Nothing)) End_Procedure
117	FreezeEvents(Freeze) method prevents firing any event. For instance, FreezeEvents(True) freezes the control's events, no no event is fired, until the FreezeEvents(False) is called // Notifies the application once the control fires an event. Procedure OnComEvent Integer llEventID Forward Send OnComEvent llEventID Showln (ComEventParam(Self,-2)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComFreezeEvents True Showln "No event is fired after FreezeEvents(True) call" Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
116	The exAllowChangeFrom(0x20)/exAllowChangeTo(0x40) flag of LinkControlPointEnum type allows the user to adjust the link's from/to element by dragging and dropping the start control point (requires the exStartControlPoint/exEndControlPoint flag) // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" llOperation Variant v Variant voLink Get ComFocusLink to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Get ComID of hoLink to v Send Destroy to hoLink Showln v End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" llOperation Variant v1 Variant voLink1 Get ComFocusLink to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Get ComID of hoLink1 to v1 Send Destroy to hoLink1 Showln v1 End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Get ComAdd of hoElements "Node <b>3" 64 -64 to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Set ComFocusLink to "L1" Send ComEndUpdate End_Procedure
115	The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" llOperation Showln (ComFocusLink(Self)) End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" llOperation Showln (ComFocusLink(Self)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
114	Focus a link // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" llOperation End_Procedure // Occurs when the control's layout is about to be changed. Procedure OnComLayoutStartChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutStartChanging llOperation Showln "LayoutStartChanging" llOperation End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Node <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Node <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -100 -100 250 160 to Nothing Send Destroy to hoPools Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo "L1" to Nothing Send Destroy to hoLinks Set ComFocusLink to "L1" Send ComEndUpdate End_Procedure
113	The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDrawPartsOrder to "extracaption,extrapicture,picture,check,caption,client" Set ComHTMLPicture "pic1" to "c:\exontrol\images\sun.png" Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<b>Element" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComPicturesAlign of hoElement to OLEexMiddleCenter Set ComCaptionAlign of hoElement to OLEexMiddleCenter Set ComPictures of hoElement to "pic1" Send Destroy to hoElement Send Destroy to hoElements Send ComEndUpdate End_Procedure
112	Expandable-caption // Occurs when an anchor element is clicked. Procedure OnComAnchorClick String llAnchorID String llOptions Forward Send OnComAnchorClick llAnchorID llOptions Showln llAnchorID End_Procedure Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "Account" Set ComX of hoElement to -256 Set ComY of hoElement to -164 Set ComCaptionSingleLine of hoElement to OLEexCaptionBreakWrap Set ComCaptionAlign of hoElement to \|CI$4 Send Destroy to hoElement Send Destroy to hoElements Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Variant voElement1 Get ComAdd of hoElements1 "<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>" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "Person" Set ComY of hoElement1 to -164 Set ComCaptionSingleLine of hoElement1 to OLEexCaptionBreakWrap Send Destroy to hoElement1 Send Destroy to hoElements1 Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Variant voElement2 Get ComAdd of hoElements2 "<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()" Nothing Nothing to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "Student" Set ComY of hoElement2 to -64 Set ComCaptionSingleLine of hoElement2 to OLEexCaptionBreakWrap Send Destroy to hoElement2 Send Destroy to hoElements2 Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "Account" to vFrom Send Destroy to hoElements3 Variant vTo Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "Student" to vTo Send Destroy to hoElements4 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCaption of hoLink to "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>" Send Destroy to hoLink Send Destroy to hoLinks End_Procedure
111	Expandable-caption Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionSingleLine of hoElement to OLEexCaptionBreakWrap Send Destroy to hoElement Send Destroy to hoElements End_Procedure
110	Draws a frame arround the link's arrow Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Set ComArrowSize of hoLink2 to 8 Set ComArrowColor of hoLink2 to (RGB(255,255,255)) Set ComArrowFrameColor of hoLink2 to (RGB(0,0,0)) Send Destroy to hoLink2 Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
109	Draws a frame arround the arrow for all links Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Set ComLinksArrowSize to 8 Set ComLinksArrowColor to (RGB(255,255,255)) Set ComLinksArrowFrameColor to (RGB(0,0,0)) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
108	Change the size to display the arrow of the link Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Set ComArrowSize of hoLink2 to 8 Send Destroy to hoLink2 Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
107	Change the size to display the arrows for all links Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Set ComLinksArrowSize to 8 Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
106	Extends the caption on the element's width Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "Account" Set ComX of hoElement to -128 Set ComCaptionSingleLine of hoElement to OLEexCaptionBreakWrap Set ComAutoSize of hoElement to False Set ComWidth of hoElement to 256 Set ComHeight of hoElement to (ComAutoHeight(hoElement)) Set ComCaptionAlign of hoElement to \|CI$4 Send Destroy to hoElement Send Destroy to hoElements End_Procedure
105	Gets the width/height of the element to fit its content ( as if the AutoSize property is True ) // Occurs when an anchor element is clicked. Procedure OnComAnchorClick String llAnchorID String llOptions Forward Send OnComAnchorClick llAnchorID llOptions Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComItem of hoElements "Account" to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComHeight of hoElement to (ComAutoHeight(hoElement)) Send Destroy to hoElement Send Destroy to hoElements End_Procedure Procedure OnCreate Forward Send OnCreate Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Variant voElement1 Get ComAdd of hoElements1 "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "Account" Set ComX of hoElement1 to -128 Set ComCaptionSingleLine of hoElement1 to OLEexCaptionBreakWrap Set ComAutoSize of hoElement1 to False Set ComWidth of hoElement1 to 256 Set ComHeight of hoElement1 to (ComAutoHeight(hoElement1)) Set ComCaptionAlign of hoElement1 to \|CI$4 Send Destroy to hoElement1 Send Destroy to hoElements1 End_Procedure
104	Fullfit the caption on the element's width Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<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)" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionSingleLine of hoElement to OLEexCaptionBreakWrap Set ComBackColor of hoElement to (RGB(248,248,248)) Set ComAutoSize of hoElement to False Set ComWidth of hoElement to 194 Set ComHeight of hoElement to 76 Set ComCaptionAlign of hoElement to \|CI$4 Send Destroy to hoElement Send Destroy to hoElements End_Procedure
103	Wrap the caption by <br> or "\r\n" sequence only Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "<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)" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionSingleLine of hoElement to OLEexCaptionBreakWrap Set ComBackColor of hoElement to (RGB(248,248,248)) Send Destroy to hoElement Send Destroy to hoElements End_Procedure
102	Display a custom tooltip // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Send ComShowToolTip "new content" "" "+8" "+8" End_Procedure
101	Shows the tooltip of the object moved relative to its default position // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Send ComShowToolTip "<null>" "<null>" "+8" "+8" End_Procedure Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element with a Tooltip" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComToolTip of hoElement to "This is a bit of text that should be displayed when cursor hovers the element." Send Destroy to hoElement Send Destroy to hoElements End_Procedure
100	Add a pool to cover all visible-elements Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools Nothing Nothing Nothing Nothing to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Set ComHeaderSize of hoPool OLEexHeaderLeft to 24 Send Destroy to hoPool Send Destroy to hoPools Send ComEndUpdate End_Procedure
99	How can I ensure that a specified pool fits the surface's visible area Procedure OnCreate Forward Send OnCreate Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools Nothing Nothing Nothing Nothing to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voPattern Get ComPattern of hoPool to voPattern Handle hoPattern Get Create (RefClass(cComPattern)) to hoPattern Set pvComObject of hoPattern to voPattern Set ComType of hoPattern to OLEexPatternBDiagonal Set ComColor of hoPattern to (RGB(224,224,224)) Send Destroy to hoPattern Send Destroy to hoPool Variant voPool1 Get ComAdd of hoPools 2000 Nothing Nothing Nothing to voPool1 Handle hoPool1 Get Create (RefClass(cComPool)) to hoPool1 Set pvComObject of hoPool1 to voPool1 Send ComEnsureVisible of hoPool1 Send Destroy to hoPool1 Send Destroy to hoPools End_Procedure
98	No property for the pool can be saved/restored through Undo/Redo feature Procedure OnCreate Forward Send OnCreate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -54 -47 244 112 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant l Get ComStartUpdatePool of hoPool to l Variant voLane Get ComLane of hoPool OLEexLaneVertical to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Set ComColor of hoLane to (RGB(240,240,240)) Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Send ComEndUpdatePool of hoPool l Send Destroy to hoPool Send Destroy to hoPools End_Procedure
97	Rename Undo/Redo commands into the control's toolbar Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Set ComToolBarFormat to "-1,100,102,101,\|,103,104" Set ComToolBarCaption 103 to "Anuleaza <img>4</img>" Set ComToolBarCaption 104 to "<img>5</img>Reface" Set ComToolBarToolTip 103 to "Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z." Set ComToolBarToolTip 104 to "Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y." Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
96	Add Undo/Redo commands to control's toolbar Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Set ComToolBarFormat to "-1,100,102,101,\|,103,104" Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
95	Clear Undo/Redo queue (method 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Variant c Get ComUndoRedoQueueLength to c Set ComUndoRedoQueueLength to 0 Set ComUndoRedoQueueLength to c Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
94	Clear Undo/Redo queue (method 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Set ComAllowUndoRedo to True Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
93	Removes Redo operations Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndo Send ComRedoRemoveAction 10 Nothing Showln (ComRedoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
92	Removes Undo operations Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndoRemoveAction 10 Nothing Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
91	Record the UI operations as a block of undo/redo operations Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Send ComStartBlockUndoRedo Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComEndBlockUndoRedo Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
90	Groups the next to current Undo/Redo Actions in a single block Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComGroupUndoRedoActions 3 Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
89	Limits the number of entries within the Undo/Redo queue Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Set ComUndoRedoQueueLength to 1 Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
88	Lists the Redo actions that can be performed on the surface Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndo Showln (ComRedoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
87	Lists the Undo actions that can be performed on the surface Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Showln (ComUndoListAction(Self,Nothing,Nothing)) Send ComEndUpdate End_Procedure
86	Checks whether the Undo operation is possible Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndo Showln "CanRedo" (ComCanRedo(Self)) Send ComEndUpdate End_Procedure
85	Call Redo by code Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndo Send ComRedo Send ComEndUpdate End_Procedure
84	Checks whether the Undo operation is possible Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Showln "CanUndo" (ComCanUndo(Self)) Send ComEndUpdate End_Procedure
83	Call Undo by code Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComUndo Send ComEndUpdate End_Procedure
82	Save the element's properties for Undo/Redo operations, by code Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Send ComStartBlockUndoRedo Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Variant h Get ComStartUpdateLink of hoLink to h Set ComColor of hoLink to (RGB(255,0,0)) Set ComWidth of hoLink to 2 Set ComShowDir of hoLink to False Set ComShowLinkType of hoLink to OLEexLinkStraight Send ComEndUpdateLink of hoLink h Send Destroy to hoLink Send Destroy to hoLinks Send ComEndBlockUndoRedo Send ComEndUpdate End_Procedure
81	No color is restored for the link when Undo/Redo operation is executed // A new element has been added to the surface. Procedure OnComAddElement Variant llElement Forward Send OnComAddElement llElement // Element.ShowCheckBox = True // Element.CheckBoxAlign = 2 End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Check <b>1" -64 -64 to Nothing Variant voElement Get ComAdd of hoElements "Check <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComChecked of hoElement to OLEexChecked Send Destroy to hoElement Send Destroy to hoElements Send ComStartBlockUndoRedo Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Variant h Get ComStartUpdateLink of hoLink to h Set ComColor of hoLink to (RGB(255,0,0)) Set ComWidth of hoLink to 2 Set ComShowDir of hoLink to False Set ComShowLinkType of hoLink to OLEexLinkStraight Send ComEndUpdateLink of hoLink h Send Destroy to hoLink Send Destroy to hoLinks Send ComEndBlockUndoRedo Send ComEndUpdate End_Procedure
80	Save the element's properties for Undo/Redo operations, by code Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Send Destroy to hoElements Send ComStartBlockUndoRedo Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Variant voElement Get ComAdd of hoElements1 "Item <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Variant h Get ComStartUpdateElement of hoElement to h Set ComBackColor of hoElement to (RGB(0,0,0)) Set ComForeColor of hoElement to (RGB(255,255,255)) Set ComBorderColor of hoElement to (RGB(255,0,0)) Send ComEndUpdateElement of hoElement h Send Destroy to hoElement Send Destroy to hoElements1 Send ComEndBlockUndoRedo Send ComEndUpdate End_Procedure
79	No color is restored for the element when Undo/Redo operation is executed Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Send Destroy to hoElements Send ComStartBlockUndoRedo Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Variant voElement Get ComAdd of hoElements1 "Item <b>2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Variant h Get ComStartUpdateElement of hoElement to h Set ComBackColor of hoElement to (RGB(0,0,0)) Set ComForeColor of hoElement to (RGB(255,255,255)) Set ComBorderColor of hoElement to (RGB(255,0,0)) Send ComEndUpdateElement of hoElement h Send Destroy to hoElement Send Destroy to hoElements1 Send ComEndBlockUndoRedo Send ComEndUpdate End_Procedure
78	How can I ensure that a specified element fits the surface's visible area Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" -100 Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Variant voPattern Get ComPattern of hoElement to voPattern Handle hoPattern Get Create (RefClass(cComPattern)) to hoPattern Set pvComObject of hoPattern to voPattern Set ComType of hoPattern to OLEexPatternBDiagonal Set ComColor of hoPattern to (RGB(224,224,224)) Send Destroy to hoPattern Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" 2000 Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Send ComEnsureVisible of hoElement1 Send Destroy to hoElement1 Send Destroy to hoElements End_Procedure
77	LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated // Notifies your application once the control's layout has been changed. Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation Forward Send OnComLayoutEndChanging llOperation Showln "LayoutEndChanging" llOperation End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
76	Turn on the Undo/Redo feature Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowUndoRedo to True Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Get ComAdd of hoPools -154 -82 244 122 to Nothing Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Item <b>1" -64 -64 to Nothing Get ComAdd of hoElements "Item <b>2" Nothing Nothing to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks Send ComEndUpdate End_Procedure
75	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) // A new element has been added to the surface. Procedure OnComAddElement Variant llElement Forward Send OnComAddElement llElement // Element.ShowCheckBox = True End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComImageSize to 32 Variant voStdFont Get ComFont to voStdFont Handle hoStdFont Get Create (RefClass(cComStdFont)) to hoStdFont Set pvComObject of hoStdFont to voStdFont Set ComSize of hoStdFont to 16 Send Destroy to hoStdFont Variant voStdFont1 Get ComContextMenuFont to voStdFont1 Handle hoStdFont1 Get Create (RefClass(cComStdFont)) to hoStdFont1 Set pvComObject of hoStdFont1 to voStdFont1 Set ComSize of hoStdFont1 to 16 Send Destroy to hoStdFont1 Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ; "RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==") Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ; "aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ; "VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing Send Destroy to hoAppearance Set ComBackground OLEexCheckBoxState0 to \|CI$1000000 Set ComBackground OLEexCheckBoxState1 to \|CI$2000000 Set ComBackground OLEexCheckBoxState2 to \|CI$3000000 Set ComBackground OLEexContextMenuSelBackColor to \|CI$4000000 Set ComBackground OLEexContextMenuSelForeColor to (RGB(1,0,0)) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element Check 2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComChecked of hoElement to OLEexChecked Set ComPictures of hoElement to "1,2" Send Destroy to hoElement Send Destroy to hoElements Send ComHome Send ComEndUpdate End_Procedure
74	ImageSize property on 16 (default) (specifies the size of control' icons) // A new element has been added to the surface. Procedure OnComAddElement Variant llElement Forward Send OnComAddElement llElement // Element.ShowCheckBox = True End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComImageSize to 16 Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==" Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element Check 2" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComChecked of hoElement to OLEexChecked Set ComPictures of hoElement to "1,2" Send Destroy to hoElement Send Destroy to hoElements Send ComHome Send ComEndUpdate End_Procedure
73	We want to have option to start/end connectors at the middle of each side of the elements Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComShowLinks to OLEexShowLinks Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
72	How can I determine the position the user clicks within the element's boundaries (Click event) // Occurs when the user presses and then releases the left mouse button over the control. Procedure OnComClick Forward Send OnComClick Variant e Get ComElementFromPoint -1 -1 to e Variant X Move -1 to X Variant Y Move -1 to Y Send ComPointToPosition X Y Showln e X Y End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element 1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element 2" 128 64 to Nothing Send Destroy to hoElements Send ComFitToClient Send ComEndUpdate End_Procedure
71	How can I determine the position the user clicks within the element's boundaries (MouseMove event) // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Variant e Get ComElementFromPoint llX llY to e Send ComPointToPosition llX llY Showln e llX llY End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element 1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element 2" 128 64 to Nothing Send Destroy to hoElements Send ComFitToClient Send ComEndUpdate End_Procedure
70	How can I convert the screen position (mouse) to surface position // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Showln "Point " llX llY Send ComPointToPosition llX llY Showln "Position " llX llY End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Send Destroy to hoLinks Send ComFitToClient Set ComAxisStyle to OLEexLinesSolid Set ComAxisColor to (RGB(128,128,128)) Send ComEndUpdate End_Procedure
69	Is is possible to show just the positive coordinates Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComCoord to (OLEexAllowPositiveOnly + OLEexCartesian) Set ComAxisColor to (RGB(128,128,128)) Set ComAxisStyle to (OLEexLinesThick + OLEexLinesDot) Set ComShowLinks to OLEexShowLinks Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
68	Cartesian coordinates (positive coordinates are shown top-right to the origin) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComCoord to OLEexCartesian Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
67	Default coordinates (positive coordinates are shown bottom-right to the origin) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComCoord to OLEexDefCoord Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Send Destroy to hoLinks Send ComFitToClient Send ComEndUpdate End_Procedure
66	Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>1" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>2" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>3" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Send Destroy to hoLinks Set ComZoom to 200 Send ComFitToClient Send ComEndUpdate End_Procedure
65	Does your control supports OLE Drag and Drop // Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur. Procedure OnComOLEDragDrop Variant llData Integer llEffect Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComOLEDragDrop llData llEffect llButton llShift llX llY Showln llData End_Procedure // Occurs when the OLEDrag method is called. Procedure OnComOLEStartDrag Variant llData Integer llAllowedEffects Forward Send OnComOLEStartDrag llData llAllowedEffects // Data.SetData("some data to drag") End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComOLEDropMode to OLEexOLEDropManual Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -250 -150 500 250 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 2 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 1 Send Destroy to hoLanes1 Send Destroy to hoLane1 Send Destroy to hoPool Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionSingleLine of hoElement to False Set ComAutoSize of hoElement to False Set ComX of hoElement to -125 Set ComY of hoElement to -105 Set ComWidth of hoElement to 256 Set ComHeight of hoElement to 56 Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComCaptionSingleLine of hoElement1 to False Set ComAutoSize of hoElement1 to False Set ComX of hoElement1 to -125 Set ComWidth of hoElement1 to 256 Set ComHeight of hoElement1 to 56 Send Destroy to hoElement1 Send Destroy to hoElements Send ComEndUpdate End_Procedure
64	Is it possible to disable customizing the path of a specified link Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Set ComColor of hoLink2 to (RGB(128,128,128)) Set ComAllowControlPoint of hoLink2 to OLEexNoControlPoint Send Destroy to hoLink2 Send Destroy to hoLinks Set ComZoom to 200 Send ComFitToClient Send ComEndUpdate End_Procedure
63	How do I let user customizes the link's path Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowLinkControlPoint to (\|CI$ffffff80 + OLEexAllowChangeTo + OLEexAllowChangeFrom + OLEexOrthoArrange + OLEexMiddleControlPoint + OLEexControlPoint + OLEexEndControlPoint + OLEexStartControlPoint) Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 164 64 to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 132 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComCustomPath of hoLink to "0.5,0.25,0.5,.75" Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 3 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 2 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComCustomPath of hoLink1 to "0.5,0.25,0.5,.75" Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 1 to vTo2 Send Destroy to hoElements6 Variant voLink2 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComShowLinkType of hoLink2 to OLEexLinkRound Set ComStartPos of hoLink2 to OLELeftAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Set ComZoom to 200 Send ComFitToClient Send ComEndUpdate End_Procedure
62	How can I generate a picture/image/graph from my diagram Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Variant voElement3 Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3 Handle hoElement3 Get Create (RefClass(cComElement)) to hoElement3 Set pvComObject of hoElement3 to voElement3 Set ComID of hoElement3 to "D" Send Destroy to hoElement3 Variant voElement4 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement4 Handle hoElement4 Get Create (RefClass(cComElement)) to hoElement4 Set pvComObject of hoElement4 to voElement4 Set ComID of hoElement4 to "E" Send Destroy to hoElement4 Variant voElement5 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement5 Handle hoElement5 Get Create (RefClass(cComElement)) to hoElement5 Set pvComObject of hoElement5 to voElement5 Set ComID of hoElement5 to "F" Send Destroy to hoElement5 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 "B" to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 "D" to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 "B" to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 "C" to vTo3 Send Destroy to hoElements8 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing Variant vFrom4 Variant voElements9 Get ComElements to voElements9 Handle hoElements9 Get Create (RefClass(cComElements)) to hoElements9 Set pvComObject of hoElements9 to voElements9 Get ComItem of hoElements9 "A" to vFrom4 Send Destroy to hoElements9 Variant vTo4 Variant voElements10 Get ComElements to voElements10 Handle hoElements10 Get Create (RefClass(cComElements)) to hoElements10 Set pvComObject of hoElements10 to voElements10 Get ComItem of hoElements10 "E" to vTo4 Send Destroy to hoElements10 Get ComAdd of hoLinks vFrom4 vTo4 Nothing to Nothing Variant vFrom5 Variant voElements11 Get ComElements to voElements11 Handle hoElements11 Get Create (RefClass(cComElements)) to hoElements11 Set pvComObject of hoElements11 to voElements11 Get ComItem of hoElements11 "A" to vFrom5 Send Destroy to hoElements11 Variant vTo5 Variant voElements12 Get ComElements to voElements12 Handle hoElements12 Get Create (RefClass(cComElements)) to hoElements12 Set pvComObject of hoElements12 to voElements12 Get ComItem of hoElements12 "F" to vTo5 Send Destroy to hoElements12 Get ComAdd of hoLinks vFrom5 vTo5 Nothing to Nothing Send Destroy to hoLinks Set ComDefArrange OLEexDefArrangeCompact to False Send ComArrange Nothing Variant var_CopyTo Get ComCopyTo "c:/temp/xtest.jpg" to var_CopyTo Showln "!!!check the file c:/temp/xtest.jpg!!!" End_Procedure
61	How can I generate a picture/image/graph from my diagram Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Variant voElement3 Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3 Handle hoElement3 Get Create (RefClass(cComElement)) to hoElement3 Set pvComObject of hoElement3 to voElement3 Set ComID of hoElement3 to "D" Send Destroy to hoElement3 Variant voElement4 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement4 Handle hoElement4 Get Create (RefClass(cComElement)) to hoElement4 Set pvComObject of hoElement4 to voElement4 Set ComID of hoElement4 to "E" Send Destroy to hoElement4 Variant voElement5 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement5 Handle hoElement5 Get Create (RefClass(cComElement)) to hoElement5 Set pvComObject of hoElement5 to voElement5 Set ComID of hoElement5 to "F" Send Destroy to hoElement5 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 "B" to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 "D" to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 "B" to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 "C" to vTo3 Send Destroy to hoElements8 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing Variant vFrom4 Variant voElements9 Get ComElements to voElements9 Handle hoElements9 Get Create (RefClass(cComElements)) to hoElements9 Set pvComObject of hoElements9 to voElements9 Get ComItem of hoElements9 "A" to vFrom4 Send Destroy to hoElements9 Variant vTo4 Variant voElements10 Get ComElements to voElements10 Handle hoElements10 Get Create (RefClass(cComElements)) to hoElements10 Set pvComObject of hoElements10 to voElements10 Get ComItem of hoElements10 "E" to vTo4 Send Destroy to hoElements10 Get ComAdd of hoLinks vFrom4 vTo4 Nothing to Nothing Variant vFrom5 Variant voElements11 Get ComElements to voElements11 Handle hoElements11 Get Create (RefClass(cComElements)) to hoElements11 Set pvComObject of hoElements11 to voElements11 Get ComItem of hoElements11 "A" to vFrom5 Send Destroy to hoElements11 Variant vTo5 Variant voElements12 Get ComElements to voElements12 Handle hoElements12 Get Create (RefClass(cComElements)) to hoElements12 Set pvComObject of hoElements12 to voElements12 Get ComItem of hoElements12 "F" to vTo5 Send Destroy to hoElements12 Get ComAdd of hoLinks vFrom5 vTo5 Nothing to Nothing Send Destroy to hoLinks Set ComDefArrange OLEexDefArrangeCompact to False Send ComArrange Nothing Handle hoPrint Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library Set ComPrintExt of hoPrint to (pvComObject(Self)) Get ComCopyTo of hoPrint "c:/temp/xtest.jpg" to Nothing Send Destroy to hoPrint Showln "!!!check the file c:/temp/xtest.jpg!!!" End_Procedure
60	How can I print the component Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing Variant voElement Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComAutoSize of hoElement to False Set ComHeight of hoElement to 32 Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComAutoSize of hoElement1 to False Set ComHeight of hoElement1 to 32 Send Destroy to hoElement1 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComStartPos of hoLink to OLECenterAlignment Set ComEndPos of hoLink to OLECenterAlignment Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 2 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 1 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComStartPos of hoLink1 to OLECenterAlignment Set ComEndPos of hoLink1 to OLECenterAlignment Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 4 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 4 to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 3 to vTo3 Send Destroy to hoElements8 Variant voLink2 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComStartPos of hoLink2 to OLELeftAlignment Set ComEndPos of hoLink2 to OLERightAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Handle hoPrint Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library Set ComPrintExt of hoPrint to (pvComObject(Self)) Send ComPreview of hoPrint Send Destroy to hoPrint End_Procedure
59	How can I show direct-links Procedure OnCreate Forward Send OnCreate Set ComShowLinksType to OLEexLinkDirect Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" 128 64 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" 128 -64 to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Send Destroy to hoLinks End_Procedure
58	How can I show straight-links Procedure OnCreate Forward Send OnCreate Set ComShowLinksType to OLEexLinkStraight Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" 128 64 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" 128 -64 to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Send Destroy to hoLinks End_Procedure
57	How can I show round-links Procedure OnCreate Forward Send OnCreate Set ComShowLinksType to OLEexLinkRound Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" 128 64 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" 128 -64 to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Send Destroy to hoLinks End_Procedure
56	I've tried to insert a "<br>" in the Caption property text and it just ignores it Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "caption" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionSingleLine of hoElement to False Set ComCaption of hoElement to "first caption<br>second caption<br>third caption" Send Destroy to hoElement Send Destroy to hoElements Send ComEndUpdate End_Procedure
55	How do I align the extra-caption Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "caption" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComCaptionAlign of hoElement to OLEexTopLeft Set ComAutoSize of hoElement to False Set ComWidth of hoElement to 128 Set ComHeight of hoElement to 64 Set ComExtraCaption of hoElement to "extra-caption" Set ComExtraCaptionAlign of hoElement to OLEexBottomRight Send Destroy to hoElement Send Destroy to hoElements Send ComEndUpdate End_Procedure
54	How can I add an extra caption Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "caption" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComExtraCaption of hoElement to "extra-caption" Send Destroy to hoElement Send Destroy to hoElements Send ComEndUpdate End_Procedure
53	I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowMoveNeighbors to OLEexMoveNeighborsHorizontally Set ComDefArrange OLEexDefArrangeDir to 1 Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 16 32 to Nothing Get ComAdd of hoElements "Element <sha ;;0>C" 128 0 to Nothing Send Destroy to hoElements Send ComEndUpdate End_Procedure
52	I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowMoveNeighbors to OLEexMoveNeighborsVertically Set ComDefArrange OLEexDefArrangeDX to 0 Set ComDefArrange OLEexDefArrangeDY to 0 Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 0 32 to Nothing Get ComAdd of hoElements "Element <sha ;;0>C" 0 64 to Nothing Send Destroy to hoElements Send ComEndUpdate End_Procedure
51	How do I enable the reserve-neighbors feature Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAllowMoveNeighbors to OLEexMoveNeighborsVertically Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 0 32 to Nothing Get ComAdd of hoElements "Element <sha ;;0>C" 0 64 to Nothing Send Destroy to hoElements Send ComEndUpdate End_Procedure
50	I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "Element A" Nothing Nothing to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComID of hoElement to "A" Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComID of hoElement1 to "B" Send Destroy to hoElement1 Variant voElement2 Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2 Handle hoElement2 Get Create (RefClass(cComElement)) to hoElement2 Set pvComObject of hoElement2 to voElement2 Set ComID of hoElement2 to "C" Send Destroy to hoElement2 Variant voElement3 Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3 Handle hoElement3 Get Create (RefClass(cComElement)) to hoElement3 Set pvComObject of hoElement3 to voElement3 Set ComID of hoElement3 to "D" Send Destroy to hoElement3 Variant voElement4 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement4 Handle hoElement4 Get Create (RefClass(cComElement)) to hoElement4 Set pvComObject of hoElement4 to voElement4 Set ComID of hoElement4 to "E" Send Destroy to hoElement4 Variant voElement5 Get ComAdd of hoElements "Element E" Nothing Nothing to voElement5 Handle hoElement5 Get Create (RefClass(cComElement)) to hoElement5 Set pvComObject of hoElement5 to voElement5 Set ComID of hoElement5 to "F" Send Destroy to hoElement5 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 "A" to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 "B" to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 "A" to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 "C" to vTo1 Send Destroy to hoElements4 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 "B" to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 "D" to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 "B" to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 "C" to vTo3 Send Destroy to hoElements8 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing Variant vFrom4 Variant voElements9 Get ComElements to voElements9 Handle hoElements9 Get Create (RefClass(cComElements)) to hoElements9 Set pvComObject of hoElements9 to voElements9 Get ComItem of hoElements9 "A" to vFrom4 Send Destroy to hoElements9 Variant vTo4 Variant voElements10 Get ComElements to voElements10 Handle hoElements10 Get Create (RefClass(cComElements)) to hoElements10 Set pvComObject of hoElements10 to voElements10 Get ComItem of hoElements10 "E" to vTo4 Send Destroy to hoElements10 Get ComAdd of hoLinks vFrom4 vTo4 Nothing to Nothing Variant vFrom5 Variant voElements11 Get ComElements to voElements11 Handle hoElements11 Get Create (RefClass(cComElements)) to hoElements11 Set pvComObject of hoElements11 to voElements11 Get ComItem of hoElements11 "A" to vFrom5 Send Destroy to hoElements11 Variant vTo5 Variant voElements12 Get ComElements to voElements12 Handle hoElements12 Get Create (RefClass(cComElements)) to hoElements12 Set pvComObject of hoElements12 to voElements12 Get ComItem of hoElements12 "F" to vTo5 Send Destroy to hoElements12 Get ComAdd of hoLinks vFrom5 vTo5 Nothing to Nothing Send Destroy to hoLinks Set ComDefArrange OLEexDefArrangeCompact to False Send ComArrange Nothing End_Procedure
49	How can I move an element to a specified lane/phase/pool Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefPoolHeaderCaptionFormat True to "<fgcolor 808080>Faza <off -4><b><font ;6>%i" Set ComDefPoolHeaderCaptionFormat False to "<fgcolor 808080>Culoar <off -4><b><font ;6>%i" Variant voPools Get ComPools to voPools Handle hoPools Get Create (RefClass(cComPools)) to hoPools Set pvComObject of hoPools to voPools Variant voPool Get ComAdd of hoPools -100 -100 250 180 to voPool Handle hoPool Get Create (RefClass(cComPool)) to hoPool Set pvComObject of hoPool to voPool Variant voLane Get ComLane of hoPool OLEexLaneHorizontal to voLane Handle hoLane Get Create (RefClass(cComLane)) to hoLane Set pvComObject of hoLane to voLane Variant voLanes Get ComChildren of hoLane to voLanes Handle hoLanes Get Create (RefClass(cComLanes)) to hoLanes Set pvComObject of hoLanes to voLanes Set ComCount of hoLanes to 3 Send Destroy to hoLanes Send Destroy to hoLane Variant voLane1 Get ComLane of hoPool OLEexLaneVertical to voLane1 Handle hoLane1 Get Create (RefClass(cComLane)) to hoLane1 Set pvComObject of hoLane1 to voLane1 Variant voLanes1 Get ComChildren of hoLane1 to voLanes1 Handle hoLanes1 Get Create (RefClass(cComLanes)) to hoLanes1 Set pvComObject of hoLanes1 to voLanes1 Set ComCount of hoLanes1 to 3 Send Destroy to hoLanes1 Send Destroy to hoLane1 Variant voLane2 Get ComLane of hoPool OLEexLaneVertical to voLane2 Handle hoLane2 Get Create (RefClass(cComLane)) to hoLane2 Set pvComObject of hoLane2 to voLane2 Variant voLanes2 Get ComChildren of hoLane2 to voLanes2 Handle hoLanes2 Get Create (RefClass(cComLanes)) to hoLanes2 Set pvComObject of hoLanes2 to voLanes2 Variant voLane3 Get ComItem of hoLanes2 1 to voLane3 Handle hoLane3 Get Create (RefClass(cComLane)) to hoLane3 Set pvComObject of hoLane3 to voLane3 Variant voHeaderLane Get ComHeader of hoLane3 to voHeaderLane Handle hoHeaderLane Get Create (RefClass(cComHeaderLane)) to hoHeaderLane Set pvComObject of hoHeaderLane to voHeaderLane Set ComCaption of hoHeaderLane to "<fgcolor FF0000><b>NEW" Send Destroy to hoHeaderLane Send Destroy to hoLane3 Send Destroy to hoLanes2 Send Destroy to hoLane2 Send Destroy to hoPool Send Destroy to hoPools Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Variant voElement Get ComAdd of hoElements "element 1" 200 200 to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComLaneID of hoElement True to "0:H.0,0:V.0" Send Destroy to hoElement Send Destroy to hoElements Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Variant voElement1 Get ComAdd of hoElements1 "element 2" 200 200 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComLaneID of hoElement1 True to "0:H.2,0:V.2" Send Destroy to hoElement1 Send Destroy to hoElements1 Send ComEndUpdate End_Procedure
48	Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2) // A new link has been added to the links collection. Procedure OnComAddLink Variant llLink Forward Send OnComAddLink llLink Move to Link End_Procedure Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 48 48 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Get ComAdd of hoLinks vFrom vTo Nothing to Nothing Send Destroy to hoLinks End_Procedure
47	Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1) Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 48 48 to Nothing Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComStartPos of hoLink to OLEDownAlignment Set ComEndPos of hoLink to OLEUpAlignment Send Destroy to hoLink Send Destroy to hoLinks End_Procedure
46	How do I enable the cross link support ( mixed ) Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing Variant voElement Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComAutoSize of hoElement to False Set ComHeight of hoElement to 32 Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComAutoSize of hoElement1 to False Set ComHeight of hoElement1 to 32 Send Destroy to hoElement1 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComStartPos of hoLink to OLECenterAlignment Set ComEndPos of hoLink to OLECenterAlignment Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 2 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 1 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComStartPos of hoLink1 to OLECenterAlignment Set ComEndPos of hoLink1 to OLECenterAlignment Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 4 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 4 to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 3 to vTo3 Send Destroy to hoElements8 Variant voLink2 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComStartPos of hoLink2 to OLELeftAlignment Set ComEndPos of hoLink2 to OLERightAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Set ComShowLinks to (OLEexShowCrossLinksMixt + OLEexShowExtendedLinks) End_Procedure
45	How do I enable the cross link support ( triangular ) Procedure OnCreate Forward Send OnCreate Variant voElements Get ComElements to voElements Handle hoElements Get Create (RefClass(cComElements)) to hoElements Set pvComObject of hoElements to voElements Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing Variant voElement Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement Handle hoElement Get Create (RefClass(cComElement)) to hoElement Set pvComObject of hoElement to voElement Set ComAutoSize of hoElement to False Set ComHeight of hoElement to 32 Send Destroy to hoElement Variant voElement1 Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1 Handle hoElement1 Get Create (RefClass(cComElement)) to hoElement1 Set pvComObject of hoElement1 to voElement1 Set ComAutoSize of hoElement1 to False Set ComHeight of hoElement1 to 32 Send Destroy to hoElement1 Send Destroy to hoElements Variant voLinks Get ComLinks to voLinks Handle hoLinks Get Create (RefClass(cComLinks)) to hoLinks Set pvComObject of hoLinks to voLinks Variant vFrom Variant voElements1 Get ComElements to voElements1 Handle hoElements1 Get Create (RefClass(cComElements)) to hoElements1 Set pvComObject of hoElements1 to voElements1 Get ComItem of hoElements1 1 to vFrom Send Destroy to hoElements1 Variant vTo Variant voElements2 Get ComElements to voElements2 Handle hoElements2 Get Create (RefClass(cComElements)) to hoElements2 Set pvComObject of hoElements2 to voElements2 Get ComItem of hoElements2 2 to vTo Send Destroy to hoElements2 Variant voLink Get ComAdd of hoLinks vFrom vTo Nothing to voLink Handle hoLink Get Create (RefClass(cComLink)) to hoLink Set pvComObject of hoLink to voLink Set ComStartPos of hoLink to OLECenterAlignment Set ComEndPos of hoLink to OLECenterAlignment Send Destroy to hoLink Variant vFrom1 Variant voElements3 Get ComElements to voElements3 Handle hoElements3 Get Create (RefClass(cComElements)) to hoElements3 Set pvComObject of hoElements3 to voElements3 Get ComItem of hoElements3 2 to vFrom1 Send Destroy to hoElements3 Variant vTo1 Variant voElements4 Get ComElements to voElements4 Handle hoElements4 Get Create (RefClass(cComElements)) to hoElements4 Set pvComObject of hoElements4 to voElements4 Get ComItem of hoElements4 1 to vTo1 Send Destroy to hoElements4 Variant voLink1 Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1 Handle hoLink1 Get Create (RefClass(cComLink)) to hoLink1 Set pvComObject of hoLink1 to voLink1 Set ComStartPos of hoLink1 to OLECenterAlignment Set ComEndPos of hoLink1 to OLECenterAlignment Send Destroy to hoLink1 Variant vFrom2 Variant voElements5 Get ComElements to voElements5 Handle hoElements5 Get Create (RefClass(cComElements)) to hoElements5 Set pvComObject of hoElements5 to voElements5 Get ComItem of hoElements5 3 to vFrom2 Send Destroy to hoElements5 Variant vTo2 Variant voElements6 Get ComElements to voElements6 Handle hoElements6 Get Create (RefClass(cComElements)) to hoElements6 Set pvComObject of hoElements6 to voElements6 Get ComItem of hoElements6 4 to vTo2 Send Destroy to hoElements6 Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing Variant vFrom3 Variant voElements7 Get ComElements to voElements7 Handle hoElements7 Get Create (RefClass(cComElements)) to hoElements7 Set pvComObject of hoElements7 to voElements7 Get ComItem of hoElements7 4 to vFrom3 Send Destroy to hoElements7 Variant vTo3 Variant voElements8 Get ComElements to voElements8 Handle hoElements8 Get Create (RefClass(cComElements)) to hoElements8 Set pvComObject of hoElements8 to voElements8 Get ComItem of hoElements8 3 to vTo3 Send Destroy to hoElements8 Variant voLink2 Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2 Handle hoLink2 Get Create (RefClass(cComLink)) to hoLink2 Set pvComObject of hoLink2 to voLink2 Set ComStartPos of hoLink2 to OLELeftAlignment Set ComEndPos of hoLink2 to OLERightAlignment Send Destroy to hoLink2 Send Destroy to hoLinks Set ComShowLinks to (OLEexShowCrossLinksTriangle + OLEexShowExtendedLinks) End_Procedure