VirtualStringTree: Abhängig vom Level einfärben

[guidok]

Hallo,

ich habe noch eine Frage zum VST.

Und zwar möchte ich, abhängig vom Level des Knotens die Zeile einfärben (also den Hintergrund).

Ich habe das jetzt versucht mit

Delphi-Quellcode:

procedure TfListview.vstListviewPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var
  Level: Integer;
begin
  Level := Sender.GetNodeLevel(Node);
  case Level of
    0: TargetCanvas.Brush.Color := clBlue;
    1: TargetCanvas.Brush.Color := clRed;
  end;
end;

Geht aber leider nicht. Habe ich was übersehen, oder bin ich völlig auf dem Holzweg?