Color a Get desHabilitados en Harbour

[lubin]

Buen Dia para todos

Desearia cambiar el color de los GETs que se encuentran DESHABILITADOS (Ejem. WHEN .f.) en Harbour, de preferencia quizas hacerlo globalmente cambiando el la Clase TGEts

Les comentare que algo asi hice para cambiar en todo el sistema el Color del Get que tiene el Foco de edicion por ejemplo a amarillo, asi el usuario sabe donde digita... pues ahora deseo que vea de otro color el Get Deshabilitado


Harbour + FWH2.5 + BCC55
Gracias

Lubin

[leandro]

Si quieres enviame un correo al privado y te hago llegar la clase modificada..

[lubin]

Leandro
Estare Atento a tu envio

lubin.am@speedy.com.pe

Muchas gracias

Lubin

[Biel EA6DD]

Puedes modificar la linea 11 de la clase tGet

Code: Select all

#define COLOR_GRAYTEXT      17

Cambia 17 por el color que tu quieras.

[TecniSoftware]

Revisando la clase veo que existe una data que es ::lDisColors que arranca en .T., al parecer, di la pones en .F. va a utilizar los mismos colores que si no estuviera deshabilitado.

Saludos!
Alejandro Cebolido

[lubin]

Hola Biel

te cometare que no me dio resultado, no cambia de color a los Gets Deshabilitados

Hice la prueba donde la clase TGET usa este Valor COLOR_GRAYTEXT y lo cambie directamente, y resulto dar efecto sobre "GETS que no se habian usado en un proceso de edicion " aparentemente

habra alguna idea as ??

Lubin

Puedes modificar la linea 11 de la clase tGet

Code: Select all

#define COLOR_GRAYTEXT      17

Cambia 17 por el color que tu quieras.

[Antonio Linares]

Lubin,

No se puede cambiar el color de los GETs deshabilitados, ya que ese color lo implementa Windows.

Lo que te permite FWH es que no se vean como deshabilitados, aunque lo esten, para mejorar su lectura.

[lubin]

Hola Antonio

Bueno si es asi, que parametro debo de habilitar y en que parte lo debo hacer.

Lubin

Lubin,

No se puede cambiar el color de los GETs deshabilitados, ya que ese color lo implementa Windows.

Lo que te permite FWH es que no se vean como deshabilitados, aunque lo esten, para mejorar su lectura.

[ronaldo]

Resolvi desta maneira:

aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )

[lubin]

Ronaldo

Lo aplicare para ver resultados y se los comento

nota : supongo que debo de ponerlo antes de activar el dialogo a aplicar el efecto verdad ?


Gracias
Lubin

Resolvi desta maneira:

aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )

[lubin]

Hola Leandro

Gracias por el Envio, lo pondre en marcha y te lo comento


Lubin

Si quieres enviame un correo al privado y te hago llegar la clase modificada..