|
116
|
ImageSize property on 32 (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
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
Set ComAppearance to OLEFlat
Set ComItemHeight (ComAppearance(Self)) to 46
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 ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackColor to (RGB(255,255,255))
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComImage of hoitem1 to 0
Send Destroy to hoitem1
Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
Variant voitem2
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoMenu1 "Item 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Send Destroy to hoitem3
Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
Variant voitem4
Get ComAdd of hoMenu1 "Item 4" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComCheckEffect of hoitem4 to False
Set ComCheck of hoitem4 to True
Set ComBullet of hoitem4 to True
Send Destroy to hoitem4
Get ComAdd of hoMenu1 "Item 5" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Variant voMenu2
Get ComItems to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Variant voitem5
Get ComAdd of hoMenu2 "Image" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComImage of hoitem5 to 2
Send Destroy to hoitem5
Send Destroy to hoMenu2
Send ComRefresh
End_Procedure
|
|
115
|
ImageSize property on 16 (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
Set ComImageSize to 16
Set ComAppearance to OLEFlat
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 ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackColor to (RGB(255,255,255))
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComImage of hoitem1 to 0
Send Destroy to hoitem1
Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
Variant voitem2
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoMenu1 "Item 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Send Destroy to hoitem3
Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
Variant voitem4
Get ComAdd of hoMenu1 "Item 4" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComCheckEffect of hoitem4 to False
Set ComCheck of hoitem4 to True
Set ComBullet of hoitem4 to True
Send Destroy to hoitem4
Get ComAdd of hoMenu1 "Item 5" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Variant voMenu2
Get ComItems to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Variant voitem5
Get ComAdd of hoMenu2 "Image" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComImage of hoitem5 to 2
Send Destroy to hoitem5
Send Destroy to hoMenu2
Send ComRefresh
End_Procedure
|
|
114
|
Click event
// Fired when the user clicks an item.
Procedure OnComClick Integer llID
Forward Send OnComClick llID
Showln llID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Set ComBackColor to |CI$80000005
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
113
|
Select event
// Occurs when an item is selected by clicking or by pressing RETURN key.
Procedure OnComSelect Integer llID
Forward Send OnComSelect llID
Showln llID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Set ComBackColor to |CI$80000005
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
112
|
How can I display a chart/organigram view inside
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "File" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoMenu "OrgChart" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "Exontrol.ChartView"
Set ComWidth of hoControl to 128
Set ComHeight of hoControl to 164
Send ComCreate of hoControl
Variant voChartView
Get ComObject of hoControl to voChartView
Handle hoChartView
Get Create (RefClass(cComChartView)) to hoChartView
Set pvComObject of hoChartView to voChartView
Set ComIndentSiblingY of hoChartView to 30
Set ComShowLinksDir of hoChartView to True
Set ComPenWidthLink of hoChartView to 2
Set ComLinkColor of hoChartView to (RGB(0,0,0))
Set ComAntiAliasing of hoChartView to True
Variant voNodes
Get ComNodes of hoChartView 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
Send Destroy to hoChartView
Send Destroy to hoControl
Send Destroy to hoitem
Get ComAdd of hoMenu "Close" Nothing Nothing to Nothing
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
111
|
How do I uncheck the item
// Occurs when an item is selected by clicking or by pressing RETURN key.
Procedure OnComSelect Integer llID
Forward Send OnComSelect llID
// Item(ID).Check = False
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Horizontal View" 210 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Set ComCheckEffect of hoitem to False
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
110
|
How do I get the identifier of the item being clicked / selected
// Occurs when an item is selected by clicking or by pressing RETURN key.
Procedure OnComSelect Integer llID
Forward Send OnComSelect llID
Showln "Using ID parameter:" llID
Showln "Using the EventParam property: " (ComEventParam(Self,0))
Showln "Using the ExecuteTemplate property: " (ComExecuteTemplate(Self,"EventParam(0)"))
Set ComTemplate to "EventParam(0)"
Showln "Using TemplateResult property:" (ComTemplateResult(Self))
Showln "Using TemplateResultN property:" (ComTemplateResultN(Self))
Showln "Using TemplateResultS property:" (ComTemplateResultS(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "A[id=10](B[id=20],C[id=30](D[id=40],E[id=50]),F[id=60])"
Send Destroy to hoMenu
End_Procedure
|
|
109
|
How can I assign an icon to an item using an external ICO file
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "ico1" to "C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico"
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "<img>ico1:16</img> Caption" Nothing Nothing to Nothing
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
108
|
How can I assign an icon to an item using an external ICO file
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico`)" to vPicture
Get ComReplaceIcon (vPicture) Nothing to Nothing
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Caption" 0 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComImage of hoitem to 0
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
107
|
How can I assign a tooltip for an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "ToolTip CTRL + <b>F</b>" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComTooltip of hoitem1 to "This is a bit of text that should be displayed when the cursor hovers the item"
Set ComTooltipTitle of hoitem1 to "Title"
Send Destroy to hoitem1
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
106
|
How can I specify some keys on the right of the item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "File CTRL + <b>F</b>" Nothing Nothing to Nothing
Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
105
|
How do I specify the item's alignment
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "Left<r>Right" Nothing Nothing to Nothing
Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
104
|
How do I specify the item's alignment
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Center" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAlignment of hoitem1 to OLEexCenter
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Right" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAlignment of hoitem2 to OLEexRight
Send Destroy to hoitem2
Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
103
|
How can I remove the border of the item's text box or an edit control
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to True
Set ComEditCaption of hoitem1 to "test"
Set ComEditWidth of hoitem1 to 128
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
102
|
How can I specify a single border for the item's text box or an edit control
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to True
Set ComEditCaption of hoitem1 to "test"
Set ComEditWidth of hoitem1 to 128
Set ComEditBorder of hoitem1 to OLEexEditBorderSingle
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
101
|
How can I add a checkbox
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Checked" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Set ComCheckEffect of hoitem to False
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
100
|
How can I specify the shape of the cursor while it hovers an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCursor of hoitem1 to "exHelp"
Send Destroy to hoitem1
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
99
|
How can I specify the width for text box or an edit control
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to True
Set ComEditCaption of hoitem1 to "test"
Set ComEditWidth of hoitem1 to 128
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
98
|
How can I show or hide an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "Visible" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoMenu1 "Hidden" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComVisible of hoitem1 to False
Send Destroy to hoitem1
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
97
|
Is there any function to display the popup menu up not down
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "Item" Nothing Nothing to Nothing
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get ComAdd of hoMenu1 "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowDown of hoitem to False
Variant voMenu2
Get ComSubMenu of hoitem to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Get ComAdd of hoMenu2 "Item <fgcolor=FF0000>1</fgcolor>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoMenu2 "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "Item <fgcolor=FF0000>2</fgcolor>"
Send Destroy to hoitem1
Send Destroy to hoMenu2
Send Destroy to hoitem
Send Destroy to hoMenu1
Variant voMenu3
Get ComItems to voMenu3
Handle hoMenu3
Get Create (RefClass(cComMenu)) to hoMenu3
Set pvComObject of hoMenu3 to voMenu3
Get ComAdd of hoMenu3 "Item" Nothing Nothing to Nothing
Send Destroy to hoMenu3
Set ComAppearance to OLENormal
Set ComBorder to OLESunkenBorder
Send ComRefresh
End_Procedure
|
|
96
|
How can I specify the item's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "Item <fgcolor=FF0000>1</fgcolor>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "Item <fgcolor=FF0000>2</fgcolor>"
Send Destroy to hoitem1
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
95
|
How can I specify the item's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComForeColor of hoitem1 to (RGB(255,0,0))
Send Destroy to hoitem1
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
94
|
How can I specify the item's background color
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComBackColor of hoitem1 to (RGB(255,0,0))
Send Destroy to hoitem1
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
93
|
How can I add an item with a text box or an edit control
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to True
Set ComEditCaption of hoitem1 to "test"
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
92
|
How can I add an item with a text box or an edit control
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
91
|
How can I add a bullet
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Bullet" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Set ComBullet of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
90
|
How can I add a checkbox
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Checked" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCheck of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
89
|
How can I enable or disable an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Disabled" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComEnabled of hoitem to False
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
88
|
How can I display an icon
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 voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "A" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComImage of hoitem to 1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
87
|
How can I specify the item's identifier
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "A" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComID of hoitem to 1000
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
86
|
How can I specify the item's identifier
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "A" 0 1000 to Nothing
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
85
|
How can I assign an extra data to an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComUserData of hoitem to "your data"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
84
|
How can I underline an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "Item <u>1</u>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
83
|
How can I underline an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComUnderline of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
82
|
How can I display as strikeout an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "Item <s>1</s>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
81
|
How can I display as strikeout an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComStrikeout of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
80
|
How can I display as italic an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "Item <i>1</i>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
79
|
How can I display as italic an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComItalic of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
78
|
How do I bold an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "Item <b>1</b>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
77
|
How do I bold an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBold of hoitem to True
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
76
|
How do I change the item's caption
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "new <b>caption</b>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
75
|
How can I speciy the picture on the drop down menu
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu2
Get ComSubMenu of hoitem to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoMenu2 to (vPicture)
Send Destroy to hoMenu2
Send Destroy to hoitem
Send Destroy to hoMenu1
End_Procedure
|
|
74
|
How can I speciy the number of visible items
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu2
Get ComSubMenu of hoitem to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Set ComVisibleItemsCount of hoMenu2 to 1
Send Destroy to hoMenu2
Send Destroy to hoitem
Send Destroy to hoMenu1
End_Procedure
|
|
73
|
How can I speciy the shape of the cursor when it hovers the menu
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCursor of hoitem to "exHelp"
Send Destroy to hoitem
Send Destroy to hoMenu1
End_Procedure
|
|
72
|
How can I add items
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
71
|
How I can remove an item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Send ComRemove of hoMenu1 10
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
70
|
How I can get the number or the count of the items in the menu
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 (ComCount(hoMenu1)) Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
69
|
How I can clear a menu
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Send ComClear of hoMenu1
Send Destroy to hoMenu1
Variant voMenu2
Get ComItems to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Set ComToString of hoMenu2 to "Item 1"
Send Destroy to hoMenu2
End_Procedure
|
|
68
|
How do I specify to close an ActiveX item when user clicks it
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Set ComWidth of hoControl to 256
Set ComHeight of hoControl to 196
Send ComCreate of hoControl
Variant voCalendar
Get ComObject of hoControl to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComShowDateSelectors of hoCalendar to False
Set ComBackColor of hoCalendar to (RGB(239,239,231))
Send Destroy to hoCalendar
Set ComCloseOn of hoControl to OLEexLButtonUp
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
67
|
How can I access the properties and methods for an ActiveX item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Set ComWidth of hoControl to 256
Set ComHeight of hoControl to 196
Send ComCreate of hoControl
Variant voCalendar
Get ComObject of hoControl to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComShowDateSelectors of hoCalendar to False
Set ComBackColor of hoCalendar to (RGB(239,239,231))
Send Destroy to hoCalendar
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
66
|
I can't see the ActiveX item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Send ComCreate of hoControl
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
65
|
How can I specify the runtime license key for an ActiveX item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Set ComLicenseKey of hoControl to ""
Send ComCreate of hoControl
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
64
|
How can I specify the width and the height for an ActiveX item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Set ComWidth of hoControl to 256
Set ComHeight of hoControl to 256
Send ComCreate of hoControl
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
63
|
How can I select a date
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem1
Get ComAdd of hoMenu1 "Select a date" 3 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Variant voControl
Get ComSubControl of hoitem1 to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSComCtl2.DTPicker"
Set ComWidth of hoControl to 128
Set ComHeight of hoControl to 22
Send ComCreate of hoControl
Variant voDTPicker
Get ComObject of hoControl to voDTPicker
Handle hoDTPicker
Get Create (RefClass(cComDTPicker)) to hoDTPicker
Set pvComObject of hoDTPicker to voDTPicker
Set ComFormat of hoDTPicker to OLEdtpCustom
Set ComCustomFormat of hoDTPicker to "dd-MM-yyy"
Get ComRefresh of hoDTPicker to Nothing
Send Destroy to hoDTPicker
Send Destroy to hoControl
Send Destroy to hoitem1
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
62
|
How can I add an ActiveX item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voControl
Get ComSubControl of hoitem to voControl
Handle hoControl
Get Create (RefClass(cComControl)) to hoControl
Set pvComObject of hoControl to voControl
Set ComControlID of hoControl to "MSCal.Calendar"
Send ComCreate of hoControl
Send Destroy to hoControl
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
61
|
How can I add a separator item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
60
|
How can I add a popup or a submenu
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Variant voitem
Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voMenu1
Get ComSubMenu of hoitem to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
Send Destroy to hoMenu1
Send Destroy to hoitem
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
59
|
How can I add a new item
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|
|
58
|
How I can assign a picture or an icon to an item
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="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComItemHeight OLEButton to 34
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "<img>pic1</img> <b>1</b>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Variant voMenu2
Get ComItems to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Variant voitem1
Get Comitem of hoMenu2 60 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "T <img>1</img> <img>2</img> and so on "
Send Destroy to hoitem1
Send Destroy to hoMenu2
Send ComRefresh
End_Procedure
|
|
57
|
How I can assign a picture to an item
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaption of hoitem to "<img>pic1</img> <b>1</b>"
Send Destroy to hoitem
Send Destroy to hoMenu1
Variant voMenu2
Get ComItems to voMenu2
Handle hoMenu2
Get Create (RefClass(cComMenu)) to hoMenu2
Set pvComObject of hoMenu2 to voMenu2
Variant voitem1
Get Comitem of hoMenu2 60 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "<img>pic2</img> <b>2</b>"
Send Destroy to hoitem1
Send Destroy to hoMenu2
Send ComRefresh
End_Procedure
|
|
56
|
How do I call your x-script language
Procedure OnCreate
Forward Send OnCreate
Set ComTemplate to "Items.ToString = `Item 1,Item 2`"
End_Procedure
|
|
55
|
How do I change the shape of the cursor whether it hovers the control
Procedure OnCreate
Forward Send OnCreate
Set ComCursor to "exHelp"
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
54
|
How do I specify whether the item gets selected whether the user presses or releases the mouse
Procedure OnCreate
Forward Send OnCreate
Set ComSelectOn to OLEexMouseUp
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
53
|
How do I change the picture or icon for the chevrons
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="
Set ComScrollImage True to 1
Set ComScrollImage False to 2
Set ComAllowChevron to OLEexScroll
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
52
|
How do I specify the height for items
Procedure OnCreate
Forward Send OnCreate
Set ComItemHeight OLEButton to 34
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
51
|
How do I change the picture or icon for the chevrons
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="
Set ComChevronImage to 1
Set ComAllowChevron to OLEexChevron
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
50
|
How do I disable chevrons
Procedure OnCreate
Forward Send OnCreate
Set ComAllowChevron to OLEexDefault
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
49
|
How do I allow chevrons
Procedure OnCreate
Forward Send OnCreate
Set ComAllowChevron to OLEexScroll
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
48
|
How do I allow chevrons
Procedure OnCreate
Forward Send OnCreate
Set ComAllowChevron to OLEexChevron
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
47
|
How do I show directly the drop down menu, without scrolling
Procedure OnCreate
Forward Send OnCreate
Set ComScrollOnDrop to False
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
46
|
How can I change the visual appearance for for a top level item, when the Appearance property is Flat
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
Set ComBackground OLEexSelectRootItem to |CI$1000000
Set ComAppearance to OLEFlat
Set ComBorder to OLEFlatBorder
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
45
|
How can I change the visual appearance for an item, when the Appearance property is Button
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
Set ComBackground OLEexButtonItem to |CI$1000000
Set ComAppearance to OLEButton
Set ComBorder to OLEFlatBorder
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
44
|
Can I change the visual appearance for separator items
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
Set ComBackground OLEexSeparatorItem to |CI$1000000
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
Send Destroy to hoMenu
End_Procedure
|
|
43
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
42
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
41
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
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
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
40
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voStdFont
Get ComToolTipFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Set ComSize of hoStdFont to 14
Send Destroy to hoStdFont
Set ComToolTipWidth to 400
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
39
|
I've seen that the width of the tooltip is variable. Can I make it larger
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipWidth to 328
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will open"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
38
|
How do I let the tooltip being displayed longer
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipPopDelay to 10000
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
37
|
How do I disable showing the tooltip for all control
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 0
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "No-ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
36
|
How do I show the tooltip quicker
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
Send Destroy to hoMenu
Variant voMenu1
Get ComItems to voMenu1
Handle hoMenu1
Get Create (RefClass(cComMenu)) to hoMenu1
Set pvComObject of hoMenu1 to voMenu1
Variant voitem
Get Comitem of hoMenu1 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
Send Destroy to hoitem
Send Destroy to hoMenu1
Send ComRefresh
End_Procedure
|
|
35
|
How do I open the menu as user clicks the menu
Procedure OnCreate
Forward Send OnCreate
Set ComOpenOnClick to OLEexAlwaysClick
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
34
|
How do I open the menu as cursor hovers the menu bar
Procedure OnCreate
Forward Send OnCreate
Set ComOpenOnClick to OLEexHoverMenuBar
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
33
|
Can I make the menu partialy visible
Procedure OnCreate
Forward Send OnCreate
Set ComVisibility to 90
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
32
|
How do I remove or clear the accelerator keys
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Send ComAddAcelerator 10 49 False True False
End_Procedure
|
|
31
|
How do I add or assign an accelerator key to an item
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Send ComAddAcelerator 10 49 False True False
End_Procedure
|
|
28
|
How do I put a picture on the center of the control
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEMiddleCenter
End_Procedure
|
|
27
|
How do I resize/stretch a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEStretch
End_Procedure
|
|
26
|
How do I put a picture on the control's center right bottom side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLELowerRight
End_Procedure
|
|
25
|
How do I put a picture on the control's center left bottom side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLELowerLeft
End_Procedure
|
|
24
|
How do I put a picture on the control's center top side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperCenter
End_Procedure
|
|
23
|
How do I put a picture on the control's right top corner
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperRight
End_Procedure
|
|
22
|
How do I put a picture on the control's left top corner
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperLeft
End_Procedure
|
|
21
|
How do I put a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
End_Procedure
|
|
20
|
Is there any function to display the item's identifiers
Procedure OnCreate
Forward Send OnCreate
Set ComDebug to True
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
End_Procedure
|
|
19
|
How do I find an item giving its name
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voitem
Get Comitem "Item 1" to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBold of hoitem to True
Send Destroy to hoitem
Send ComRefresh
End_Procedure
|
|
18
|
How do I find an item giving its identifier
Procedure OnCreate
Forward Send OnCreate
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
Send Destroy to hoMenu
Variant voitem
Get Comitem 10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBold of hoitem to True
Send Destroy to hoitem
Send ComRefresh
End_Procedure
|
|
17
|
How do I enable or disable the control
Procedure OnCreate
Forward Send OnCreate
Set ComEnabled to False
Variant voMenu
Get ComItems to voMenu
Handle hoMenu
Get Create (RefClass(cComMenu)) to hoMenu
Set pvComObject of hoMenu to voMenu
Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
Send Destroy to hoMenu
Send ComRefresh
End_Procedure
|