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?

[Lun]

Ich mach das hier im BeforeCellPaint Ereignis:

Delphi-Quellcode:

procedure Tblub.VST2BeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellRect: TRect);
begin
 if(Column <> 0) and (Node.Index  mod 2 = 0)then
    begin
    TargetCanvas.Brush.Color := $F2F2F2;
    TargetCanvas.FillRect(CellRect);
    end;

end;

Färbe jede zweite Spalte benutze den VST als Tabellarische Ansicht.

greetz Lun

[guidok]

Funktioniert, danke!