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...