TStringGrid, OnwerDraw, Kreis sieht komisch aus

[hoika]

Hallo #,

ich male einen Kreis in einer Zelle

OnDrawCell
c ist der Canvas

Inc(ARect.Left,4);
Inc(ARect.Top,4);
Dec(ARect.Right,4);
Dec(ARect.Bottom,4);

c.Ellipse(ARect);

Der Kreis sieht aber komisch aus,
irgendwie eckig.

Ich weiss (aus Grafik in Informatik) dass Treppenstufen unvermeidbar sind,
aber war da mal nicht was, dass der rechte untere Punkt des Rechtecks nicht mitzählt ??

Danke


Heiko

[Helmi]

was ist "ARect"?

[hoika]

Hallo,

procedure TForm.GridDrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

Das Rect hier
also das Rechteck um eine Zelle.


Heiko

[DeddyH]

Wenn das umgebende Rect zu klein ist, sieht der resultierende Kreis immer suboptimal aus. Evtl. könnte man das mit AntiAliasing etwas mildern.

[Helmi]

Zitat von hoika:

Das Rect hier
also das Rechteck um eine Zelle.

Ist das ein Rechteck oder ein Quadrat?

Bei einem Quadrat würde der Kreis rund werden, mit dem Code von deinem ersten Thread.
Bei einem Rechteck muss der Kreis ja "eiern" weil die Ecken, also X1, Y1 und X2, Y2
nicht gleich weit auseinander liegen. Sprich die Differenz der X-Werte ist größer
als die Differenz der Y-Werte. (oder anderes rum, je nach ob die Zelle breiter oder
höher ist)

[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.

[hoika]

Hallo,

jepp, das ist mein Problem.

Ich habe Höhe = Breite = 45.



Heiko

[Helmi]

Zitat von DeddyH:

Das hat mit Quadrat oder Rechteck IMO weniger zu tun.

Ich denke schon dass das ein wichtiger Punkt ist.
Denn das Rect gibt ja nur die Ecke an, keinen Mittelpunkt oder Radius (sonst
könnte man ja keine Ellipse zeichnen).

Aber gut, das hat sich erledigt, weil ja Höhe und Breite gleich ist

[Edit]
Zeig doch mal ein Bild wie es ausschaut
[/Edit]

[DeddyH]

Kann man evtl. etwas mit GDI+ machen? Hab gerade mal einen meiner runden Buttons mit den Maßen aufs Form gepackt, der sieht gar nicht schlecht aus.

[edit] Bild im Anhang [/edit]

[hoika]

Hallo,

ich greife das noch mal auf ...
Jetzt bräuchet ich nämlich auch runde Buttons
Gibt es da bereits fertige Komponenten ?
Ich habe hier TMS zur Verfügung.

Danke


Heiko