Hi-Lite get fields like the old Dos days

[Rick Lipkin]

To All

Let me ask this question another way ... remember in the old dos days .. when you tabbed or hit enter to go to the next get .. the field get would turn another color ( yellow perhaps ) .. is there a global setting ( or code ) that will turn the get field a different color when the field is in focus ... I have a complex form with lots of gets .. it is very difficult to see the cursor when it moves from field to field .. I just need a way to turn the field get to a hi-lited color .. that would help the users to know where they are in the form.

Thanks
Rick Lipkin

[hua]

Maybe

Code: Select all  Expand view  RUN

TGet():nClrFocus := 16577214
TGet():lClrFocus := .t.
 

[nageswaragunupudi]

Simpler

Code: Select all  Expand view  RUN

SetGetColorFocus()
 

[Rick Lipkin]

Rao

SetGetColorFocus() .. 2 questions

1) do you have a short example ??
2) I would prefer to use this function when and where I need it .. and not be a global setting ..

Thanks
Rick Lipkin

[MOISES]

Rick,

It is a global setting to be called at the beginining of main()

[horacio]

Hello, if you want to customize

Code: Select all  Expand view  RUN

oGet : bGotFocus := { || oGet : SetColor( 0, CLR_GRAY ) }
oGet : bLostFocus := { || oGet : SetColor( 0, CLR_WHITE ) }
 

Saludos

[nageswaragunupudi]

Rao

SetGetColorFocus() .. 2 questions

1) do you have a short example ??
2) I would prefer to use this function when and where I need it .. and not be a global setting ..

Thanks
Rick Lipkin

1) Just put it in one of your applications and see the difference.

2)
Syntax:

Code: Select all  Expand view  RUN

SetGetColorFocus( [nClr] )
 

You can also use it as a Global setting or keep changing / toggling it wherever you want in your program.
All Gets created after this setting and before you change the setting use this color for focused gets.

Code: Select all  Expand view  RUN

SetGetColorFocus( CLR_WHITE )
 

Restores normal behavior.