|
100
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:ImageSize := 32
oSlider:Font():Size := 16
oSlider:ThumbSize := 156
oSlider:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +;
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +;
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +;
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1</img> thumb <img>2</img>")
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
99
|
ImageSize property on 16 (default) (specifies the size of control' icons)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:ImageSize := 16
oSlider:ThumbSize := 96
oSlider:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +;
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1</img> thumb <img>2</img>")
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
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
PROCEDURE OnChange(oSlider)
oSlider:SetProperty("Caption",256/*exThumbPart*/,Transform(oSlider:Value(),""))
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/
oSlider:BeginUpdate()
oSlider:VisualAppearance():Add(1,"gBFLBCJwBAEHhEJAAChABbEGACAADACAxRDAMgBQKAAzQFAYaBgGKGAAGIZRVgmFgAQhFcZQSKUOQTDKMIziaQAChwOYlQKMYxRCKYZhpCIZBwGCIYWiiIYiQKCUIiDBMIxseCgAAfSg5YiACIJFAaJhnIapZDKGKQCqASAyCI2UoaDZCIoQTLUBx5AaEAwicQKTjiIiQOgjdoWU46HIhNq3bauCybRoOdj8QKdbhHMbFdz0Oq/cBvbAzVbvBqHQKXLalVhWGYXRrIMbyIqnZxXFoDEQ1ZBZTjeNY5T7PNBIJ5tEyWKTTC4MeoaVpOV5dVrYHj2LY4DCtUgrbYJe47Xq+eZ1W6gOBeDZddZLP7HbZuHDbYJfBSCADkd65ToXAOHZEmUcg5HwXpPDeLZQm2dQ7ByTh3A+P5im0b58n6HwnF+KZpnCew8l6boPiOE5xnodh9n8XovAuW57H6HZHl2YB+l6J5Zl4fgeBeQgHgCXZICmfR8h+eAhlodxgng" +;
"SgNgEIAoBYE4DhwF55nmBYgGgVgMHSYYIC4GoAB4OIZnOCJfkgdgQgeYpIFILoICGOIWA8DgNFCVg4g6I4Ym4PoPGQAJUnGEJkEQDBQDaBJJBwToSiSQxqEuEgklEOJ0hSZVEGcN5GGkXhZhYJYpHYXIXkYZoViYAAHmOEB8hkR5BnSYwemaCY2GaG4HkYWYXAACRjiSFYdEkUhUmkJQngmdh2h+CRVl0RAAAqQ40iuIRoHoGoIiKaIqWwIIXoWASAg==")
oSlider:ShowThumbProgress := .T.
oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
oSlider:TickStyle := 3/*exNoTicks*/
oSlider:Value := 3
oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
97
|
How can I change the position of the control's tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ToolTipTitle := "Title"
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:ToolTipX := "value + 18"
oSlider:ToolTipY := "value + 18"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
96
|
How can I display the value in reverse order or from bottom to top
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:LabelTick := "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider:Minimum := -100
oSlider:Maximum := 100
oSlider:TickFrequency := 10
oSlider:ThumbSize := 40
oSlider:Orientation := 16/*exReverseOrder*/
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
95
|
How can I display the value in reverse order or from right to left
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:LabelTick := "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider:Minimum := -100
oSlider:Maximum := 100
oSlider:TickFrequency := 10
oSlider:ThumbSize := 40
oSlider:Orientation := 17/*exReverseOrder+exHorizontal*/
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
94
|
I need only to change the knob of the slider with a picture. Is it possible
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:LabelTick := "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider:Minimum := -100
oSlider:Maximum := 100
oSlider:TickFrequency := 10
oSlider:SetProperty("Background",388/*exHSThumb*/,0x1000000)
oSlider:ThumbSize := 40
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
93
|
Is it possible to print the control's Value on the thumb
PROCEDURE OnChange(oSlider)
oSlider:SetProperty("Caption",256/*exThumbPart*/,Transform(oSlider:Value(),""))
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/
oSlider:TickStyle := 2/*exBoth*/
oSlider:ThumbSize := 48
oSlider:TickFrequency := 0
oSlider:Value := 5
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
92
|
How can I display the value on the thumb
PROCEDURE OnChange(oSlider)
oSlider:SetProperty("Caption",256/*exThumbPart*/,Transform(oSlider:ValueF(),""))
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/
oSlider:BeginUpdate()
oSlider:AllowFloat := .T.
oSlider:MinimumF := -3.25
oSlider:MaximumF := 3.25
oSlider:SmallChangeF := 0.25
oSlider:ThumbSize := 48
oSlider:ValueF := 0
oSlider:TickStyle := 2/*exBoth*/
oSlider:TickFrequencyF := 0
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
91
|
How can I display a different text than the slider's value
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:LabelTick := "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
90
|
How can I show values for selec range only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SelectRange := .T.
oSlider:SelStart := 1
oSlider:SelLength := 2
oSlider:LabelTick := "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + value : '' ) "
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
89
|
Is it possible to display min max value
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:LabelTick := "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
88
|
How can I show the value for current value only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:LabelTick := "value = current ? value : ''"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
87
|
Is it possible to show the value using the tooltip
PROCEDURE OnChange(oSlider)
oSlider:ToolTipText := Transform(oSlider:Value(),"")
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
86
|
Is it possible to show labels for ticks
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:LabelTick := "value"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
85
|
How can I change the tooltip's border using your EBN files with a different color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:SetProperty("Background",64/*exToolTipAppearance*/,0x100ffa0)
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 43
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
84
|
Can I change the color for the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:Appearance := 16777471/*0x10000f8+Bump+Sunken*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
83
|
How can I display a character from a specified font ( for vertical alignment )
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>-1</img><font Webdings;10>a</font>")
oSlider:Orientation := 0/*exVertical*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
82
|
How can I display a character from a specified font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<font Webdings;10>a</font>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
81
|
When I have a slider in vertical orientation, how can I get the caption horizontal
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>-1</img>thumb")
oSlider:Orientation := 0/*exVertical*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
80
|
Does your control support floating points
PROCEDURE OnChange(oSlider)
DevOut( Transform(oSlider:ValueF(),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/
oSlider:BeginUpdate()
oSlider:AllowFloat := .T.
oSlider:MinimumF := -3
oSlider:MaximumF := 3
oSlider:SmallChangeF := 0.5
oSlider:LargeChangeF := 1
oSlider:TickFrequencyF := oSlider:SmallChangeF()
oSlider:ValueF := 0
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
79
|
How do I change the control's border, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:Appearance := 16777216/*0x1000000+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
78
|
How can I change the color of the selected range in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Orientation := 0/*exVertical*/
oSlider:SelectRange := .T.
oSlider:SelStart := 2
oSlider:SelLength := 2
oSlider:Value := 1
oSlider:SetProperty("Background",280/*exVSSel*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
77
|
How can I change the color of the selection in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SelectRange := .T.
oSlider:SelStart := 2
oSlider:SelLength := 2
oSlider:Value := 1
oSlider:SetProperty("Background",408/*exHSSel*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
76
|
How can I change the visual appearance of the selected range in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Orientation := 0/*exVertical*/
oSlider:SelectRange := .T.
oSlider:SelStart := 2
oSlider:SelLength := 2
oSlider:Value := 1
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:SetProperty("Background",280/*exVSSel*/,0x1000000)
oSlider:SetProperty("Caption",1/*exSelPart*/,"selection")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
75
|
How can I change the visual appearance of the selection in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SelectRange := .T.
oSlider:SelStart := 2
oSlider:SelLength := 2
oSlider:Value := 1
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:SetProperty("Background",408/*exHSSel*/,0x1000000)
oSlider:SetProperty("Caption",1/*exSelPart*/,"selection")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
74
|
Is there any option to select a range in the control, or to highlight my selection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SelectRange := .T.
oSlider:SelStart := 2
oSlider:SelLength := 2
oSlider:Value := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
73
|
How can I specify the upper and lower parts using gradient colors
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Value := 3
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oSlider:SetProperty("Background",396/*exHSLower*/,0x1000000)
oSlider:SetProperty("Background",400/*exHSUpper*/,0x2000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
72
|
How can I specify the upper and lower parts using gradient colors
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Orientation := 0/*exVertical*/
oSlider:Value := 3
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oSlider:SetProperty("Background",268/*exVSLower*/,0x1000000)
oSlider:SetProperty("Background",272/*exVSUpper*/,0x2000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
71
|
How can I change the color of the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ShowThumbProgress := .T.
oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
oSlider:TickStyle := 3/*exNoTicks*/
oSlider:Value := 3
oSlider:SetProperty("Background",260/*exVSThumb*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
70
|
How can I change the visual appearance of the progress bar using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ShowThumbProgress := .T.
oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
oSlider:TickStyle := 3/*exNoTicks*/
oSlider:Value := 3
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
69
|
How can I show a progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ShowThumbProgress := .T.
oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
oSlider:TickStyle := 3/*exNoTicks*/
oSlider:Value := 3
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
68
|
May I change the color of the ticks
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("TickColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
67
|
How do I specify the frequency of the ticks on the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:TickFrequency := 2
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
66
|
How can I show the tickers on bottom/right side only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:TickStyle := 0/*exBottomRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
65
|
How can I show the tickers on top/left side only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:TickStyle := 1/*exTopLeft*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
64
|
How can I show the tickers on both sides
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:TickStyle := 2/*exBoth*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
63
|
How can I hide the tickers
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:TickStyle := 3/*exNoTicks*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
62
|
Is there any function to show the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ShowToolTip("This message is shown when ShowToolTip methoid is called")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
61
|
Is there any function to highligth the control when it gets the focus
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ShowFocusRect := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
60
|
I am using your control in a C++ application, and I would preffer handle messages instead events
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:NotifyParent := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
59
|
How can I change the visual appearance of the thumb usign your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Orientation := 0/*exVertical*/
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
58
|
How can I change the visual appearance of the thumb usign your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
57
|
Can I indent the caption in parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 64
oSlider:SetProperty("Caption",256/*exThumbPart*/,"20 pixels<br>from left")
oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,0/*LeftAlignment*/)
oSlider:SetProperty("CaptionIndentX",256/*exThumbPart*/,20)
oSlider:Value := 3
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
56
|
Does your control support owner draw feature
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("OwnerDrawPart",256/*exThumbPart*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
55
|
Can I assing any extra data to a button or part of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("UserData",256/*exThumbPart*/,"This is just some extra data assigned to the control's thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
54
|
How can I specify the size of the thumb
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 48
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
53
|
Can I change the tooltip's border using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oSlider:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
52
|
Can I change the tooltip's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ToolTipText := "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
51
|
Can I change the tooltip's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
50
|
Can I change the tooltip's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ToolTipText := "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
49
|
Can I change the tooltip's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
48
|
Can I change the tooltip's width
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:ToolTipWidth := 256
oSlider:ToolTipText := "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"
oSlider:Value := 4
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
47
|
Can I change the tooltip's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:ToolTipTitle := "Title"
oSlider:ToolTipText := "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"
oSlider:Value := 4
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
46
|
Can I change the tooltip's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oSlider:ToolTipFont := f
oSlider:ToolTipTitle := "Title"
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
45
|
Can I display a tooltip when user clicks the thumb and drags it to a new position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ToolTipTitle := "Title"
oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
44
|
How can I get the value from the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL var_ValueFromPoint
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
var_ValueFromPoint := oSlider:ValueFromPoint(-1,-1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
43
|
Is there any function to identify the part from the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL var_PartFromPoint
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
var_PartFromPoint := oSlider:PartFromPoint(-1,-1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
42
|
Is there any option to specify the value to be added or subtracted when user presses the contro's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:LargeChange := 2
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
41
|
Is there any option to specify the value to be added or subtracted when user presses the up or down button
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SmallChange := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
40
|
How do I specify the maxmimum value in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Maximum := 20
oSlider:Value := 10
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
39
|
How do I specify the minimum value in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Minimum := 2
oSlider:Value := 3
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
38
|
How do I change control's position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
37
|
How do I change the position of the thumb
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
36
|
How do I enable or disable a part of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Value := 2
oSlider:ThumbSize := 48
oSlider:SetProperty("EnablePart",256/*exThumbPart*/,.F.)
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<fgcolor=808080>thumb</fgcolor>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
35
|
How do show or hide parts in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("VisiblePart",256/*exThumbPart*/,.F.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
34
|
How do I arrange the control vertically
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Orientation := 0/*exVertical*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
33
|
How do I prevent painting the control when I perform several changes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:BeginUpdate()
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oSlider:SetProperty("HTMLPicture","p2","c:\exontrol\images\auction.gif")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon")
oSlider:ThumbSize := 124
oSlider:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
32
|
How do I add icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 64
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1</img>thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
31
|
How can I align the caption to the right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 64
oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb right")
oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,2/*RightAlignment*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
30
|
How can I align the caption to the left
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 64
oSlider:SetProperty("Caption",256/*exThumbPart*/," thumb left")
oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,0/*LeftAlignment*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
29
|
How can show the caption using a different font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<font Tahoma;12>upper</font> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<font ;4>lower</font> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
28
|
Is there any option to display icons or pictures in the parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 124
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oSlider:SetProperty("HTMLPicture","p2","c:\exontrol\images\auction.gif")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
27
|
Is there any option to display icons or pictures in the parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 124
oSlider:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oSlider:SetProperty("HTMLPicture","p2","c:\exontrol\images\auction.gif")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>p1</img> thumb <img>p2</img>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
26
|
Is there any option to display icons or pictures in the parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1</img> thumb <img>2</img>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
25
|
Is there any option to display icons or pictures in the parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
24
|
Is there any option to display icons or pictures in the parts of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>1</img>thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
23
|
How can paint the caption using multiple lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 48
oSlider:SetProperty("Caption",256/*exThumbPart*/,"line1<br>line2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
22
|
How can change the background color for a portion of text
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
21
|
How can change the foreground color for a portion of text
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<fgcolor=FF0000>upper</fgcolor> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<fgcolor=0000FF>upper</fgcolor> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
20
|
How can show the caption as strikeout
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oSlider:Font := f
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<s>upper</s> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<s>lower</s> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
19
|
How can underline a portion of the caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oSlider:Font := f
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<u>upper</u> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<u>lower</u> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
18
|
How can I draw in italic a portion of the caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oSlider:Font := f
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<i>upper</i> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<i>lower</i> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
17
|
How can I draw in bold a portion of the caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oSlider:Font := f
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<b>upper</b> part")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<b>lower</b> part")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
16
|
How can I put a text on the background part in the lower or upper side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"upper")
oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"lower")
oSlider:Value := 4
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
15
|
How can I put a text on the background part
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("Caption",640/*exBackgroundPart*/,"background")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
14
|
How can I put a text on the thumb
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 32
oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
13
|
How can I disable the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Enabled := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
12
|
How do I put a picture on the center of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 17/*MiddleCenter*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
11
|
How do I resize/stretch a picture on the control's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 49/*Stretch*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
10
|
How do I put a picture on the control's center right bottom side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 34/*LowerRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
9
|
How do I put a picture on the control's center left bottom side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 32/*LowerLeft*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
8
|
How do I put a picture on the control's center top side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 1/*UpperCenter*/
oSlider:Value := 5
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
7
|
How do I put a picture on the control's right top corner
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 2/*UpperRight*/
oSlider:Value := 5
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
6
|
How do I put a picture on the control's left top corner
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider:PictureDisplay := 0/*UpperLeft*/
oSlider:Value := 5
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
5
|
How do I put a picture on the control's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
4
|
How can I change the size of control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 96
oSlider:Font():Size := 12
oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
3
|
How do I change the control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:ThumbSize := 32
oSlider:Font():Name := "Tahoma"
oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
2
|
How can I change the control's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oSlider:ThumbSize := 32
oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
1
|
How can I change the control's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSlider
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSlider := XbpActiveXControl():new( oForm:drawingArea )
oSlider:CLSID := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
oSlider:create(,, {10,60},{610,370} )
oSlider:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,255,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|