|
32
|
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 ComCaption to "<img>1</img>Caption"
Send ComEndUpdate
End_Procedure
|
|
31
|
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 ComCaption to "<img>1</img> Caption"
Send ComEndUpdate
End_Procedure
|
|
30
|
How can I display the caption in mirror
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLECenterAlignment
Set ComVAlignment to OLEMiddleAlignment
Set ComCaption to "<b>mirror horizontal</b> text"
Set ComBackColor to (RGB(255,255,255))
Set ComRotate to OLEexHTMLMirror
End_Procedure
|
|
29
|
How can I display vertically the caption
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLECenterAlignment
Set ComVAlignment to OLEMiddleAlignment
Set ComCaption to "<b>vertical</b> text"
Set ComBackColor to (RGB(255,255,255))
Set ComRotate to OLEexHTMLVertical
End_Procedure
|
|
28
|
Does your control support text decorations
Procedure OnCreate
Forward Send OnCreate
Set ComWordWrap to True
Set ComCaption to "<font ;32><sha ;;0><out><gra FFFFFF>gradient-bottom</gra><br><fgcolor=FFFFFF><gra 000000>gradient-top</gra></fgcolor><br><fgcolor=000000><gra F0F0F0;1;1>center-gradient</gra></fgcolor><br><sha><out><gra FFFFFF>gradient-bottom</gra><br><fgcolor=FFFFFF><gra 000000>gradient-top</gra></fgcolor><br><fgcolor=000000><gra F0F0F0;1;1>center-gradient</gra></fgcolor><br>"
End_Procedure
|
|
27
|
Does you control support padding
Procedure OnCreate
Forward Send OnCreate
Set ComAppearance to OLEFlat
Set ComVAlignment to OLETopAlignment
Set ComCaption to "<fgcolor FFFFFF><bgcolor 000000>left/right and top/bottom padding</bgcolor></fgcolor>"
Set ComBorderWidth to 4
Set ComBorderHeight to 4
Set ComBackColor to (RGB(255,255,255))
End_Procedure
|
|
26
|
How can I display multiple-lines label
Procedure OnCreate
Forward Send OnCreate
Set ComWordWrap to True
Set ComCaption to "<b>1.</b> This is the first line<br><b>2.</b> This is the second line."
End_Procedure
|
|
25
|
How can I disable the control
Procedure OnCreate
Forward Send OnCreate
Set ComEnabled to False
Set ComAlignment to OLECenterAlignment
Set ComCaption to "Command"
End_Procedure
|
|
24
|
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 ComAlignment to OLECenterAlignment
Set ComCaption to "Command"
Set ComVAlignment to OLETopAlignment
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
|
|
23
|
Is it possible to display an additional caption on the control's background
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLECenterAlignment
Set ComBackgroundExt to "root[text=`<font ;6>additional`,align=0x21]"
Set ComCaption to "Command"
End_Procedure
|
|
22
|
How can I display a pattern over the label
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLECenterAlignment
Set ComBackgroundExt to "root[pattern=0x006,patterncolor=RGB(128,128,128)]"
Set ComCaption to "Command"
End_Procedure
|
|
21
|
How can I display pictures
Procedure OnCreate
Forward Send OnCreate
Set ComAlignment to OLECenterAlignment
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComCaption to "text and pictures <img>pic1</img>,<img>pic2</img>,..."
End_Procedure
|
|
20
|
How can I display icons
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 ComCaption to "text and icons <img>1</img>,<img>2</img>,<img>3</img>,..."
End_Procedure
|
|
19
|
How can I specify a different foreground color for a portion of the caption only
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Set ComCaption to "text <fgcolor FF0000>foreground</fgcolor> text"
End_Procedure
|
|
18
|
How can I specify a different background color for a portion of the caption only
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Set ComCaption to "text <bgcolor FF0000>background</bgcolor> text"
End_Procedure
|
|
17
|
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
|
|
16
|
How can I center the text and underlined with a dot line
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "<dotline><c>Center</dotline> "
End_Procedure
|
|
15
|
Is there anyway to get the dotline or solidline to extend across the entire width of the caption area when text is centre-aligned horizontally
Procedure OnCreate
Forward Send OnCreate
Set ComWordWrap to True
Set ComCaption to "<c>Name&Address<br><upline><dotline> <c><font Tahoma;8>DeliveryNotes</font>"
Set ComAlignment to OLELeftAlignment
Set ComBackColor to (RGB(0,0,0))
Set ComForeColor to (RGB(255,255,255))
End_Procedure
|
|
14
|
How can I show a thick frame around the label
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Command"
Set ComBackgroundExt to "[[patterncolor=RGB(128,128,128)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128),framethick])]"
Set ComAlignment to OLECenterAlignment
Set ComBackColor to (RGB(255,255,255))
End_Procedure
|
|
13
|
How can I add text decorations ( shadow )
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Set ComWordWrap to True
Set ComBorderWidth to 2
Set ComBorderHeight to 2
Set ComCaption to "<font ;28><sha>shadow</sha><br><fgcolor=FFFFFF><sha 0>outline</sha><br><sha 0;;0>outline anti-aliasing</sha><br><sha 808080;8;0>outline anti-aliasing</sha><br><sha 0;2;0>outline anti-aliasing</sha></font>"
End_Procedure
|
|
12
|
How can I add text decorations ( outline )
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Set ComWordWrap to True
Set ComBorderWidth to 2
Set ComBorderHeight to 2
Set ComCaption to "<font ;28><out>outline</out><br><fgcolor=FFFFFF><out 0>outline</out><br><sha 0;;0>outline anti-aliasing</sha><br><sha 0;2;0>outline anti-aliasing</sha></font>"
End_Procedure
|
|
11
|
How can I add text decorations ( gradient )
Procedure OnCreate
Forward Send OnCreate
Set ComWordWrap to True
Set ComCaption to "<font ;14><gra FFFFFF>gradient-bottom</gra><br><fgcolor=FFFFFF><gra 000000>gradient-top</gra></fgcolor><br><fgcolor=000000><gra F0F0F0;1;1>center-gradient</gra></fgcolor><br>"
End_Procedure
|
|
10
|
Is it possible to display the control's tooltip using colord EBN objects
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 ComCaption to "just hover the cursor over the control"
Set ComAlignment to OLECenterAlignment
Set ComBackground OLEexToolTipAppearance to |CI$1ff0000
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
End_Procedure
|
|
9
|
Is it possible to display the control's tooltip using EBN objects
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 ComCaption to "just hover the cursor over the control"
Set ComAlignment to OLECenterAlignment
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
End_Procedure
|
|
8
|
How do I change the control's tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "just hover the cursor over the control"
Set ComAlignment to OLECenterAlignment
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
End_Procedure
|
|
7
|
Is it possible to display a colored EBN so the borders will be transparent
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 ComAppearance to (|CI$1a88a58 + OLEBump)
Set ComCaption to "just the label's caption"
Set ComAlignment to OLECenterAlignment
End_Procedure
|
|
6
|
Is it possible to display an EBN so the borders will be transparent
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 ComAppearance to |CI$1000000
Set ComCaption to "just the label's caption"
Set ComAlignment to OLECenterAlignment
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)
Set ComPictureDisplay to OLEStretch
Set ComBorderWidth to 64
Set ComBorderHeight to 64
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 label's caption"
Set ComBorderWidth to 8
Set ComBorderHeight to 8
End_Procedure
|
|
3
|
How can I change the control's font
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "<font ;24>just the label's caption"
Set ComBorderWidth to 8
Set ComBorderHeight to 8
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 label's caption"
Set ComBorderWidth to 8
Set ComBorderHeight to 8
End_Procedure
|
|
1
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,0,0))
End_Procedure
|