Hover Over Tab Changes Tab in MultiTabDialog

[Gintaras]

Function DT_DoSomethingOnMouseOver

Code:

Copy      Help

;/dlg_DoSomethingOnMouseOver
function# hDlg message wParam lParam hctrl backcolor textcolor


sel message
,case WM_SETCURSOR
,if child(mouse)=hctrl
,,sel GetWinId(hctrl)
,,,case 6
,,,_s="Text6";
,,,_s.setwintext(id(4 hDlg))
,,,;_s.setwintext(id(1201 hDlg))
,,,case 5
,,,_s="Text5";
,,,_s.setwintext(id(4 hDlg))
,,,_s.setwintext(id(4 hDlg))
,,,_s.setwintext(id(1001 hDlg))
,,,case 3
,,,_s="TabCrl 3";
,,,_s.setwintext(id(4 hDlg))
,,,;_s.setwintext(id(1001 hDlg))
,,,
,,,TCHITTESTINFO ti
,,,xm ti.pt hctrl 1
,,,int t=SendMessage(hctrl TCM_HITTEST 0 &ti)
,,,;out "%i %i" t ti.flags
,,,if(t>=0 and t!=SendMessage(hctrl TCM_GETCURSEL 0 0)) PostMessage(hctrl TCM_SETCURFOCUS t 0)
,,,
,,,
,,;SetTimer hDlg 33345 50 0
,;case WM_TIMER
,;if(wParam=33345 and child(mouse)!=hctrl)
,,;;out "2 %i" hctrl
,,;KillTimer hDlg wParam
,;case WM_DESTROY