黒の境界線の内側領域を赤に塗りつぶす
procedure TForm1.Button1Click(Sender: TObject); begin //指定した境界色までの領域を現在Brushで塗りつぶし //bmp.Canvas.FloodFill( // 基準x,基準y,境界色, fsBorder //); //ブラシの色を赤に設定する Image1.Picture.Bitmap.Canvas.Brush.Color:=clRed; //黒色の境界の内側領域を、赤に塗る Image1.Picture.Bitmap.Canvas.FloodFill( 60, 100, clBlack, fsBorder); end;
スカイブルー色の領域を赤に塗りつぶす
procedure TForm1.Button2Click(Sender: TObject); begin //指定した色で塗りつぶされている領域を現在のBrushで塗りつぶし //bmp.Canvas.FloodFill( // 基準x,基準y,塗りつぶされている色, fsSurface //); //ブラシの色を赤に設定する Image1.Picture.Bitmap.Canvas.Brush.Color:=clRed; //スカイブルー色の領域を、赤に塗る Image1.Picture.Bitmap.Canvas.FloodFill( 60, 100, clSkyBlue, fsSurface); end;