Arc( z,e,i,c,h,n,e,n) 1/4 Kreis

[himitsu]

hab hier mal schnell was zusammengetippt

Übernimmt den Mittelpunkt, Durchmesser (Diameter), sowie den Start- und Endwinkel im Bogenmaß.

Delphi-Quellcode:

Type TCanvasEx = Class(TCanvas)
  Public
    Procedure Arc    (X, Y, D:      Integer; S, E: Single); Overload;
    Procedure Arc    (X, Y, Dh, Dv: Integer; S, E: Single); Overload;
    Procedure Chord  (X, Y, D:      Integer; S, E: Single); Overload;
    Procedure Chord  (X, Y, Dh, Dv: Integer; S, E: Single); Overload;
    Procedure Ellipse(X, Y, D:      Integer);               Overload;
    Procedure Ellipse(X, Y, Dh, Dv: Integer);               Overload;
    Procedure Line   (X1, Y1, X2, Y2: Integer);             Overload;
  End;

[add]
Wer jetzt fragt, warum nicht den Radius ... hatte ich erst, aber da kann man den Durchmesser ja nur in 2er-Schritten einstellen.

Dh und Dv sind der horizontale bzw. vertikale Durchmesser

[edit]
neuer Anhang siehe #16