Initialisierung von VirtualTreeView mit ivsExpanded sehr langsam

[neubert]

Hallo,

ich habe eine Delphi-10.3.3-Anwendung, in der ich ca. 1 Million Elemente mit 0 bis 7 Unterelementen in einem VirtualStringTree zeige. Wenn im InitNode-Event InitialStates den Wert ivsExpanded enthält, dauert die Initialisierung etwa 180 mal länger als ohne. Das lässt sich an folgendem Beispiel gut nachvollziehen (voller Code im Anhang):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tree.BeginUpdate;
  Tree.RootNodeCount := 1000000;
  Tree.EndUpdate;
end;

procedure TForm1.TreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
begin
  CellText := Format('(%d,%d)', [Tree.GetNodeLevel(Node), Node^.Index]);
end;

procedure TForm1.TreeInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
  var ChildCount: Cardinal);
begin
  ChildCount := 3;
end;

procedure TForm1.TreeInitNode(Sender: TBaseVirtualTree;
  ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
  // wenn die InitialStates ivsExpanded enthaelt, dauert die Initialisierung
  // sehr lange
  if Tree.GetNodeLevel(Node) = 0 then
    InitialStates := InitialStates + [ivsExpanded, ivsHasChildren];
  // InitialStates:= InitialStates+[ivsHasChildren];
end;

Ohne ivsExpanded erscheint der Inhalt praktisch sofort, mit ivsExpanded dauert es über eine Minute.

Übersehe ich einen Trick, dies zu beschleunigen?

Ich habe mir zwischenzeitlich damit beholfen, die Kindknoten auf Ebene 1 erst einzufügen, wenn der jeweilige Knoten auf Ebene 0 ins Bild rückt. Das hat aber leider den Nebeneffekt, dass es nicht möglich ist, z.B. den Knoten mit Index 123456 mittels ScrollIntoView() genau nach oben zu bugsieren. Das ist dann aber ein Problem für einen anderen Thread.

Viele Grüße
Boris