|
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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
.AllowPoolContentUpdate = 2
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2",64,0).Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
152
|
Disable resizing the elements of the pool/lane/phase when the user resizes it by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
.AllowPoolContentUpdate = 0
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2",64,0).Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
151
|
Generates a PDF document on a single A0 page with no margins
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single")
End With
End Function
</SCRIPT>
</BODY>
|
|
150
|
Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|6.93 in x 9.84 in||75%")
End With
End Function
</SCRIPT>
</BODY>
|
|
149
|
Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|||3 x 2f")
End With
End Function
</SCRIPT>
</BODY>
|
|
148
|
Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2")
End With
End Function
</SCRIPT>
</BODY>
|
|
147
|
Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|8.50 in x 11.00 in||x 2")
End With
End Function
</SCRIPT>
</BODY>
|
|
146
|
Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|||1 x")
End With
End Function
</SCRIPT>
</BODY>
|
|
145
|
Generates a PDF document on a single A4 page (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
var_CopyTo = .CopyTo("c:/temp/sample.pdf|||single")
End With
End Function
</SCRIPT>
</BODY>
|
|
144
|
Defines the colors, to display overlapping links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
.Add "Node <b>4",16,-48
.Add "Node <b>5",-1024,-48
.Add "Node <b>6",16,512
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
.ShowLinks = 545 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
.OverlapLinksColors = "red,orange"
.LinksColor = RGB(128,128,128)
.AxisStyle = -1
.ShowGridLines = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
.Add "Node <b>4",16,-48
.Add "Node <b>5",-1024,-48
.Add "Node <b>6",16,512
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
.ShowLinks = 673 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
.LinksColor = RGB(128,128,128)
.AxisStyle = -1
.ShowGridLines = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
142
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
.Add "Node <b>4",16,-48
.Add "Node <b>5",-1024,-48
.Add "Node <b>6",16,512
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
.ShowLinks = 545 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
.LinksColor = RGB(128,128,128)
.AxisStyle = -1
.ShowGridLines = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
.Add "Node <b>4",16,-48
.Add "Node <b>5",-1024,-48
.Add "Node <b>6",16,512
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
.ShowLinks = 417 ' ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
.LinksColor = RGB(128,128,128)
.AxisStyle = -1
.ShowGridLines = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
.Add "Node <b>4",16,-48
.Add "Node <b>5",-1024,-48
.Add "Node <b>6",16,512
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
.ShowLinks = 289 ' ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
.LinksColor = RGB(128,128,128)
.AxisStyle = -1
.ShowGridLines = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
139
|
How can I replace or add an icon at runtime

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon "C:\images\favicon.ico",0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <img>1</img>",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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.
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Right-Click the pool, element or the link to open its context menu, and change a property of it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Right-Click the pool, element or the link to open its context menu" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click the lane's header to drag to a new position" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowDesignHeader = 0
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
With .Pools.Add(-100,-100,250,160)
.Lane(0).Children.Count = 2
.Lane(1).Children.Count = 2
End With
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click the pool's header to resize it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
134
|
exResizePoolHeader, the user resizes the header's pool from the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click the pool's header to resize it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
133
|
exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click a pool and drag to reposition it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
132
|
exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Resize a pool" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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.
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click the Design Menu and select one of the options" )
End With
End Function
</SCRIPT>
</BODY>
|
|
129
|
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowUndoRedo = True
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Press CTRL+Z to Undo, CTRL+Y to Redo" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.EndUpdate
alert( "Hold SHIFT, click an element, and drag to another element to create a link between them" )
End With
End Function
</SCRIPT>
</BODY>
|
|
127
|
exEditObject, the user edits the element's caption
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_Click()
' ElementFromPoint(-1,-1).Edit(0)
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click an element to edit its caption" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Double-click on the surface and immediately drag to a new position to create an element" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowSelectNothing = True
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add("Node <b>2").Selected = True
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Select an element, and then click outside to select nothing" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to uns" & _
"elect it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
123
|
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Move an element" )
End With
End Function
</SCRIPT>
</BODY>
|
|
122
|
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add("Node <b>1",-64,-64).AutoSize = False
.Add("Node <b>2").AutoSize = False
.Add("Node <b>3",64,-64).AutoSize = False
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Resize an element" )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click the Home button" )
End With
End Function
</SCRIPT>
</BODY>
|
|
120
|
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click and drag the surface to reposition it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
119
|
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
alert( "Click and drag the surface to reposition it" )
End With
End Function
</SCRIPT>
</BODY>
|
|
118
|
FormatABC method formats the A,B,C values based on the giving expression and returns the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
alert( .FormatABC("value format ``",1000) )
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_Event(EventID)
With SwimLane1
alert( .EventParam(-2) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.FreezeEvents True
alert( "No event is fired after FreezeEvents(True) call" )
.BeginUpdate
.AllowLinkControlPoint = 3 ' LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( Operation )
alert( .FocusLink.ID )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( Operation )
alert( .FocusLink.ID )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
.Add "Node <b>3",64,-64
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.FocusLink = "L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
115
|
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( Operation )
alert( .FocusLink )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( Operation )
alert( .FocusLink )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 3 ' LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
114
|
Focus a link
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
With SwimLane1
alert( "LayoutEndChanging" )
alert( Operation )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
With SwimLane1
alert( "LayoutStartChanging" )
alert( Operation )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = 3 ' LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Node <b>1",-64,-64
.Add "Node <b>2"
End With
.Pools.Add -100,-100,250,160
.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
.FocusLink = "L1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
113
|
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
With .Elements.Add("<b>Element")
.PicturesAlign = 17
.CaptionAlign = 17
.Pictures = "pic1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
112
|
Expandable-caption

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AnchorClick(AnchorID, Options)
With SwimLane1
alert( AnchorID )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
"BA==>▲</a><br>+ withdraw(amount: Currency)")
.ID = "Account"
.X = -256
.Y = -164
.CaptionSingleLine = 1
.CaptionAlign = 4 ' &H4
End With
With .Elements.Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMw" & _
"AM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAA" & _
"EBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAH" & _
"AAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
.ID = "Person"
.Y = -164
.CaptionSingleLine = 1
End With
With .Elements.Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAE" & _
"CMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq" & _
"1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoA" & _
"MoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
.ID = "Student"
.Y = -64
.CaptionSingleLine = 1
End With
With .Links.Add(SwimLane1.Elements.Item("Account"),SwimLane1.Elements.Item("Student"))
.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
111
|
Expandable-caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
.CaptionSingleLine = 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
110
|
Draws a frame arround the link's arrow

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
.ArrowColor = RGB(255,255,255)
.ArrowFrameColor = RGB(0,0,0)
End With
End With
.FitToClient
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
109
|
Draws a frame arround the arrow for all links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
.LinksArrowSize = 8
.LinksArrowColor = RGB(255,255,255)
.LinksArrowFrameColor = RGB(0,0,0)
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
End With
End With
.FitToClient
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
108
|
Change the size to display the arrow of the link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
.ArrowSize = 8
End With
End With
.FitToClient
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
107
|
Change the size to display the arrows for all links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
.AllowLinkControlPoint = -1 ' &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
.LinksArrowSize = 8
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",164,64
.Add "Element <sha ;;0>B",0,132
End With
With .Links
.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
.ShowLinkType = 3
.StartPos = 0
End With
End With
.FitToClient
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
106
|
Extends the caption on the element's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
"BA==>▲</a><br>+ withdraw(amount: Currency)")
.ID = "Account"
.X = -128
.CaptionSingleLine = 1
.AutoSize = False
.Width = 256
.Height = .AutoHeight
.CaptionAlign = 4 ' &H4
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
105
|
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AnchorClick(AnchorID, Options)
With SwimLane1
With .Elements.Item("Account")
.Height = .AutoHeight
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
"BA==>▲</a><br>+ withdraw(amount: Currency)")
.ID = "Account"
.X = -128
.CaptionSingleLine = 1
.AutoSize = False
.Width = 256
.Height = .AutoHeight
.CaptionAlign = 4 ' &H4
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
104
|
Fullfit the caption on the element's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
.CaptionSingleLine = 1
.BackColor = RGB(248,248,248)
.AutoSize = False
.Width = 194
.Height = 76
.CaptionAlign = 4 ' &H4
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
103
|
Wrap the caption by <br> or "\r\n" sequence only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
.CaptionSingleLine = 1
.BackColor = RGB(248,248,248)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
102
|
Display a custom tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button, Shift, X, Y)
With SwimLane1
.ShowToolTip "new content","",,"+8","+8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
101
|
Shows the tooltip of the object moved relative to its default position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button, Shift, X, Y)
With SwimLane1
.ShowToolTip "<null>","<null>",,"+8","+8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
End With
End Function
</SCRIPT>
</BODY>
|