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

[Гость]

Помогите залить квадрать при помощи 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;