detecter le passage de la souris sur un gadget

fred32 · Message par **fred32** » ven. 10/févr./2006 15:03

salut à tous, j'aimerai savoir comment on fait pour detecter quand la souris survole un gadget.

wolfjeremy · Message par **wolfjeremy** » ven. 10/févr./2006 17:01

Je ne voi pas l'interet vu que les gadget gere déjà tout se qu'il faut mais tu peut utiliser les commande de directx je pense. Tape "Mouse" dans l'aide de PB et tu aura tout se qu'il te faut

ExamineMouse
InitMouse
MouseButton
MouseDeltaX
MouseDeltaY
MouseLocate
MouseWheel
MouseX
MouseY
ReleaseMouse

Backup · Message par **Backup** » ven. 10/févr./2006 20:18

@wolfjeremy : attends d'avoir le niveau pour aider les gens !

@ Fred32: voici ta réponse !

; German forum: http://robsite.de/php/pureboard/viewtop ... highlight=
; Author: Andreas
; Date: 05. May 2003

Global Button.l

Procedure IsMouseOver(wnd)
         GetWindowRect_ (wnd,re.RECT)
        re\left = re\left
        re\top = re\top
        re\right = re\right
        re\bottom = re\bottom
         GetCursorPos_ (pt.POINT)
        Result = PtInRect_ (re,pt\x,pt\y)
         ProcedureReturn Result
EndProcedure

If OpenWindow (0, 200, 200, 480, 320, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget , "MouseOver" )
         CreateStatusBar (0, WindowID ())
         If CreateGadgetList ( WindowID ())
                Button = ButtonGadget (0, 10,10,80,24, "OK" )
         EndIf
         Repeat
                EventID.l = WaitWindowEvent ()
                 If IsMouseOver(Button)
                         StatusBarText (0, 0, "Maus über Button" )
                 Else
                         StatusBarText (0, 0, "" )
                 EndIf
                 If EventID = #PB_Event_CloseWindow
                        Quit = 1
                 EndIf
         Until Quit = 1
EndIf
End
; ExecutableFormat=Windows
; CursorPosition=3
; FirstLine=1
; EOF

fred32 · Message par **fred32** » ven. 10/févr./2006 21:07

merci, c'est exactement ce que je voulait