Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Вниз

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)


 
DrPass ©   (2007-07-29 17:55) [5]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
2-1185638832
Юра
2007-07-28 20:07
2007.08.26
Современные игры


15-1185875868
Igorek
2007-07-31 13:57
2007.08.26
Чем чревато?


15-1185782456
Vendict
2007-07-30 12:00
2007.08.26
Nero и оперативная память


2-1185624555
mobwar
2007-07-28 16:09
2007.08.26
ТМемо замена одной буквы на другую.


2-1185787061
031178
2007-07-30 13:17
2007.08.26
Работа с файлами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский