>Its simply a matter of higlighting more visibly the whereabouts of the cursor on a busy screen. Also the application in question is a port of a legacy FoxPro/Foxbase system with 99.99% of the screens still using trusty @Say's !. So I assmue inherited properties not as whole pile of use in this case.... I think. If there are any suggestions on a possible solution or workaround I'm all ears.
>

For increased "visibility" I might change a "Background Color" or "Border Width" on the fly. If you're using "WINDOWs and GETs", you can use hybrid code like the following to get at "properties"; eg.

m.LC_NameFirst = PADR( "PeeWee", 20 )
m.LC_NameLast = PADR( "Herman", 20 )
m.LC_City = PADR( "Anywhere", 20 )

DEFINE WINDOW W_Form1 ;
FROM 0, 0 TO 15, 80 ;
FLOAT SYSTEM

SET READBORDER ON
ACTIVATE WINDOW W_Form1

@ 2, 2 SAY "First Name:"
@ 4, 2 SAY "Last Name:"
@ 6, 2 SAY "City:"

@ 2, 16 CLASS My_NameFirst
@ 4, 16 GET m.LC_NameLast
@ 6, 16 GET m.LC_City

ON KEY LABEL ESC CLEAR READ
READ CYCLE
ON KEY LABEL ESC

RELEASE WINDOW W_Form1

*///////////////////////////////////////////////////////////////////////
DEFINE CLASS My_NameFirst AS TextBox
*///////////////////////////////////////////////////////////////////////
ControlSource = "m.LC_NameFirst"
*-----------------------------------------------------------------------
PROCEDURE GotFocus
*-----------------------------------------------------------------------
THIS.BackColor = RGB( 0, 255, 0 )
*-----------------------------------------------------------------------
PROCEDURE LostFocus
*-----------------------------------------------------------------------
THIS.BackColor = RGB( 255, 255, 255 )
*-----------------------------------------------------------------------
ENDDEFINE
*-----------------------------------------------------------------------