' Desktop image as a background to your form for Rapid-Q

$TYPECHECK ON

CONST WM_SIZING = 532
CONST WM_MOVING = 534

DECLARE FUNCTION PaintDesktop LIB "USER32" ALIAS "PaintDesktop" (HDC AS INTEGER) AS INTEGER
DECLARE FUNCTION GetDC LIB "USER32" ALIAS "GetDC" (HWND AS INTEGER) AS INTEGER

DECLARE SUB FormWndProc (Hwnd%, uMsg%, wParam%, lParam%)
DECLARE SUB PaintForm


DIM Form AS QForm

Form.Center
Form.WndProc = FormWndProc
Form.OnPaint = PaintForm
Form.ShowModal

SUB FormWndProc (Hwnd%, uMsg%, wParam%, lParam%)
  IF uMsg% = WM_MOVING OR uMsg% = WM_SIZING THEN
    PaintForm
  END IF
END SUB

SUB PaintForm
  PaintDesktop GetDC(Form.Handle)
END SUB