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