Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
2-1140831170
49 Cent
2006-02-25 04:32
2006.03.12
Как недопустить текстовые символы в edit?


2-1140537404
Михаил (Киров)
2006-02-21 18:56
2006.03.12
Нуль-модемное соединение


2-1140758544
opoloXAI
2006-02-24 08:22
2006.03.12
DB2


2-1140974454
zxcv
2006-02-26 20:20
2006.03.12
указатели


2-1140652195
49 Cent
2006-02-23 02:49
2006.03.12
Вопрос по БД и про разделитель групп разрядов.