Schickes Ding. Ein kleiner Hinweis noch:
Die lokale Variable im Konstruktor kann man sich sparen:
ControlStyle := ControlStyle + [csSetCaption];
Ausserdem habe ich mir angewöhnt bei Komponenten bei den Setter'n immer noch vor dem Invalidate folgende Bedingung zu setzen:
if not ( csLoading in ComponentState ) then
um Windows die ganzen Akkumulationen zu ersparen über die dreckigen Bereiche, schliesslich malst du als TGraphicControl auf dem
DC deines Parents...