Color de Get READ ONLY

[JoseGS]

Como puedo hacer que el color del Font usado en un GET deshabilitado sea diferente al gris

REDEFINE GET oDbf:NOTA ID 101 OF oDlg WHEN lEditar

Necesito que aunque la condicion WHEN no se cumpla, el color del texto sea mas visible.

Con FW lo que hacia era definir el control como MULTILINE y el sistema mostraba el texto en negro aunque no permitiera la edicion.

Como puede hacer esto con FWH

Gracias amigos...

[Daniel Garcia-Gil]

Saludos JoseGS.

Desde la version 8.12 la clase get acepta esa caracteristica

* Nuevo: En la clase TGet, nuevos DATAs nClrTextDis, nClrPaneDis para permitir cambiar los colores del GET cuando se desactiva. Se permite también un bloque de código.

en este post consigues un ejemplo de su uso: http://forums.fivetechsupport.com/viewt ... 562#p72562

si tienes una version anterior, en este post explico como hacerlo: http://forums.fivetechsupport.com/viewt ... 080#p71080

[JoseGS]

Gracias Daniel. tengo la version 8.05 por ende necesito utilizar el segundo metodo. El problema es que no se como hacer esta modificacion de la clase. Me parece que no solo es cuestion de modificar el tget.prg ?????

Gracias por tu ayuda.

[Daniel Garcia-Gil]

Jose...

si solo tienes que modificar TGET.PRG y enlazarla como un prg mas a tu proyecto

[dobfivewin]

Yo lo hago así:

Code: Select all

@   3 , 13 GET oNOM_CD_CARE var mNOM_CD_CARE OF oDlgCar COLOR RGB(0,0,255) When .F.
  oNOM_CD_CARE:lDisColors := .F.

Saludos

David

[JoseGS]

David, creo que mi problema radica en que utilizo FWH 8.05
Cuando aplico la instruccion que me recomiendas al usar un Get funciona pero cuando ese Get lo utilizo con un MEMO (multilineas) me presenta un error.

[JoseGS]

Gracias Jose, voy a intentarlo.

Son todos muy amables en contestar.