ListBox жутко тормозит при отображении системных иконок

← →
Граф © (2002-10-11 04:47) [0]

Попытался вот заставить отобразить ListBox иконки ассоциированные каждому файлу, найденному по определенному критерию.
Но так как таких файлов обычно оказывается много (поиск идет по локальной сети с 50 компьютерами), ListBox начинает виснуть, к тому же он некорректно отображает 32битные иконки (в ХР-стиле), то есть не до конца убирает фон.
Как бы можно решить эту проблему? Правда сделал я это в осбо извращенной форме (см. код)

with FoundFiles.Items.Add do
begin
Caption := FileInfo.Name;
IconsForFiles.AddIcon(GetIcon(Folder+"\"+FileInfo.Name));
ImageIndex:=IconForFile;
IconForFile:=IconForFile+1;
SubItems.Add(Folder);
end;

Функция GetIcon() дает результатом TIcon, взял я эту функцию из Единой базы процедур и функций вот <a href= http://delphibase.endimus.ru/?action=viewfunc&topic=filelink&id=10061>здесь</a>

← →
Rouse_ © (2002-10-11 04:55) [1]

Приветствую, посмотри как это сделано в демках VirtalListView, очень простой и быстрый код и как раз то что тебе надо

Желаю успехов

← →
Граф © (2002-10-11 06:57) [2]

Доброго Вам дня, Rouse_
Нда, куда проще... :) Так я и не разобралсяЮ где он связывает ImageList с ListBox"ом
А компоненты какой попроще нет для отображения набора файлов.
Я вроде нашел одну, но она не дает возможность колонки добавлять.

Вопрос снимается, мне прислали компонент, за что большое спасибо.

ListBox жутко тормозит при отображении системных иконок Найти похожие ветки