Главная страница
    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
15-1140180610
Manic Mechanic
2006-02-17 15:50
2006.03.12
горе от ума


4-1135015153
qwertik
2005-12-19 20:59
2006.03.12
Модем. Набор номера


2-1140266785
KILROY
2006-02-18 15:46
2006.03.12
инфа о файле,скан директории,ADO.


15-1139893971
Думкин
2006-02-14 08:12
2006.03.12
Марсеру 20 лет.


1-1138704330
Counter Terranist
2006-01-31 13:45
2006.03.12
PageControl.TabPosition в ХР





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