tray icon tooltips

[Gintaras]

Function dialog_tray_icon_balloon_tooltip2

Code:

Copy      Help

Tray- t
sel message
,case WM_INITDIALOG
,t.AddIcon("$qm$\paste.ico" "" 1 hDlg)
,
,case WM_USER+101
,sel lParam
,,case WM_MOUSEMOVE
,,int- inTT
,,if !inTT
,,,inTT=1
,,,ShowTooltip "balloon" 3 xm ym 200 1 "Tooltip Title" "lightning.ico"
,,,inTT=0