重写Delphi FloodFill方法

最新推荐文章于 2024-05-10 05:32:06 发布

原创最新推荐文章于 2024-05-10 05:32:06 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #图形

Delphi 专栏收录该内容

16 篇文章

订阅专栏

本文探讨了Flood Fill方法在二元图像中填充不规则区域的问题，详细介绍了针对这种情况的一种实现方式。

因为如果图片是二元的图形的时候，FloodFill方法不能正确的填充到不规则的区域
procedure flood_fill_4(x, y:Integer;old_color, fill_color:Int64; vCanvas:TCanvas);
var
  vCurrentColor:Int64;
  p : TPoint;
begin
  p.X:=x;
  p.Y:=y;
  vCurrentColor:= vCanvas.Pixels[p.x,p.y];
  if (vCurrentColor=old_color) and  (vCurrentColor<>fill_color) then
  begin
    vCanvas.Pixels[x,y]:= fill_color;
    flood_fill_4(x,y+1,old_color,fill_color,vCanvas);
    flood_fill_4(x,y-1,old_color,fill_color,vCanvas);
    flood_fill_4(x-1,y,old_color,fill_color,vCanvas);
    flood_fill_4(x+1,y,old_color,fill_color,vCanvas);
  end
end;