Einzelnen Beitrag anzeigen

Benutzerbild von Gollum
Gollum

Registriert seit: 14. Jan 2003
Ort: Boxberg
456 Beiträge
 
Delphi 10.1 Berlin Professional
 
#7

Re: Virtual Tree View textfarbe einzelner Rows ändern?

  Alt 19. Dez 2007, 14:46
Hallo,

das Ereigniss, dass Du suchst ist OnPaintText. Folgend ein Beispiel, wie es funktionieren könnte. Leider ist aus Deinem Post nicht ersichtlich, wie Du die Daten im Tree speicherst.

Delphi-Quellcode:
procedure TForm1.vtListePaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var d:PMyNodeData;
begin
  if (Node=nil) then Exit;
  d:=Sender.GetNodeData(Node);
  with TargetCanvas do
  begin
    if (Column=3) then if (d^.MeinText='test') then Font.Color:=clRed;
  end; // with TargetCanvas
end;
  Mit Zitat antworten Zitat