erstmal entschuldige ich mich für den reisserischen Titel dieses Beitrags.
Aber ich möchte ebenhalt Aufmerksamkeit erreichen.
Ich versuche in einem StringGrid im OnDrawCell-Event grüne Kreise auf weißem Hintergrund zu zeichnen.
Dies gelingt mir auch mit folgenden Programmzeilen:
Code: Alles auswählen
with TStringGrid(Sender) do
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect(aRect);
Canvas.Brush.Color := clGreen;
Canvas.Pen.Color := clWhite;
Canvas.Pen.Style := psClear;
Canvas.Ellipse(aRect.Left+10,aRect.Top+10,aRect.Left+48,aRect.Top+48);
end;
Die Kreisränder sind grauenvoll "ausgefranst".
Auch das Setzen von Canvas.AntialiasingMode auf "amOn" ändert daran nicht.
Mein Frage: Wie macht man's besser?
Ich bin unter Windows unterwegs und verwende Lazarus 2.2.2
Fritz