Page 1 of 1

TGET, lDisColors

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

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

Code: Select all  Expand view
DATA lDisColors


Code: Select all  Expand view
CLASSDATA lDisColors  INIT .t.


Eliminar las siguientes líneas comentadas:
Code: Select all  Expand view
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

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

Implementado para FWH 9.12

Muchas gracias! :-)

Re: TGET, lDisColors

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

Muy amable, gracias