Показать сообщение отдельно
  #1  
Старый 06.12.2014, 09:25
Аватар для garun
garun garun вне форума
Прохожий
 
Регистрация: 06.12.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
Вопрос Чем можно заменить или как ускорить TImageList?

Приветствую!

Задача следующая - загружать из файла в ListView (три колонки) большущий список строк, порядка 40-50К, а то и больше. Конечно, это занимало много времени, поэтому решил проблему переводом ListView в виртуальный режим. Теперь всё ОК, даже миллион строк грузится буквально за секунду. С ListView разобрался, но вот незадача - к каждой строке еще нужно прицепить по иконке. Вот как этот процесс оптимизировать? Ведь ListView берет иконки из TImageList (кстати, можно ли из другого места брать, подскажите?). А чтобы заполнить этот TImageList 40-50К картинок (гружу их из папки), опять же, нужно много времени.
Если подгружать в TImageList иконки по мере прокрутки ListView, т.е. на событие ListView1.OnData добавить ImageList1.Add(bm, nil), тогда всё хорошо, но стоит резко крутануть скролл вниз - и тут же иконки пропадают, так как предыдущие индексы еще не заполнились.

Пробовал вешать на кнопку "Загрузить список из файла" цикл в котором TImageList предварительно заполняется Nil'ами в цикле:
Код:
...
for i:=0 to ListView1.Items.Count-1 do
ImageList1.Add(nil, nil);
...

А затем при необходимости заменять нужный индекс нужной картинкой:

Код:
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  bm: TBitMap;
begin
...
  ImageList1.Replace(Item.Index, bm, nil); 
  Item.ImageIndex:= Item.Index;
...
end;

Работает, но опять же - предварительное заполнение nil'ами в начале по скорости такое же как и если бы я сразу загрузил в него все нужные иконки.

Как можно оптимизировать это всё и ускорить?
Например, можно ли как-то изначально задать количество элементов в TImageList, не заполняя его nil'ами в цикле? Или как-то избавиться от тормозного TImageList и заменить его чем-то? Очень надеюсь на дельные советы. Заранее спасибо!
Ответить с цитированием