Hi-Lite get fields like the old Dos days

Hi-Lite get fields like the old Dos days

Postby Rick Lipkin » Thu Mar 12, 2020 9:39 pm

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
User avatar
Rick Lipkin
 
Posts: 2663
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Hi-Lite get fields like the old Dos days

Postby hua » Fri Mar 13, 2020 2:57 am

Maybe

Code: Select all  Expand view

TGet():nClrFocus := 16577214
TGet():lClrFocus := .t.
 
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1072
Joined: Fri Oct 28, 2005 2:27 am

Re: Hi-Lite get fields like the old Dos days

Postby nageswaragunupudi » Fri Mar 13, 2020 8:27 am

Simpler
Code: Select all  Expand view

SetGetColorFocus()
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Hi-Lite get fields like the old Dos days

Postby Rick Lipkin » Sun Mar 15, 2020 5:13 pm

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
User avatar
Rick Lipkin
 
Posts: 2663
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Hi-Lite get fields like the old Dos days

Postby MOISES » Sun Mar 15, 2020 6:46 pm

Rick,

It is a global setting to be called at the beginining of main()
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Hi-Lite get fields like the old Dos days

Postby horacio » Mon Mar 16, 2020 1:00 am

Hello, if you want to customize

Code: Select all  Expand view

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


Saludos
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Hi-Lite get fields like the old Dos days

Postby nageswaragunupudi » Mon Mar 16, 2020 4:54 am

Rick Lipkin wrote: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

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

SetGetColorFocus( CLR_WHITE )
 

Restores normal behavior.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests