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

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.