Virtual Tree View textfarbe einzelner Rows ändern?

[richard_boderich]

@Gollum & generic

Also ich verwende zurzeit noch Records (@generic Asche auf mein Haupt )
Ich habe den Code von Gollum jetz so angepasst. Problem ist, das es die Zeile nicht färbt.

Delphi-Quellcode:

procedure TForm1.VstPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var d: PRMeineDaten;
  begin
  d:=Sender.GetNodeData(Node);
  with TargetCanvas do
  begin
    if (Column=3) then if (d^.Hidden='test') then Font.Color:=clRed;
  end; // with TargetCanvas

end;