Text selbst zeichnen in einer TVirtualStringTree

[opfer.der.genauigkeit]

Hi,

dafür gibt es diverse Events.
OnAfterCellPaint
OnBeforeCellPaint
OnPaintText
...

In den meisten oder allen Fällen steht dir ein TargetCanvas Objekt zur
Verfügung.

Damit kannst du dann machen, was du magst.

OnPaintText
TargetCanvas.Font.Color := clRed; OnBeforeCellPaint

Delphi-Quellcode:

TargetCanvas.Brush.Color := clGreen;
TargetCanvas.FillRect( CellRect );

Edit:// Wenn du alles selbst zeichnen möchtest, dann empfiehlt sich wohl eher TVirtualDrawTree.

MfG
odg