Double Click without Single Click Notification

[Gintaras]

Macro Macro2504

Code:

Copy      Help

\Dialog_Editor

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog"
;5 Button 0x54036000 0x0 86 56 48 14 "Button"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0 "*" "" "" ""

if(!ShowDialog(dd &sub.DlgProc 0)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_TIMER
,sel wParam
,,case 5
,,KillTimer hDlg wParam
,,out "single clicked"
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,
,case 5
,,SetTimer hDlg 5 GetDoubleClickTime+50 0
,case BN_DOUBLECLICKED<<16|5
,,KillTimer hDlg 5
,,out "double clicked"
ret 1