|
229
|
Fullfit the caption on the element's width
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSelectNothing to True
Set ComAllowEdit to OLEexDisallow
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComFixedWidth of hoNode to 256
Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
Set ComCaption of hoNode to "<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)"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
228
|
Break-wrap the caption (truncated)
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSelectNothing to True
Set ComAllowEdit to OLEexDisallow
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComFixedWidth of hoNode to 96
Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
Set ComCaption of hoNode to "<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)"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
227
|
Break-wrap the caption
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSelectNothing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
Set ComCaption of hoNode to "<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)"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
226
|
Wrap the caption by <br> or "\r\n" sequence only
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
Set ComCaption of hoNode to "This is a bit of long text is displayed on first line.<br>The second line."
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
225
|
Word-wrap the caption (specify the width to wrap)
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComWidth of hoNode to 96
Set ComCaptionSingleLine of hoNode to OLEexCaptionWordWrap
Set ComCaption of hoNode to "This is a bit of long text that should break into words."
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
224
|
Word-wrap the caption
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaptionSingleLine of hoNode to OLEexCaptionWordWrap
Set ComCaption of hoNode to "This is a bit of long text that should break into words."
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
223
|
Caption on a single line (truncated)
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaptionSingleLine of hoNode to OLEexCaptionSingleLine
Set ComCaption of hoNode to "This is a bit of long text that should be truncated."
Set ComFixedWidth of hoNode to 128
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
222
|
Caption on a single line
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaptionSingleLine of hoNode to OLEexCaptionSingleLine
Set ComCaption of hoNode to "This is a bit of long text that should not be broken."
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
221
|
Force hover-all feature
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScrollHoverAll to -1
End_Procedure
|
|
220
|
Disable hover-all feature (Windows 11 or greater)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScrollHoverAll to (RGB(1,0,0))
End_Procedure
|
|
219
|
Display a custom tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
|
|
218
|
Shows the tooltip of the object moved relative to its default position
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "<null>" "<null>" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers the node."
Send Destroy to hoNode
End_Procedure
|
|
217
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexNodeFrame to |CI$4000000
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComImage of hoNode1 to 2
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComImage of hoNode2 to 3
Send Destroy to hoNode2
Variant voNode3
Get ComAdd of hoNodes "Child <b>2</b>" "1235" Nothing Nothing to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Set ComExpanded of hoNode3 to False
Send Destroy to hoNode3
Get ComAdd of hoNodes "Sub 2" "1235" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
216
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexNodeFrame to |CI$4000000
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComImage of hoNode1 to 2
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComImage of hoNode2 to 3
Send Destroy to hoNode2
Variant voNode3
Get ComAdd of hoNodes "Child <b>2</b>" "1235" Nothing Nothing to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Set ComExpanded of hoNode3 to False
Send Destroy to hoNode3
Get ComAdd of hoNodes "Sub 2" "1235" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
215
|
Is it possible to show a percent/progress-bar associated with a node (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultNodePadding OLEexPaddingAll to 4
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 1<br>" "1234" "AK1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackgroundExt of hoNode to "none[(4,100%-22,100%-8,18)](bottom[4](left[10%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`10%`,align=0x11]])"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "Sub 2<br>" "1234" "AK2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComBackgroundExt of hoNode1 to "none[(4,100%-22,100%-8,18)](bottom[4](left[50%,back=RGB(0,255,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`,align=0x11]])"
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "Sub 3<br>" "1234" "AK3" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComBackgroundExt of hoNode2 to "none[(4,100%-22,100%-8,18)](bottom[4](left[100%,back=RGB(0,0,255)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`100%`,align=0x11]])"
Send Destroy to hoNode2
Variant voNode3
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Get ComAddGroup of hoNode3 "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode3
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Variant voNode4
Get ComItem of hoNodes1 "AK1" to voNode4
Handle hoNode4
Get Create (RefClass(cComNode)) to hoNode4
Set pvComObject of hoNode4 to voNode4
Set ComBackgroundExtValue of hoNode4 OLEexIndexExt3 OLEexClientExt to "25%"
Set ComBackgroundExtValue of hoNode4 OLEexIndexExt5 OLEexTextExt to (ComBackgroundExtValue(hoNode4,OLEexIndexExt3,OLEexClientExt))
Send Destroy to hoNode4
Send Destroy to hoNodes1
Send ComEndUpdate
End_Procedure
|
|
214
|
Is it possible to show a percent/progress-bar associated with a node (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 32
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Set ComPadding of hoFrame OLEexPaddingBottom to 20
Set ComBackgroundExt of hoFrame to "bottom[4](left[50%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`]"
Variant f1
Get ComIndex of hoFrame to f1
Send Destroy to hoFrame
Send Destroy to hoFrames
Variant voFrames1
Get ComFrames to voFrames1
Handle hoFrames1
Get Create (RefClass(cComFrames)) to hoFrames1
Set pvComObject of hoFrames1 to voFrames1
Variant voFrame1
Get ComItem of hoFrames1 f1 to voFrame1
Handle hoFrame1
Get Create (RefClass(cComFrame)) to hoFrame1
Set pvComObject of hoFrame1 to voFrame1
Set ComBackgroundExtValue of hoFrame1 OLEexIndexExt2 OLEexClientExt to "25%"
Set ComBackgroundExtValue of hoFrame1 OLEexIndexExt4 OLEexTextExt to (ComBackgroundExtValue(hoFrame1,OLEexIndexExt2,OLEexClientExt))
Send Destroy to hoFrame1
Send Destroy to hoFrames1
Variant voFrames2
Get ComFrames to voFrames2
Handle hoFrames2
Get Create (RefClass(cComFrames)) to hoFrames2
Set pvComObject of hoFrames2 to voFrames2
Variant voFrame2
Get ComAdd of hoFrames2 "AK2" to voFrame2
Handle hoFrame2
Get Create (RefClass(cComFrame)) to hoFrame2
Set pvComObject of hoFrame2 to voFrame2
Variant voPattern1
Get ComPattern of hoFrame2 to voPattern1
Handle hoPattern1
Get Create (RefClass(cComPattern)) to hoPattern1
Set pvComObject of hoPattern1 to voPattern1
Set ComType of hoPattern1 to OLEexPatternEmpty
Send Destroy to hoPattern1
Set ComPadding of hoFrame2 OLEexPaddingBottom to 20
Set ComBackgroundExt of hoFrame2 to "bottom[12](left[50%,back=RGB(255,0,0)]),none[(0,100%-12,100%,12),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`]"
Variant f2
Get ComIndex of hoFrame2 to f2
Send Destroy to hoFrame2
Send Destroy to hoFrames2
Variant voFrames3
Get ComFrames to voFrames3
Handle hoFrames3
Get Create (RefClass(cComFrames)) to hoFrames3
Set pvComObject of hoFrames3 to voFrames3
Variant voFrame3
Get ComItem of hoFrames3 f2 to voFrame3
Handle hoFrame3
Get Create (RefClass(cComFrame)) to hoFrame3
Set pvComObject of hoFrame3 to voFrame3
Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt2 OLEexClientExt to "75%"
Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt2 OLEexBackColorExt to 65280
Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt4 OLEexTextExt to (ComBackgroundExtValue(hoFrame3,OLEexIndexExt2,OLEexClientExt))
Send Destroy to hoFrame3
Send Destroy to hoFrames3
Send ComEndUpdate
End_Procedure
|
|
213
|
How can I display the node's caption on multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComWidthNode to 64
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of text that should break the line"
Send Destroy to hoNode
End_Procedure
|
|
212
|
Is it possible to show some text/caption on the frame's background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 32
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJBDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=" to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComPadding of hoFrame OLEexPaddingAll to 8
Set ComPadding of hoFrame OLEexPaddingBottom to 22
Set ComBackColor of hoFrame to |CI$1000000
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Set ComBackgroundExt of hoFrame to "top[4],left[4],right[4],client,bottom[4],bottom[16,back=0x01000000,text=`<sha ;;0>attention`,align=0x11]"
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
211
|
How can I draw the pattern with no frame
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 32
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComPadding of hoFrame OLEexPaddingAll to 8
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternCross
Set ComColor of hoPattern to (RGB(190,190,190))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
210
|
How can I show the frame with an EBN color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 32
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJBDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=" to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComPadding of hoFrame OLEexPaddingAll to 8
Set ComBackColor of hoFrame to |CI$1000000
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
209
|
How can I show the frame with an EBN color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 32
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 ("gBFLBCJwBAEHhEJAADhABDYGg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDEMw0AJCIyDFCAZBsHKPRoASQZUhmHIDTbIEBxfIMIRLE6PRhmGL4HjWOo0TLAdI0PJMBr3J4AKbfOJpfDSQZDRrTMyReDkNBBBKlY7rKoqRpCFYtDSJNoWVBIahhNiGbbiCQYfouFZdUpRV5VLTUVxbF6YZDvKZZZjmH48RpPUIyNS2FyxHDEIxyEALYACS5fTrCNZPVjgAY4fSqMToDDpKoSWp0QjlOS5jiyYoJZ7nWa2PDdUzXCC3LgADabThqdapcBAeqYHhORRRFSiYD4eAxYw2NaTUrSeS8JBmnmSIYlaOY6H2dwHC0CZWHSeobEmRpbGuOpeFsbhRmgS5/loAJtl4fg5E6b4LFEAwEEISgGhMGZQmocgZMWJA2AMEAxAgTYAlGEJZAkCgdngNYZAYEYYBGdRnk8CBUmqBZOhgZgagaYZIHYHoHmICIGCKCJhiOPgmgUIRTEYKgviKQpyC6C5jAiRgygyYxIlYNoNmOAp2DoM5jwEb8miIUhCCGJBCBIRoRmSCQmEqEpkkkNhOhOZQJBCBgjmUSB0zCSBnjYWoWmWSR2F6F5mAmBhihiZZpFyBoHGQc54n4PxPCOSJxDwZppkIb4cGcSZOHaHInwWeYdmeKZ2HyH5nCmNJxhqD5ZB4aIRg+E5kngOpOiOJoMiOKJaD6EokGkShChaJJpHoVoYiaaYqHaGQ6GiE5i1aJRyBSdA9A8M4QmQOJqiqMorisawKj7ggrEqRo1iyaxqmaOIumsc4OicPJqFkWhXDwIhjHiXQ3GwawikeMhsksLpOjKLQLDaUYzm0KxWlSNZtDMdpEDubAahIVw7A6Q4slYNYNFMXJXDWLhriKZ46G6S4um6OovAuNpxjubwrladI9m4O4SmAOptlgbhSDoMADECUAzmKIxDAWQZNBwGwJkIMIsDcDJDnCPBHA6RIxAwTwCkCcADiIUoHGUI4WioMhMhMIJKTeHIPCWSWUCcKJKnIfI3CqS4ykyPwykwcxMgMIZHg4TBuByFIOCOBJhDCDAjASRHB34RZRDQbQnEiUp0H0NxKlONJND8UpUHUQwPEAMBzlOBw6gaSB9HSXpXkuQpsjoL4LlKcxklmNhdh8apaHaTYjG6Wp2n2NxwlydwtlYLpYjWcx7F0EMYYuxsi4DaJsMoqQ1MuHKLkNowh4D8BuBEYo8QuBvAmMceInBDgdGQPITgnwWBbDgEUUw/g2jvD2O4XSdATDBC4wsUoiQwBYagEcJ41B6idC+F0arQQ3hjGuPYLorw0jbEsB0DIWxoAbA4OwHIvRuDmFiFAKYlBihZCoFQfA3gjiPc+J43g5V+BvFGOcfQXhXipHWJUHwGQmjgHuNocIEAiNHFCKgKAlACgBCQFESgfwfjTHoH0L4bxsj3H6H8R43R8h+A+J8do+h/gFA+MgKAfATChAcPcaA6xvgRAGEwNIDQQg0BMEQZAngJiiDsAUIAyALgDDAIQB4ggoA6AUEEDAKwCDgFoBkQYEA2BOGAHEGYAQDCUAEIAF4fgBANACCgEgxBICYAkOILQFQhDICuAsMIhAXiGCgLoDQQwMBrAYOEWgORDgQHYEsIQcQSgJDCBIDggAmAkDQAgYIFgRDEEQJACQEQTAlGIKgTIExxB0CiIkWITgUBFCQKUCoYhiBXEWEIIQIwEC4ESBAKA3AhgZHGEAIYCAogIn+FARIjQIiqBoMYXA3QNhjEIGwRwURfA5GOckDo4xaB5AiDESgQgGgYp6BAagAgwBjB4D8Q40B9AhCIBgQYkQJAqlQLkDoIwyCEEYJIKQPgkjJAyCkEo5BaCZAgHICgPhkA5AAIYMAEBngZGGDgHgBw4DsA+IMdAfBKgSFUFQZQuQugrDKIQVglgpC+CyMsDIaQWjlFoLkB4khKA7CUCFSAxwmChEoGEZAOADgAHgB0QYtBjiZBmCIMoTBs2uHMFwaImRph" + ;
"KDQE0HIrQahmGAHYTAgRhBfCYAkQgMxBhQlGCEYwYhnBAHCDkU4RByidCmJ4OozhMjZB2OcOg8ROizGcSgLIwgNBmHYAARATw/BBEMDAYQGAhhcHEKAEIphAjQC0AUII6ASgIFANQE04hdAdCEKgQoDROBTHwDAZKDQMBnHEDwBYoQ2AtnEMYDA6B6ggFGPQQ1YgdBNCQKkIoJRSg0E8JUKQ2gshLGGB0DYCw6BYCIEIGIEhg4JCoAoQIeAXCFG0HkJ4qR2g/FQFUAwosfiNCgOoHoRRUgVBcKUKg0BdhOCEKMAoexxAmAiMAGIogaCCDhccQIXAVCFCgLEK4ah+heFYBURwsQrBaGGFkdYJQ0CsGqKYWwVhdDLCuAIVoWQEiDCcKsYwBBA1zEmAkA4wB6AeEIGARQEQ1j1EAK8ewBhhBYB2A0MArEzixBsB4YoWBtgZDGMIFoewDi1L0EAEggBNhHEgIkWYQwkiBCEAUZANQ2D9FCBoWwghojaBWEkNI7QaipFoLYVw1AtDLCqGsIwrAQCzEGEIZoCBNgwCoJ0EArRbCwAUN4LY2w+hvHcAUYIuArgOHEEAFYaw3BKEgOsG4oAACAEAQEA==") to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComPadding of hoFrame OLEexPaddingAll to 8
Set ComBackColor of hoFrame to |CI$1000000
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
208
|
How can I show the frame with a solid color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComBackColor of hoFrame to (RGB(255,0,0))
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
207
|
Is it possible to enlarge/shrink the frame
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComShowOnBackground of hoFrame to False
Set ComPadding of hoFrame OLEexPaddingAll to -4
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
206
|
Is it possible to draw the frame in front, rather than showing it on the control's background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComShowOnBackground of hoFrame to False
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
205
|
How do I show or hide a frame
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComVisible of hoFrame to True
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
204
|
How can I display the frame arround the node itself
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" "GR1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Variant voNode2
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComKey of hoNode2 to "GR2"
Send Destroy to hoNode2
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "1234" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Variant voFrames1
Get ComFrames to voFrames1
Handle hoFrames1
Get Create (RefClass(cComFrames)) to hoFrames1
Set pvComObject of hoFrames1 to voFrames1
Variant voFrame1
Get ComAdd of hoFrames1 "GR2" to voFrame1
Handle hoFrame1
Get Create (RefClass(cComFrame)) to hoFrame1
Set pvComObject of hoFrame1 to voFrame1
Variant voPattern1
Get ComPattern of hoFrame1 to voPattern1
Handle hoPattern1
Get Create (RefClass(cComPattern)) to hoPattern1
Set pvComObject of hoPattern1 to voPattern1
Set ComType of hoPattern1 to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern1 to (RGB(190,190,190))
Set ComFrameColor of hoPattern1 to (RGB(128,128,128))
Send Destroy to hoPattern1
Send Destroy to hoFrame1
Send Destroy to hoFrames1
Send ComEndUpdate
End_Procedure
|
|
203
|
How can I display the frame arround group nodes only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" "GR1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Variant voNode2
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComKey of hoNode2 to "GR2"
Send Destroy to hoNode2
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "root" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComNodes of hoFrame to "GR1(group)"
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
202
|
How can I display the frame arround assistant nodes only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "root" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComNodes of hoFrame to "root(assistant)"
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
201
|
How can I display the frame arround child nodes only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "root" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComNodes of hoFrame to "root(child)"
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
200
|
How can I show the frame arround all child, assistant, group nodes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "root" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComNodes of hoFrame to "root(all)"
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
199
|
We need to visualy group nodes that have the same parent but also have other siblings. Is it anyway possible to draw an additional border around a group of nodes in this control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
Send Destroy to hoNode1
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "AK1,AK2" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
Set ComColor of hoPattern to (RGB(190,190,190))
Set ComFrameColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Send Destroy to hoFrame
Send Destroy to hoFrames
Send ComEndUpdate
End_Procedure
|
|
198
|
How can I draw a pattern on a node
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voFrames
Get ComFrames to voFrames
Handle hoFrames
Get Create (RefClass(cComFrames)) to hoFrames
Set pvComObject of hoFrames to voFrames
Variant voFrame
Get ComAdd of hoFrames "LB" to voFrame
Handle hoFrame
Get Create (RefClass(cComFrame)) to hoFrame
Set pvComObject of hoFrame to voFrame
Set ComPadding of hoFrame OLEexPaddingAll to -2
Variant voPattern
Get ComPattern of hoFrame to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternBDiagonal
Set ComColor of hoPattern to (RGB(128,128,128))
Send Destroy to hoPattern
Set ComShowOnBackground of hoFrame to False
Send Destroy to hoFrame
Send Destroy to hoFrames
End_Procedure
|
|
197
|
How do I use as a WBS control (WBS is a hierarchical and incremental decomposition of the project into phases, deliverables and work packages )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 ("gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGAUgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" + ;
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC") to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABEEMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIgdBINQTDCLYyiUBYJhAMYSAJCI4jBCAZRXEAaQIkKY4ZDKCY2QLIEgSFCETQlEAYZgkCB5UiGNIkQLSFDABJMBraDgSAApeoYVj4NZASANFB0bKcQAVDSOKRjeCacpOUpQRZLIyiLZVWQSGoYLahW4YQiKIJKRTXdhULQtLS5FaWZbte6LchqOAAYbOV6ynSeV6NUJNc5xVicBgrBKlI6nGxIJqaZpVYzPeQQTTUby5OyEbyADJ4DqEAKaUrZNoZfhkBhlNa2YguC4gAzudaUZhCOqABpWYYLDS/JSGCYJGDcOaVRZ0FJUVwPg8GZkkCcBQDGJw0HOJ5gECdRUi0dxXi2IJbG4Jp+huHpzH0GouF2eA+B4F4bkESwEEISgGhMGZQmocgZFQFAki4TIAAECBNgCUYQsaCgRjQdRjAYERhmIBB5gIQBwm2BROlOSgaDMIZCmoHoHmICIGB8MJiEOFgmD+IoIGEA4GA4aI0kSC5NliRJrgyYxIlYNoNkyGJkliDpPlidQDD2ZADBYQg6iQQ46EaEZkgkJhKhGTw5DSSITk4eRFAMNRlEMXhWDuZYJC4WoWmWA4+CYORMGmBQDguTBDg4Zg8GaA5CGqGpmkmNhuhuZoim4chAkuaZUmmHZPBgahoh6Z5JnYfofmGI5IjmIJnEmWh3D4D0nn+IpokmboBgeaBSnodw6E+I5YnOIBpgoZoaiaJ9IHOJAAAmVoSh2aRaF6G4pmqCBqh6KAqCkEJqD6TxzlKHosmsSpWjaExPEqZosh0apqkKMotmwCwCjkPQrjKeg0D8T4TlaQ4ymySw2k6LhPFsRpFDsLRDmCdw9i0GxmlqNptksdJ2jebBTjaYoQC0ex+maOZuguJppjkLBZByeI7m4S5GnKPJvEkApvD4Jwim6EY7i8C5Wn6P4vHuZoRhcT4cBad5BnCDAnAqO5wFOZwCigZxZiyepEnCXBXBaRZxgwFwTD6MJ6goaw+nETBnCKSIxjwdh1h6T5jm8IOuEyNwukuT4siie5JguaZsn+ShzAyZw6kyMJ4hCQ44g6U5/DeTI0E0FxGlGcojnMSgvDSSROFQOANnMfxCD+dItFcVpVnWDRbFOFxMH0dQDiATItgaZpUnUOJ3GaWZ2gOdxklCDQNjYX4KmEaYYmMM43EkP0d4tR3gbBKKgOwGgtjsFQGodQuxCAvAWFIMwnwGgcEyCYC4FRijxE4Gl0AnAuCOFWBUAABwth+AACAEBAQ=" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABI8IQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIklBI8ExXFqMQCkGKocgONYgTLOMZOXCEEwCgI=" to Nothing
Send Destroy to hoAppearance
Set ComAntiAliasing to True
Set ComIndentSiblingY to 4
Set ComShowRoundLink to True
Set ComPenLink to OLEexPenSolid
Set ComSelColor to (RGB(255,255,0))
Set ComHasButtons to OLEexPlus
Set ComDefaultNodePadding OLEexPaddingAll to 6
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "Constuction of a House"
Set ComBackColor of hoNode to |CI$1000000
Set ComForeColor of hoNode to (RGB(255,255,255))
Variant voNode1
Get ComAddAssistant of hoNode "<font ;6>Work:<r>100.00%<br>Budget:<r>$215,500.00" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLeft of hoNode1 to False
Set ComShowLinks of hoNode1 to False
Set ComPadding of hoNode1 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode1 to 72
Set ComBackColor of hoNode1 to |CI$2000000
Send Destroy to hoNode1
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode2
Get ComAdd of hoNodes "1. Internal" "Root" "Internal" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComArrangeSiblingNodesAs of hoNode2 to OLEexTree
Set ComShowRoundLink of hoNode2 to False
Set ComBackColor of hoNode2 to |CI$1ff0000
Set ComForeColor of hoNode2 to (RGB(255,255,255))
Variant voNode3
Get ComAddAssistant of hoNode2 "<font ;6>Work:<r>45.60%<br>Budget:<r>$86,500.00" Nothing Nothing to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Set ComLeft of hoNode3 to False
Set ComShowLinks of hoNode3 to False
Set ComPadding of hoNode3 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode3 to 72
Set ComBackColor of hoNode3 to |CI$2000000
Send Destroy to hoNode3
Send Destroy to hoNode2
Variant voNode4
Get ComAdd of hoNodes "1.1 Electrical" "Internal" "Electrical" Nothing Nothing to voNode4
Handle hoNode4
Get Create (RefClass(cComNode)) to hoNode4
Set pvComObject of hoNode4 to voNode4
Set ComShowRoundLink of hoNode4 to False
Set ComBackColor of hoNode4 to |CI$100ff00
Set ComForeColor of hoNode4 to (RGB(255,255,255))
Variant voNode5
Get ComAddAssistant of hoNode4 "<font ;6>Work:<r>11.80%<br>Budget:<r>$25,000.00" Nothing Nothing to voNode5
Handle hoNode5
Get Create (RefClass(cComNode)) to hoNode5
Set pvComObject of hoNode5 to voNode5
Set ComLeft of hoNode5 to False
Set ComShowLinks of hoNode5 to False
Set ComPadding of hoNode5 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode5 to 72
Set ComBackColor of hoNode5 to |CI$2000000
Send Destroy to hoNode5
Send Destroy to hoNode4
Variant voNode6
Get ComAdd of hoNodes "1.1.1 Rough-in electrical" "Electrical" "RoughElectrical" Nothing Nothing to voNode6
Handle hoNode6
Get Create (RefClass(cComNode)) to hoNode6
Set pvComObject of hoNode6 to voNode6
Set ComBackColor of hoNode6 to |CI$3000000
Set ComPadding of hoNode6 OLEexPaddingAll to 0
Variant voNode7
Get ComAddAssistant of hoNode6 "<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00" Nothing Nothing to voNode7
Handle hoNode7
Get Create (RefClass(cComNode)) to hoNode7
Set pvComObject of hoNode7 to voNode7
Set ComLeft of hoNode7 to False
Set ComShowLinks of hoNode7 to False
Set ComPadding of hoNode7 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode7 to 72
Set ComBackColor of hoNode7 to |CI$2000000
Send Destroy to hoNode7
Send Destroy to hoNode6
Variant voNode8
Get ComAdd of hoNodes "1.1.2 Install and Terminate" "Electrical" "InstallTerminate" Nothing Nothing to voNode8
Handle hoNode8
Get Create (RefClass(cComNode)) to hoNode8
Set pvComObject of hoNode8 to voNode8
Set ComBackColor of hoNode8 to |CI$3000000
Set ComPadding of hoNode8 OLEexPaddingAll to 0
Variant voNode9
Get ComAddAssistant of hoNode8 "<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00" Nothing Nothing to voNode9
Handle hoNode9
Get Create (RefClass(cComNode)) to hoNode9
Set pvComObject of hoNode9 to voNode9
Set ComLeft of hoNode9 to False
Set ComShowLinks of hoNode9 to False
Set ComPadding of hoNode9 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode9 to 72
Set ComBackColor of hoNode9 to |CI$2000000
Send Destroy to hoNode9
Send Destroy to hoNode8
Variant voNode10
Get ComAdd of hoNodes "1.1.3 HVAC Equipment" "Electrical" "HVAC" Nothing Nothing to voNode10
Handle hoNode10
Get Create (RefClass(cComNode)) to hoNode10
Set pvComObject of hoNode10 to voNode10
Set ComBackColor of hoNode10 to |CI$3000000
Set ComPadding of hoNode10 OLEexPaddingAll to 0
Variant voNode11
Get ComAddAssistant of hoNode10 "<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00" Nothing Nothing to voNode11
Handle hoNode11
Get Create (RefClass(cComNode)) to hoNode11
Set pvComObject of hoNode11 to voNode11
Set ComLeft of hoNode11 to False
Set ComShowLinks of hoNode11 to False
Set ComPadding of hoNode11 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode11 to 72
Set ComBackColor of hoNode11 to |CI$2000000
Send Destroy to hoNode11
Send Destroy to hoNode10
Variant voNode12
Get ComAdd of hoNodes "1.2 Plumbing" "Internal" "Plumbing" Nothing Nothing to voNode12
Handle hoNode12
Get Create (RefClass(cComNode)) to hoNode12
Set pvComObject of hoNode12 to voNode12
Set ComShowRoundLink of hoNode12 to False
Set ComBackColor of hoNode12 to |CI$100ff00
Set ComForeColor of hoNode12 to (RGB(255,255,255))
Variant voNode13
Get ComAddAssistant of hoNode12 "<font ;6>Work:<r>33.80%<br>Budget:<r>$61,000.00" Nothing Nothing to voNode13
Handle hoNode13
Get Create (RefClass(cComNode)) to hoNode13
Set pvComObject of hoNode13 to voNode13
Set ComLeft of hoNode13 to False
Set ComShowLinks of hoNode13 to False
Set ComPadding of hoNode13 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode13 to 72
Set ComBackColor of hoNode13 to |CI$2000000
Send Destroy to hoNode13
Send Destroy to hoNode12
Variant voNode14
Get ComAdd of hoNodes "1.2.1 Rough-in plumbing" "Plumbing" "RoughPlumbing" Nothing Nothing to voNode14
Handle hoNode14
Get Create (RefClass(cComNode)) to hoNode14
Set pvComObject of hoNode14 to voNode14
Set ComBackColor of hoNode14 to |CI$3000000
Set ComPadding of hoNode14 OLEexPaddingAll to 0
Variant voNode15
Get ComAddAssistant of hoNode14 "<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00" Nothing Nothing to voNode15
Handle hoNode15
Get Create (RefClass(cComNode)) to hoNode15
Set pvComObject of hoNode15 to voNode15
Set ComLeft of hoNode15 to False
Set ComShowLinks of hoNode15 to False
Set ComPadding of hoNode15 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode15 to 72
Set ComBackColor of hoNode15 to |CI$2000000
Send Destroy to hoNode15
Send Destroy to hoNode14
Variant voNode16
Get ComAdd of hoNodes "1.2.2 Set plumbing fixtures and trim" "Plumbing" "PlumbingFixtures" Nothing Nothing to voNode16
Handle hoNode16
Get Create (RefClass(cComNode)) to hoNode16
Set pvComObject of hoNode16 to voNode16
Set ComWidth of hoNode16 to 256
Set ComBackColor of hoNode16 to |CI$3000000
Set ComPadding of hoNode16 OLEexPaddingAll to 0
Variant voNode17
Get ComAddAssistant of hoNode16 "<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00" Nothing Nothing to voNode17
Handle hoNode17
Get Create (RefClass(cComNode)) to hoNode17
Set pvComObject of hoNode17 to voNode17
Set ComLeft of hoNode17 to False
Set ComShowLinks of hoNode17 to False
Set ComPadding of hoNode17 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode17 to 72
Set ComBackColor of hoNode17 to |CI$2000000
Send Destroy to hoNode17
Send Destroy to hoNode16
Variant voNode18
Get ComAdd of hoNodes "1.2.3 Test and clean" "Plumbing" "PlumbingTest" Nothing Nothing to voNode18
Handle hoNode18
Get Create (RefClass(cComNode)) to hoNode18
Set pvComObject of hoNode18 to voNode18
Set ComBackColor of hoNode18 to |CI$3000000
Set ComPadding of hoNode18 OLEexPaddingAll to 0
Variant voNode19
Get ComAddAssistant of hoNode18 "<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00" Nothing Nothing to voNode19
Handle hoNode19
Get Create (RefClass(cComNode)) to hoNode19
Set pvComObject of hoNode19 to voNode19
Set ComLeft of hoNode19 to False
Set ComShowLinks of hoNode19 to False
Set ComPadding of hoNode19 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode19 to 72
Set ComBackColor of hoNode19 to |CI$2000000
Send Destroy to hoNode19
Send Destroy to hoNode18
Variant voNode20
Get ComAdd of hoNodes "2. Foundation" "Root" "Foundation" Nothing Nothing to voNode20
Handle hoNode20
Get Create (RefClass(cComNode)) to hoNode20
Set pvComObject of hoNode20 to voNode20
Set ComArrangeSiblingNodesAs of hoNode20 to OLEexTree
Set ComShowRoundLink of hoNode20 to False
Set ComBackColor of hoNode20 to |CI$1ff0000
Set ComForeColor of hoNode20 to (RGB(255,255,255))
Variant voNode21
Get ComAddAssistant of hoNode20 "<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00" Nothing Nothing to voNode21
Handle hoNode21
Get Create (RefClass(cComNode)) to hoNode21
Set pvComObject of hoNode21 to voNode21
Set ComLeft of hoNode21 to False
Set ComShowLinks of hoNode21 to False
Set ComPadding of hoNode21 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode21 to 72
Set ComBackColor of hoNode21 to |CI$2000000
Send Destroy to hoNode21
Send Destroy to hoNode20
Variant voNode22
Get ComAdd of hoNodes "2.1 Excavate" "Foundation" "Excavate" Nothing Nothing to voNode22
Handle hoNode22
Get Create (RefClass(cComNode)) to hoNode22
Set pvComObject of hoNode22 to voNode22
Set ComShowRoundLink of hoNode22 to False
Set ComBackColor of hoNode22 to |CI$100ff00
Set ComForeColor of hoNode22 to (RGB(255,255,255))
Variant voNode23
Get ComAddAssistant of hoNode22 "<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00" Nothing Nothing to voNode23
Handle hoNode23
Get Create (RefClass(cComNode)) to hoNode23
Set pvComObject of hoNode23 to voNode23
Set ComLeft of hoNode23 to False
Set ComShowLinks of hoNode23 to False
Set ComPadding of hoNode23 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode23 to 72
Set ComBackColor of hoNode23 to |CI$2000000
Send Destroy to hoNode23
Send Destroy to hoNode22
Variant voNode24
Get ComAdd of hoNodes "2.1.1 Pour Concrete" "Excavate" "Concrete" Nothing Nothing to voNode24
Handle hoNode24
Get Create (RefClass(cComNode)) to hoNode24
Set pvComObject of hoNode24 to voNode24
Set ComBackColor of hoNode24 to |CI$3000000
Set ComPadding of hoNode24 OLEexPaddingAll to 0
Variant voNode25
Get ComAddAssistant of hoNode24 "<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00" Nothing Nothing to voNode25
Handle hoNode25
Get Create (RefClass(cComNode)) to hoNode25
Set pvComObject of hoNode25 to voNode25
Set ComLeft of hoNode25 to False
Set ComShowLinks of hoNode25 to False
Set ComPadding of hoNode25 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode25 to 72
Set ComBackColor of hoNode25 to |CI$2000000
Send Destroy to hoNode25
Send Destroy to hoNode24
Variant voNode26
Get ComAdd of hoNodes "2.1.2 Cure & Strip Forms" "Excavate" "CureForms" Nothing Nothing to voNode26
Handle hoNode26
Get Create (RefClass(cComNode)) to hoNode26
Set pvComObject of hoNode26 to voNode26
Set ComBackColor of hoNode26 to |CI$3000000
Set ComPadding of hoNode26 OLEexPaddingAll to 0
Variant voNode27
Get ComAddAssistant of hoNode26 "<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00" Nothing Nothing to voNode27
Handle hoNode27
Get Create (RefClass(cComNode)) to hoNode27
Set pvComObject of hoNode27 to voNode27
Set ComLeft of hoNode27 to False
Set ComShowLinks of hoNode27 to False
Set ComPadding of hoNode27 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode27 to 72
Set ComBackColor of hoNode27 to |CI$2000000
Send Destroy to hoNode27
Send Destroy to hoNode26
Variant voNode28
Get ComAdd of hoNodes "2.2 Steel Erection" "Foundation" "Steel" Nothing Nothing to voNode28
Handle hoNode28
Get Create (RefClass(cComNode)) to hoNode28
Set pvComObject of hoNode28 to voNode28
Set ComShowRoundLink of hoNode28 to False
Set ComBackColor of hoNode28 to |CI$100ff00
Set ComForeColor of hoNode28 to (RGB(255,255,255))
Variant voNode29
Get ComAddAssistant of hoNode28 "<font ;6>Work:<r>5.00%<br>Budget:<r>$9,000.00" Nothing Nothing to voNode29
Handle hoNode29
Get Create (RefClass(cComNode)) to hoNode29
Set pvComObject of hoNode29 to voNode29
Set ComLeft of hoNode29 to False
Set ComShowLinks of hoNode29 to False
Set ComPadding of hoNode29 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode29 to 72
Set ComBackColor of hoNode29 to |CI$2000000
Send Destroy to hoNode29
Send Destroy to hoNode28
Variant voNode30
Get ComAdd of hoNodes "2.2.1 Steel Columns" "Steel" "SteelColumns" Nothing Nothing to voNode30
Handle hoNode30
Get Create (RefClass(cComNode)) to hoNode30
Set pvComObject of hoNode30 to voNode30
Set ComBackColor of hoNode30 to |CI$3000000
Set ComPadding of hoNode30 OLEexPaddingAll to 0
Variant voNode31
Get ComAddAssistant of hoNode30 "<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00" Nothing Nothing to voNode31
Handle hoNode31
Get Create (RefClass(cComNode)) to hoNode31
Set pvComObject of hoNode31 to voNode31
Set ComLeft of hoNode31 to False
Set ComShowLinks of hoNode31 to False
Set ComPadding of hoNode31 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode31 to 72
Set ComBackColor of hoNode31 to |CI$2000000
Send Destroy to hoNode31
Send Destroy to hoNode30
Variant voNode32
Get ComAdd of hoNodes "2.2.2 Beams" "Steel" "Beams" Nothing Nothing to voNode32
Handle hoNode32
Get Create (RefClass(cComNode)) to hoNode32
Set pvComObject of hoNode32 to voNode32
Set ComWidth of hoNode32 to 256
Set ComBackColor of hoNode32 to |CI$3000000
Set ComPadding of hoNode32 OLEexPaddingAll to 0
Variant voNode33
Get ComAddAssistant of hoNode32 "<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode33
Handle hoNode33
Get Create (RefClass(cComNode)) to hoNode33
Set pvComObject of hoNode33 to voNode33
Set ComLeft of hoNode33 to False
Set ComShowLinks of hoNode33 to False
Set ComPadding of hoNode33 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode33 to 72
Set ComBackColor of hoNode33 to |CI$2000000
Send Destroy to hoNode33
Send Destroy to hoNode32
Variant voNode34
Get ComAdd of hoNodes "2.2.3 Joist" "Steel" "Joist" Nothing Nothing to voNode34
Handle hoNode34
Get Create (RefClass(cComNode)) to hoNode34
Set pvComObject of hoNode34 to voNode34
Set ComBackColor of hoNode34 to |CI$3000000
Set ComPadding of hoNode34 OLEexPaddingAll to 0
Variant voNode35
Get ComAddAssistant of hoNode34 "<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode35
Handle hoNode35
Get Create (RefClass(cComNode)) to hoNode35
Set pvComObject of hoNode35 to voNode35
Set ComLeft of hoNode35 to False
Set ComShowLinks of hoNode35 to False
Set ComPadding of hoNode35 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode35 to 72
Set ComBackColor of hoNode35 to |CI$2000000
Send Destroy to hoNode35
Send Destroy to hoNode34
Variant voNode36
Get ComAdd of hoNodes "3. External" "Root" "External" Nothing Nothing to voNode36
Handle hoNode36
Get Create (RefClass(cComNode)) to hoNode36
Set pvComObject of hoNode36 to voNode36
Set ComArrangeSiblingNodesAs of hoNode36 to OLEexTree
Set ComShowRoundLink of hoNode36 to False
Set ComBackColor of hoNode36 to |CI$1ff0000
Set ComForeColor of hoNode36 to (RGB(255,255,255))
Variant voNode37
Get ComAddAssistant of hoNode36 "<font ;6>Work:<r>30.40%<br>Budget:<r>$83,500.00" Nothing Nothing to voNode37
Handle hoNode37
Get Create (RefClass(cComNode)) to hoNode37
Set pvComObject of hoNode37 to voNode37
Set ComLeft of hoNode37 to False
Set ComShowLinks of hoNode37 to False
Set ComPadding of hoNode37 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode37 to 72
Set ComBackColor of hoNode37 to |CI$2000000
Send Destroy to hoNode37
Send Destroy to hoNode36
Variant voNode38
Get ComAdd of hoNodes "3.1 Masonry Work" "External" "Masonry" Nothing Nothing to voNode38
Handle hoNode38
Get Create (RefClass(cComNode)) to hoNode38
Set pvComObject of hoNode38 to voNode38
Set ComShowRoundLink of hoNode38 to False
Set ComBackColor of hoNode38 to |CI$100ff00
Set ComForeColor of hoNode38 to (RGB(255,255,255))
Variant voNode39
Get ComAddAssistant of hoNode38 "<font ;6>Work:<r>16.20%<br>Budget:<r>$16,000.00" Nothing Nothing to voNode39
Handle hoNode39
Get Create (RefClass(cComNode)) to hoNode39
Set pvComObject of hoNode39 to voNode39
Set ComLeft of hoNode39 to False
Set ComShowLinks of hoNode39 to False
Set ComPadding of hoNode39 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode39 to 72
Set ComBackColor of hoNode39 to |CI$2000000
Send Destroy to hoNode39
Send Destroy to hoNode38
Variant voNode40
Get ComAdd of hoNodes "3.1.1 Lay Masonry" "Masonry" "LayMasonry" Nothing Nothing to voNode40
Handle hoNode40
Get Create (RefClass(cComNode)) to hoNode40
Set pvComObject of hoNode40 to voNode40
Set ComBackColor of hoNode40 to |CI$3000000
Set ComPadding of hoNode40 OLEexPaddingAll to 0
Variant voNode41
Get ComAddAssistant of hoNode40 "<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00" Nothing Nothing to voNode41
Handle hoNode41
Get Create (RefClass(cComNode)) to hoNode41
Set pvComObject of hoNode41 to voNode41
Set ComLeft of hoNode41 to False
Set ComShowLinks of hoNode41 to False
Set ComPadding of hoNode41 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode41 to 72
Set ComBackColor of hoNode41 to |CI$2000000
Send Destroy to hoNode41
Send Destroy to hoNode40
Variant voNode42
Get ComAdd of hoNodes "3.1.2 Install roof drains" "Masonry" "RoofDrains" Nothing Nothing to voNode42
Handle hoNode42
Get Create (RefClass(cComNode)) to hoNode42
Set pvComObject of hoNode42 to voNode42
Set ComBackColor of hoNode42 to |CI$3000000
Set ComPadding of hoNode42 OLEexPaddingAll to 0
Variant voNode43
Get ComAddAssistant of hoNode42 "<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode43
Handle hoNode43
Get Create (RefClass(cComNode)) to hoNode43
Set pvComObject of hoNode43 to voNode43
Set ComLeft of hoNode43 to False
Set ComShowLinks of hoNode43 to False
Set ComPadding of hoNode43 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode43 to 72
Set ComBackColor of hoNode43 to |CI$2000000
Send Destroy to hoNode43
Send Destroy to hoNode42
Variant voNode44
Get ComAdd of hoNodes "3.1.3 Install tile in toilet rooms" "Masonry" "TileToiles" Nothing Nothing to voNode44
Handle hoNode44
Get Create (RefClass(cComNode)) to hoNode44
Set pvComObject of hoNode44 to voNode44
Set ComBackColor of hoNode44 to |CI$3000000
Set ComPadding of hoNode44 OLEexPaddingAll to 0
Variant voNode45
Get ComAddAssistant of hoNode44 "<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00" Nothing Nothing to voNode45
Handle hoNode45
Get Create (RefClass(cComNode)) to hoNode45
Set pvComObject of hoNode45 to voNode45
Set ComLeft of hoNode45 to False
Set ComShowLinks of hoNode45 to False
Set ComPadding of hoNode45 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode45 to 72
Set ComBackColor of hoNode45 to |CI$2000000
Send Destroy to hoNode45
Send Destroy to hoNode44
Variant voNode46
Get ComAdd of hoNodes "3.1.4 Roofing" "Masonry" "Roofing" Nothing Nothing to voNode46
Handle hoNode46
Get Create (RefClass(cComNode)) to hoNode46
Set pvComObject of hoNode46 to voNode46
Set ComBackColor of hoNode46 to |CI$3000000
Set ComPadding of hoNode46 OLEexPaddingAll to 0
Variant voNode47
Get ComAddAssistant of hoNode46 "<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00" Nothing Nothing to voNode47
Handle hoNode47
Get Create (RefClass(cComNode)) to hoNode47
Set pvComObject of hoNode47 to voNode47
Set ComLeft of hoNode47 to False
Set ComShowLinks of hoNode47 to False
Set ComPadding of hoNode47 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode47 to 72
Set ComBackColor of hoNode47 to |CI$2000000
Send Destroy to hoNode47
Send Destroy to hoNode46
Variant voNode48
Get ComAdd of hoNodes "3.2 Building Finishes" "External" "Building" Nothing Nothing to voNode48
Handle hoNode48
Get Create (RefClass(cComNode)) to hoNode48
Set pvComObject of hoNode48 to voNode48
Set ComShowRoundLink of hoNode48 to False
Set ComBackColor of hoNode48 to |CI$100ff00
Set ComForeColor of hoNode48 to (RGB(255,255,255))
Variant voNode49
Get ComAddAssistant of hoNode48 "<font ;6>Work:<r>14.20%<br>Budget:<r>$21,500.00" Nothing Nothing to voNode49
Handle hoNode49
Get Create (RefClass(cComNode)) to hoNode49
Set pvComObject of hoNode49 to voNode49
Set ComLeft of hoNode49 to False
Set ComShowLinks of hoNode49 to False
Set ComPadding of hoNode49 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode49 to 72
Set ComBackColor of hoNode49 to |CI$2000000
Send Destroy to hoNode49
Send Destroy to hoNode48
Variant voNode50
Get ComAdd of hoNodes "3.2.1 Paint Walls" "Building" "Paint" Nothing Nothing to voNode50
Handle hoNode50
Get Create (RefClass(cComNode)) to hoNode50
Set pvComObject of hoNode50 to voNode50
Set ComBackColor of hoNode50 to |CI$3000000
Set ComPadding of hoNode50 OLEexPaddingAll to 0
Variant voNode51
Get ComAddAssistant of hoNode50 "<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00" Nothing Nothing to voNode51
Handle hoNode51
Get Create (RefClass(cComNode)) to hoNode51
Set pvComObject of hoNode51 to voNode51
Set ComLeft of hoNode51 to False
Set ComShowLinks of hoNode51 to False
Set ComPadding of hoNode51 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode51 to 72
Set ComBackColor of hoNode51 to |CI$2000000
Send Destroy to hoNode51
Send Destroy to hoNode50
Variant voNode52
Get ComAdd of hoNodes "3.2.2 Ceiling Tiles" "Building" "CeilingTiles" Nothing Nothing to voNode52
Handle hoNode52
Get Create (RefClass(cComNode)) to hoNode52
Set pvComObject of hoNode52 to voNode52
Set ComWidth of hoNode52 to 256
Set ComBackColor of hoNode52 to |CI$3000000
Set ComPadding of hoNode52 OLEexPaddingAll to 0
Variant voNode53
Get ComAddAssistant of hoNode52 "<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00" Nothing Nothing to voNode53
Handle hoNode53
Get Create (RefClass(cComNode)) to hoNode53
Set pvComObject of hoNode53 to voNode53
Set ComLeft of hoNode53 to False
Set ComShowLinks of hoNode53 to False
Set ComPadding of hoNode53 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode53 to 72
Set ComBackColor of hoNode53 to |CI$2000000
Send Destroy to hoNode53
Send Destroy to hoNode52
Variant voNode54
Get ComAdd of hoNodes "3.2.3 Hang Wallpaper" "Building" "Wallpaper" Nothing Nothing to voNode54
Handle hoNode54
Get Create (RefClass(cComNode)) to hoNode54
Set pvComObject of hoNode54 to voNode54
Set ComBackColor of hoNode54 to |CI$3000000
Set ComPadding of hoNode54 OLEexPaddingAll to 0
Variant voNode55
Get ComAddAssistant of hoNode54 "<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00" Nothing Nothing to voNode55
Handle hoNode55
Get Create (RefClass(cComNode)) to hoNode55
Set pvComObject of hoNode55 to voNode55
Set ComLeft of hoNode55 to False
Set ComShowLinks of hoNode55 to False
Set ComPadding of hoNode55 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode55 to 72
Set ComBackColor of hoNode55 to |CI$2000000
Send Destroy to hoNode55
Send Destroy to hoNode54
Variant voNode56
Get ComAdd of hoNodes "3.2.4 Carpet" "Building" "Carpet" Nothing Nothing to voNode56
Handle hoNode56
Get Create (RefClass(cComNode)) to hoNode56
Set pvComObject of hoNode56 to voNode56
Set ComBackColor of hoNode56 to |CI$3000000
Set ComPadding of hoNode56 OLEexPaddingAll to 0
Variant voNode57
Get ComAddAssistant of hoNode56 "<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00" Nothing Nothing to voNode57
Handle hoNode57
Get Create (RefClass(cComNode)) to hoNode57
Set pvComObject of hoNode57 to voNode57
Set ComLeft of hoNode57 to False
Set ComShowLinks of hoNode57 to False
Set ComPadding of hoNode57 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode57 to 72
Set ComBackColor of hoNode57 to |CI$2000000
Send Destroy to hoNode57
Send Destroy to hoNode56
Variant voNode58
Get ComAdd of hoNodes "3.2.5 Hardware" "Building" "Hardware" Nothing Nothing to voNode58
Handle hoNode58
Get Create (RefClass(cComNode)) to hoNode58
Set pvComObject of hoNode58 to voNode58
Set ComBackColor of hoNode58 to |CI$3000000
Set ComPadding of hoNode58 OLEexPaddingAll to 0
Variant voNode59
Get ComAddAssistant of hoNode58 "<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode59
Handle hoNode59
Get Create (RefClass(cComNode)) to hoNode59
Set pvComObject of hoNode59 to voNode59
Set ComLeft of hoNode59 to False
Set ComShowLinks of hoNode59 to False
Set ComPadding of hoNode59 OLEexPaddingAll to 0
Set ComFixedWidth of hoNode59 to 72
Set ComBackColor of hoNode59 to |CI$2000000
Send Destroy to hoNode59
Send Destroy to hoNode58
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
196
|
Does your control support padding (padding properties are used to generate space around content)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1 A1" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackColor of hoNode to (RGB(255,0,0))
Set ComPadding of hoNode OLEexPaddingAll to 16
Send Destroy to hoNode
Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 B2" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Variant voNode1
Get ComItem of hoNodes1 "root" to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComCaption of hoNode1 to "Ls As"
Send Destroy to hoNode1
Send Destroy to hoNodes1
Send ComEndUpdate
End_Procedure
|
|
195
|
Does your control support padding (padding properties are used to generate space around content)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultNodePadding OLEexPaddingAll to 8
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1 A1" "LA" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 B2" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Variant voNode
Get ComItem of hoNodes1 "root" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "Ls As"
Send Destroy to hoNode
Send Destroy to hoNodes1
Send ComEndUpdate
End_Procedure
|
|
194
|
How do I programmatically edit a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Text" "1234" Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEditNode "1234"
End_Procedure
|
|
193
|
WidthNode does not seem to do anything. What this property is for
Procedure OnCreate
Forward Send OnCreate
Set ComWidthNode to 16
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1 A1" "LA" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2 B2" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Variant voNode
Get ComItem of hoNodes1 "root" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "Ls As"
Send Destroy to hoNode
Send Destroy to hoNodes1
End_Procedure
|
|
192
|
Does your control support Print and Print-Preview, such as Fit-To-Page
Procedure OnCreate
Forward Send OnCreate
Set ComFixedWidthNode to 512
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage = On"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
191
|
Does your control support Print and Print-Preview
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPrintExts of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
190
|
Does your control support subscript or superscript, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "<sha ;;0>Event <b><font ;6><off 4>1" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "<sha ;;0>Event <b><font ;6><off 4>2" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Event" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
189
|
Is it possible to move a node by a simple click rather than SHIFT + Click
Procedure OnCreate
Forward Send OnCreate
Set ComAllowMoveChart to OLEexDisallow
Set ComAllowMoveNode to OLEexLeftClick
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
188
|
How can I disable moving the nodes at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComAllowMoveNode to OLEexDisallow
End_Procedure
|
|
187
|
How can I disable resizing the chart using the middle mouse button
Procedure OnCreate
Forward Send OnCreate
Set ComAllowResizeChart to OLEexDisallow
End_Procedure
|
|
186
|
How can I disable inline editing
Procedure OnCreate
Forward Send OnCreate
Set ComAllowEdit to OLEexDisallow
End_Procedure
|
|
185
|
Would like to be able to click on a node and have a pop-up window appear with additional detail and information about the individual in the node. Is this possible
// Occurs when the user releases a mouse button.
Procedure OnComMouseUp Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseUp llButton llShift llX llY
// Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
Handle hoPopupMenu
Get Create (RefClass(cComPopupMenu)) to hoPopupMenu // Import the 'ExPopupMenu 1.0 Control Library' library
Showln (ComShowAtCursor(hoPopupMenu))
Send Destroy to hoPopupMenu
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
184
|
I am trying to create a hyperlink. I can get the link but I cannot tell the link where to go. What can I do
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "<a;http://www.exontrol.com>exontrol</a>" "1234" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
183
|
Is it possible to put a caption on the regular links
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkCaption of hoNode to "<fgcolor=FF0000><font ;6>caption<br><c><bgcolor=FFFFFF><a>link"
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
182
|
Is it possible to hide directions for specific links
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComShowLinkDir of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
181
|
Does your control supports multiple lines tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComToolTipDelay to 1
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComToolTip of hoNode to "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
Send Destroy to hoNode
End_Procedure
|
|
180
|
Can I change the border's node, using your EBN technology, including specifying a color
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line.<br>-using no color"
Set ComBackColor of hoNode to |CI$1000000
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComCaption of hoNode1 to "This is a bit of long text that should break the line.<br>-using a color"
Set ComBackColor of hoNode1 to |CI$100ff00
Send Destroy to hoNode1
Send Destroy to hoNodes
End_Procedure
|
|
179
|
Can the chart be arranged from the left to right (LTR)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to OLEexLayoutLTR
Set ComShowLinksDir to True
Set ComIndentSiblingX to 32
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child1" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child2" "1235" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Send Destroy to hoNode
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
178
|
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPictureHeightNode to 48
Set ComPictureAspectRatioNode to OLEexAspectRatioHeight
Set ComFixedWidthNode to 82
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "PNG <b>1" "0" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\card.png"
Set ComAlignment of hoNode to OLECenterAlignment
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
Set ComAlignment of hoNode1 to OLECenterAlignment
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
Set ComAlignment of hoNode2 to OLECenterAlignment
Send Destroy to hoNode2
Send Destroy to hoNodes
Variant voNode3
Get ComRoot to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Set ComAlignment of hoNode3 to OLECenterAlignment
Send Destroy to hoNode3
Send ComEndUpdate
End_Procedure
|
|
177
|
Is there any property to keep the aspect ratio for all pictures
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPictureHeightNode to 48
Set ComPictureAspectRatioNode to OLEexAspectRatioHeight
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "PNG <b>1" "0" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\card.png"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
Send Destroy to hoNode2
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
176
|
Is there any property to keep the aspect ratio for all pictures
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPictureWidthNode to 48
Set ComPictureAspectRatioNode to OLEexAspectRatioWidth
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "PNG <b>1" "0" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\card.png"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
Send Destroy to hoNode2
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
175
|
Is there any property to keep the aspect ratio for displayed picture
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Ratio/None" "0" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\card.png"
Set ComPictureWidth of hoNode to 48
Set ComPictureHeight of hoNode to 48
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "Ratio/Width" "1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\card.png"
Set ComPictureWidth of hoNode1 to 48
Set ComPictureAspectRatio of hoNode1 to OLEexAspectRatioWidth
Send Destroy to hoNode1
Variant voNode2
Get ComAdd of hoNodes "Ratio/Height" "2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComPicture of hoNode2 to "c:\exontrol\images\card.png"
Set ComPictureHeight of hoNode2 to 48
Set ComPictureAspectRatio of hoNode2 to OLEexAspectRatioHeight
Send Destroy to hoNode2
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
174
|
Is is possible to show the round an arbitrary link
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Set ComShowLinksDir to False
Set ComPenWidthLink to 1
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LB,LB22"
Set ComLinkToColor of hoNode1 "LB" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LB" to 2
Set ComLinkToPen of hoNode1 "LB" to OLEexPenDot
Set ComLinkToShowDir of hoNode1 "LB" to True
Set ComLinkToRound of hoNode1 "LB" to True
Set ComLinkToRound of hoNode1 "LB22" to True
Set ComLinkToShowDir of hoNode1 "LB22" to True
Set ComLinkToColor of hoNode1 "LB22" to (RGB(128,0,0))
Set ComLinkToWidth of hoNode1 "LB22" to 2
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
173
|
Is is possible to show the round an arbitrary link
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Set ComShowLinksDir to False
Set ComPenWidthLink to 1
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LB"
Set ComLinkToColor of hoNode1 "LB" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LB" to 2
Set ComLinkToPen of hoNode1 "LB" to OLEexPenDot
Set ComLinkToShowDir of hoNode1 "LB" to True
Set ComLinkToRound of hoNode1 "LB" to True
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
172
|
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False
Procedure OnCreate
Forward Send OnCreate
Set ComShowLinksDir to False
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LA2"
Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LA2" to 2
Set ComLinkToPen of hoNode1 "LA2" to OLEexPenDashDot
Set ComLinkToShowDir of hoNode1 "LA2" to True
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
171
|
Is is possible to change the width for a specified linkto line
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LA2"
Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LA2" to 4
Set ComLinkToPen of hoNode1 "LA2" to OLEexPenSolid
Set ComLinkToCaption of hoNode1 "LA2" to "L2A-L1B"
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
170
|
Is is possible to change the width for a specified linkto line
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LA2"
Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LA2" to 2
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
169
|
Is is possible to change the color for a specified linkto line
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LB"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LA2"
Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
Set ComLinkToWidth of hoNode1 "LA2" to 2
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
168
|
How can I specify the size for a picture being shown in a specified node only
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child 1" "1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\zipdisk.gif"
Set ComPictureWidth of hoNode to 64
Set ComPictureHeight of hoNode to 64
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\auction.gif"
Send Destroy to hoNode1
Send Destroy to hoNodes
End_Procedure
|
|
167
|
How can I resize the pictures being shown in the nodes
Procedure OnCreate
Forward Send OnCreate
Set ComPictureHeightNode to 24
Set ComPictureWidthNode to 24
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child 1" "1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPicture of hoNode to "c:\exontrol\images\zipdisk.gif"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComPicture of hoNode1 to "c:\exontrol\images\auction.gif"
Send Destroy to hoNode1
Send Destroy to hoNodes
End_Procedure
|
|
166
|
Can I change the width of the node's border
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child 1" "1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBorderWidth of hoNode to 3
Set ComDrawRoundNode of hoNode to False
Send Destroy to hoNode
Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
165
|
Can I change the visual appearance of the node
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child 1" "1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackColor of hoNode to |CI$1000000
Send Destroy to hoNode
Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
164
|
Can I specify a different color for node's border
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child 1" "1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBorderColor of hoNode to (RGB(255,0,0))
Send Destroy to hoNode
Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
163
|
Can I display my image on my links
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\colorize.gif"
Set ComAntiAliasing to True
Set ComIndentSiblingY to 30
Set ComIndentSiblingX to 60
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Set ComLinkToCaption of hoNode "LA2" to "<img>pic1</img> text"
Send Destroy to hoNode
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
162
|
How can I show a caption on my link
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Set ComLinkToCaption of hoNode "LA2" to "text"
Send Destroy to hoNode
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
161
|
How can I show smootly the arrows
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LB"
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
160
|
How can I show direction on my links
Procedure OnCreate
Forward Send OnCreate
Set ComIndentSiblingY to 30
Set ComShowLinksDir to True
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Set ComAntiAliasing to True
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LB"
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
159
|
How can I add a doubled direction link
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Send Destroy to hoNode
Variant voNode1
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "LB"
Send Destroy to hoNode1
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
158
|
How can I add arbitrary links
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComLinkTo of hoNode to "LA2"
Send Destroy to hoNode
Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
157
|
How can I add multiple parents
Procedure OnCreate
Forward Send OnCreate
Set ComPenWidthLink to 2
Set ComLinkColor to (RGB(0,0,0))
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "L1_A" "L1" Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComAddGroup of hoNode "L1_B" Nothing Nothing to Nothing
Send Destroy to hoNode
Get ComAdd of hoNodes "L_A" "L1" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "L_B" "L1" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "L_C" "L1" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
156
|
How can I add multiple parents or roots
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHasButtons to OLEexWPlus
Set ComButtonsAlign to OLEUpperCenter
Set ComPenWidthLink to 3
Set ComIndentChild to 32
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComHasButton of hoNode to False
Set ComCaption of hoNode to "<r><dotline><b>Root 1</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3"
Set ComImage of hoNode to 0
Get ComAddGroup of hoNode "<r><dotline><b>Root 2</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" Nothing Nothing to Nothing
Get ComAddGroup of hoNode "<r><dotline><b>Root 3</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" Nothing Nothing to Nothing
Variant voNode1
Get ComAddAssistant of hoNode "<b>Assistant</b> <a1>node 1</a>" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComKey of hoNode1 to "A"
Send Destroy to hoNode1
Variant voNode2
Get ComAddAssistant of hoNode "<b>Assistant</b> <a2>node 2</a>" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComLeft of hoNode2 to True
Set ComShowLinks of hoNode2 to False
Set ComLinkTo of hoNode2 to "A"
Send Destroy to hoNode2
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode3
Get ComAdd of hoNodes "Parent <b>1</b>" "Key1" Nothing Nothing to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Set ComHasButton of hoNode3 to False
Set ComArrangeSiblingNodesAs of hoNode3 to OLEexTree
Set ComShowRoundLink of hoNode3 to True
Get ComAddGroup of hoNode3 "Parent <b>2</b>" Nothing Nothing to Nothing
Get ComAddGroup of hoNode3 "Parent <b>3</b>" Nothing Nothing to Nothing
Send Destroy to hoNode3
Variant voNode4
Get ComAdd of hoNodes "SubItem 1" "Key1" "S1" Nothing Nothing to voNode4
Handle hoNode4
Get Create (RefClass(cComNode)) to hoNode4
Set pvComObject of hoNode4 to voNode4
Set ComHasButton of hoNode4 to False
Send Destroy to hoNode4
Get ComAdd of hoNodes "SubItem 1.1" "S1" "S111" Nothing Nothing to Nothing
Get ComAdd of hoNodes "SubItem 1.2" "S1" "S112" Nothing Nothing to Nothing
Get ComAdd of hoNodes "SubItem 2" "Key1" Nothing Nothing Nothing to Nothing
Variant voNode5
Get ComAdd of hoNodes "Item 2" "Key2" Nothing Nothing to voNode5
Handle hoNode5
Get Create (RefClass(cComNode)) to hoNode5
Set pvComObject of hoNode5 to voNode5
Set ComExpanded of hoNode5 to False
Send Destroy to hoNode5
Get ComAdd of hoNodes "SubItem 1" "Key2" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "SubItem 2" "Key2" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
155
|
How can I align the text/caption on the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
Set ComFixedWidthNode to 320
End_Procedure
|
|
154
|
How can I show round links
Procedure OnCreate
Forward Send OnCreate
Set ComShowRoundLink to True
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Send Destroy to hoNode
Set ComIndentSiblingX to 32
Set ComIndentSiblingY to 64
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode1
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComArrangeSiblingNodesAs of hoNode1 to OLEexHorizontally
Send Destroy to hoNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
153
|
How do I access a node by its key
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Variant voNode
Get ComItem of hoNodes1 "SC1" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackColor of hoNode to (RGB(255,0,0))
Send Destroy to hoNode
Send Destroy to hoNodes1
End_Procedure
|
|
152
|
How can I get the number of nodes
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
Send ComRemove of hoNodes 3
Send Destroy to hoNodes
End_Procedure
|
|
151
|
How can I remove all nodes in the chart
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Send ComClear of hoNodes
Send Destroy to hoNodes
End_Procedure
|
|
150
|
How can I clear the chart
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Send ComClear of hoNodes
Send Destroy to hoNodes
End_Procedure
|
|
149
|
How can I get the number of nodes
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes (ComCount(hoNodes)) Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
148
|
How can I add a child node
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
147
|
How can I add a child node
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child 2" "C2" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
146
|
How can I draw link or a line between my own nodes
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Set ComPenLink to OLEexPenSolid
Set ComPenWidthLink to 3
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode1
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLinkTo of hoNode1 to "AA"
Send Destroy to hoNode1
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" "AA" Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
145
|
How can I show or hide the link or a line between nodes
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode1
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComShowLinks of hoNode1 to False
Send Destroy to hoNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
144
|
How can I hide or show the +/- expand/collapse buttons for a specified node
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode1
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComHasButton of hoNode1 to False
Send Destroy to hoNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
143
|
How can I expand or collapse a node
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexPlus
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode1
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComExpanded of hoNode1 to False
Send Destroy to hoNode1
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
142
|
How can I assign an icon to the root node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Send Destroy to hoNode
End_Procedure
|
|
141
|
How can I access an assistant nodes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Variant voNode1
Get ComAssistant of hoNode 0 to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComImage of hoNode1 to 1
Send Destroy to hoNode1
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
140
|
How can I get the number or count of assistant nodes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode (ComCountAssistants(hoNode)) Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
139
|
How can I display assistant nodes on the right side only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Variant voNode1
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLeft of hoNode1 to False
Send Destroy to hoNode1
Variant voNode2
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComLeft of hoNode2 to False
Send Destroy to hoNode2
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
138
|
How can I display assistant nodes on the left side only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Variant voNode1
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Set ComLeft of hoNode1 to True
Send Destroy to hoNode1
Variant voNode2
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Set ComLeft of hoNode2 to True
Send Destroy to hoNode2
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
137
|
How can I clear or remove all assistant nodes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send ComClearAssistants of hoNode
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
Send ComEndUpdate
End_Procedure
|
|
136
|
How can I remove an assistant node
Procedure OnCreate
Forward Send OnCreate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send ComRemoveAssistant of hoNode 0
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
135
|
How can I add assistant node
Procedure OnCreate
Forward Send OnCreate
Variant voNode
Get ComRoot to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 0
Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
Send Destroy to hoNode
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
134
|
Can I change the border's node, using your EBN technology
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComBackColor of hoNode to |CI$1000000
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
133
|
Can I remove the shadow for a specified node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComShadowNode of hoNode to False
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
132
|
Can I change the border for a specified node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComPenBorderNode of hoNode to OLEexPenDashDotDot
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
131
|
Can I remove the round corner for a specified node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComDrawRoundNode of hoNode to False
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
130
|
How can I disable or enable a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComEnabled of hoNode to False
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
129
|
How can I specify the height of the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComFixedHeight of hoNode to 128
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
128
|
How can I specify the width of the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComFixedWidth of hoNode to 128
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
127
|
How can I specify the width of the node to wrap it's content
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "This is a bit of long text that should break the line."
Set ComWidth of hoNode to 128
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
126
|
How can I change the position of the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Variant voNode
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComPosition of hoNode to 0
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
125
|
How can I count or get the number of child nodes
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Variant vCaption
Variant voNode
Get ComItem of hoNodes "1234" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Get ComNodeCount of hoNode to vCaption
Send Destroy to hoNode
Get ComAdd of hoNodes vCaption Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
124
|
How can I enumerate the child nodes
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Variant vCaption
Variant voNode
Get ComItem of hoNodes "1234" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant voNode1
Get ComFirstNode of hoNode to voNode1
Handle hoNode1
Get Create (RefClass(cComNode)) to hoNode1
Set pvComObject of hoNode1 to voNode1
Get ComCaption of hoNode1 to vCaption
Send Destroy to hoNode1
Send Destroy to hoNode
Get ComAdd of hoNodes vCaption Nothing Nothing Nothing Nothing to Nothing
Variant vCaption1
Variant voNode2
Get ComItem of hoNodes "1234" to voNode2
Handle hoNode2
Get Create (RefClass(cComNode)) to hoNode2
Set pvComObject of hoNode2 to voNode2
Variant voNode3
Get ComFirstNode of hoNode2 to voNode3
Handle hoNode3
Get Create (RefClass(cComNode)) to hoNode3
Set pvComObject of hoNode3 to voNode3
Variant voNode4
Get ComNextNode of hoNode3 to voNode4
Handle hoNode4
Get Create (RefClass(cComNode)) to hoNode4
Set pvComObject of hoNode4 to voNode4
Get ComCaption of hoNode4 to vCaption1
Send Destroy to hoNode4
Send Destroy to hoNode3
Send Destroy to hoNode2
Get ComAdd of hoNodes vCaption1 Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|
|
123
|
How can I change the node's parent
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child 1" "1234" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes1
Variant voNodes2
Get ComNodes to voNodes2
Handle hoNodes2
Get Create (RefClass(cComNodes)) to hoNodes2
Set pvComObject of hoNodes2 to voNodes2
Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes2
Variant voNodes3
Get ComNodes to voNodes3
Handle hoNodes3
Get Create (RefClass(cComNodes)) to hoNodes3
Set pvComObject of hoNodes3 to voNodes3
Get ComAdd of hoNodes3 "Child 2" "1235" Nothing Nothing to Nothing
Send Destroy to hoNodes3
Variant voNodes4
Get ComNodes to voNodes4
Handle hoNodes4
Get Create (RefClass(cComNodes)) to hoNodes4
Set pvComObject of hoNodes4 to voNodes4
Get ComAdd of hoNodes4 "Sub 1" "1235" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes4
Variant voNodes5
Get ComNodes to voNodes5
Handle hoNodes5
Get Create (RefClass(cComNodes)) to hoNodes5
Set pvComObject of hoNodes5 to voNodes5
Get ComAdd of hoNodes5 "To Move" "1235" "Move" Nothing Nothing to Nothing
Send Destroy to hoNodes5
Variant voNodes6
Get ComNodes to voNodes6
Handle hoNodes6
Get Create (RefClass(cComNodes)) to hoNodes6
Set pvComObject of hoNodes6 to voNodes6
Variant voNode
Get ComItem of hoNodes6 "Move" to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant v
Get ComRoot to v
Set ComParent of hoNode to v
Set ComCaption of hoNode to "Moved 2 Root from Child 2"
Send Destroy to hoNode
Send Destroy to hoNodes6
Send ComEndUpdate
End_Procedure
|
|
122
|
How can I assign a key to a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes1
Variant voNodes2
Get ComNodes to voNodes2
Handle hoNodes2
Get Create (RefClass(cComNodes)) to hoNodes2
Set pvComObject of hoNodes2 to voNodes2
Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes2
End_Procedure
|
|
121
|
How can I assign a key to a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComKey of hoNode to "1234"
Send Destroy to hoNode
Send Destroy to hoNodes
Variant voNodes1
Get ComNodes to voNodes1
Handle hoNodes1
Get Create (RefClass(cComNodes)) to hoNodes1
Set pvComObject of hoNodes1 to voNodes1
Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes1
Variant voNodes2
Get ComNodes to voNodes2
Handle hoNodes2
Get Create (RefClass(cComNodes)) to hoNodes2
Set pvComObject of hoNodes2 to voNodes2
Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes2
End_Procedure
|
|
120
|
How can I change the node's background color
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackColor of hoNode to (RGB(255,0,0))
Send ComClearBackColor of hoNode
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
119
|
How can I change the node's background color
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComBackColor of hoNode to (RGB(255,0,0))
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
118
|
How can I change the node's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComForeColor of hoNode to (RGB(255,0,0))
Send ComClearForeColor of hoNode
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
117
|
How can I change the node's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComForeColor of hoNode to (RGB(255,0,0))
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
116
|
How can I assign a tooltip to a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "ToolTip" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
Set ComToolTipTitle of hoNode to "TITLE"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
115
|
How can I assign a different font for the node's tooltip
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "ToolTip" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComToolTip of hoNode to "<font Tahoma;12>This is a bit of text that's shown when the cursor hovers this <b>node</b>.</font>"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
114
|
How can I assign a tooltip to a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "ToolTip" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
113
|
How can I assign any extra data to my node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComUserData of hoNode to "your data"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
112
|
How can I assign an icon and a picture to a node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoNode to (vPicture)
Set ComPictureAlignment of hoNode to OLEexImageBottom
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
111
|
How can I align the picture in the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoNode to (vPicture)
Set ComPictureAlignment of hoNode to OLEexImageBottom
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
110
|
How can I align the picture in the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoNode to (vPicture)
Set ComPictureAlignment of hoNode to OLEexImageTop
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
109
|
How can I align the picture in the node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoNode to (vPicture)
Set ComPictureAlignment of hoNode to OLEexImageRight
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
108
|
How can I assign a picture to a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoNode to (vPicture)
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
107
|
How can I align the icon in the node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Set ComImageAlignment of hoNode to OLEexImageRight
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
106
|
How can I align the icon in the node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Set ComImageAlignment of hoNode to OLEexImageBottom
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
105
|
How can I align the icon in the node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Set ComImageAlignment of hoNode to OLEexImageTop
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
104
|
How can I assign an icon to a node
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComImage of hoNode to 1
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
103
|
How can I change the font for a node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "<font Tahoma;12>new</font> caption"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
102
|
How can I add a multiple lines node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Variant voNode
Get ComAdd of hoNodes "" Nothing Nothing Nothing Nothing to voNode
Handle hoNode
Get Create (RefClass(cComNode)) to hoNode
Set pvComObject of hoNode to voNode
Set ComCaption of hoNode to "Line 1<br>Line 2<br>Line3"
Send Destroy to hoNode
Send Destroy to hoNodes
End_Procedure
|
|
101
|
How can I add a multiple lines node
Procedure OnCreate
Forward Send OnCreate
Variant voNodes
Get ComNodes to voNodes
Handle hoNodes
Get Create (RefClass(cComNodes)) to hoNodes
Set pvComObject of hoNodes to voNodes
Get ComAdd of hoNodes "Line 1<br>Line 2<br>Line3" Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoNodes
End_Procedure
|