Kreis zeichen --> sieht komisch aus

[Christian18]

Ich habe nochmal was ausprobiert. Wenn ich nicht jeden Punkt berechne sondern nur jeden achten, dann sieht es auch besser aus. und schneller gehts auch noch xD

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  var i    : TImage;   // Image zum Anzeigen dees Kreises
      j    : Integer;  // Schleifenvariable
      r    : Integer;  // Radius
      x, y : Real;     // x und y Werte des Kreises
begin
  // Parameter setzen
  i:=Image1;
  r:=i.Width div 2;

  // Berechnungen
  for j := 0 to 45 do
    begin
      x:=cos(DegToRad(j * 8)) * r + i.Width / 2;
      y:=sin(DegToRad(j * 8)) * r + i.Height / 2;

      i.Canvas.LineTo(Round(x), Round(y));
    end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
  var i : TImage;
begin
  i:=Image2;

  i.Canvas.Ellipse(0, 0, i.Width, i.Height);
end;