home *** CD-ROM | disk | FTP | other *** search
- *wm_Char
- {wParam, the char.
- lParam, miscellaneous key info.}
- begin
- end;
- *wm_LButtonDown
- {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_LButtonDblClk
- {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_RButtonDown
- {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_LBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_LButtonUp
- {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_RButtonUp
- {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_LBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_MouseMove
- {wParam, a combination of MK_CONTROL, MK_LBUTTON, MK_RBUTTON, MK_SHIFT
- lParamLo, X cursor pos rel to upper left corner of window (dev coord)
- lParamHi, Y cursor pos}
- begin
- end;
- *wm_Close
- begin
- @XX2.wmClose(Msg);
- end;
- *wm_Size
- {wParam, SizeFullScreen, SizeNormal, or SizeIconic
- lParamLo, client area width in pixels
- lParamHi, client area height}
- begin
- end;
- *wm_Paint
- var
- PS : TPaintStruct;
- DC : HDC;
- begin
- DC := BeginPaint(hWindow, PS);
- EndPaint(hWindow, PS);
- end;
- *wm_SetFocus
- begin
- end;
- *wm_KillFocus
- begin
- end;
- *wm_InitMenu
- {wParam, a handle to the menu}
- begin
- end;
- *wm_Timer
- {wParam, the timer ID}
- begin
- end;
- *wm_CtlColor
- {wParam, display context handle of child window
- lParamLo, window handlw of child window
- lParamHi, type of child window such as cntcolor_Listbox}
- begin
- DefWndProc(Msg); {must be called for all messages not processed here}
- end;
- *wm_KeyDown
- {wParam, virtual keycode
- lParamLo, repeat time of key
- lParamHi, misc key info}
- begin
- end;
- *wm_Destroy
- begin
- @XX2.wmDestroy(Msg);
- end;
-