|
Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.157 Beiträge
Delphi 12 Athens
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
19. Feb 2009, 15:15
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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
|
|
|
Zitat
|