Virtual Treeview: Column-Collection wirft

[DGL-luke]

Hallo, folgender Code bei mir, im VSTGetText-Event:

Delphi-Quellcode:

  if Column >= FTree.Header.Columns.Count then
  begin
    CellText := '';
    Exit;
  end;

  if FTree.Header.Columns[Column].Tag = -1 then  //wirft hier

Abgesehen davon, dass meine Baumstruktur nicht wirklich anständig aufgebaut wird, bekomme ich beim Expanden irgendeiner node eine Exception geworfen: "EListError - ListenIndex überschreitet das Maximum (-1)".

Das heißt ja wohl, dass ich da auf eine leere Liste zugreife. aber ich hab keine ahnung warum. der callstack sieht so aus:

Code:

00464139 +019 PFormReader.exe Classes                 TList.Get
00464e7f +00b PFormReader.exe Classes                 TCollection.GetItem
004c96ee +00a PFormReader.exe VirtualTrees  8512   +1 TVirtualTreeColumns.GetItem
004f29b3 +063 PFormReader.exe UEditor        300   +9 TLangTreeController.VSTGetText      //das ist mein code. und 300 ist genau die loc die wirft
004e7e54 +024 PFormReader.exe VirtualTrees 29636   +2 TCustomVirtualStringTree.DoGetText
004e7274 +054 PFormReader.exe VirtualTrees 29202   +7 TCustomVirtualStringTree.GetText
004e7de7 +0c7 PFormReader.exe VirtualTrees 29625  +26 TCustomVirtualStringTree.DoGetNodeWidth
...

Es scheint also am VirtualStringTree zu liegen...

im Anhang mal der komplette madExcept-report.