Colores en los gets, como?

[noe aburto]

Saludos foro.

A sugerencia de la mayoria de los usuarios que usan las aplicaciones desarrolladas, exigen ver de forma diferente los gets
en edicion, cuando estos estan OGet:Enable() y editandose si me acepta colores definidos en:

oget:nClrFore
oget:nClrBack o oget:SetColor(...)

pero como podre desplegar los gets con los colores deseados si tan solo estoy consultado y no editando?

Alguna sugerencia.

[carlos vargas]

al inicio de mi app pong esto:

Code: Select all  Expand view

...
   SetKinetic( FALSE )
   SetDialogEsc( FALSE )
   SetGetColorFocus( CLR_MENTA )

   WITH OBJECT tGet()
      :lDisColors  := FALSE
      :nClrTextDis := CLR_BLUE
      :nClrPaneDis := CLR_SOFTYELLOW
   END
...
 

y que modificar tget de esta forma

Code: Select all  Expand view

...
   //DATA   nClrTextDis, nClrPaneDis                 //comentar esta linea
...
   CLASSDATA nClrTextDis, nClrPaneDis             //agregar esta linea
..
 

en el metodo redefine hay que comentar estas lineas

Code: Select all  Expand view

//   ::nClrTextDis = nClrFore
//   ::nClrPaneDis = nClrBack
 

ahora cada get que tenga WHEN .F.
saldra con el color azul sobre un amarillo tenue

salu2

[acuellar]

Noe

Colocar este código en el principal y todos los Gets en edición tendrán en color

Code: Select all  Expand view

 SetGetColorFocus(RGB(238,232,170))
 

Saludos,

Adhemar

[noe aburto]

Carlos:

Esto me funciona para cambiar los colores de los gets en general, y esta bien, asi los puedo modificar

WITH OBJECT tGet()
:lDisColors := .F.
:nClrTextDis := COLOR_AZUL
:nClrPaneDis := COLOR_SAMARILLO
END

El detalle aqui, es: Como indicar el color del get en particular, que no todos tengan el mismo color de texto y fondo, solo algunos
con colores definidos para cada get. Esa es mi cuestion.

y es que tengo una proceso algo asi:

@ 02,02 COLUART(1) "art->pre_inv" no modificar formato "@!";
id 102 titulo 'Prefijo ' long {8,1,oFontPza} color {COLOR_AZUL,COLOR_SAMARILLO}
@ 02,32 COLUART(1) "art->bas_inv" formato "@!" requerido;
id 103 titulo 'Basico ' long {8,1,oFontPza} color {COLOR_NEGRO,COLOR_SAMARILLO}
@ 02,59 COLUART(1) "art->suf_inv" formato "@!";
id 104 titulo 'Sufijo ' long {6,1,oFontPza} color {COLOR_NEGRO,COLOR_SAMARILLO}
@ 01,32 COLUART(1) "art->des_inv" formato "@!S36" requerido;
id 105 titulo 'Descripci¢n' color COLOR_ROJO