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