S
Stefan Drissen
Guest
Yes the first parameter of both APIs is HWND. /* windows constants */ &GLOBAL-DEFINE WM_SETREDRAW 11 &GLOBAL-DEFINE RDW_INVALIDATE 0x0001 &GLOBAL-DEFINE RDW_ALLCHILDREN 0x0080 /* disable drawing */ RUN SendMessageA ( hw:HWND, {&WM_SETREDRAW}, 0, 0, OUTPUT idummy ). /* enable drawing and force redraw */ RUN SendMessageA ( hw:HWND, {&WM_SETREDRAW}, 1, 0, OUTPUT idummy ). RUN RedrawWindow ( hw:HWND, 0, 0, {&RDW_INVALIDATE} + {&RDW_ALLCHILDREN}, OUTPUT idummy ) /* external procedures */ PROCEDURE SendMessageA EXTERNAL "user32":u: DEFINE INPUT PARAMETER i_hwnd AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_imsg AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_lwParam AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_lParam AS LONG NO-UNDO. DEFINE RETURN PARAMETER lResult AS LONG NO-UNDO. END PROCEDURE. PROCEDURE RedrawWindow EXTERNAL "user32":u: DEFINE INPUT PARAMETER i_hwnd AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_lprcUpdate AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_hrgnUpdate AS LONG NO-UNDO. DEFINE INPUT PARAMETER i_flags AS LONG NO-UNDO. DEFINE RETURN PARAMETER o_lsuccess AS LONG NO-UNDO. END PROCEDURE.
Continue reading...
Continue reading...