Paint 塗りつぶし Paint 塗りつぶし
Canvas クラスの FloodFill メソッドを使います。
以下のサンプルを参考にして下さい。
| ■ FloodFill の使用例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
with PaintBox1.Canvas do begin
Pen.Color := clRed;
Brush.Color := clBlue;
MoveTo(100,100);
LineTo(150,100);
LineTo(150,150);
LineTo(100,150);
LineTo(100,100);
FloodFill(125,125, clRed, fsBorder);
end;
end;
|
| 値 | 意味 |
| fsSurface | Color パラメータで指定した色を持つすべての領域を塗りつぶす。別の色に達した場合は塗りつぶしを中止する |
| fsBorder | Color パラメータで指定した色以外の色を持つすべての領域を塗りつぶす。Color パラメータで指定した色に達した場合は塗りつぶしを中止する |