Помощь - Поиск - Пользователи - Календарь
Полная версия: ГРАФИЧЕСКИЙ ИНСТРУМЕНТАРИЙ
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Гость
19.03.2006 3:49
Помогите залить квадрать при помощи 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
21.03.2006 23:12
 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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.