Auf ToolButton zeichnen

[Reddog]

Das ist ja auch der Grund, warum ich hier diese Frage gestellt habe.
Ich hab mir TToolBar angeschaut, und ich find nicht mal die Funktion, wo es die ToolButtons erzeugt. Das ist irgendwie sehr durcheinander. Ich hab mal ein TreeView verändert, und da war das perfekt einfach gemacht, man musste nur an einer Stelle in einer Funktion den Typ der erzeugten Kinder verändern. Tja mir ist bis jetzt nichts besseres eingefallen als:

Delphi-Quellcode:

var
  MyCanvas: TControlCanvas;
begin
  MyCanvas:= TControlCanvas.Create;
  MyCanvas.Control:= ToolButton; // auf dem ich zeichnen will

Dann verwende ich dieses Canvas um zu zeichnen. Es klappt, aber ich weiß nicht, ob das jetzt korrekt ist und keine Probleme verursacht. Und dann habe ich noch ein Problem damit, wann es das Dreieck draufzeichnen soll, weil ich irgendwie kein passendes Ereignis finde. Und eine procedur mit message WM_PAINT für die Komponente(abgeleitet von TToolBar) macht bei mir seltsamerweise einen Fehler. Naja, so sieht's aus.

Aber trotzdem danke für die Antwort.
Reddog.