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

Вниз

TImage   Найти похожие ветки 

 
Wel   (2006-02-21 23:31) [0]

Уважаемые мастера. Для того чтобы последовательно загрузить jpg в Image. я использовал следующий код, но с каждым добавлением Image и код соответственно увеличивается. Подскажите пожалуйста как можно иначе прописать. Если не затруднит то отпишите кусочек кода . procedure TForm1.FileListBox1DblClick(Sender: TObject);
var f: integer; FS:TFilestream;
begin
FS := TFileStream.Create(FileListBox1.Filename, fmOpenRead or fmShareDenyWrite);
 f := FS.Size; f := f div 1024;
if Image1.picture.graphic = nil then Label1.Caption := IntToStr(f) +" Kb" else
if Image2.picture.graphic = nil then Label2.Caption := IntToStr(f) +" Kb" else
if Image3.picture..........
if Image15.picture.graphic = nil then Label15.Caption := IntToStr(f) +" Kb" ;

if Image1.Picture.Graphic= nil then Image1.Picture.Assign(ViewImage.Picture) else
if Image2.Picture.Graphic= nil then Image2.Picture.Assign(ViewImage.Picture) else
if Image3.Picture........
if Image15.Picture.Graphic= nil then Image15.Picture.Assign(ViewImage.Picture);


 
McSimm ©   (2006-02-21 23:41) [1]

for i:=0 to ComponentCount-1 do
 if (Components[i] is TImage) then
 begin
......
 end



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

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

Наверх




Память: 0.44 MB
Время: 0.013 c
2-1140324620
VitalikS
2006-02-19 07:50
2006.03.12
Автоинкримент


15-1139849830
basnik
2006-02-13 19:57
2006.03.12
Требуется написать программу за $$$


2-1140607527
Клон
2006-02-22 14:25
2006.03.12
Charset в Idmessage


1-1139392424
ДенисНск
2006-02-08 12:53
2006.03.12
Очередь MSMQ


2-1140499747
ALIES
2006-02-21 08:29
2006.03.12
Два соединения в BDE





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