FloodFill用法記述_delphi

函數說明如下:

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