ASM

TEXT

See all Edit Field types

For those interested, the following code demonstrates all the EF types.

COMPILE 0,_caseInsensitive

LOCAL FN EFtypes
  type%=1 'Start with #1
  FOR k = 1 TO 16 '16 rows
    FOR j= 1 TO 16 '16 columns
      tmp$=STR$(type%)
      TEXT _geneva,8
      EDIT FIELD#type%,tmp$,(45*j-30,32*k-12)-(45*j-3,32*k+3),type%,_centerJust
      INC (type%)
  NEXT j,k
END FN

WINDOW#1,"Edit Field
Types",(10,40)-(SYSTEM(_scrnWidth)-10,SYSTEM(_scrnHeight)-10)

FN EFtypes
DO
  HANDLEEVENTS
UNTIL FN STILLDOWN 'Mouse down to quit