PureBasic Forums - English

Code: Select all

Procedure IsMouseOverGadget(Gadget) ; return #True if its right
  
  Protected GadgetRect.RECT
  Protected mouse.Point
  
  If IsGadget(Gadget)

    GetWindowRect_(GadgetID(Gadget),GadgetRect.RECT) 
    GetCursorPos_(mouse.POINT) 
    
    If mouse\x>=GadgetRect\Left And mouse\x<=GadgetRect\right And mouse\y>=GadgetRect\Top And mouse\y<=GadgetRect\bottom 
      ProcedureReturn #True 
    Else 
      ProcedureReturn #False 
    EndIf 
  Else
    ProcedureReturn #False
  EndIf

EndProcedure

Code: Select all

Procedure IsMouseOverGadget(window, gadget)
  If (WindowMouseX(window) >= GadgetX(gadget)) And (WindowMouseX(window) <= (GadgetX(gadget)+GadgetWidth(gadget)))
    If (WindowMouseY(window) >= GadgetY(gadget)) And (WindowMouseY(window) <= (GadgetY(gadget)+GadgetHeight(gadget)))
      ProcedureReturn #True
    EndIf
  EndIf
EndProcedure

Code: Select all

;===================================================== 
; Program:          Hover.pbi 
; Author:           netmaestro, srod 
; Date:             August 19, 2006 (Version 1.0)
;                   January 30, 2011 (Version 2.0)
; Target OS:        Windows all 
; Target Compiler:  PureBasic 4.0 and above 
;===================================================== 
; 
Import ""
  PB_Gadget_SendGadgetCommand(hwnd, EventType)
EndImport

#HoverEvent_EnterGadget = #WM_USER + 100 
#HoverEvent_LeaveGadget = #WM_USER + 101

Procedure CallWndProc(nCode, wParam, lParam)
  Shared hook
  Static gadget_is_hot
  
  If nCode < 0
    result = CallNextHookEx_(hook, nCode, wParam, lParam)
  EndIf
  
  *mhs.MOUSEHOOKSTRUCT = lparam
  If GetProp_(*mhs\hwnd, "track_hover_events") And (*mhs\wHitTestCode=#HTCLIENT Or *mhs\wHitTestCode=#HTVSCROLL Or *mhs\wHitTestCode=#HTHSCROLL)
    If gadget_is_hot <> *mhs\hwnd
      If gadget_is_hot
        PB_Gadget_SendGadgetCommand(gadget_is_hot, #HoverEvent_LeaveGadget)
      EndIf
      gadget_is_hot = *mhs\hwnd
      PB_Gadget_SendGadgetCommand(*mhs\hwnd, #HoverEvent_EnterGadget)
    EndIf
  Else
    If gadget_is_hot
      PB_Gadget_SendGadgetCommand(gadget_is_hot, #HoverEvent_LeaveGadget)
      gadget_is_hot = 0
    EndIf
  EndIf
  
  If ncode<0
    ProcedureReturn result
  Else
    ProcedureReturn CallNextHookEx_(hook, nCode, wParam, lParam)
  EndIf
  
EndProcedure

ProcedureDLL InitHoverEvents(hwnd)
  Shared hook
  hook = SetWindowsHookEx_(#WH_MOUSE, @CallWndProc(), #Null, GetCurrentThreadId_())
  If hook
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

ProcedureDLL AddHoverGadget(hwnd)
  If SetProp_(hwnd, "track_hover_events", #True)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

ProcedureDLL RemoveHoverGadget(hwnd)
  If RemoveProp_(hwnd, "track_hover_events")
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

Procedure EnumControls(hwnd, lParam)
  If GetProp_(hwnd, "track_hover_events")
    RemoveProp_(hwnd, "track_hover_events")
  EndIf
  ProcedureReturn 1
EndProcedure

ProcedureDLL EndHoverEvents(hwnd)
  Shared hook
  EnumChildWindows_(hwnd, @EnumControls(), 0)
  If UnhookWindowsHookEx_(hook)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

;========================================================
;                  End of Library Code
;========================================================