Как создать фото галерею?

[men232]

Доброго времени.
Подскажите, есть ли возможность создать фото галерею в Delphi.
Что то наподобие такого.

[Valio]

Да, возможность такая есть )

[grafgrial]

ну чего сложного то
Просто нужно создать список файлов и сделать загрузку для галереи потом написать вот такой текст

var
  img: TImage;
  textx: TLabel;

procedure TForm1.Button1Click(Sender: TObject);
begin
img:=TImage.Create(self);
img.Parent:=self;
img.Proportional:=true;
img.width:=200;
img.height:=200;
img.left:=10;
img.top:=10;
img.picture.LoadFromFile('0101.jpg');

Textx:=TLabel.Create(self);
textx.Parent:=self;
textx.Left:=10;
textx.Top:=img.top+img.height+10;
textx.Caption:='0101.jpg';
textx.Visible:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
img.Free;
textx.free;
end;

это создание одного image и одного label с количеством сам разберешся. распределение кол-ва image можно вычислить так кол-во картинок:=форма.ширина div картинка.ширина -50; (к примеру)

[ZvEr_HaCkEr]

А можно не парится, а взять готовое.

[men232]

Спасибо что так быстро откликнулись, сейчас буду пробовать все варианты.

[men232]

Удалось создать список файлов которых нужно отобразить, но не могу их подгрузить.
Можете дать пример?

Вот что у мну получилось:

for I := 0 to ListBox1.ItemHeight do
begin
img:=TImage.Create(self);
img.Parent:=self;
img.Proportional:=true;
img.width:=200;
img.height:=200;
img.left:=10+i*210;
img.top:=10;
img.picture.LoadFromFile(ListBox1.Items[i]);
end;

Стало грузится, но нужно как то на новую строку переводить?