FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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

Steve Van Voorst