WINDOWS
Cover multiple monitors with one window
Try this:
LOCAL FN GetRectAllMonitors(rectPtr&)
DIM rect;8, gdH&
CALL SETRECT(rect,0,0,0,0)
gdH&=FN GETDEVICELIST
WHILE gdH&
CALL UNIONRECT(rect,#[gdH&]+_gdRect, rect)
gdH&=FN GETNEXTDEVICE(gdH&)
WEND
BLOCKMOVE @rect,rectPtr&,8 ' pass back result
END FN
DIM mRect;8
FN GetRectAllMonitors(@mRect)
WINDOW 1,,@mRect,3
PRINT
PRINT "L" mRect.top%, "T" mRect.top%
PRINT "R" mRect.right%, "B" mRect.bottom%
DO: UNTIL FN BUTTON
Robert