Tooltip

[Gintaras]

Function Dialog92

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

if(!ShowDialog("Dialog92" &Dialog92 0)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 Button 0x54032000 0x0 4 8 48 14 "Show"
;4 Button 0x54032000 0x0 60 8 48 14 "Hide"
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "*" "" ""

ret
;messages
int-- hwndTT
TOOLINFOW-- ti

sel message
,case WM_INITDIALOG
,hwndTT = CreateWindowEx(WS_EX_TOPMOST TOOLTIPS_CLASS 0 TTS_NOPREFIX|TTS_ALWAYSTIP 0 0 0 0 0 0 0 0)
,ti.cbSize=44
,ti.uFlags = TTF_TRACK
,ti.lpszText="test"
,SendMessage(hwndTT, TTM_ADDTOOL, 0, &ti)
,
,case WM_DESTROY
,DestroyWindow hwndTT
,
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 3
,SendMessage(hwndTT, TTM_TRACKPOSITION, 0, MakeInt(300, 200))
,SendMessage(hwndTT, TTM_TRACKACTIVATE, 1, &ti)
,
,case 4
,SendMessage(hwndTT, TTM_TRACKACTIVATE, 0, &ti)
,
ret 1