Ablauffehler, Hilfe

[marabu]

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