ГРАФИЧЕСКИЙ ИНСТРУМЕНТАРИЙ Опции

[Гость]

Помогите залить квадрать при помощи floodfill

Эта кнопка рисует квадрат

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.MoveTo(150,200);
form1.Canvas.lineto(150,400);

form1.Canvas.MoveTo(400,200);
form1.Canvas.lineto(150,200);

form1.Canvas.MoveTo(400,400);
form1.Canvas.lineto(400,200);

form1.Canvas.MoveTo(400,400);
form1.Canvas.lineto(147,400);
end;

Эта заливает

Код

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Canvas.floodfill(232, 264, clBlue, fsSurface);
end;

[klem4]

 procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Canvas.Rectangle(100, 100, 400, 400);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.Canvas.Brush.Color := clBlue;
   Form1.Canvas.FloodFill(110, 110, clBlack, fsBorder);
end;