FloodFill用法记述

最新推荐文章于 2025-10-19 18:14:55 发布

原创最新推荐文章于 2025-10-19 18:14:55 发布 · 5.2k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #FloodFill #canvas

Delphi 专栏收录该内容

58 篇文章

订阅专栏

本文介绍了使用Delphi进行绘图填充的技巧，包括不同填充风格fsBorder与fsSurface的应用，通过具体示例展示了如何利用这些技巧实现不同形状的填充效果。

部署运行你感兴趣的模型镜像

函数说明如下:

{x,y:当前坐标
Color:针对该色彩执行填充事件

FillStyle:fsBorder(从当前位置开始填充,直到遇到Color),fsSurFace(当前底色和color相同时填充) }procedure TCanvas.FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

示例代码

procedure TForm15.btn1Click(Sender: TObject);
const
  Points1: array[0..2] of TPoint =
    ((X:0; Y:0), (X:100; Y:100), (X:15; Y:50));
  Points2: array[0..2] of TPoint =
    ((X:0; Y:200), (X:100; Y:300), (X:50; Y:350));
begin
  self.Repaint;
  
  Canvas.Pen.Color := clred;
  canvas.Brush.Color:=clred;
  Canvas.Polygon(Points1);

  canvas.Brush.Color:=clgreen;
  Canvas.FloodFill(0,0,clred,fsSurface);


  Canvas.Pen.Color := clred;
  Canvas.Polygon(Points2);

  canvas.Brush.Color:=clgreen;
  Canvas.FloodFill(50,250,clred,fsBorder);

end;

procedure TForm15.btn2Click(Sender: TObject);
const
  Points3: array[0..3] of TPoint =
    ((X:0; Y:0), (X:100; Y:100), (X:15; Y:50), (X:0; Y:0));
  Points4: array[0..3] of TPoint =
    ((X:0; Y:200), (X:100; Y:300), (X:50; Y:350), (X:0; Y:200));
begin
  self.Repaint;

  Canvas.Pen.Color := clred;
  Canvas.Pen.Width := 2;
  Canvas.Polyline(Points3);
  canvas.Brush.Color:=clgreen;
  Canvas.FloodFill(0,0,clred,fsSurface);

  Canvas.Pen.Color := clred;
  Canvas.Polyline(Points4);
  canvas.Brush.Color:=clgreen;
  Canvas.FloodFill(50,280,clred,fsBorder);
end;

您可能感兴趣的与本文相关的镜像