| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Просмотр изображений в TImage [D6, Win2k, WinXP]

Fostr ©   (2005-08-26 18:07:00) 

Товарищи! Есть TImage и TFilelistBox. Как сделать что бы при нажатии кнопочки изображения сами последовательно показывались в TImage?

C уважением, Fostr.

---

Джо   (2005-08-26 21:00:00) [1]

Аааа. Неправильно прочитал вопрос. Ну, тогда используй for и мной приведенную функцию DrawPreview. И маленькую задержку между показами.

---

Джо   (2005-08-26 20:58:00) [2]

В обработчике TFileListBox.OnChange напиши такое:

procedure TForm6.FileListBox1Change(Sender: TObject);
 procedure ClearImage;
 begin
   Image1.Canvas.Brush.Color := clBtnFace;
   Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
 end;
 procedure DrawPreview (FileName: string; Dest: TCanvas);
 var
   Pct: TPicture;
 begin
   Pct := TPicture.Create;
   try
     Pct.LoadFromFile(FileName);
     Dest.StretchDraw(Dest.ClipRect,Pct.Graphic);
   finally
     Pct.Free;
   end;
 end;
begin
 ClearImage;
 if FileListBox1.FileName = '' then
   Exit;
 DrawPreview(FileListBox1.FileName,Image1.Canvas);
end;

В общем, принцип такой. И не забудь установить корректную Mask у FileListBox'а.

---

Alexander Panov   (2005-08-26 18:15:00) [3]

Fostr   (26.08.05 18:13) [3]
как связать последовательность файлов
Их не надо связывать.
Рисунки нужно загрухать по имени.

---

Fostr   (2005-08-26 18:13:00) [4]

Thank's! Можно наверное и через таймер... Но вопрос в том, как связат последовательность файлов в TFileListBox с TImage. Может я и туплю, заранее извиняюсь :)

---

Fostr   (2005-08-26 18:13:00) [5]

Thank's! Можно наверное и через таймер... Но вопрос в том, как связать последовательность файлов в TFileListBox с TImage. Может я и туплю, заранее извиняюсь :)

---

Alexander Panov   (2005-08-26 18:10:00) [6]

Fostr   (26.08.05 18:07)

Используй оператор for.

---

Наверх