Rechteck im Imagefenster

[Pannistar]

Hallo an alle!
Ich hab da ma eine Frage. Ich möchte in einem Imagefenster ein Rechteck zeichnen lassen, d.h. die Koordinaten sind egal, einfach nur ein Rechteck. Könnte mir da jemand einen Qulltext zu besorgen???

MFG Pannistar

[DeddyH]

Hallo, willkommen in der DP :dp:,
das Image hat einen Canvas und der wiederum hat eine Methode Rectangle.

[Pannistar]

Gut ich würde gerne die variante mit rectangle haben?

[DeddyH]

Und wo ist jetzt das Problem?

[Pannistar]

na eine quelltext mit dem ich das lösen kann.

[DeddyH]

Na, pack das doch einfach hintereinander:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Pen.Color := clRed;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height); //oder welche Koordinaten auch immer
end;

[BasicX]

ist doch echt nicht schwer

Delphi-Quellcode:

image1.Canvas.Rectangle(x1: integer,y1: integer,x2: integer,y2: integer);

*Delphi Anfänger ist*

MfG BasicX

[Pannistar]

na und dann brauch ich doch noch ne deklaration für das imagefenster
könntest du mir dafür auch den quelltext geben?

[DeddyH]

Wie? Nimm ein TImage aus Komponentenpalette und pack es auf die Form. Das war dann alles.

[Pannistar]

hab bloß ein problem bei mir wird das imagefenster nicht angezeigt, d.h. es wird nicht weiß wie es eigentlich sein sollte.