Paint(Pictureなど)

Paintメソッドは指定された座標と同一の色の領域を塗りつぶします。Delphiでは TCanvas型のプロパティを持っているコンポーネントなら TCanvasの「FloodFill」メソッドを使用して塗りつぶすことができます。

■ TPaintBoxに円を描画して塗りつぶす例
  procedure TForm1.Button2Click(Sender: TObject);
  begin
    With  PaintBox1 do  begin
      {線の色}
      Canvas.Pen.Color    :=  clRed;
      {塗りつぶす色}
      Canvas.Brush.Color  :=  clBlue;
      {円を描画}
      Canvas.Ellipse(0, 0, Width, Height);
      {中央から塗りつぶし}
      Canvas.FloodFill(Width div 2, Height div 2, Canvas.Pen.Color, fsSurface);
      {                Ｘ軸座標     Ｙ軸座標      境界の色          境界の定義}
    end;
  end;