VirtualTreeView Hintergrundfarbe setzen

[Piro]

Für die Zeilenfarbe habe ich folgendes erfolgreich umgesetzt.

Delphi-Quellcode:

procedure Tfrm_main.VSTAfterItemErase(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
begin
  if Sender.Selected[Node] then 
    Exit; 

  if Odd(Node.Index) then
    TargetCanvas.Brush.Color := clGradientInactiveCaption
  else
    TargetCanvas.Brush.Color := clWhite; 

  TargetCanvas.FillRect (ItemRect); 
end;

Jetzt fehlt mir nur noch der Header.