%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