PureBasic Forums - English

Posted: **Wed Feb 28, 2007 11:29 pm**

Couple tweaks and it all works:

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

Posted: **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!

Posted: **Wed Feb 28, 2007 11:32 pm**

Thanks netmaestro!

Posted: **Wed Feb 28, 2007 11:32 pm**

the same net result!

er... dreadful pun intended? :roll:

Posted: **Wed Feb 28, 2007 11:34 pm**

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

Whoops, no pun intended. Purely accidental.

Posted: **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?

Posted: **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.

Posted: **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!

Posted: **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.

PureBasic Forums - English

Mouse over gadget