Zitat von
LoL:
Das wäre eine alternative Lösung dafür, aber gibt es nicht eine Lösung mit Canvas?
Du könntest auch lauter waagerechte Linien zeichen.
Delphi-Quellcode:
for y:=0 to Height do
begin
// die Ausgangsposition "links"
Canvas.MoveTo(0, y);
// und hier kommt der Pythagoras in Spiel
// A^2 + B^2 = C^2
// SQRT = Quadratwurzel ziehen
// SQR = quadrieren
// da dies nur im Kreis funktioniert, wird mit dem Faktor width/height scaliert
p := SQRT(SQR(Height)- SQR(Height-y))*width/height;
// nach "rechts" zeichnen
Canvas.LineTo(p, y);
end;