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(...