Punkte verbinden zu einem Polygon

**schnuppe**

Hallo!

Ich würde, nach dem ich hier lange umsonst experimentiert habe, gerne wissen wie ich Punkte auf dem Image per Druck auf einen Button zu einem Polygon verbinde. Wäre dankbar für Hilfe.

Hier mein Versuch. Aber was das Verbinden der Punkte betrifft meckert er immer rum. Ich bin mir nicht im klaren mit welchem Befehl ich starten und enden soll, da die punkte ja nicht fest definiert sind sondern einfach so auf dem Image angeklickt werden.

Wäre dankbar für Hilfe.

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

{$R *.dfm}

var

n,x,y,i:integer;

xp,yp:array [1..30] of integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

if button=mbleft then

image1.Canvas.Rectangle(x-7,y-7,x+7,y+7);

 n:=n+1;

xp[n]:=x;

yp[n]:=y;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

for i:=1 to n do

begin

with image1.canvas do

begin

pen.color:=clblack;

pen.Style:=pssolid;

move to (xp,yp);

line to (x1;y1);

end;

end;

end.

Punkte verbinden zu einem Polygon

Punkte verbinden zu einem Polygon

Forumregeln