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
Si quieres enviame un correo al privado y te hago llegar la clase modificada..
#define COLOR_GRAYTEXT 17Revisando 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
Biel EA6DD wrote:Puedes modificar la linea 11 de la clase tGet
#define COLOR_GRAYTEXT 17
Cambia 17 por el color que tu quieras.
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.
Antonio Linares wrote: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.
Resolvi desta maneira:
aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )
ronaldo wrote:Resolvi desta maneira:
aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )
leandro wrote:Si quieres enviame un correo al privado y te hago llegar la clase modificada..
