Morgen
,
hab da ein Problem bei Andorra, undzwar beim Zeichnen eines Polygones.
Delphi-Quellcode:
var poly :TAdPolygon;
//irgendwas anderes an Code ;D;D
//...
with AdDraw.Canvas do
begin
setlength(poly,4);
poly[0].X := round(Figur.X+25);
poly[0].y := round(Figur.y);
poly[1].X := round(Figur.X+50);
poly[1].y := round(Figur.Y-100); //**
poly[2].X := round(Figur.X-50);
poly[2].y := round(Figur.Y-100); //**
poly[3].X := round(Figur.X-25);
poly[3].y := round(Figur.y);
AdDraw.Canvas.Pen.Color := AdCol32_White;
AdDraw.Canvas.Polygon(poly);
Release;
end;
Undzwar bekomme ich dann immer eine Zugriffverletzung
. Keine Ahnung woran das liegt, oder ich überseh nur einen einfachen Fehler
Wenn ich aber (hier im Code mit ** markiert) statt -100 ,dann +100 eingebe funktioniert das Zeichnen ohne Zugriffverlsetzung
Das Polygon ist ja ein Array von TAdPoint und es lassen sich die komischesten Figuren Zeichnen, aber warum diese net ?!
Bitte Helft mir
PS. Fehlermeldung im Anhang