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

[himitsu]

so, und nun das Ganze nochmal als Class-Helper (geht natürlich nur in neueren Delphis)

Man braucht jetzt also nichtmal mehr 'nen Cast des Canvas


Im Anhang beide Versionen Class(TCanvas) und Class helper for TCanvas,
samt je 'nem Demo-Projekt und TSimpleCanvas in eine eigene Unit ausgelagert.

Delphi-Quellcode:

// mit Class-Helper
PaintBox.Canvas.ArcFullArrow(...

// ohne
TSimpleCanvas(PaintBox.Canvas).ArcFullArrow(...