Текущий архив: 2005.09.18;
Скачать: CL | DM;
Вниз
Просмотр изображений в 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.103 c
