[WSW]

ImageListCom,ImageListCom_D : TsAlphaImageList

ImageListCom – без картинок

ImageListCom_D – с картинками

1. Сохраняю все картинки из ImageListCom_D в файл: C:Image.img:

WriteComponentResFile('C:Image.img', ImageListCom_D);

2. Исправляю в заголовке файла 'C:Image.img':

a) ImageListCom_D на ImageListCom,

б) перед словом ImageListCom_D байт с кодом 14 (длинна слова ImageListCom_D) заменяю на 12 – длинну слова ImageListCom.

3. Читаю в ImageListCom, все картинки из ранее записанного файла:

ImageListCom:=ReadComponentResFile('C:Image.img', ImageListCom) as TsAlphaImageList;

И НИЧЕГО НЕ РАБОТАЕТ!!!

С обычными компонентами TImageList – всё работает!

Почему?

[WSW]

elpik – пробовал очищать ComboBox перед тем как сделать Free – не помогло!

Скачал, новую версию компонент AlphaSkin 7.21 – всё заработало! 🙂

[Author]

Posts