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.