topic-42807

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Cambiando el color de TSlider
Posted: 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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Cambiando el color de TSlider
Posted: Mon Feb 20, 2023 01: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

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambiando el color de TSlider
Posted: Mon Feb 20, 2023 04:32 PM

Has probado con ?

Code (fw): Select all Collapse

   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: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Cambiando el color de TSlider
Posted: 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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Cambiando el color de TSlider
Posted: Thu Mar 02, 2023 01:03 PM

cnavarro wrote:Has probado con ?
Code (fw): Select all Collapse
   oSlider:SetColor( oSlider:nClrText, nNewColor )
//   oSlider:Default()
   oSlider:Refresh()

PERFECTO!!!!!!!

No he necesitado ni realizar el Referesh()

Muchas gracias.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion