Problème avec une Procedure IsMouseOverGadget

[Lord Nelson]

Salut,

Je rencontre un soucis avec cette procédure
Elle fait appel à des API, je crois bien que le problème vient de là, elle foire la réactualisation d'affichage d'une image sur mon ScrollAreaGadget

Je peut pas posté d’exemple, trop long

Je voudrait simplement savoir s'il avais un équivalent sans API ?
Je voudrait savoir si la souris est sur un gadget

Il me semble avoir vue un équivalent un jour mais impossible de savoir ou c'est, c'est comme rechercher une aiguille dans une meule de foin

[majikeyric]

En utilisant un CanvasGadget tu as accès à plein d'evènements:

Code : Tout sélectionner

  #PB_EventType_MouseEnter      : Le curseur de la souris est entré dans le gadget 
  #PB_EventType_MouseLeave      : Le curseur de la souris est sorti du gadget
  #PB_EventType_MouseMove       : Le curseur de la souris a bougé
  #PB_EventType_MouseWheel(*)   : La molette de la souris a bougé
  
  #PB_EventType_LeftButtonDown  : Le bouton gauche de la souris a été pressé
  #PB_EventType_LeftButtonUp    : Le bouton gauche de la souris a été relâché
  #PB_EventType_LeftClick       : Un clic avec le bouton gauche de la souris
  #PB_EventType_LeftDoubleClick : Un double-clic avec le bouton gauche de la souris
  #PB_EventType_RightButtonDown : Le bouton droit de la souris a été pressé
  #PB_EventType_RightButtonUp   : Le bouton droit de la souris a été relâché
  #PB_EventType_RightClick      : Un clic avec le bouton droit de la souris
  #PB_EventType_RightDoubleClick: Un double-clic avec le bouton droit de la souris
  #PB_EventType_MiddleButtonDown: Le bouton central de la souris a été pressé
  #PB_EventType_MiddleButtonUp  : Le bouton central de la souris a été relâché
  
  #PB_EventType_Focus           : Le gadget a obtenu le focus clavier
  #PB_EventType_LostFocus       : Le gadget a perdu le focus clavier
  #PB_EventType_KeyDown(*)      : Une touche clavier a été pressée 
  #PB_EventType_KeyUp(*)        : Une touche clavier a été relâchée 
  #PB_EventType_Input(*)        : Du texte a été entré dans le gadget 

ça peut peut être t'aider...

Tu passes un flag à 1 quand tu as un #PB_EventType_MouseEnter, et tu le repasses à 0 quand tu as un #PB_EventType_MouseLeave.

[Patrick88]

en utilisant WindowMouseX et ...Y, tu peux connaitre la position de la souris dans ta fenêtre, comme tu connais la position de tes gadgets et leur taille, pas bien difficile de trouver sur quel gadget tu te trouves

Pat

[Lord Nelson]

Hum...

Merci pour ses idées

[majikeyric]

J'ai pas testé mais ça doit marcher...

Code : Tout sélectionner

Procedure.b SourisSurvoleGadget(gadget.i)
	Protected.i SourisPosX, SourisPosY, GadgetPosX, GadgetPosY, GadgetLargeur, GadgetHauteur, FenetreActive
	
	FenetreActive=GetActiveWindow()
	GadgetPosX=GadgetX(gadget,#PB_Gadget_WindowCoordinate)
	GadgetPosY=GadgetY(gadget,#PB_Gadget_WindowCoordinate)
	GadgetLargeur=GadgetWidth(gadget)
	GadgetHauteur=GadgetHeight(gadget)
	SourisPosX=WindowMouseX(FenetreActive)
	SourisPosY=WindowMouseY(FenetreActive)
	
	If SourisPosX<GadgetPosX : ProcedureReturn #False : EndIf
	If SourisPosX>=(GadgetPosX+GadgetLargeur) : ProcedureReturn #False : EndIf
	If SourisPosY<GadgetPosY : ProcedureReturn #False : EndIf
	If SourisPosY>=(GadgetPosY+GadgetHauteur) : ProcedureReturn #False : EndIf
	
	ProcedureReturn #True
	
EndProcedure

[Lord Nelson]

Merci, ya ça aussi que j'ai fais:

Code : Tout sélectionner

Procedure.l IsMouseOverGadget(Fenetre, Gadget) 
  If (IsGadget(Gadget) And IsWindow(Fenetre))
    If (WindowMouseX(Fenetre) >= GadgetX(Gadget) And WindowMouseX(Fenetre) <= GadgetX(Gadget) + GadgetWidth(Gadget)) And WindowMouseY(Fenetre) >= GadgetY(Gadget) And WindowMouseY(Fenetre) <= GadgetY(Gadget) + GadgetHeight(Gadget)
      ProcedureReturn #True 
    Else 
      ProcedureReturn #False 
    EndIf 
  EndIf
EndProcedure 

[majikeyric]

Tu as une erreur de 1 pixel

If (WindowMouseX(Fenetre) >= GadgetX(Gadget) And WindowMouseX(Fenetre) <GadgetX(Gadget) + GadgetWidth(Gadget)) And WindowMouseY(Fenetre) >= GadgetY(Gadget) And WindowMouseY(Fenetre) < GadgetY(Gadget) + GadgetHeight(Gadget)

[MLD]

@ Bonjour Mr Nelson

Vous pouvez aussi faire comme ceci.

Code : Tout sélectionner

Procedure HookProc(nCode,wParam,lParam)
GetCursorPos_(@point.POINT) 
Handle = WindowFromPoint_(Point\X | (Point\Y << 32))
ParentHandle = GetParent_(Handle)
PbIdGadgetSurvoler = GetDlgCtrlID_(Handle) ; PbId du gadget survolé

Debug PbIdGadgetSurvoler

EndProcedure

OpenWindow(10,0,0,640, 300,"Mouse",#WS_CAPTION | #WS_SYSMENU | 1)
ScrollAreaGadget(6, 0,0,640,300,1000,1000)
ContainerGadget(5, 0, 0, 340, 300,#PB_Container_Single  )
TextGadget    (10,  10,  10, 100, 16, "ListIcon Standard", #PB_Text_Center) 
SetWindowLong_(GadgetID(10), #GWL_STYLE, GetWindowLong_(GadgetID(10), #GWL_STYLE)|#SS_NOTIFY)
ListIconGadget(1,  10,  35, 300, 70, "Column 1", 100) 
TextGadget    (2,  10, 125, 120, 16, "ListIcon with Checkbox", #PB_Text_Center) 
SetWindowLong_(GadgetID(2), #GWL_STYLE, GetWindowLong_(GadgetID(2), #GWL_STYLE)|#SS_NOTIFY)
ListIconGadget(3,  10, 150, 300, 70, "Column 1", 100, #PB_ListIcon_CheckBoxes)  
ButtonGadget  (4, 10, 230, 100, 20, "Add Gadget")
CloseGadgetList()
CloseGadgetList()

StickyWindow(10,1)

hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL,@HookProc(),GetModuleHandle_(0),0)

Repeat
   EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow 

UnhookWindowsHookEx_(hhkLLMouse)

[Lord Nelson]

@Bonjour Mr MLD

Merci pour votre code

@majikeyric
C'est grave docteur