delphi - 通过位图平铺填充背景

Question

在我的 FMX 应用程序中，我必须使用位图模式填充表单的整个背景区域。
我考虑使用这种模式的原因是因为用户可以自由调整表单的大小，以及是否设置固定图像拉伸会导致背景质量下降。

有没有办法使用我可以重复的小位图模式（X 和 Y）来根据调整大小填充整个表单区域？

Answer 1

您正在寻找的效果是Tile.

请参阅TTilerEffect和FireMonkey_Image_Effects获取文档。

属性HorizontalTileCount和VerticalTileCount控制位图将被复制多少次。由于这些值是浮点数，因此您需要在重新缩放表单时调整它们的值。

Answer 2

• 将 TImage 添加到表单
• 使所有其他控件成为它的子项（以便它们出现在顶部）。
• 将图像的对齐设置为 alClient。
• 加载位图。
• 将 WrapMode 设置为 imTile。