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.

[toms]

Hallo

if Column = 1 then begin Gibt es überhaupt Spalten?

Schreibe mal ins OnPaintText TargetCanvas.Font.Color := clRed; Geht es so?

[yogie]

... Danke, klappt prima !
Jetzt geht es weiter mit dem Rest ...

Schönes Wochenende für alle.

Hier (Nähe Goslar) hat es gerade angefangen zu schneien!

[toms]

Dein Text ist unsichtbar...

Zitat von yogie:

... Danke, klappt prima !
Jetzt geht es weiter mit dem Rest ...

Schönes Wochenende für alle.

Hier (Nähe Goslar) hat es gerade angefangen zu schneien!