Cambiando el color de TSlider

Cambiando el color de TSlider

Postby FiveWiDi » Sat Feb 18, 2023 10:28 pm

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
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Re: Cambiando el color de TSlider

Postby karinha » Mon Feb 20, 2023 1:44 pm

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
karinha
 
Posts: 7828
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Cambiando el color de TSlider

Postby cnavarro » Mon Feb 20, 2023 4:32 pm

Has probado con ?
Code: Select all  Expand view  RUN

   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
User avatar
cnavarro
 
Posts: 6548
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Cambiando el color de TSlider

Postby FiveWiDi » Tue Feb 21, 2023 10:45 pm

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: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Re: Cambiando el color de TSlider

Postby FiveWiDi » Thu Mar 02, 2023 1:03 pm

cnavarro wrote:Has probado con ?
Code: Select all  Expand view  RUN

   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
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 26 guests