ImageList - добавление картинок в RunTime

← →
master_asasin (2007-07-27 20:34) [0]

Надо во время выполнения программы добавить в ImageList
картинки из папки.Причем в папке могут быть и jpeg и bmp, и png,и gif файлы.Если кто знает как это реализовать в Delphi 7
помогите пжалста,очень надА!
Если напишите весь код или ,исчо лучше киданете на мыло исходники, буду очень признателен. Заранее СПАСИБО.

← →
savyhinst © (2007-07-28 21:38) [1]

Кидаешь на форму ImageList
загружать так:
[но только bmp]
const dir="C:\"; var sr:TSearchRec; bmp:TBitmap; begin bmp:=TBitmap.create; if FindFirst(dir+"*.bmp",faAnyFile,sr)=0 then repeat bmp.LoadFromFile(dir+sr.Name); ImageList.Add(bmp,bmp); until FindNext(sr)<>0; FindClose(sr); bmp.Free; end;

← →
savyhinst © (2007-07-28 21:39) [2]

Ну как, помогло!?

← →
DrPass © (2007-07-28 21:56) [3]

> Ну как, помогло!?

Ему не знаю, но мне существенно полегчало

← →
master_asasin (2007-07-29 17:24) [4]

Да спасибо. Но как быть с остальными форматами?(jpeg,png,gif)

Конвертировать в bmp и загружать вышеуказанным способом. Для jpeg есть стандартный модуль jpeg и класс TJPEGImage, для остальных надо искать в тырнете

ImageList - добавление картинок в RunTime Найти похожие ветки