Page 1 of 1

TGET, lDisColors

Posted: Thu Dec 24, 2009 4:10 am
by wmormar
Antonio,

Sería posible colocar CLASSDATA la data mencionada.

Esto es para facilitar cambiarla de manera general y no de control por control.

Mucho tenemos la necesidad de que los colores se vean con colores aunque el control esté deshabilitado.

Saludos y gracias de antemano.

PD. Hay mochos post con a necesidad de cambiar el color al control deshabilitado.

Re: TGET, lDisColors

Posted: Thu Dec 24, 2009 4:30 am
by wmormar
Estas serían las modificaciones:

Code: Select all

DATA lDisColors

Code: Select all

CLASSDATA lDisColors  INIT .t.
Eliminar las siguientes líneas comentadas:

Code: Select all

METHOD new(...)
...
   ::SetColor( nClrFore, nClrBack )
//   ::lDisColors = .t.   // delete this line
   ::lAdjustBtn = .f.
...
...

METHOD redefine( ... )
...
   ::SetColor( nClrFore, nClrBack )
//   ::lDisColors = .t.   // delete this line
   ::lAdjustBtn = .f.   
...
...
Gracias de antemano

Re: TGET, lDisColors

Posted: Thu Dec 24, 2009 7:07 am
by Antonio Linares
William,

Implementado para FWH 9.12

Muchas gracias! :-)

Re: TGET, lDisColors

Posted: Thu Dec 24, 2009 7:23 am
by wmormar
Antonio Linares,

Muy amable, gracias