Чем можно заменить или как ускорить TImageList?

[garuna]

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

Задача следующая - загружать из файла в 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 и заменить его чем-то? Очень надеюсь на дельные советы. Заранее спасибо!

[Аватар]

Куча событий CustomDraw. Там тоже картинки можно прорисовывать без всякого ImageList

[Smitt&Wesson]

и тут же иконки пропадаю

И будут пропадать. Необходимо эту байду перерисовывать в OnPaint. Костыль, конечно, но тут уж ничего не придумаешь. Не, ещё можно в DirerctDraw, но та же - жопа, только в профиль.

[Toxa]

а нужно ли грузить весь список из 40-50к записей?
человеку думаю будет сложно обработать этот набор данных
может лучше выдавать порциями, фильтровать или подгружать динамически?

[Smitt&Wesson]

Не совсе понятна идея. Если идти от эргономики, 7-8 записей - за глаза. Если их больше, необходими разработать определённый критерий выдачи. Каков он будет? То мне не ведмо. Всё на усмитрение автора.

[garuna]

Сообщение от Аватар

Куча событий CustomDraw. Там тоже картинки можно прорисовывать без всякого ImageList

Без ImageList? А можно подробнее?

[Smitt&Wesson]

Сообщение от garuna

Без ImageList? А можно подробнее?

Какой максимальный размер картнки? Там есть ограничения, 64х64. Еслт будет больше, она урежитсяся с левого верхнего пикселя.

[garuna]

Сообщение от Smitt&Wesson

Какой максимальный размер картнки? Там есть ограничения, 64х64. Еслт будет больше, она урежитсяся с левого верхнего пикселя.

картинки все от 16x16 до 48x48

[Smitt&Wesson]

Приведи их все к формату 64х64 и будет тебе счастье.

[garuna]

Вобщем проблему решил еще проще) Поменял значение ImageList.AllocBy на 1000 и всё стало загружаться моментально) Всем спасибо, тема больше не актуальна!