Virtual Tree View textfarbe einzelner Rows ändern?

[Hawkeye219]

Hallo Richard,

du hast ein Ereignis vergessen: OnAfterItemErase:

Delphi-Quellcode:

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

  if Odd(Node.Index)
    then TargetCanvas.Brush.Color := clRed
    else TargetCanvas.Brush.Color := clYellow;

  TargetCanvas.FillRect (ItemRect);
end;

Der Code färbt die Zeilen des Baums abwechselnd rot und gelb - abhängig vom Knotenindex. Selektierte Zeilen erhalten keine spezielle Färbung.

//Edit: Ok, es ging um die Textfarbe. Wer lesen kann...

Gruß Hawkeye