VirtualTreeView mit Handbremse?

[Daniel]

Moin,

ich nutze in Delphi XE8 den VirtualTreeView, wie er über GetIt ausgeliefert wird. Die Version identifiziert sich selbst als 6.1.0.
Kann es sein, dass die langsamer ist als früher? Ich erinnere mich an Zeiten, in denen man Tausende an Einträgen einfügen konnte, ohne nennenswert zu warten.

Aktuell habe ich rund 10.000 Einträge und warte reproduzierbar rund 1.5 Sekunden. Leere VCL-Anwendung, VirtualTree raufgebatscht und folgenden Code ausgeführt:

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var
  LNode : PVirtualNode;
  i : integer;
  s, e : cardinal;
begin
  s := GetTickCount;

  VirtualStringTree1.BeginUpdate;
  TRY
    for i := 0 to 9999 do
    begin
      LNode := VirtualStringTree1.AddChild( NIL );
    end;
  FINALLY
    VirtualStringTree1.EndUpdate;
  END;

  e := GetTickCount;
  ShowMessage( IntToStr(e-s) );
end;

Hat einer einen VST aus einer anderen Quelle und könnte mal testen, ob es da auch ähnliche Verzögerungen gibt?
Ich hätte jetzt Zeiten < 100ms erwartet.