[TDTADOTree] Feldinhalt formatieren

[newgro]

Hallo *,

ich suche schon den halben Tag nach einer Lösung für folgendes Problem:

Ich möchte die Anzeige eines Dezimalwertes in einer Spalte des TDTADOTree formatieren.
Momentan werden alle Zahlen 12345,78 dargestellt. Ich hätte gern 12.345,78

Leider geht es nicht mit überschreiben von

Delphi-Quellcode:

procedure Tfrm.trRelationGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
  // Hier dann Format(...)
end;

Diese Funktion wird offenbar nicht beim TDTADOTree aufgerufen. Hat zufällig jemand Erfahrung
mit dem Formatieren und kann mir weiterhelfen?

PS: Das Formatieren eines Strings mit Format ist NICHT mein Problem.

Danke
Per