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

DRAWING

Display marching ants


Here is the function that I use to draw a marching ant marquee in one of my apps. I have had no trouble on my G3. The constant _patResId is the id of the first of 8 marching ant patterns in my program's resource fork.
LOCAL FN doTimer
  windsave=WINDOW(_outputWnd)
  LONG IF windsave=_CropIntWindow
    DIM rect.8
    gPat%=gPat%+1
    IF gPat%>=_patResId+8 THEN gPat%=_patResId        'set the initial pattern for marching ants
    patHand&=FN GETPATTERN(gPat%)
    BLOCKMOVE [patHand&], @gPatBits, 8
    CALL PENNORMAL
    CALL PENPAT(gPatBits)
    FN loadRect(@rect)
    CALL FRAMERECT(rect)
    CALL PENNORMAL
  END IF
END FN
Joe Lertola