Mouse over gadget

oridan · Post by **oridan** » Wed Feb 28, 2007 11:07 pm

Problem with mouse over gadget inside or above gadget.

Procedure Window()
  If OpenWindow(0, 297, 299, 340, 160, "Mouse",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(0))
      ScrollAreaGadget(1, 20, 20, 170, 120, 340, 240, 10)    
      ButtonGadget(2, 20, 25, 100, 25, "Button 1")
      TextGadget(3, 20, 70, 100, 15, "Text gadget 1")
      CloseGadgetList() 
      ButtonGadget(4, 210, 50, 100, 25, "Button 2")     
      TextGadget(5, 210, 90, 100, 15, "Text gadget 2")
    EndIf
  EndIf
EndProcedure
Window()
hCurHand = LoadCursor_(0,#IDC_HAND)
hCurArrow = LoadCursor_(0,#IDC_ARROW)
Repeat  
  Event = WaitWindowEvent()  
  WindowID = EventWindow()  
  GadgetID = EventGadget()  
  EventType = EventType()  
  Select Event
    Case #WM_MOUSEMOVE
      Select GetDlgCtrlID_(ChildWindowFromPoint_(WindowID(0),WindowMouseX(0),WindowMouseY(0))) 
        ;Case 1
          ;SetCursor_(hCurHand)
        Case 2
          SetCursor_(hCurHand); Not work          
        Case 3
          SetCursor_(hCurHand); Not work
        Case 4
          SetCursor_(hCurHand); Work        
        Case 5
          SetCursor_(hCurHand); Work 
      EndSelect
  EndSelect
  If Event = #PB_Event_Gadget          
    If GadgetID = 2
    EndIf  
    If GadgetID = 3     
    EndIf    
  EndIf  
Until Event = #PB_Event_CloseWindow
End

Help me...

netmaestro · Post by **netmaestro** » Wed Feb 28, 2007 11:29 pm

Couple tweaks and it all works:

Code: Select all

Procedure Window() 
  If OpenWindow(0, 297, 299, 340, 160, "Mouse",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered ) 
    If CreateGadgetList(WindowID(0)) 
      ScrollAreaGadget(1, 20, 20, 170, 120, 340, 240, 10)    
      ButtonGadget(2, 20, 25, 100, 25, "Button 1") 
      TextGadget(3, 20, 70, 100, 15, "Text gadget 1") 
      CloseGadgetList() 
      ButtonGadget(4, 210, 50, 100, 25, "Button 2")      
      TextGadget(5, 210, 90, 100, 15, "Text gadget 2") 
    EndIf 
  EndIf 
EndProcedure 
Window() 

hCurHand = LoadCursor_(0,#IDC_HAND) 
hCurArrow = LoadCursor_(0,#IDC_ARROW) 
Repeat  
  Event = WaitWindowEvent()  
  WindowID = EventWindow()  
  GadgetID = EventGadget()  
  EventType = EventType()  
  Select Event 
    Case #WM_MOUSEMOVE 
      GetCursorPos_(@cp.POINT)
      GetWindowRect_(GadgetID(1), @sa.RECT)
      If PtInRect_(sa, cp\x,cp\y)
        MapWindowPoints_(0,GetWindow_(GadgetID(1),#GW_CHILD),@cp,1)
        parent = GetWindow_(GadgetID(1),#GW_CHILD)
      Else
        MapWindowPoints_(0, WindowID(0), @cp, 1)
        parent = WindowID(0)
      EndIf
      Select GetDlgCtrlID_(ChildWindowFromPoint_(parent,cp\x,cp\y)) 
        Case 2 
          SetCursor_(hCurHand); work          
        Case 3 
          SetCursor_(hCurHand); work 
        Case 4 
          SetCursor_(hCurHand); Work        
        Case 5 
          SetCursor_(hCurHand); Work 
      EndSelect 
  EndSelect 
  If Event = #PB_Event_Gadget          
    If GadgetID = 2 
    EndIf  
    If GadgetID = 3      
    EndIf    
  EndIf  
Until Event = #PB_Event_CloseWindow 
End

srod · Post by **srod** » Wed Feb 28, 2007 11:31 pm

Ah, you just beat me!!!

Was just about to post!

Slightly different to my approach, but with the same net result!

oridan · Post by **oridan** » Wed Feb 28, 2007 11:32 pm

Thanks netmaestro!

netmaestro · Post by **netmaestro** » Wed Feb 28, 2007 11:32 pm

the same net result!

er... dreadful pun intended? :roll:

srod · Post by **srod** » Wed Feb 28, 2007 11:34 pm

netmaestro wrote:
the same net result!
er... dreadful pun intended? :roll:

Whoops, no pun intended. Purely accidental.

netmaestro · Post by **netmaestro** » Wed Feb 28, 2007 11:38 pm

If the static control would respond to WindowFromPoint_ the tweak could be much simpler, but it won't. hm - wonder if there's a style bit that'll make it raise its hand in response to a WindowFromPoint_ question?

srod · Post by **srod** » Wed Feb 28, 2007 11:44 pm

#SS_NOTIFY is the one you want.

Code: Select all

SetWindowLong_(GadgetID(3), #GWL_STYLE, GetWindowLong_(GadgetID(3), #GWL_STYLE) |#SS_NOTIFY)

etc.

This is the method I adopted, but yours is equally as good.

netmaestro · Post by **netmaestro** » Wed Feb 28, 2007 11:59 pm

No, I think yours is better if that style makes the static control findable, then you don't have to do all the testing and parent-choosing. I guess my wife's evaluation is correct: I'm fast but with marginal results!

srod · Post by **srod** » Thu Mar 01, 2007 12:03 am

But then WindowfromPoint_() will ignore the scroll area unless you set the same style for the static control used for the interior of the scroll area (which is only a problem of course if Oridan wishes to detect the cursor over the scroll area).

So it's swings and roundabouts really.