Реализация галереи

[bilibian]

Привет!

Как реализовать, что то вроде этого?

[саша40]

Image, Panel, CheckBox. Юзай.

[min@y™]

А какую функцональность хочешь ты, юный падаван?

[Stilet]

Это похоже на ListView. Хотя наверное я бы через Frame делал. Просто располагать их выравнивая правильно и будет тебе плитка.
Frame потому что там будет удобнее чекбокс засунуть и Лейбл.

[bilibian]

Stilet, а лейбл то зачем туда пихать? Разве свойства caption у чекбокса не достаточно?

[Человек_Борща]

Все это классно можно нарисовать в VirtualDrawTree.

[bilibian]

procedure TForm1.FormCreate(Sender: TObject);
  var
    i:Integer;
    Chb:TCheckBox;
    PN:TPanel;
    IM:TImage;
begin
 for i := 1 to 10 do begin
    PN:=TPanel.Create(Form1);
    PN.Parent:=Form1;
    PN.Width:=200;
    PN.Height:=150;
    PN.Margins.Left:=20;
    PN.AlignWithMargins:=True;
    PN.Align:=alCustom;

    Chb:= TCheckBox.Create((Form1.Controls[i-1] as TPanel));
    Chb.Parent:=(Form1.Controls[i-1] as TPanel);
    Chb.Align:=alBottom;
    Chb.Height:=20;
    Chb.Caption:='Картинка '+inttostr(i);

    IM:=TImage.Create((Form1.Controls[i-1] as TPanel));
    IM.Parent:=(Form1.Controls[i-1] as TPanel);
    IM.Picture.LoadFromFile('E:\images\69b7f71fcce110c262bfb951f8c54c99.jpg');
    IM.Proportional:=True;
    IM.Align:=alClient;
  end;
end;

Немного не то, что хотелось бы

[indexx]

Ну лично я не заметил разницы между верхними и нижними блоками изображений.

[bilibian]

В общем вот мой результат. Панели + image + checkbox

[bilibian]

Но если после прорисовки плиток увеличить форму, то получится не оч хорошо, то есть, так и будет 3 плитки в ряду. Что посоветуете по этому поводу? Заново загружать весь контент не вариант, если объем этих картинок будет большим, да и бредово одно и тоже действие производить несколько раз.