TGET, lDisColors

[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.

[wmormar]

Estas serían las modificaciones:

Code: Select all  Expand view  RUN

DATA lDisColors

Code: Select all  Expand view  RUN

CLASSDATA lDisColors  INIT .t.

Eliminar las siguientes líneas comentadas:

Code: Select all  Expand view  RUN

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

[Antonio Linares]

William,

Implementado para FWH 9.12

Muchas gracias!

[wmormar]

Antonio Linares,

Muy amable, gracias