|
153
|
Allow resizing the elements of the pool/lane/phase when the user resizes it by drag and drop, or, by holding the CTRL key, resize only the frame
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
oSwimLane.AllowPoolContentUpdate = 2
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2",64,0).Selected = true
var_Element = var_Elements.Add("Node <b>2",64,0)
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
|
|
152
|
Disable resizing the elements of the pool/lane/phase when the user resizes it by drag and drop
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
oSwimLane.AllowPoolContentUpdate = 0
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2",64,0).Selected = true
var_Element = var_Elements.Add("Node <b>2",64,0)
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
|
|
151
|
Generates a PDF document on a single A0 page with no margins
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single")
|
|
150
|
Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|6.93 in x 9.84 in||75%")
|
|
149
|
Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||3 x 2f")
|
|
148
|
Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2")
|
|
147
|
Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|8.50 in x 11.00 in||x 2")
|
|
146
|
Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||1 x")
|
|
145
|
Generates a PDF document on a single A4 page (default margins)
local oSwimLane,var_CopyTo,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||single")
|
|
144
|
Defines the colors, to display overlapping links
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
var_Elements.Add("Node <b>4",16,-48)
var_Elements.Add("Node <b>5",-1024,-48)
var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 545 /*exChangeColorOnOverlap | exShowCrossLinksRect | exShowExtendedLinks*/
oSwimLane.OverlapLinksColors = "red,orange"
oSwimLane.LinksColor = 0x808080
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = false
oSwimLane.EndUpdate()
|
|
143
|
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 2)
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
var_Elements.Add("Node <b>4",16,-48)
var_Elements.Add("Node <b>5",-1024,-48)
var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 673 /*exChangeColorOnOverlap | exPreventOverlapMixt | exShowCrossLinksRect | exShowExtendedLinks*/
oSwimLane.LinksColor = 0x808080
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = false
oSwimLane.EndUpdate()
|
|
142
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
var_Elements.Add("Node <b>4",16,-48)
var_Elements.Add("Node <b>5",-1024,-48)
var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 545 /*exChangeColorOnOverlap | exShowCrossLinksRect | exShowExtendedLinks*/
oSwimLane.LinksColor = 0x808080
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = false
oSwimLane.EndUpdate()
|
|
141
|
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 1)
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
var_Elements.Add("Node <b>4",16,-48)
var_Elements.Add("Node <b>5",-1024,-48)
var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 417 /*exPreventOverlap | exPreventOverlapMixt | exShowCrossLinksRect | exShowExtendedLinks*/
oSwimLane.LinksColor = 0x808080
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = false
oSwimLane.EndUpdate()
|
|
140
|
The exPreventOverlap flag adjusts the links to prevent them from overlapping the connected objects. The exPreventOverlap option calculates the path between A and B using the A* (A-star) pathfinding algorithm, which can be a time-consuming operation
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
var_Elements.Add("Node <b>4",16,-48)
var_Elements.Add("Node <b>5",-1024,-48)
var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 289 /*exPreventOverlap | exShowCrossLinksRect | exShowExtendedLinks*/
oSwimLane.LinksColor = 0x808080
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = false
oSwimLane.EndUpdate()
|
|
139
|
How can I replace or add an icon at runtime
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oSwimLane.ReplaceIcon("C:\images\favicon.ico",0)
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <img>1</img>",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
|
|
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.
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation))
return
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Right-Click the pool, element or the link to open its context menu, and change a property of it"
|
|
137
|
exContextMenuObject, The object's context menu is running. The user right-clicks an object on the surface, and it's context menu is shown. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation))
return
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Right-Click the pool, element or the link to open its context menu"
|
|
136
|
exMoveLane, The user moves/changes the position of the lane of the pool. The AllowMoveLane property specifies the keys combination to allow user to moves/changes the position the lane
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation))
return
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the lane's header to drag to a new position"
|
|
135
|
exResizeLane, The user resizes the lane of the pool. The AllowResizePoolHeader property specifies the keys combination to allow user to resize the header of the pool
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation))
return
local oSwimLane,var_Element,var_Elements,var_Lanes,var_Lanes1,var_Pool
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
// var_Pool.Lane(0).Children.Count = 2
var_Lanes = var_Pool.Lane(0).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes]
TemplateDef = var_Lanes
Template = [var_Lanes.Count = 2]
endwith
// var_Pool.Lane(1).Children.Count = 2
var_Lanes1 = var_Pool.Lane(1).Children
with (oSwimLane)
TemplateDef = [dim var_Lanes1]
TemplateDef = var_Lanes1
Template = [var_Lanes1.Count = 2]
endwith
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the pool's header to resize it"
|
|
134
|
exResizePoolHeader, the user resizes the header's pool from the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the pool's header to resize it"
|
|
133
|
exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click a pool and drag to reposition it"
|
|
132
|
exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Resize a pool"
|
|
131
|
exCreatePool, The user creates pools on the surface. The AllowCreatePool property specifies the keys combination to allow user to create pools on the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool"
|
|
130
|
exDesignMode, The user changes the surface's design mode. The exDesignMode operation occurs, when the user selects a new design-mode, from the control's toolbar.
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the Design Menu and select one of the options"
|
|
129
|
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = true
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Press CTRL+Z to Undo, CTRL+Y to Redo"
|
|
128
|
exLinkObjects, the user creates an element on the surface. The AllowLinkObjects property specifies the keys combination to allow user to link elements on the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.EndUpdate()
? "Hold SHIFT, click an element, and drag to another element to create a link between them"
|
|
127
|
exEditObject, the user edits the element's caption
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the control.
function nativeObject_Click()
/* ElementFromPoint(-1,-1).Edit(0) */
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click an element to edit its caption"
|
|
126
|
exCreateObject, the user creates an element on the surface. The AllowCreateObject property specifies the keys combination to allow user to create elements on the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Double-click on the surface and immediately drag to a new position to create an element"
|
|
125
|
exSelectNothing, the user clicks an empty zone of the surface. The AllowSelectNothing property specifies the keys combination to allow user to select nothing on the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation))
return
local oSwimLane,var_Element,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowSelectNothing = true
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
// var_Elements.Add("Node <b>2").Selected = true
var_Element = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.Selected = True]
endwith
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Select an element, and then click outside to select nothing"
|
|
124
|
exSelectElement, the user clicks the object to get it selected. The AllowSelectObject property specifies the keys combination to allow user to select the object
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it"
|
|
123
|
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Move an element"
|
|
122
|
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation))
return
local oSwimLane,var_Element,var_Element1,var_Element2,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
// var_Elements.Add("Node <b>1",-64,-64).AutoSize = false
var_Element = var_Elements.Add("Node <b>1",-64,-64)
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.AutoSize = False]
endwith
// var_Elements.Add("Node <b>2").AutoSize = false
var_Element1 = var_Elements.Add("Node <b>2")
with (oSwimLane)
TemplateDef = [dim var_Element1]
TemplateDef = var_Element1
Template = [var_Element1.AutoSize = False]
endwith
// var_Elements.Add("Node <b>3",64,-64).AutoSize = false
var_Element2 = var_Elements.Add("Node <b>3",64,-64)
with (oSwimLane)
TemplateDef = [dim var_Element2]
TemplateDef = var_Element2
Template = [var_Element2.AutoSize = False]
endwith
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Resize an element"
|
|
121
|
exSurfaceHome, the user clicks the Home button on the control's toolbar, so the surface is restored to original position. The Home method has the same effect
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the Home button"
|
|
120
|
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click and drag the surface to reposition it"
|
|
119
|
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation))
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click and drag the surface to reposition it"
|
|
118
|
FormatABC method formats the A,B,C values based on the giving expression and returns the result
local oSwimLane
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? Str(oSwimLane.FormatABC("value format ``",1000))
|
|
117
|
FreezeEvents(Freeze) method prevents firing any event. For instance, FreezeEvents(True) freezes the control's events, no no event is fired, until the FreezeEvents(False) is called
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
Event = class::nativeObject_Event
endwith
*/
// Notifies the application once the control fires an event.
function nativeObject_Event(EventID)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? Str(oSwimLane.EventParam(-2))
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.FreezeEvents(true)
? "No event is fired after FreezeEvents(True) call"
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 /*exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
|
|
116
|
The exAllowChangeFrom(0x20)/exAllowChangeTo(0x40) flag of LinkControlPointEnum type allows the user to adjust the link's from/to element by dragging and dropping the start control point (requires the exStartControlPoint/exEndControlPoint flag)
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(Operation)
? Str(oSwimLane.FocusLink.ID)
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(Operation)
? Str(oSwimLane.FocusLink.ID)
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 /*exAllowChangeTo | exAllowChangeFrom | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()
|
|
115
|
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(Operation)
? Str(oSwimLane.FocusLink)
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(Operation)
? Str(oSwimLane.FocusLink)
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 /*exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
|
|
114
|
Focus a link
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutEndChanging"
? Str(Operation)
return
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
LayoutStartChanging = class::nativeObject_LayoutStartChanging
endwith
*/
// Occurs when the control's layout is about to be changed.
function nativeObject_LayoutStartChanging(Operation)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? "LayoutStartChanging"
? Str(Operation)
return
local oSwimLane,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 /*exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Node <b>1",-64,-64)
var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()
|
|
113
|
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
oSwimLane.Template = [HTMLPicture("pic1") = "c:\exontrol\images\sun.png"] // oSwimLane.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
var_Element = oSwimLane.Elements.Add("<b>Element")
var_Element.PicturesAlign = 17
var_Element.CaptionAlign = 17
var_Element.Pictures = "pic1"
oSwimLane.EndUpdate()
|
|
112
|
Expandable-caption
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID, Options)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
? Str(AnchorID)
return
local oSwimLane,var_Element,var_Element1,var_Element2,var_Link
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
var_Element.ID = "Account"
var_Element.X = -256
var_Element.Y = -164
var_Element.CaptionSingleLine = 1
var_Element.CaptionAlign = 4 /*0x4 | */
var_Element1 = oSwimLane.Elements.Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
var_Element1.ID = "Person"
var_Element1.Y = -164
var_Element1.CaptionSingleLine = 1
var_Element2 = oSwimLane.Elements.Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
var_Element2.ID = "Student"
var_Element2.Y = -64
var_Element2.CaptionSingleLine = 1
var_Link = oSwimLane.Links.Add(oSwimLane.Elements.Item("Account"),oSwimLane.Elements.Item("Student"))
var_Link.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
|
|
111
|
Expandable-caption
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
var_Element.CaptionSingleLine = 1
|
|
110
|
Draws a frame arround the link's arrow
local oSwimLane,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
var_Link2.ArrowColor = 0xffffff
var_Link2.ArrowFrameColor = 0x0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
|
|
109
|
Draws a frame arround the arrow for all links
local oSwimLane,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
oSwimLane.LinksArrowSize = 8
oSwimLane.LinksArrowColor = 0xffffff
oSwimLane.LinksArrowFrameColor = 0x0
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
|
|
108
|
Change the size to display the arrow of the link
local oSwimLane,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
var_Link2.ArrowSize = 8
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
|
|
107
|
Change the size to display the arrows for all links
local oSwimLane,var_Elements,var_Link,var_Link1,var_Link2,var_Links
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 /*0xffffff80 | exAllowChangeTo | exAllowChangeFrom | exOrthoArrange | exMiddleControlPoint | exControlPoint | exEndControlPoint | exStartControlPoint*/
oSwimLane.LinksArrowSize = 8
var_Elements = oSwimLane.Elements
var_Elements.Add("Element <sha ;;0>A")
var_Elements.Add("Element <sha ;;0>B",164,64)
var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
// var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link]
TemplateDef = var_Link
Template = [var_Link.CustomPath = "0.5,0.25,0.5,.75"]
endwith
// var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
with (oSwimLane)
TemplateDef = [dim var_Link1]
TemplateDef = var_Link1
Template = [var_Link1.CustomPath = "0.5,0.25,0.5,.75"]
endwith
var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
var_Link2.ShowLinkType = 3
var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
|
|
106
|
Extends the caption on the element's width
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
var_Element.ID = "Account"
var_Element.X = -128
var_Element.CaptionSingleLine = 1
var_Element.AutoSize = false
var_Element.Width = 256
var_Element.Height = var_Element.AutoHeight
var_Element.CaptionAlign = 4 /*0x4 | */
|
|
105
|
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID, Options)
local var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Item("Account")
var_Element.Height = var_Element.AutoHeight
return
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
var_Element.ID = "Account"
var_Element.X = -128
var_Element.CaptionSingleLine = 1
var_Element.AutoSize = false
var_Element.Width = 256
var_Element.Height = var_Element.AutoHeight
var_Element.CaptionAlign = 4 /*0x4 | */
|
|
104
|
Fullfit the caption on the element's width
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
var_Element.CaptionSingleLine = 1
var_Element.BackColor = 0xf8f8f8
var_Element.AutoSize = false
var_Element.Width = 194
var_Element.Height = 76
var_Element.CaptionAlign = 4 /*0x4 | */
|
|
103
|
Wrap the caption by <br> or "\r\n" sequence only
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
var_Element.CaptionSingleLine = 1
var_Element.BackColor = 0xf8f8f8
|
|
102
|
Display a custom tooltip
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.ShowToolTip("new content","",null,"+8","+8")
return
local oSwimLane
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
|
|
101
|
Shows the tooltip of the object moved relative to its default position
/*
with (this.EXSWIMLANEACTIVEXCONTROL1.nativeObject)
MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button, Shift, X, Y)
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.ShowToolTip("<null>","<null>",null,"+8","+8")
return
local oSwimLane,var_Element
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
// oSwimLane.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
var_Element = oSwimLane.Elements.Add("Element with a Tooltip")
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."]
endwith
|