Просмотр изображений в 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]
как связать последовательность файлов
Их не надо связывать.
Рисунки нужно загрухать по имени.

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

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

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