Cambiando el color de TSlider

Post Reply
FiveWiDi
Posts: 1238
Joined: Mon Oct 10, 2005 2:38 pm
Has thanked: 3 times
Been thanked: 4 times

Cambiando el color de TSlider

Post by FiveWiDi »

Hola a todos,

Estoy jugando con el control TSlider, de hecho me va irá muy bien.

El caso es que en la cláusula ON INIT de un DIALOG quiero cambiar el color de fondo (DATA nClrPane), pero no hay manera.

Después de dar nuevo valor a :nClrPane intento un Hide(), un Show(), un Display(), un ShowFocus( .T. ), nada que no cambia el color.

¿Cómo debería hacerlo?

Muchas gracias,
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
User avatar
karinha
Posts: 7932
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: Cambiando el color de TSlider

Post by karinha »

Buen día. Si nos das un ejemplo, se vuelve más fácil.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

Re: Cambiando el color de TSlider

Post by cnavarro »

Has probado con ?

Code: Select all | Expand

   oSlider:SetColor( oSlider:nClrText, nNewColor )
//   oSlider:Default()
   oSlider:Refresh()
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
FiveWiDi
Posts: 1238
Joined: Mon Oct 10, 2005 2:38 pm
Has thanked: 3 times
Been thanked: 4 times

Re: Cambiando el color de TSlider

Post by FiveWiDi »

Ostras Cristobal... precisamente esto que debería haber sido lo primero en probar, y no lo hice.

Después lo pruebo.

Muchas gracias a ambos.
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
Posts: 1238
Joined: Mon Oct 10, 2005 2:38 pm
Has thanked: 3 times
Been thanked: 4 times

Re: Cambiando el color de TSlider

Post by FiveWiDi »

cnavarro wrote:Has probado con ?

Code: Select all | Expand

   oSlider:SetColor( oSlider:nClrText, nNewColor )
//   oSlider:Default()
   oSlider:Refresh()
 
PERFECTO!!!!!!!

No he necesitado ni realizar el Referesh()

Muchas gracias.
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
Post Reply