VirtualTreeView Schriftfarbe

[yogie]

Hallo zusammnen,

auf der Suche nach einem schnellen Ersatz für StringGrid habe ich VirtualTreeView
gefunden. Das ist ja wirklich eine mächtige Sache. Jetzt versuche ich die Schriftfarbe
einzelner Zellen zu ändern. Leider hat folgender Code keine Wirkung.

Delphi-Quellcode:

procedure TForm1.VST1BeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect;
  var ContentRect: TRect);
begin
  if Column = 1 then begin
    TargetCanvas.Brush.Color := clRed;  //geht
    TargetCanvas.FillRect(CellRect);    //geht
    TargetCanvas.Font.Color := clWhite; //wirkt nicht
  end;
end;

Muß da noch eine Eigenschaft zusätzlich eingestellt werden ? Ich meine im normalen StrinGrid
gibt es sowas wie OwnerDraw.