(VirtualTreeView) Schriftfarbe einer Zeile (o. Zelle) ändern

[Viktorii]

Hallo zusammen.

Ich möchte bei meinem VirtualTreeView welches ich als ListView-Ersatz verwende die Schriftfarbe einer Zeile, oder besser noch, einer Zelle ändern.
Ich habe es geschafft die Hintergrundfarbe zu ändern:

Delphi-Quellcode:

procedure TMainForm.VSTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  ItemRect: TRect; var Color: TColor; var EraseAction: TItemEraseAction);
var
  pNodeData        : PTreeData;

begin
  pNodeData := FVirtualStringTreeBFInfo.GetNodeData(Node);

  with Canvas do
  begin
    if pNodeData.Changed then
      Color := CHANGEDCOLOR;

    if pNodeData.Conflict then
      Color := CONFLICTCOLOR;

    EraseAction := eaColor;
  end;

Leider ändert sich so die gesamte Textfarbe meines Fensters:

Delphi-Quellcode:

procedure TMainForm.VSTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  ItemRect: TRect; var Color: TColor; var EraseAction: TItemEraseAction);
var
  pNodeData        : PTreeData;

begin
  pNodeData := FVirtualStringTreeBFInfo.GetNodeData(Node);

  with Font do
  begin
    if pNodeData.Changed then
      Color := CHANGEDCOLOR;

    if pNodeData.Conflict then
      Color := CONFLICTCOLOR;

    EraseAction := eaColor;
  end;

Und so ändert sich garnichts:

Delphi-Quellcode:

procedure TMainForm.VSTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  ItemRect: TRect; var Color: TColor; var EraseAction: TItemEraseAction);
var
  pNodeData        : PTreeData;

begin
  pNodeData := FVirtualStringTreeBFInfo.GetNodeData(Node);

  with Canvas.Font do
  begin
    if pNodeData.Changed then
      Color := CHANGEDCOLOR;

    if pNodeData.Conflict then
      Color := CONFLICTCOLOR;

    EraseAction := eaColor;
  end;

Gibt es eine Möglichkeit das zu erreichen was ich möchte?

Vielen Dank

P.S.: manchmal lese ich VirtualTreeView und manchmal VirtualStringTree. Wo liegt da der Unterschied?

[Tyrael Y.]

Da gabs das Ereignis OnBeforeCellPaint mein ich.
Da müsste es gemacht werden.

VirtualTreeView = VirtualstringTree....die Leute meinen dasselbe

[ToFaceTeKilla]

Guckstu hier

Hat mir heute auch schon weitergeholfen

[Phoenix]

Zitat von Viktorii:

P.S.: manchmal lese ich VirtualTreeView und manchmal VirtualStringTree. Wo liegt da der Unterschied?

VirtualTreeView ist das 'Produkt'. Der VirtualStringTree ist eine einzelne Komponente / Klasse aus dem VirtualTreeView Paket.