topic-27214

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Colores en los gets, como?
Posted: Thu Sep 12, 2013 03:00 PM

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.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Colores en los gets, como?
Posted: Thu Sep 12, 2013 03:15 PM

al inicio de mi app pong esto:

Code (fw): Select all Collapse

...
   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 (fw): Select all Collapse

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

en el metodo redefine hay que comentar estas lineas

Code (fw): Select all Collapse

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

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

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Colores en los gets, como?
Posted: Thu Sep 12, 2013 03:16 PM

Noe

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

Code (fw): Select all Collapse

 SetGetColorFocus(RGB(238,232,170))

Saludos,

Adhemar

Saludos,

Adhemar C.

noe aburto

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Re: Colores en los gets, como?
Posted: Thu Sep 12, 2013 05:31 PM

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

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

FiveTech Support Forums

Continue the discussion