%PAINT
Return the code for the current paint character
WTSupported in traditional Synergy on Windows
|
|
USupported on UNIX
|
VSupported on OpenVMS
|
code = %PAINT
Return value
code
The decimal character code of the current paint character. (i)
Discussion
The default paint character code is 32 (an ASCII blank). You can change the paint character by calling the PAINT subroutine.
When you enable CRT mode using the FLAGS subroutine (runtime option flag 4), your program can initially display a data entry field as a sequence of paint characters. As the user enters data over the paint characters, they disappear, but if he or she deletes a character using ctrl+u or delete, the paint character reappears.
See also
Examples
The following function is called to change the paint character. The new paint character is passed as an argument. If the current paint character is correct, no change is made.
function chk_paint a_paint ,a record cur_paint ,a1 dval ,d3 proc if (%decml(%paint) .ne. %decml(a_paint)) xcall paint(a_paint) freturn (%true) endfunction