ListView zu langsam

[The-X]

Das Problem mit dem Listview hab ich auch gehabt, bis mir was eingefallen ist:
wenn die Spaltenbreite -1 ist (Style=vsReport) und man dann viele Items added wird's sau langsam...
Abhilfe folgt:

Delphi-Quellcode:

var
  I:Integer;
begin
  AListView.Items.BeginUpdate;
  AListView.Columns.BeginUpdate;
  For I:=0 to AListView.Columns.Count-1 do
    AListView.Column[I].Width:=0;
  AListView.Items.Clear; // if needed :)
  try
    for I:=1 to 1000000 do begin
      with AListView.Items.Add do begin
        Caption:='';
        {...}
        with SubItems begin
          BeginUpdate;
          Add('');
          {...}
          Add('');
          EndUpdate;
        end;
      end;
    end;
  finally
    For I:=0 to AListView.Columns.Count-1 do
      AListView.Column[I].Width:=-1;
    AListView.Columns.EndUpdate;
    AListView.Items.EndUpdate;
  end;
end;

die Spaltenbreite vorher auf 0 zu setzen hilft in dem Fall da sonst bei jedem Adden von einem SubItem oder Setzen eines Captions die Spaltenbreite neu berechnet wird (ich dachte zwar, dass es reichen würde Columns.Begin/EndUpdate zu nutzen aber dem war nicht so)

das ganze wird dadurch um einiges schneller wie ich bei einigen meiner Programme feststellen musste
vor allem wunderte mich die Tatsache das der Vorgang (angezeigt durch eine Progressbar z.b.) mit zunehmender Anzahl Items immer langsamer wurde...