FloodFill用法记述

来源:互联网 发布:电机数据大全安装尺寸 编辑:程序博客网 时间:2024/05/16 01:35

函数说明如下:

{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;


原创粉丝点击