Tslider transparency

[reinaldocrespo]

Hi.

Working with Tslider control for the first time. I'm placing this control on a bitmaped dialog where all controls are transparent but the Tslider. Can't find how to make it transparent. Is this possible at all?

Code: Select all

	DEFINE DIALOG ::oDlg NAME "VoiceRecorder" OF ::oOwner BRUSH ::oBrush  TRANSPARENT
...
	REDEFINE SLIDER ::oSlider VAR nVar OF ::oDlg ID 400 HORIZONTAL LEFT DIRECTION EXACT ;
               RANGE 0, 200 MARKS 7
	::oSlider:bChange := { || ::PlaySpeed( Eval( ::oSlider:bSetGet() ) ) }
	::oSlider:lTransparent := .t.
	::oSlider:nClrPane := ::oDlg:nClrPane

Thank you,


Reinaldo.

[Antonio Linares]

Reinaldo,

Please try ::oSlider:SetBrush( ::oDlg:oBrush )

[reinaldocrespo]

Antonio;

Thank you for the reply.

It did not work. No change.

Here is the new code:

Code: Select all

	DEFINE BRUSH ::oBrush RESOURCE "GradientHoriz"
	DEFINE DIALOG ::oDlg NAME "VoiceRecorder" OF ::oOwner BRUSH ::oBrush  TRANSPARENT
...
	REDEFINE SLIDER ::oSlider VAR nVar OF ::oDlg ID 400 HORIZONTAL LEFT DIRECTION EXACT ;
               RANGE 0, 200 MARKS 7 
	::oSlider:bChange := { || ::PlaySpeed( Eval( ::oSlider:bSetGet() ) ) }
	::oSlider:lTransparent := .t.
	::oSlider:SetBrush( ::oDlg:oBrush )

Any other ideas?



Reinaldo.