ios - Delphi TGridLayout 布局和项目之间的填充

Question

我在尝试使用 TGridLayout 保存一系列 TImage 对象时得到了一些结果，每个对象都加载了位图。但是，控件之间没有余量。我已经尝试使 TImage 宽度/高度小于 TGridLayout itemheight/itemwidth，但没有成功。

示例代码:

ImageRef := TImage.Create(GridLayoutGallery);
ImageRef.Visible := False; // se true later
ImageRef.Width := GridLayoutGallery.ItemWidth - 10;
ImageRef.Height := GridLayoutGallery.ItemHeight - 10;
GridLayoutGallery.AddObject(ImageRef);

Answer 1

您自己已经接近答案，以下是我将如何实现这一目标:

假设您的网格包含一系列大小为 40 x 40 像素的图像

要在图像之间应用边距，只需设置 ItemWidth和 ItemHeight TGridLayout 的属性组件的值大于实际图像的大小，例如 42 x 42 像素。

这应该在放置在 TGridLayout 中的每个图像周围创建边距。