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

[fkerber]

Hi!

@Thomas2009:
Ich bitte dich nochmals, die Bilder als Anhänge dranzuhängen, statt sie so einzubinden.
Ist der externe Server einmal down oder die Bilder von dort gelöscht, so ist der Beitrag vollkommen wertlos.
Außerdem dauert das Laden des Threads hier unnötig lange, wenn man die Bilder einmal gesehen hat...

Danke!

Ciao, Frederic

[himitsu]

@Thomas:
hätt ja beinah vergessen ... dein 1/4-Tür-Kreis wäre:

Delphi-Quellcode:

TSimpleCanvas({DeinCanvas}PaintBox1.Canvas).Arc({X}165, {Y}85, {D}150, -PI/2, 0);

[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 :mrgreen:


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