Die Schriftfarbe der ausgewählten VirtualTreeView Nodes ände

[Hawkeye219]

Hi,

das sollte genügen:

Delphi-Quellcode:

procedure TForm1.TreeViewPaintText (Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
begin
  if Sender.Selected[Node] then
    TargetCanvas.Font.Color := clRed;  // oder clBlack...
end;

Gruß Hawkeye