|
16
|
ImageSize property on 32 (specifies the size of the control' icons)
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==")
Set ComBackColor to (RGB(255,255,255))
Set ComFormat to "1,2,3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "<img>1</img>"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "<img>2</img>"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "<img>3</img>Icon"
Send Destroy to hoItem2
Send ComEndUpdate
End_Procedure
|
|
15
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
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=="
Set ComBackColor to (RGB(255,255,255))
Set ComFormat to "1,2,3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "<img>1</img>"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "<img>2</img>"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "<img>3</img>Icon"
Send Destroy to hoItem2
Send ComEndUpdate
End_Procedure
|
|
14
|
How can I defines a custom border for the control
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 "gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAxDTBMKgBBCLIxhEYobgmGIaRiBMIxAKIZhzEgYRoiAYhXDiHwyARHUIvfCsPxBDqBY4gOZpXhmJImShKUZybJ8RR3GaaZ5iWagAoyPJKSLCMiyPSUUw+GKVYjjej6HpCTY4RbXU7VFQFKhpK6sRxAKYoapyGpMU5YUTSfJ4DSkGAYBJFUZLWgSeJ6DRSMBvfggATXMS4LYuKbXLhCCYBgIA==" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
Set ComFormat to "1,2,|,3:64"
Variant voItem
Get ComItem 3 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "< <b>right</b> >"
Send Destroy to hoItem
Set ComBackColor to (RGB(255,255,255))
Send ComEndUpdate
End_Procedure
|
|
13
|
Can I display items one below to other
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "(1/2):64,(3/4):64"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "Item <off 4><b>A"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "Item <off 4><b>B"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "Item <off 4><b>C"
Send Destroy to hoItem2
Variant voItem3
Get ComItem 4 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComCaption of hoItem3 to "Item <off 4><b>D"
Send Destroy to hoItem3
End_Procedure
|
|
12
|
How can I add a separator item
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "1,2,-1,3,4"
End_Procedure
|
|
11
|
Is it possible to disable 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 ComBackColor to (RGB(255,255,255))
Set ComFormat to "1,2,3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "<img>1</img>"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "<img>2</img>"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "<img>3</img>Disabled"
Set ComEnabled of hoItem2 to False
Send Destroy to hoItem2
End_Procedure
|
|
10
|
Is it possible to change the item's caption/image when user hovers the cursor
// Occurs when the mouse enters the part.
Procedure OnComMouseIn Variant llID
Forward Send OnComMouseIn llID
Variant voItem
Get ComItem llID to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "hover"
Send Destroy to hoItem
End_Procedure
// Occurs when the mouse exists the part.
Procedure OnComMouseOut Variant llID
Forward Send OnComMouseOut llID
Variant voItem1
Get ComItem llID to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to llID
Send Destroy to hoItem1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "1,2,3,4"
End_Procedure
|
|
9
|
Does your control support tooltip for items
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "(1/2),3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "Item <b>1"
Set ComToolTip of hoItem to "This is a bit of text that's shown when cursor hovers the item"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "Item <b>2"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "Item <b>3"
Send Destroy to hoItem2
End_Procedure
|
|
8
|
Is it possible to add an anchor element, similar to a link into a webpage
// 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 ComBackColor to (RGB(255,255,255))
Set ComFormat to ""<a a1>link</a>":32,1,2,3"
End_Procedure
|
|
7
|
How can I change the background of the hovering item
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 OLEexToolBarButtonHotBackColor to |CI$1000000
Set ComFormat to "1,2,3,4"
End_Procedure
|
|
6
|
Can I display an item aligned to the right
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "1,2,|,3:64"
Variant voItem
Get ComItem 3 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "< <b>right</b> >"
Send Destroy to hoItem
End_Procedure
|
|
5
|
Can I display pictures in the toolbar
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\card.png"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\diary.png"
Set ComFormat to "1,2,3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "<img>pic1:48</img>"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "<img>pic2:30</img>"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "<img>pic1:24</img> Picture"
Send Destroy to hoItem2
End_Procedure
|
|
4
|
Can I display icons in the toolbar
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 ComBackColor to (RGB(255,255,255))
Set ComFormat to "1,2,3"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "<img>1</img>"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "<img>2</img>"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "<img>3</img>Icon"
Send Destroy to hoItem2
End_Procedure
|
|
3
|
How can I get ride of the top-bottom lines
Procedure OnCreate
Forward Send OnCreate
Set ComAppearance to OLEEtched
Set ComBackColor to (RGB(255,255,255))
Set ComFormat to "1,-1,2"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "Exit"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"
Send Destroy to hoItem1
End_Procedure
|
|
2
|
How can I display a drop-down panel
// Notifies once the user clicks the item.
Procedure OnComSelect Variant llID Variant llSelectedID
Forward Send OnComSelect llID llSelectedID
Showln "Select" llSelectedID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComItemsDelimiter to ";"
Set ComFormat to "1,-1,2"
Variant voItem
Get ComItem 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "Exit"
Send Destroy to hoItem
Variant voItem1
Get ComItem 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
Send Destroy to hoItem1
End_Procedure
|
|
1
|
How can I add / display items with the toolbar
// Notifies once the user clicks the item.
Procedure OnComSelect Variant llID Variant llSelectedID
Forward Send OnComSelect llID llSelectedID
Variant v
Variant voItem
Get ComItem llID to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Get ComCaption of hoItem to v
Send Destroy to hoItem
Showln "Select" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComFormat to "1,-1,2,3"
Variant voItem1
Get ComItem 1 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to "Exit"
Send Destroy to hoItem1
Variant voItem2
Get ComItem 2 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to "Item <b>A"
Send Destroy to hoItem2
Variant voItem3
Get ComItem 3 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComCaption of hoItem3 to "Item <b>B"
Send Destroy to hoItem3
End_Procedure
|