Page 1 sur 1
API PtInRect_(...)
Publié : lun. 02/nov./2009 22:44
par 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)
Re: API PtInRect_(...)
Publié : lun. 02/nov./2009 22:49
par nico
Apparemment faut faire comme ça avec la 4.40
Re: API PtInRect_(...)
Publié : mar. 03/nov./2009 1:21
par 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
Re: API PtInRect_(...)
Publié : mer. 04/nov./2009 21:49
par nico
Bien vu pour la procédure, en effet c'est assez simple.
Re: API PtInRect_(...)
Publié : mer. 04/nov./2009 21:57
par comtois
ou lire la
FAQ
Re: API PtInRect_(...)
Publié : jeu. 05/nov./2009 17:42
par 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.
Re: API PtInRect_(...)
Publié : ven. 06/nov./2009 11:40
par Fred
C'est clair, c'est du sacré boulot. Sans compter le travail effectué sur l'aide FR du Pure.
Re: API PtInRect_(...)
Publié : mer. 11/nov./2009 10:58
par Ar-S
+1 cette faq est très utile
