如何在图标模式下以列表视图显示图片？

Question

我使用Delphi Tokyo创建firemonkey应用程序，我需要显示如下图所示的图片：

有没有办法编辑TListView使它看起来像这样？

Answer 1

我在VertScrollBox组件中使用TGridLayout做了类似的项目......

步骤......

• 将VertScollBox放入表单
• 放置一个GridLayout（在vert scroll内）*有时是滚动框 不要因为诙谐（或高度）而表现得恰到好处 grid ...我通常会通过一个程序进行调整。
• 添加一个按钮（在vertScroll之外的任何位置）

添加项目的程序......

var
  pnl : TPanel;
begin
  pnl := TPanel.Create(self);
  pnl.text := 'hi there!';
  // here you should create and add images to panel. make sure the parent of each object is the pnl object.
  pnl.parent := GridLayout1;
end;

调整大小时，添加时以及删除项目时都会调用以下代码。

procedure TfrmMain.adjustViews;
var
  itemsPerRows: double;
  rows: double;
begin
  // for grid on vertical scroll  
  if GridLayout1.ControlsCount > 0 then begin
    itemsPerRows :=  trunc(GridLayout1.Width / GridLayout1.ItemHeight);
    rows   := GridLayout1.ControlsCount / itemsPerRows;
    GridLayout1.height := rows * GridLayout1.ItemWidth;
  end;


  // for grid on horizontal scroll
  if GridLayout2.ControlsCount > 0 then
    GridLayout2.Width := GridLayout2.ControlsCount * GridLayout2.ItemWidth;
end;

备注：

• 这篇文章是直接输入的，所以你有一个想法，但不是我的 代码本身！

希望它有所帮助！