delphi - FMX : Fill whole bitmap with a background color

Question

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

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

如果我没记错的话，在旧的 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); 来用颜色填充整个位图。