Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение TImageList [D7, XP]

BATTLE_MAX © (2007-11-02 15:52:00)
Здравствуйте у меня такой вопрос. Я хочу сохранить TImageList в файл со всеми картинками, ну а потом ессно его восстановить. Вот нашёл такой пример:
WriteComponentResFile('C:\imagelist1.bin',imagelist1);
new_imagelist := ReadComponentResFile('c:\imagelist1.bin', nil) as TImageList;

Но при чтении вылазит ошибка: "Class TImageList not found". Я добавил RegisterClass(TImageList), но это не помогло. Кто-нибудь знает в чём дело?

BATTLE_MAX (2007-11-02 17:36:00) [1]

> А мы?
> Т.е., Владимир Титов.

А вам тоже спасибо, хорошая ссылка, как раз то что я хотел. Когда я написал "Щас буду разбираться с тем что вы мне написали", я имел ввиду вас обоих :)

Leonid Troyanovsky (2007-11-02 17:32:00) [2]

> BATTLE_MAX © (02.11.07 17:30) [11]

> Щас буду разбираться с тем что вы мне написали

А мы?
Т.е., Владимир Титов.

--
Regards, LVT.

BATTLE_MAX (2007-11-02 17:30:00) [3]

> Reindeer Moss Eater © (02.11.07 17:23) [10]

Не знаю чё там нафиг и зачем:)
Щас буду разбираться с тем что вы мне написали

Reindeer Moss Eater (2007-11-02 17:23:00) [4]
Наверное была мудрая мысль менять картинки по вкусу пользователя?
Интересно мне, если для случая FileLoad юзер сам мог в фотошопе создать нужный набор картинок, то что же он будет делать в случае с ресурсным файлом имаджлиста?
На поклон к батлмаксу идти?
Нафиг тогда вообще эта загрузка на рантайме?
Дал ему новый екзешник с новыми картинками и все.
Чума........

Leonid Troyanovsky (2007-11-02 17:22:00) [5]

> BATTLE_MAX © (02.11.07 17:15) [7]

> Тогда что нужно, как правильно сохранить imagelist с картинками?

http://www.rsdn.ru/Forum/?mid=887444

--
Regards, LVT.

Reindeer Moss Eater (2007-11-02 17:19:00) [6]
Ну а нахрена тебе это?
Хотя ладно. "Мы в город изумрудный идем дорогой трудной"

procedure TForm1.Button4Click(Sender: TObject);
var ImageList2 : TImageList; bmp : TBitMap;
begin
WriteComponentResFile('imagelist.bin',ImageList1);
ImageList1.Name := 'old_imageList';
ImageList2 := TImageList.Create(Self);
ReadComponentResFile('imagelist.bin',ImageList2);
ShowMessage(IntToStr(ImageList2.Count));
bmp := TBitmap.Create;
ImageList2.GetBitmap(1,bmp);
TBitBtn(Sender).Glyph.Assign(bmp);
bmp.Free;
end;

BATTLE_MAX (2007-11-02 17:15:00) [7]

> И WriteComponentResFile здесь нафик не нужен.
> Он выполняет совершенно другую задачую

Тогда что нужно, как правильно сохранить imagelist с картинками?

BATTLE_MAX (2007-11-02 17:14:00) [8]

> Reindeer Moss Eater © (02.11.07 17:04) [3]

Ну если я сохраняю imagelist с помощью WriteComponentResFile('C:\imagelist1.bin',imagelist1);
то разве я могу восстановить его например вот так:
new_imagelist.FileLoad(rtIcon,'C:\imagelist1.bin',clNone);?

Leonid Troyanovsky (2007-11-02 17:09:00) [9]

> Reindeer Moss Eater © (02.11.07 17:04) [3]

> А бмп это по твоему текстовый файл, а не бинарный?

Возможно, что это картинный файл.
"БМП в сосновом бору после ДМБ" :)

--
Regards, LVT.

Reindeer Moss Eater (2007-11-02 17:08:00) [10]
И WriteComponentResFile здесь нафик не нужен.
Он выполняет совершенно другую задачую

Reindeer Moss Eater (2007-11-02 17:04:00) [11]
А бмп это по твоему текстовый файл, а не бинарный?

BATTLE_MAX (2007-11-02 16:54:00) [12]

> Reindeer Moss Eater © (02.11.07 16:26) [1]

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

Reindeer Moss Eater (2007-11-02 16:26:00) [13]
ImageList1.FileLoad(rtBitmap,MyFile.bmp,MyMaskColor);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »