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

WINDOWS

Display a frame while dragging a window


Here is a working version (which actually does not use globals).
Note the first line of the code below (COMPILE ...) , which would have saved you some hassle {:-)

COMPILE ,_dimmedvarsOnly

END GLOBALS

LOCAL FN DragHell(myPointPtr&)
  DIM screenRect;8, copyPt.4
  copyPt;4=myPointPtr&
  CALL LOCALTOGLOBAL (copyPt)
  CALL SETRECT (screenRect, 0, 0, SYSTEM(6), SYSTEM(7))
  CALL DRAGWINDOW (FN FRONTWINDOW, copyPt, screenRect)
END FN

WINDOW 1
DIM myPoint
DO
  CALL GETMOUSE(myPoint)
  FN DragHell(@myPoint)
  HANDLEEVENTS
UNTIL 0

Robert Purves