On-screen drawing

[QM_Expert]

Here is

DefDialogProc:

Code:

Copy      Help

;/
function# hDlg message wParam lParam

;ShowDialog uses this function as dialog
;procedure when dlgproc is omitted or 0.


sel message
,case WM_INITDIALOG
,DT_Init(hDlg lParam)
,ret 1
,;----
,case WM_COMMAND
,int msg(wParam >> 16) ctrlid(wParam & 0xFFFF)
,sel msg
,,case BN_CLICKED
,,if(ctrlid=IDCANCEL) DT_Cancel hDlg
,,else if(GetWinStyle(lParam)&15<2) DT_Ok hDlg ctrlid
,ret 1
,;----
,case WM_DESTROY DT_DeleteData(hDlg)