Hallo Sweety,
da liegt ja einiges im Argen...
Dein Code hat nichts im OnClick-Handler eines Button verloren. Du willst eine durch ein Polygon beschriebene Umriss-Figur zuerst drehen und dann zeichnen. Das kann man auch so schreiben, dass es jeder erkennen kann:
Delphi-Quellcode:
type
TPoints = array of TPoint;
TMainForm = class(TForm)
// ...
procedure ButtonClick(Sender: TObject);
private
Points: TPoints;
function Rotate(const p: TPoints; angle: Integer): TPoints;
end;
function TMainForm.Rotate(const p: TPoints; angle: Integer): TPoints;
begin
// ...
end;
procedure TMainForm.ButtonClick(Sender: TObject);
var
pts: TPoints;
angle: Integer;
begin
if TryStrToInt(AngleEdit.Text, angle) then
begin
pts := Rotate(Points, angle);
Image.Canvas.Polygon(pts);
end;
end;
Denke mal drüber nach.
Freundliche Grüße vom marabu