图像的填充部分

Question

我有如下图

我想让图像变得像

我已经编写了代码，如下所示：

var
  Tx,Ty, R,G,B,A, posX, posY : integer;
begin
  posX :=-1; posY := -1;
  for Ty:= 0 to Image1.Height-1 do
  begin
    for Tx:= 0 to Image1.Width-1 do
    begin
      R:= GetRValue(image1.Canvas.Pixels[Tx, Ty]);
      G:= GetGValue(image1.Canvas.Pixels[Tx, Ty]);
      B:= GetBValue(image1.Canvas.Pixels[Tx, Ty]);
      A:= (R + G + B) Div 3;

      if (A > 50) then
      begin
         Image1.Canvas.Pixels[Tx,Ty] := rgb(255,255,255);
      end else
      begin
         Image1.Canvas.Pixels[Tx,Ty] := rgb(0,0,0);
         if (posX < 0) then
         begin
           posX := Tx;
           posY := Ty;
         end;
      end;
   end;
  end;
 Image1.Canvas.Brush.Style := bsSolid;
 Image1.Canvas.Brush.Color := clred;
 Image1.Canvas.FloodFill(posX,posY,clBlack,fsSurface);
end;

我上面的编码只能使填充仅用于点。

我怎样才能使填充像结果图像一样？谢谢

Answer 1

您似乎想用红色替换所有暗像素，用白色替换所有亮像素。您的代码几乎就在那里。与其用黑色替换暗像素，然后对黑色像素进行填充，为什么不直接将它们设置为红色，而完全忘记填充。

只需将代码中的RGB(0,0,0) 替换为clRed，并删除所有与floodfill 相关的代码。

我应该尝试解释什么是 Floodfill 以及为什么它没有达到您的预期。填充将所有颜色相似、相邻的像素的颜色更改为选定的种子像素。也就是说，它从您选择的像素开始，在您的情况下，（posX，posY）。它处理该像素，然后处理与该像素相邻的所有相同颜色的像素，然后处理与 那些 像素相邻的相同颜色的像素，依此类推。

在这种情况下，您从字母 i 上方的点开始填充。 “洪水”从那个点向外扩散，从黑色像素到黑色像素，直到它到达由白色像素形成的边界。洪水永远不会到达字母 i 的主体，因为这些点与种子点不连续。

来自维基百科的这个链接有更多解释和一些动画，可以帮助你理解。 http://en.wikipedia.org/wiki/Flood_fill