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.
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.