Kreis zeichen --> sieht komisch aus

[Christian18]

Hallo,

ich zeichne einen Kreis mit einer Routine, die ich mir selber ausgedacht habe. Ich finde der Kreis sieht ein bisschen kompisch aus. Was kann man dagegen tun?

Hier mein Code:

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 360 do
    begin
      x:=cos(DegToRad(j)) * r + i.Width / 2;
      y:=sin(DegToRad(j)) * r + i.Height / 2;

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

Ich finde der sieht besser aus!!!

Delphi-Quellcode:

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

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

MFG Chris