22 Voix

Delphi/Lazarus: Est un point (TPoint) à l'intérieur ou à l'extérieur d'un rectangle (TRect)?

Conseil de Delphiain | 23/04/2022 à 16:41

Problème: Nous aimerions savoir si un point avec les coordonnées X et Y est situé dans un rectangle (TRect) ou non.

Réponse: Heureusement, Delphi ainsi que Lazarus fournissent une fonction pour cela, de sorte que nous n'avons pas à comparer les coordonnées manuellement. La fonction est nommée PtInRect().

Exemple: Jetons un coup d'oeil à un exemple pour PtInRect():

var
   R: TRect;
   P1, P2: TPoint;
begin
   R:=Rect(10, 10, 100, 100);
   P1:=Point(0, 0);
   P2:=Point(50, 50);

   if PtInRect(R, P1) then showmessage('P1 est dans R!');
   if PTInRect(R, P2) then showmessage('P2 est dans R!');
end;

Tout d'abord, nous définissons un rectangle R et les deux points P1 et P2, l'un situé à l'intérieur du rectangle, l'autre non. Après cela, nous testons avec PtInRect, que les points se trouvent dans le rectangle. P1 ne devrait pas rester dans le rectangle, P2 devrait.

RépondrePositifNégatif

Sur l’Auteur

AvatarL’auteur n’a pas encore ajouté de brève description de profil.
Voir Profil

 

Sujets Connexes

La Recherche Askingbox

Info | 0 Commentaires

Types de Sujets sur askingbox.com

Article | 0 Commentaires

Avis Important

Veuillez noter: Les contributions publiées sur askingbox.com sont des contributions d’utilisateurs et ne doivent pas remplacer les conseils d’un professionnel. Ils ne sont pas vérifiés par des indépendants et ne reflètent pas nécessairement l’opinion de askingbox.com. Apprendre encore plus.

Participer

Posez votre propre question ou écrivez votre propre article sur askingbox.com. Voici comment.