topic-7702

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Tslider transparency
Posted: Sat Jul 28, 2007 01:30 AM

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 Collapse

	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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Tslider transparency
Posted: Sat Jul 28, 2007 08:53 AM

Reinaldo,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Tslider transparency
Posted: Sat Jul 28, 2007 02:57 PM

Antonio;

Thank you for the reply.

It did not work. No change.

Here is the new code:

Code: Select all Collapse

	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.

FiveTech Support Forums

Continue the discussion