FMX：用背景颜色填充整个位图

Question

我想创建一个TImage 组件并用背景颜色填充图像。但是我的代码比我预期的要长一点。

1. 我必须设置位图的宽度和高度。
2. 我必须计算整个位图画布的矩形。

如果我没记错的话，在旧的 Delphi 版本中，我可以使用 FloodFill 用特定颜色填充整个图像。所以我想我肯定错过了一些东西。

有人能弄清楚如何用更简单的代码填充背景颜色吗？

Image := TImage.Create(nil);
Image.Position.X := 100;
Image.Position.Y := 100;
Image.Width := 500;
Image.Height := 500;
Image.Bitmap.Width := Trunc(Image.Width);
Image.Bitmap.Height := Trunc(Image.Height);
with Image.Bitmap.Canvas do
begin
  BeginScene;
  try
    Fill.Color := TAlphaColors.Black;
    FillRect(RectF(0, 0, Image.Bitmap.Width, Image.Bitmap.Height), 0, 0, [], 1.0);
  finally
    EndScene;
  end;
end;

Answer 1

FMX 中没有 FloodFill。但是您可以使用Clear(TAlphaColors.Black); 来为整个位图填充颜色。

Answer 2

您必须设置位图尺寸的原因是因为位图大小不必与 TImage 大小相同。您可以拥有比 TImage 更小或更大的位图，然后使用 WrapModes 之一来确定该图像将如何呈现到 TImage：

WrapMode 属性应该是 TImageWrapMode 类型中定义的常量之一：

• iwOriginal：以原始尺寸显示图像。
• iwFit：TImage 矩形的最佳拟合（保持图像比例——宽度和高度之间的比率）。默认。
• iwStretch：拉伸图像以填充此 TImage 组件的整个矩形。
• iwTile：平铺 TImage 图像以覆盖 TImage 组件的整个矩形。

至于计算整个位图的矩形。如果您希望您的位图与 TImage 具有相同的大小，那么您可以轻松读取 TImage.ClipRect。

ClipRect 通常是代表控件内部的矩形，您可以在其上进行渲染。在像 TPanel 这样有边框的控件上，例如 ClipRect 尺寸小于整个控件的尺寸。

正如 Sebastian 所说，您可以使用 TBitmap.Clear 方法快速用单一颜色填充整个位图表面背景。