Any way to have 'on enter' and 'on leave' events when hovering over a menu item ('blue color') and getting the menuitem ID?
Can't find a way.
menuitem #WM_MOUSEHOVER #WM_MOUSELEAVE
Re: menuitem #WM_MOUSEHOVER #WM_MOUSELEAVE
something like
works
Code: Select all
Procedure WindowCallback(id, msg, wp, lp)
Protected r = #PB_ProcessPureBasicEvents
Protected menuID, menuIndex, menuFlags
Select msg
Case #WM_MENUSELECT
menuID = lp
menuIndex = LoWord(wp)
menuFlags = HiWord(wp)
If menuID = MenuID(Menu)
Select menuIndex
Case #MI_Test1
Debug "1"
Case #MI_Test2
Debug "2"
Case #MI_Test3
Debug "3"
EndSelect
EndIf
If menuFlags & #MF_HILITE
Debug "MF_HILITE"
EndIf
If menuFlags & #MF_DISABLED
Debug "MF_DISABLED"
EndIf
If menuFlags & #MF_MOUSESELECT
Debug "MF_MOUSESELECT"
EndIf
Debug "#WM_MENUSELECT " + lp + ";" + menuIndex + "; " + menuFlags
EndSelect
ProcedureReturn r
EndProcedure