delphi - 如何在位图上渲染棋盘网格？

Question

我正在另一个“下方”图像之上显示透明图像。

在本例中，底部(实心)图像是棋盘网格，顶部图像是狮子(透明):

=

原因是为了更好地显示透明区域，因为通常您看不到哪些区域是透明的。

问题是，位图的尺寸可以是任意大小，因此网格也需要与位图具有相同的大小。

如果您愿意，一种肮脏的方法是创建上面的棋盘网格的较大版本，其大小例如 2000x2000，然后根据您正在使用的位图的大小，您可以调整网格 Canvas 的大小以匹配。这并不理想，因为这意味着将大型棋盘网格位图与您的应用程序一起存储，然后意味着调整它的大小，这可能不会根据宽高比等给出正确的结果。

我认为正确的方法是以编程方式渲染棋盘网格，例如:

procedure RenderGrid(Source: TBitmap; Height, Width: Integer;
  Size: Integer; Color1, Color2: TColor);
begin

end;

这将允许自定义具有不同大小和颜色的网格，而不必担心存储大型棋盘网格位图并必须调整其大小的开销。

但是我不确定如何将网格绘制到位图上？我的一个想法是，您需要循环遍历位图的每个交替行并以这种方式为其着色？我不确定。

这涉及到我不擅长的数学和计算。如果您能启发我在位图上渲染网格的最有效方法，我将不胜感激。

Answer 1

procedure RenderGrid(Source: TBitmap; Height, Width: Integer;
  Size: Integer; Color1, Color2: TColor);
var
  y: Integer;
  x: Integer;
begin
  Source.SetSize(Width, Height);
  for y := 0 to Height div Size do
    for x := 0 to Width div Size do
    begin
      if Odd(x) xor Odd(y) then
        Source.Canvas.Brush.Color := Color1
      else
        Source.Canvas.Brush.Color := Color2;
      Source.Canvas.FillRect(Rect(x*Size, y*Size, (x+1)*Size, (y+1)*Size));
    end;
end;