Open topic with navigation
WTSupported in traditional Synergy on Windows
USupported on UNIX
VSupported on OpenVMS
code = %PAINT
The decimal character code of the current paint character. (i)
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.
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)