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

SYSTEM

Check for multiple monitors



DIM my,mx :REM you supply a local point (0,0 = top/left of curr wnd)
DIM t,l,b,r

LONG IF SYSTEM(_macPlus) = _false
  CALL LOCALTOGLOBAL(my)
  gdHndl& = FN GETDEVICELIST
  WHILE gdHndl&
    LONG IF FN PTINRECT(my,#[gdHndl&] + _gdRect)
      t;8 = [gdHndl&] + _gdRect
      gdHndl& = 0
    END IF
    IF gdHndl& THEN gdHndl& = FN GETNEXTDEVICE(gdHndl&)
  WEND
END IF

STAZ ~)~