Главная страница
    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.077 c
15-1185783063
AlinaVK
2007-07-30 12:11
2007.08.26
Перевод проекта на .Net


15-1185793089
kernel
2007-07-30 14:58
2007.08.26
Регистрация авторского права на ПО


15-1185894733
ЮТК
2007-07-31 19:12
2007.08.26
О ЮТК


11-1168515485
Mabia
2007-01-11 14:38
2007.08.26
Установка Report&amp;Print в D6


8-1163431376
maker
2006-11-13 18:22
2007.08.26
WMA Тэги





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский