Ich muss gestehen, ich habe übersehen, dass die Dokumente von dem Angebot vererbt ist.
Sorry
Allerdings hat mich der getText auf verwirrt:
Delphi-Quellcode:
var
pDaten: TOVSTAngebote;
begin
pDaten := TOVSTAngebote(vstangebote.GetNodeData(Node)^);
case column of
0:
begin
if pDaten is TOVSTAngebote then
celltext := TOVSTAngebote(pDaten).FAngebotstitel
+ ' (' + TOVSTAngebote(pDaten).FPKAngebotsNr + ')';
Du castest die Daten auf den Datentyp TOVSTAngebote und prüfst ob die Variable vom Typ TOVSTAngebote Daten vom Typ TOVSTAngebote enthält, um es dann wieder auf TOVSTAngebote zu casten.
Welche Version vom VST nutzt du?
Das ermitteln des Plus Zeichen wird in der Methode DetermineHiddenChildrenFlagAllNodes gemacht.
Die wird u.a. aufgerufen, wenn du deine Suche mit BeginUpdate und EndUpdate einkapselst. Gibt da aber paar Bedingungen.
Delphi-Quellcode:
vst.beginupdate();
try
vst.iterateSubtree(...);
finally
vst.endupdate();
end;
Du kannst übrigens auch IsFiltered nutzen.