|
25
|
ImageSize property on 32 (specifies the size of the 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
Variant vPicture
Get ComExecuteTemplate "loadpicture(`gAAAABAACAAgEAQgULdEGAAmhYQiULgQoggABwDisLEELIELggEigAQEOkcnlEUQEClcslctkkxQEtYE1kkzhb/gU6nc6ngAn1Anj/okpo1HpFJkYwQ9KBA3AFNpCAG53qNHBAPqtWqUoQD/rdclFZsB3s1ikdfstnqxwilktb/s4It0solroFmBELuD/H73swAwMUu7/Gd/tkju74W6zxGDnNEQ57PZzx+Kf74R63zmOwGYRaPymUyz3xWMzeczo/xWT0WjykaimaW6Pf+qzknR+iR53f+wlGbR7732qlAPf54zaI3574++XCIW/MW/H4nN50/kYP6u36tK39Knfi8nlo2F9GFeF3cA/ojA5D/QADotAf0CH78gQffECA54IEB5wP3AYAA/AsDwJBUDQRBqBD/Ao/wAAA/v1CkLQrB77gIohGAOu8PqIZ70ruFCIo4kAAJEihgPMlKWpgnEYpkmibJmmChsioCcx2+q7qSGCUBuuqKKrIgAK030iLKoC3OQxAALcojDsBKR8Mqv8pEQe7Gh/AB8DwfbSSCeB8OSP7vgAfZEEW5icjhNCYR486eH4P6BH4D6BHwA6BHgi8CgBFqWIXGdCJYi5AUA2R4z6oBHoEgI`)" to vPicture
Set ComHTMLPicture "icon" to (vPicture)
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 ComCaption to "As Picture: <img>icon</img>(non-sized picture)<br>As Picture: <img>icon:16</img> (sized picture)<br>As Icon: <img>1</img> (icon)"
End_Procedure
|
|
24
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
Procedure OnCreate
Forward Send OnCreate
Set ComImageSize to 16
Variant vPicture
Get ComExecuteTemplate "loadpicture(`gAAAABAACAAgEAQgULdEGAAmhYQiULgQoggABwDisLEELIELggEigAQEOkcnlEUQEClcslctkkxQEtYE1kkzhb/gU6nc6ngAn1Anj/okpo1HpFJkYwQ9KBA3AFNpCAG53qNHBAPqtWqUoQD/rdclFZsB3s1ikdfstnqxwilktb/s4It0solroFmBELuD/H73swAwMUu7/Gd/tkju74W6zxGDnNEQ57PZzx+Kf74R63zmOwGYRaPymUyz3xWMzeczo/xWT0WjykaimaW6Pf+qzknR+iR53f+wlGbR7732qlAPf54zaI3574++XCIW/MW/H4nN50/kYP6u36tK39Knfi8nlo2F9GFeF3cA/ojA5D/QADotAf0CH78gQffECA54IEB5wP3AYAA/AsDwJBUDQRBqBD/Ao/wAAA/v1CkLQrB77gIohGAOu8PqIZ70ruFCIo4kAAJEihgPMlKWpgnEYpkmibJmmChsioCcx2+q7qSGCUBuuqKKrIgAK030iLKoC3OQxAALcojDsBKR8Mqv8pEQe7Gh/AB8DwfbSSCeB8OSP7vgAfZEEW5icjhNCYR486eH4P6BH4D6BHwA6BHgi8CgBFqWIXGdCJYi5AUA2R4z6oBHoEgI`)" to vPicture
Set ComHTMLPicture "icon" to (vPicture)
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 ComCaption to "As Picture: <img>icon</img>(non-sized picture)<br>As Picture: <img>icon:16</img> (sized picture)<br>As Icon: <img>1</img> (icon)"
End_Procedure
|
|
23
|
Show the control's tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "move the cursor, and wait for a short time, so the tooltip appear"
Set ComToolTipText to "This is a bit of <b>text</b> that should appear once you hover the cursor"
End_Procedure
|
|
22
|
The color I set for the control's background is not what I expect. Is there anything I can do
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,0,0))
Set ComRenderType to -1
Set ComCaption to "Command"
End_Procedure
|
|
21
|
How can I display the pointer (hand cursor) when the mouse cursor hovers the control
Procedure OnCreate
Forward Send OnCreate
Set ComMousePointer to 16
End_Procedure
|
|
20
|
How can I align the picture inside the caption (3)
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComAlignment to OLEexLeft
Set ComCaption to "<img>pic1</img><br>This is a just the rest of the caption"
End_Procedure
|
|
19
|
How can I align the picture inside the caption (2)
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComAlignment to OLEexLeft
Set ComCaption to "This is a just the rest of the caption<r><img>pic1</img>"
End_Procedure
|
|
18
|
How can I align the picture inside the caption (1)
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComAlignment to OLEexLeft
Set ComCaption to "<img>pic1</img>This is a just the rest of the caption"
End_Procedure
|
|
17
|
How can I display the caption in mirror
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLEexCenter
Set ComVAlignment to OLEexMiddle
Set ComCaption to "Command"
Set ComBackColor to (RGB(255,255,255))
Set ComRotate to OLEexHTMLMirror
End_Procedure
|
|
16
|
How can I display vertically the caption
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLEexCenter
Set ComVAlignment to OLEexMiddle
Set ComCaption to "Command"
Set ComBackColor to (RGB(255,255,255))
Set ComRotate to OLEexHTMLVertical
End_Procedure
|
|
15
|
How can I display a picture on the button's face to be scaled automatically once the button is resized
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
|
|
14
|
How can I display an & ( ampersand ) in the button's caption
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Briana && Iasmina && Rares"
End_Procedure
|
|
13
|
How can I define my own visual appearance / style for my button
Procedure OnCreate
Forward Send OnCreate
Set ComStyle to OLEexCustom1
Set ComAllowHotState to True
Set ComBackColor to (RGB(255,255,255))
Send ComSkin OLEexNormal "c:\exontrol\images\normal.ebn"
Send ComSkin OLEexPushed "c:\exontrol\images\pushed.ebn"
Send ComSkin OLEexHot "c:\exontrol\images\hot.ebn"
Send ComSkin OLEexDisabled "c:\exontrol\images\border.ebn"
End_Procedure
|
|
12
|
How can I display a percent bar over the control
// Occurs when the user presses and then releases the left mouse button over the control.
Procedure OnComClick
Forward Send OnComClick
Set ComBackgroundExtValue OLEexIndexExt5 OLEexClientExt to "25%"
Set ComBackgroundExtValue OLEexIndexExt5 OLEexTextExt to (ComBackgroundExtValue(Self,OLEexIndexExt5,OLEexClientExt))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Command"
Set ComVAlignment to OLEexTop
Set ComBackgroundExt to "bottom[4],left[4],right[4],bottom[16,pattern=0x000,frame=RGB(0,0,0)](left[50%,back=RGB(0,255,0),text=`<font ;6><sha ;;0>50%`,align=0x11,pattern=0x006,patterncolor=RGB(0,128,0),frame=RGB(0,128,0)])"
Set ComBackgroundExtValue OLEexIndexExt5 OLEexClientExt to "75%"
Set ComBackgroundExtValue OLEexIndexExt5 OLEexTextExt to (ComBackgroundExtValue(Self,OLEexIndexExt5,OLEexClientExt))
End_Procedure
|
|
11
|
Is it possible to display an additional caption on the control's background
Procedure OnCreate
Forward Send OnCreate
Set ComBackgroundExt to "root[text=`<font ;6>additional`,align=0x21]"
Set ComCaption to "Command"
End_Procedure
|
|
10
|
How can I display a pattern over the button
Procedure OnCreate
Forward Send OnCreate
Set ComBackgroundExt to "root[pattern=0x006,patterncolor=RGB(128,128,128)]"
Set ComCaption to "Command"
End_Procedure
|
|
9
|
Does your control support subscript or superscript, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
End_Procedure
|
|
8
|
How can I change the caption
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Mühle"
End_Procedure
|
|
7
|
Is it possible to specify the control's background color when disabled
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "<fgcolor=808080>Disabled"
Set ComEnabled to False
Set ComForeColorState OLEexDisabled to (RGB(0,255,0))
End_Procedure
|
|
6
|
How can I disable the control
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "just the button's caption"
Set ComEnabled to False
End_Procedure
|
|
5
|
How do I put/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)
End_Procedure
|
|
4
|
How can I change the control's font
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Verdana"
Set ComSize to 12
Set ComFont to f
Set ComCaption to "just the button's caption"
End_Procedure
|
|
3
|
How do I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "<font ;16><fgcolor=FF0000>just</fgcolor></font> the button's caption"
End_Procedure
|
|
2
|
How do I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Set ComCaption to "just the button's caption"
End_Procedure
|
|
1
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,0,0))
Set ComBorderWidth to 8
Set ComBorderHeight to 8
End_Procedure
|