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.