How to Improve FoxPro for Windows Insertion Point Visibility

• Microsoft FoxPro for Windows, version 2.6a

SUMMARY

Not to be confused with the mouse pointer, the vertical bar that indicates where the next character typed will appear is called the insertion point in Windows-based applications.

There may be times when the insertion point is difficult to locate visually. For example, the user may have trouble locating the insertion point at higher resolutions, on screens with poor color contrasting, or in a display of crowded objects.

The program in this article uses two techniques to provide visual clues as to which field is active and where the insertion point is.

MORE INFORMATION

The current field can be differentiated from the others by setting the color of the GET. To do this, add a COLOR clause to the READ statement to change the second color pair, as in this example:

   READ COLOR ,N/GR*    && produces black on bright yellow; note comma

   #READCLAUSE COLOR ,GR+/N  && note first color pair defaulted by comma

Code Sample

** S E T C A R E T . P R G ** ** Program to change the blink rate of the insertion point (caret) ** This program assumes FOXTOOLS.FLL is in the same directory ** >> NOTE: Press ESC to exit, or remove CYCLE from READ and TAB through.

ON KEY LABEL F12 DO blinkit WITH '+' && to increment blink rate ON KEY LABEL F11 DO blinkit WITH '-' && to decrement blink rate

wink = 4   && exponent for incremental blink rate controls

blinc = CALLFN(get_blink)   && store system blink rate

DEFINE WINDOW test AT 10,10 SIZE 20,45 ACTIVATE WINDOW test

@12,2 SAY 'Rate [ 1 - fastest / 32 - slowest ]: '+ TRANSFORM(wink, '99') @13,2 SAY ' <F11> decrease | <F12> increase '

@2,2 GET this DEFAULT '          ' FONT 'Arial',10

READ CYCLE COLOR ,GR+/N && example of READ COLOR clause

sbnul = CALLFN(set_blink, blinc) && resets back to system blink rate RELEASE LIBRARY foxtools DEACTIVATE WINDOW test RELEASE WINDOW test ON KEY

PROCEDURE blinkit PARAMETER incr IF incr = '+'

    wink = IIF( wink = 1, 1, wink - 1 )

    wink = IIF( wink = 32, 32, wink + 1 )

When run, the current field will have a black background with bright yellow letters. By pressing the F11 or F12 function key when the pointer is in a field, you can change the blink rate of the insertion point. Once you are satisfied with the visibility, press the ESC key to exit the program and return the blink rate to normal.