API PtInRect_(...)

[nico]

Ce code ne fonctionne pas, s'agit t'il d'un bug?

Code : Tout sélectionner

Rect.RECT
Rect\left   = 0
Rect\top    = 0
Rect\right  = 100
Rect\bottom = 100

Point.POINT
Point\x = 10
Point\y = 10

;Devrait renvoyer une valeur différent de 0
Debug PtInRect_(Rect,Point)

[nico]

Apparemment faut faire comme ça avec la 4.40

Code : Tout sélectionner

Debug PtInRect_(Rect,Point\x+Point\y<<32)

[Guimauve]

Bonjour,

On peut toujours programmer soit même une fonction qui fait cette vérification.

Code : Tout sélectionner

Procedure.b PointInsideRect(*RectA.RECT, *PointA.POINT)
  
  If *PointA\x >= *RectA\left And *PointA\x <= *RectA\right And *PointA\y >= *RectA\top And *PointA\y <= *RectA\bottom 
    Inside.b = #True 
  EndIf
  
  ProcedureReturn Inside
EndProcedure

A+
Guimauve

[nico]

Bien vu pour la procédure, en effet c'est assez simple.

[comtois]

ou lire la FAQ

[nico]

J'avais lu cette faq, c'est pour ça que 5 minutes après j'ai posté la réponse.

J'en profite pour te dire que tu fais du très bon boulot sur DVP.

[Fred]

C'est clair, c'est du sacré boulot. Sans compter le travail effectué sur l'aide FR du Pure.

[Ar-S]

+1 cette faq est très utile