Text selbst zeichnen in einer TVirtualStringTree

[mimi]

Hallo,
wie kann ich das zeichnen übernhemen, in einer TVirtualStringTree ?

[Prototypjack]

Moin!
Das Text zeichnen, oder das zeichnen der einzelnen Nodes?
Gruß,
Max

[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

Delphi-Quellcode:

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

[mimi]

danke werde ich mir mal überlegen. es sind auch nur "spierreien" *G*