|
100
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Set ComThumbSize to 156
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 OLEexThumbPart to "<img>1</img> thumb <img>2</img>"
Send ComEndUpdate
End_Procedure
|
|
99
|
ImageSize property on 16 (default) (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Set ComThumbSize to 96
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 OLEexThumbPart to "<img>1</img> thumb <img>2</img>"
Send ComEndUpdate
End_Procedure
|
|
98
|
I am trying to replicate the green slider image example you have in the helpfile under the "property Slider.ShowThumbProgress as Boolean" help topic
// Occurs when the value of the control is changed.
Procedure OnComChange
Forward Send OnComChange
Set ComCaption OLEexThumbPart to (ComValue(Self))
End_Procedure
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 "gBFLBCJwBAEHhEJAAChABbEGACAADACAxRDAMgBQKAAzQFAYaBgGKGAAGIZRVgmFgAQhFcZQSKUOQTDKMIziaQAChwOYlQKMYxRCKYZhpCIZBwGCIYWiiIYiQKCUIiDBMIxseCgAAfSg5YiACIJFAaJhnIapZDKGKQCqASAyCI2UoaDZCIoQTLUBx5AaEAwicQKTjiIiQOgjdoWU46HIhNq3bauCybRoOdj8QKdbhHMbFdz0Oq/cBvbAzVbvBqHQKXLalVhWGYXRrIMbyIqnZxXFoDEQ1ZBZTjeNY5T7PNBIJ5tEyWKTTC4MeoaVpOV5dVrYHj2LY4DCtUgrbYJe47Xq+eZ1W6gOBeDZddZLP7HbZuHDbYJfBSCADkd65ToXAOHZEmUcg5HwXpPDeLZQm2dQ7ByTh3A+P5im0b58n6HwnF+KZpnCew8l6boPiOE5xnodh9n8XovAuW57H6HZHl2YB+l6J5Zl4fgeBeQgHgCXZICmfR8h+eAhlodxgngSgNgEIAoBYE4DhwF55nmBYgGgVgMHSYYIC4GoAB4OIZnOCJfkgdgQgeYpIFILoICGOIWA8DgNFCVg4g6I4Ym4PoPGQAJUnGEJkEQDBQDaBJJBwToSiSQxqEuEgklEOJ0hSZVEGcN5GGkXhZhYJYpHYXIXkYZoViYAAHmOEB8hkR5BnSYwemaCY2GaG4HkYWYXAACRjiSFYdEkUhUmkJQngmdh2h+CRVl0RAAAqQ40iuIRoHoGoIiKaIqWwIIXoWASAg==" to Nothing
Send Destroy to hoAppearance
Set ComShowThumbProgress to True
Set ComVisiblePart OLEexBackgroundPart to False
Set ComTickStyle to OLEexNoTicks
Set ComValue to 3
Set ComBackground OLEexVSThumb to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
97
|
How can I change the position of the control's tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipTitle to "Title"
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComToolTipX to "value + 18"
Set ComToolTipY to "value + 18"
End_Procedure
|
|
96
|
How can I display the value in reverse order or from bottom to top
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLabelTick to "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
Set ComMinimum to -100
Set ComMaximum to 100
Set ComTickFrequency to 10
Set ComThumbSize to 40
Set ComOrientation to OLEexReverseOrder
Send ComEndUpdate
End_Procedure
|
|
95
|
How can I display the value in reverse order or from right to left
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLabelTick to "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
Set ComMinimum to -100
Set ComMaximum to 100
Set ComTickFrequency to 10
Set ComThumbSize to 40
Set ComOrientation to (OLEexReverseOrder + OLEexHorizontal)
Send ComEndUpdate
End_Procedure
|
|
94
|
I need only to change the knob of the slider with a picture. Is it possible
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 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComLabelTick to "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
Set ComMinimum to -100
Set ComMaximum to 100
Set ComTickFrequency to 10
Set ComBackground OLEexHSThumb to |CI$1000000
Set ComThumbSize to 40
Send ComEndUpdate
End_Procedure
|
|
93
|
Is it possible to print the control's Value on the thumb
// Occurs when the value of the control is changed.
Procedure OnComChange
Forward Send OnComChange
Set ComCaption OLEexThumbPart to (ComValue(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComTickStyle to OLEexBoth
Set ComThumbSize to 48
Set ComTickFrequency to 0
Set ComValue to 5
End_Procedure
|
|
92
|
How can I display the value on the thumb
// Occurs when the value of the control is changed.
Procedure OnComChange
Forward Send OnComChange
Set ComCaption OLEexThumbPart to (ComValueF(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowFloat to True
Set ComMinimumF to -3.25
Set ComMaximumF to 3.25
Set ComSmallChangeF to 0.25
Set ComThumbSize to 48
Set ComValueF to 0
Set ComTickStyle to OLEexBoth
Set ComTickFrequencyF to 0
Send ComEndUpdate
End_Procedure
|
|
91
|
How can I display a different text than the slider's value
Procedure OnCreate
Forward Send OnCreate
Set ComLabelTick to "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"
End_Procedure
|
|
90
|
How can I show values for selec range only
Procedure OnCreate
Forward Send OnCreate
Set ComSelectRange to True
Set ComSelStart to 1
Set ComSelLength to 2
Set ComLabelTick to "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + value : '' ) "
End_Procedure
|
|
89
|
Is it possible to display min max value
Procedure OnCreate
Forward Send OnCreate
Set ComLabelTick to "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
End_Procedure
|
|
88
|
How can I show the value for current value only
Procedure OnCreate
Forward Send OnCreate
Set ComLabelTick to "value = current ? value : ''"
End_Procedure
|
|
87
|
Is it possible to show the value using the tooltip
// Occurs when the value of the control is changed.
Procedure OnComChange
Forward Send OnComChange
Set ComToolTipText to (ComValue(Self))
End_Procedure
|
|
86
|
Is it possible to show labels for ticks
Procedure OnCreate
Forward Send OnCreate
Set ComLabelTick to "value"
End_Procedure
|
|
85
|
How can I change the tooltip's border using your EBN files with a different color
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$100ffa0
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 43
End_Procedure
|
|
84
|
Can I change the color for the control's border
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$10000f8 + OLEBump + OLESunken)
End_Procedure
|
|
83
|
How can I display a character from a specified font ( for vertical alignment )
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Set ComCaption OLEexThumbPart to "<img>-1</img><font Webdings;10>a</font>"
Set ComOrientation to OLEexVertical
End_Procedure
|
|
82
|
How can I display a character from a specified font
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Set ComCaption OLEexThumbPart to "<font Webdings;10>a</font>"
End_Procedure
|
|
81
|
When I have a slider in vertical orientation, how can I get the caption horizontal
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Set ComCaption OLEexThumbPart to "<img>-1</img>thumb"
Set ComOrientation to OLEexVertical
End_Procedure
|
|
80
|
Does your control support floating points
// Occurs when the value of the control is changed.
Procedure OnComChange
Forward Send OnComChange
Showln (ComValueF(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowFloat to True
Set ComMinimumF to -3
Set ComMaximumF to 3
Set ComSmallChangeF to 0.5
Set ComLargeChangeF to 1
Set ComTickFrequencyF to (ComSmallChangeF(Self))
Set ComValueF to 0
Send ComEndUpdate
End_Procedure
|
|
79
|
How do I change the control's border, using your EBN files
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
End_Procedure
|
|
78
|
How can I change the color of the selected range in the control
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexVertical
Set ComSelectRange to True
Set ComSelStart to 2
Set ComSelLength to 2
Set ComValue to 1
Set ComBackground OLEexVSSel to (RGB(255,0,0))
End_Procedure
|
|
77
|
How can I change the color of the selection in the control
Procedure OnCreate
Forward Send OnCreate
Set ComSelectRange to True
Set ComSelStart to 2
Set ComSelLength to 2
Set ComValue to 1
Set ComBackground OLEexHSSel to (RGB(255,0,0))
End_Procedure
|
|
76
|
How can I change the visual appearance of the selected range in the control
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexVertical
Set ComSelectRange to True
Set ComSelStart to 2
Set ComSelLength to 2
Set ComValue to 1
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 OLEexVSSel to |CI$1000000
Set ComCaption OLEexSelPart to "selection"
End_Procedure
|
|
75
|
How can I change the visual appearance of the selection in the control
Procedure OnCreate
Forward Send OnCreate
Set ComSelectRange to True
Set ComSelStart to 2
Set ComSelLength to 2
Set ComValue to 1
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 OLEexHSSel to |CI$1000000
Set ComCaption OLEexSelPart to "selection"
End_Procedure
|
|
74
|
Is there any option to select a range in the control, or to highlight my selection
Procedure OnCreate
Forward Send OnCreate
Set ComSelectRange to True
Set ComSelStart to 2
Set ComSelLength to 2
Set ComValue to 1
End_Procedure
|
|
73
|
How can I specify the upper and lower parts using gradient colors
Procedure OnCreate
Forward Send OnCreate
Set ComValue to 3
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexHSLower to |CI$1000000
Set ComBackground OLEexHSUpper to |CI$2000000
End_Procedure
|
|
72
|
How can I specify the upper and lower parts using gradient colors
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexVertical
Set ComValue to 3
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexVSLower to |CI$1000000
Set ComBackground OLEexVSUpper to |CI$2000000
End_Procedure
|
|
71
|
How can I change the color of the progress bar
Procedure OnCreate
Forward Send OnCreate
Set ComShowThumbProgress to True
Set ComVisiblePart OLEexBackgroundPart to False
Set ComTickStyle to OLEexNoTicks
Set ComValue to 3
Set ComBackground OLEexVSThumb to (RGB(255,0,0))
End_Procedure
|
|
70
|
How can I change the visual appearance of the progress bar using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComShowThumbProgress to True
Set ComVisiblePart OLEexBackgroundPart to False
Set ComTickStyle to OLEexNoTicks
Set ComValue to 3
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Variant voAppearance2
Get ComVisualAppearance to voAppearance2
Handle hoAppearance2
Get Create (RefClass(cComAppearance)) to hoAppearance2
Set pvComObject of hoAppearance2 to voAppearance2
Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance2
Set ComBackground OLEexVSThumb to |CI$1000000
Set ComBackground OLEexVSThumbP to |CI$2000000
Set ComBackground OLEexVSThumbD to |CI$1000000
Set ComBackground OLEexVSThumbH to |CI$3000000
End_Procedure
|
|
69
|
How can I show a progress bar
Procedure OnCreate
Forward Send OnCreate
Set ComShowThumbProgress to True
Set ComVisiblePart OLEexBackgroundPart to False
Set ComTickStyle to OLEexNoTicks
Set ComValue to 3
End_Procedure
|
|
68
|
May I change the color of the ticks
Procedure OnCreate
Forward Send OnCreate
Set ComTickColor to (RGB(255,0,0))
End_Procedure
|
|
67
|
How do I specify the frequency of the ticks on the control
Procedure OnCreate
Forward Send OnCreate
Set ComTickFrequency to 2
End_Procedure
|
|
66
|
How can I show the tickers on bottom/right side only
Procedure OnCreate
Forward Send OnCreate
Set ComTickStyle to OLEexBottomRight
End_Procedure
|
|
65
|
How can I show the tickers on top/left side only
Procedure OnCreate
Forward Send OnCreate
Set ComTickStyle to OLEexTopLeft
End_Procedure
|
|
64
|
How can I show the tickers on both sides
Procedure OnCreate
Forward Send OnCreate
Set ComTickStyle to OLEexBoth
End_Procedure
|
|
63
|
How can I hide the tickers
Procedure OnCreate
Forward Send OnCreate
Set ComTickStyle to OLEexNoTicks
End_Procedure
|
|
62
|
Is there any function to show the tooltip
Procedure OnCreate
Forward Send OnCreate
Send ComShowToolTip "This message is shown when ShowToolTip methoid is called" Nothing Nothing Nothing Nothing
End_Procedure
|
|
61
|
Is there any function to highligth the control when it gets the focus
Procedure OnCreate
Forward Send OnCreate
Set ComShowFocusRect to True
End_Procedure
|
|
60
|
I am using your control in a C++ application, and I would preffer handle messages instead events
Procedure OnCreate
Forward Send OnCreate
Set ComNotifyParent to True
End_Procedure
|
|
59
|
How can I change the visual appearance of the thumb usign your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexVertical
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Variant voAppearance2
Get ComVisualAppearance to voAppearance2
Handle hoAppearance2
Get Create (RefClass(cComAppearance)) to hoAppearance2
Set pvComObject of hoAppearance2 to voAppearance2
Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance2
Set ComBackground OLEexVSThumb to |CI$1000000
Set ComBackground OLEexVSThumbP to |CI$2000000
Set ComBackground OLEexVSThumbD to |CI$1000000
Set ComBackground OLEexVSThumbH to |CI$3000000
End_Procedure
|
|
58
|
How can I change the visual appearance of the thumb usign your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Variant voAppearance2
Get ComVisualAppearance to voAppearance2
Handle hoAppearance2
Get Create (RefClass(cComAppearance)) to hoAppearance2
Set pvComObject of hoAppearance2 to voAppearance2
Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance2
Set ComBackground OLEexVSThumb to |CI$1000000
Set ComBackground OLEexVSThumbP to |CI$2000000
Set ComBackground OLEexVSThumbD to |CI$1000000
Set ComBackground OLEexVSThumbH to |CI$3000000
End_Procedure
|
|
57
|
Can I indent the caption in parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 64
Set ComCaption OLEexThumbPart to "20 pixels<br>from left"
Set ComCaptionAlignment OLEexThumbPart to OLELeftAlignment
Set ComCaptionIndentX OLEexThumbPart to 20
Set ComValue to 3
End_Procedure
|
|
56
|
Does your control support owner draw feature
Procedure OnCreate
Forward Send OnCreate
Set ComOwnerDrawPart OLEexThumbPart to True
End_Procedure
|
|
55
|
Can I assing any extra data to a button or part of the control
Procedure OnCreate
Forward Send OnCreate
Set ComUserData OLEexThumbPart to "This is just some extra data assigned to the control's thumb"
End_Procedure
|
|
54
|
How can I specify the size of the thumb
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 48
End_Procedure
|
|
53
|
Can I change the tooltip's border using your EBN files
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 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"
Set ComValue to 4
End_Procedure
|
|
52
|
Can I change the tooltip's background color
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipText to "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
End_Procedure
|
|
51
|
Can I change the tooltip's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
End_Procedure
|
|
50
|
Can I change the tooltip's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipText to "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
End_Procedure
|
|
49
|
Can I change the tooltip's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
End_Procedure
|
|
48
|
Can I change the tooltip's width
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComToolTipWidth to 256
Set ComToolTipText to "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
Send ComEndUpdate
End_Procedure
|
|
47
|
Can I change the tooltip's font
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComToolTipTitle to "Title"
Set ComToolTipText to "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
Send ComEndUpdate
End_Procedure
|
|
46
|
Can I change the tooltip's font
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComToolTipFont to f
Set ComToolTipTitle to "Title"
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
Send ComEndUpdate
End_Procedure
|
|
45
|
Can I display a tooltip when user clicks the thumb and drags it to a new position
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipTitle to "Title"
Set ComToolTipText to "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
Set ComValue to 4
End_Procedure
|
|
44
|
How can I get the value from the cursor
Procedure OnCreate
Forward Send OnCreate
Variant var_ValueFromPoint
Get ComValueFromPoint -1 -1 to var_ValueFromPoint
End_Procedure
|
|
43
|
Is there any function to identify the part from the cursor
Procedure OnCreate
Forward Send OnCreate
Variant var_PartFromPoint
Get ComPartFromPoint -1 -1 to var_PartFromPoint
End_Procedure
|
|
42
|
Is there any option to specify the value to be added or subtracted when user presses the contro's background
Procedure OnCreate
Forward Send OnCreate
Set ComLargeChange to 2
End_Procedure
|
|
41
|
Is there any option to specify the value to be added or subtracted when user presses the up or down button
Procedure OnCreate
Forward Send OnCreate
Set ComSmallChange to 1
End_Procedure
|
|
40
|
How do I specify the maxmimum value in the control
Procedure OnCreate
Forward Send OnCreate
Set ComMaximum to 20
Set ComValue to 10
End_Procedure
|
|
39
|
How do I specify the minimum value in the control
Procedure OnCreate
Forward Send OnCreate
Set ComMinimum to 2
Set ComValue to 3
End_Procedure
|
|
38
|
How do I change control's position
Procedure OnCreate
Forward Send OnCreate
Set ComValue to 4
End_Procedure
|
|
37
|
How do I change the position of the thumb
Procedure OnCreate
Forward Send OnCreate
Set ComValue to 4
End_Procedure
|
|
36
|
How do I enable or disable a part of the control
Procedure OnCreate
Forward Send OnCreate
Set ComValue to 2
Set ComThumbSize to 48
Set ComEnablePart OLEexThumbPart to False
Set ComCaption OLEexThumbPart to "<fgcolor=808080>thumb</fgcolor>"
End_Procedure
|
|
35
|
How do show or hide parts in the control
Procedure OnCreate
Forward Send OnCreate
Set ComVisiblePart OLEexThumbPart to False
End_Procedure
|
|
34
|
How do I arrange the control vertically
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexVertical
End_Procedure
|
|
33
|
How do I prevent painting the control when I perform several changes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Set ComCaption OLEexThumbPart to "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
Set ComThumbSize to 124
Send ComEndUpdate
End_Procedure
|
|
32
|
How do I add icons
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 64
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComCaption OLEexThumbPart to "<img>1</img>thumb"
End_Procedure
|
|
31
|
How can I align the caption to the right
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 64
Set ComCaption OLEexThumbPart to "thumb right"
Set ComCaptionAlignment OLEexThumbPart to OLERightAlignment
End_Procedure
|
|
30
|
How can I align the caption to the left
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 64
Set ComCaption OLEexThumbPart to " thumb left"
Set ComCaptionAlignment OLEexThumbPart to OLELeftAlignment
End_Procedure
|
|
29
|
How can show the caption using a different font
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexLowerBackPart to "<font Tahoma;12>upper</font> part"
Set ComCaption OLEexUpperBackPart to "<font ;4>lower</font> part"
Set ComValue to 4
End_Procedure
|
|
28
|
Is there any option to display icons or pictures in the parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 124
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Set ComCaption OLEexThumbPart to "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
End_Procedure
|
|
27
|
Is there any option to display icons or pictures in the parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 124
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Set ComCaption OLEexThumbPart to "<img>p1</img> thumb <img>p2</img>"
End_Procedure
|
|
26
|
Is there any option to display icons or pictures in the parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComCaption OLEexThumbPart to "<img>1</img> thumb <img>2</img>"
End_Procedure
|
|
25
|
Is there any option to display icons or pictures in the parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComCaption OLEexThumbPart to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"
End_Procedure
|
|
24
|
Is there any option to display icons or pictures in the parts of the control
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComCaption OLEexThumbPart to "<img>1</img>thumb"
End_Procedure
|
|
23
|
How can paint the caption using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 48
Set ComCaption OLEexThumbPart to "line1<br>line2"
End_Procedure
|
|
22
|
How can change the background color for a portion of text
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexLowerBackPart to "<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
Set ComCaption OLEexUpperBackPart to "<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
Set ComValue to 4
End_Procedure
|
|
21
|
How can change the foreground color for a portion of text
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexLowerBackPart to "<fgcolor=FF0000>upper</fgcolor> part"
Set ComCaption OLEexUpperBackPart to "<fgcolor=0000FF>upper</fgcolor> part"
Set ComValue to 4
End_Procedure
|
|
20
|
How can show the caption as strikeout
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComFont to f
Set ComCaption OLEexLowerBackPart to "<s>upper</s> part"
Set ComCaption OLEexUpperBackPart to "<s>lower</s> part"
Set ComValue to 4
End_Procedure
|
|
19
|
How can underline a portion of the caption
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComFont to f
Set ComCaption OLEexLowerBackPart to "<u>upper</u> part"
Set ComCaption OLEexUpperBackPart to "<u>lower</u> part"
Set ComValue to 4
End_Procedure
|
|
18
|
How can I draw in italic a portion of the caption
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComFont to f
Set ComCaption OLEexLowerBackPart to "<i>upper</i> part"
Set ComCaption OLEexUpperBackPart to "<i>lower</i> part"
Set ComValue to 4
End_Procedure
|
|
17
|
How can I draw in bold a portion of the caption
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComFont to f
Set ComCaption OLEexLowerBackPart to "<b>upper</b> part"
Set ComCaption OLEexUpperBackPart to "<b>lower</b> part"
Set ComValue to 4
End_Procedure
|
|
16
|
How can I put a text on the background part in the lower or upper side
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexLowerBackPart to "upper"
Set ComCaption OLEexUpperBackPart to "lower"
Set ComValue to 4
End_Procedure
|
|
15
|
How can I put a text on the background part
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexBackgroundPart to "background"
End_Procedure
|
|
14
|
How can I put a text on the thumb
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 32
Set ComCaption OLEexThumbPart to "thumb"
End_Procedure
|
|
13
|
How can I disable the control
Procedure OnCreate
Forward Send OnCreate
Set ComEnabled to False
End_Procedure
|
|
12
|
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
|
|
11
|
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
|
|
10
|
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
|
|
9
|
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
|
|
8
|
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
Set ComValue to 5
End_Procedure
|
|
7
|
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
Set ComValue to 5
End_Procedure
|
|
6
|
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
Set ComValue to 5
End_Procedure
|
|
5
|
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
|
|
4
|
How can I change the size of control's font
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 96
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 12
Send Destroy to hoStdFont
Set ComForeColor to (RGB(255,0,0))
Set ComCaption OLEexThumbPart to "thumb"
End_Procedure
|
|
3
|
How do I change the control's font
Procedure OnCreate
Forward Send OnCreate
Set ComThumbSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Send Destroy to hoStdFont
Set ComForeColor to (RGB(255,0,0))
Set ComCaption OLEexThumbPart to "thumb"
End_Procedure
|
|
2
|
How can I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Set ComThumbSize to 32
Set ComCaption OLEexThumbPart to "thumb"
End_Procedure
|
|
1
|
How can I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(0,255,0))
End_Procedure
|