Вывод на экран сразу несколько картинок

[Artem]

Всем привет, у меня есть массив, содержащий пути к картинкам, мне нужно вывести на форму сразу все эти картинки в уменьшенном варианте, типа как превью!!! Подскажите, как это сделать...

[JTG]

Решение "в лоб" - кинуть на форму TScrollBox и понасоздовать в нём динамически TImage для каждой картинки. Памяти наверно скушает немеряно
Или, если миниатюры не должны ни на что реагировать, достаточно будет одного TImage, куда они и будут выводится, например с помощью CopyRect

М.б. также подойдёт TListView.

[Artem]

А как динамически создавать? Примерчик можно пожалуйста!

[JTG]

Как-то приблизительно так

var img:array of TImage;
...
SetLength(img, total_images);

for i:=0 to total_images-1 do
begin
  img[i] := TImage.Create(Self);
  img[i].left := 128*i;
  img[i].top := 128*i;
  img[i].right := 128*i+128;
  img[i].bottom := 128*i+128;
...
  img[i].picture.bitmap.canvas.CopyRect([не помню параметры :)]);
...
По завершении программы - img.free.

Короче обьявить массив (динамический опять же), и в цикле для каждого большого рисунка создавать новую миниатюру-TImage и копировать в него содержимое каждого рисунка (или весь загружать, установив свойство Strech=true).

Не, надо всё-таки придумать что-то пооптимальнее

[MAKEDON]

Короче обьясняю! Создаешь объект Panel. С помощью свойства Anchor настрой его так, чтобы он заполнял всю форму и изменялся вместе с ней(в размерах). Вот код, работать будем со свойством Paint.
procedure TWinForm31.Panel1_Paint(sender: System. Object;
e: System.windows.Forms.PaintEventArgs );

const
GRExts : String = 'bmp jpg gif png'; \\Поддерфиваемые форматы
var
Files : array of String;
NewImg : Image;
i : Integer;
Ext : String;
begin
Files:= System.IO.Directory.GetFiles('ГДЕ ЛЕЖАТ КАРТИНКИ')
For i := 0 to Length(Files) - 1 do
begin
Ext := Files[i].substring(Length (Files[i]) - 2;
If GrExts.IndexOf (Ext) > 0 then
begin
NewImg := Image.FormFile (Files[i]) .GetThumbnailImage(100,100,nil,nil) ;
e.Graphics.DrawImage (NewImg, Point.Create((i mod 5) *150,(i div 5) *120));
NewImg.Free;
end;
end;
end;
УДАЧИ!!!

[mihali4]

Гениально!
И, заметьте, это вам с апломбом объясняет человек, который в соседнем посте спрашивает, как вывести на форму картинку по нажатию баттона...

[Квэнди]

Anchor

....Align ?