Problème avec Rect

Version imprimable

18/02/2013, 17h13
[ZiP]

Problème avec Rect
Bonjour,

Lorsque je compile mon programme, j'ai une erreur sur cette ligne :
Code:

1 2 if PtInRect(Rect(Shape.Left, Shape.Top, Shape.Left + Shape.Width, Shape.Top + Shape.Height), pParent) then
J'ai l'erreur suivante :

Citation:

umain.pas(55,33) Fatal: Syntax error, ")" expected but "," found

Je ne comprends pas pourquoi ça ne fonctionne pas !

Merci pour votre aide,
ZiP

Bonjour,

pParent est bien un Tpoint ? http://lazarus-ccr.sourceforge.net/d.../ptinrect.html

J'utilise cette fonction parfois dans des TStringGrids de cette manière :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.StringGrid1MouseDown(Sender : TObject; Button : TMouseButton;
  Shift : TShiftState; X, Y : Integer);
{uses  LCLintf;}
var
 P : TPoint;
 Rect : TRect;
begin
 with StringGrid1 do begin
  Rect.TopLeft := CellRect(FixedCols,FixedRows).TopLeft;       
  Rect.BottomRight := CellRect(ColCount -1, Rowcount -1).BottomRight;
  P.X := X;
  P.Y := Y;
 end;
 if not PtInRect(Rect, P) then Abort;
end;

Je suppose qu'on peut le transposer ainsi à votre code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
{var
 pParent : TPoint;
 Rect : TRect;}
begin
  Rect.Top := Shape.Top;
  Rect.Bottom :=Shape.Top + Shape.Height;
  Rect.Left := Shape.Left;
  Rect.Right := Shape.Left + Shape.Width; 
 {pParent est un point donc l'abscisse et l'ordonnée doivent avoir été antérieurement définies}
  if not PtInRect(Rect, P) then ...
end;

Cordialement. Gilles

Bonsoir,

Merci selzig, votre proposition fonctionne !

J'ai testé comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MonRect : TRect;
  MonPoint : TPoint;
begin
     MonRect.Left := Panel1.Left;
     MonRect.Top := Panel1.Top;
     MonRect.Right := Panel1.Left + Panel1.Width;
     MonRect.Bottom := Panel1.Top + Panel1.Height;
 
     MonPoint.x := 1;
     MonPoint.y := 1;
 
     if PtInRect(MonRect, MonPoint) then
     begin
 
     end;
end;

Je vais l'appliquer dans mon code que je suis en train de migrer de Delphi.

Merci,
ZiP

Bonsoir,

J'ai trouvé une meilleure solution :
Code:

1 2 3 4 5 6 7 8 9 10 11 function Rect(Gauche: Integer; Haut: Integer; Droit: Integer; Bas: Integer): TRect; var MonRect : TRect; begin MonRect.Left := Gauche; MonRect.Top := Haut; MonRect.Right := Droit; MonRect.Bottom := Bas; Result := MonRect; end;
De cette manière, pas besoin de corriger le code provenant de Delphi.

ZiP

19/02/2013, 13h33
batyann811

La fonction existe déjà dans l'unité Classes : http://www.freepascal.org/docs-html/...sses/rect.html
19/02/2013, 16h43
[ZiP]

Bonjour,

Effectivement, ça fonctionne en ajoutant : "Classes." devant 'Rect" !

Merci,
ZiP