Virtualtreeview Header Farbe ändern

[naridian]

Hallo!

Ich möchte in Virtualtreeview/stringtree die Spaltenheader in blau statt in grau haben. Und zwar möchte ich am liebsten den XPStil behalten (Farbverlauf) und nur die Farben von grau nach blau abändern. Habs mal mit

Delphi-Quellcode:

procedure TMainform.VSTHeaderDraw(Sender: TVTHeader;
  HeaderCanvas: TCanvas; Column: TVirtualTreeColumn; R: TRect; Hover,
  Pressed: Boolean; DropMark: TVTDropMarkMode);
begin
  HeaderCanvas.Brush.Color := $00FEECDD;
  HeaderCanvas.FillRect(R);
end;

versucht. Das führt dazu dass einfach der ganze Header mit blau überschrieben wird (keine Trennlinien, keine Beschriftung mehr). Ist also noch nicht die ideale Lösung. Es gibt auch eine Eigenschaft Header.Background (Tcolor) die aber bei mir überhaupt keine Wirkung zeigt.

Hier gibt es das Archiv der Virtualtreeview Yahoo Gruppe englisch. Dort finde ich Themen die meine Frage beantworten könnten, ich kann sie aber nich öffnen. Im original kann ich die Yahoo Gruppe nicht mehr finden. Ist aber auch egal falls mir hier jemand helfen kann

Danke!