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

Вниз

Просмотр изображений в TImage   Найти похожие ветки 

← →
Fostr   (2005-08-26 18:07) [0]

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

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

---

← →
Alexander Panov ©   (2005-08-26 18:10) [1]

Fostr   (26.08.05 18:07)

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

---

← →
Fostr   (2005-08-26 18:13) [2]

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

---

← →
Fostr   (2005-08-26 18:13) [3]

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

---

← →
Alexander Panov ©   (2005-08-26 18:15) [4]

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

---

← →
Джо ©   (2005-08-26 20:58) [5]

В обработчике 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"а.

---

← →
Джо ©   (2005-08-26 21:00) [6]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.011 c