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

[himitsu]

Das mit den Pfeilen sieht jetzt erstma "hübsch" aus.

Also könnt ihr gern mal nachsehn ob es so in Ordnung geht.
(die Pfeile sind zwar nicht Pixelgenau so groß, wie man es angibt, aber es solle dennoch halbwegs gleichmäßig aussehn )

Und dann hab ich die Klasse etwas umbenannt.

aktuelle Funktionen wären:

Delphi-Quellcode:

Type TSimpleCanvas = Class(TCanvas)
  Public
    Procedure Arc         (X, Y, D:        Integer; S, E: Single);
    Procedure Arc         (X, Y, Dh, Dv:   Integer; S, E: Single);
    Procedure ArcArrow    (X, Y, D:        Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcArrow    (X, Y, Dh, Dv:   Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcFullArrow(X, Y, D:        Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcFullArrow(X, Y, Dh, Dv:   Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure Chord       (X, Y, D:        Integer; S, E: Single);
    Procedure Chord       (X, Y, Dh, Dv:   Integer; S, E: Single);
    Procedure Ellipse     (X, Y, D:        Integer);
    Procedure Ellipse     (X, Y, Dh, Dv:   Integer);
    Procedure Line        (X1, Y1, X2, Y2: Integer);
    Procedure Pie         (X, Y, D:        Integer; S, E: Single);
    Procedure Pie         (X, Y, Dh, Dv:   Integer; S, E: Single);
  End;

// X, Y   = Mittelpunkt
// D      = Durchmesser
// Dh, Dv = Durchmesser horizontal/vertikal
// S, E   = Start- und Endwinkel im Bogenmaß (RAD)
// A      = Pfeillänge
// Ab     = Winkel der Pfeilspitze, ebenfalls im Bogenmaß

[edit]
hab im Angang die Ellipsen-Verzerrung noch etwas verstärkt (sie flacher gemacht)
und die Anzeigedauer je Typ verlängert.

[add]
Wenn der Durchmesser im Verhältnis zur Pfeillänge zu klein ist, wird der Pfeil nicht gezeichnet.
wird nicht berechnet, sonder nur ein etwa um 90° gedrehter Pfeil (zum Radius) gezeichnet

[add2]
es werden Arc, ArcArrow, ArcFullArrow, Chord und Pie der Reihe nach angezeigt.

[add3]
hab noch ein paar Controls für Linienbreite, Pfeilgröße und Co. draufgepackt, außerdem wird jetzt nimmer zwischen den Controls automatisch umgeschaltet.