TStringGrid, OnwerDraw, Kreis sieht komisch aus

[DeddyH]

Das hat mit Quadrat oder Rechteck IMO weniger zu tun. Erstell doch mal ein neues Projekt und pack dies hier ins OnPaint:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Ellipse(10,10,20,20);
  Canvas.Ellipse(10,30,25,45);
  Canvas.Ellipse(10,55,30,75);
  Canvas.Ellipse(10,85,50,125);
end;

Hat teilweise eher etwas von einem Kreissägeblatt als von einem Kreis.