VST GetText Problem

[youuu]

Das hab ich mir fast gedacht, das es sich immer neu zeichnet so kam es mir nämlich vor nun hab ich gewissheit.

Danke.

Edit: hab es nun so gelöst:

Delphi-Quellcode:

procedure TFormMain.VstCustomerBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
  Customer:= TCustomerdaten(VstCustomer.GetNodeData(node)^ );

    If Customer.status = 'aktive' Then
      TargetCanvas.Brush.Color := clGreen
    Else
      TargetCanvas.Brush.Color := clRed;

    TargetCanvas.FillRect(CellRect);
end;

Allerdings wie war der befehl um nur die Schriftfarbe zuändern und nicht die Hintergrundfarbe der Spalte