Процедура FloodFill

Модуль GRAPH

Закрашивает замкнутую область, используя текущие стиль и цвет закраски.

Объявление:

Procedure FloodFill(X, Y : Integer; Border : Word);

Режим:

Protected,  Real

Замечание:

Закрашивает замкнутую область на растровых устройствах. Точка с координатами (X, Y) - начальная точка внутри замкнутой области, с которой начнется закраска. Текущий шаблон закраски устанавливается процедурами SetFillStyle и SetFillPattern. Закрашивается область, ограниченная цветом с номером Border. Если точка (X, Y) находится внутри замкнутой области, то закраска будет происходить внутри области. Если же эта точка находится снаружи замкнутой области, то будет закрашено все пространство вне области. Если во время закраски происходит ошибка, то в переменной GraphResult возвращается значение grNoFloodMem.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедуры FloodFill }

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 SetColor(GetMaxColor);
 Circle(50, 50, 20);
 FloodFill(50, 50, GetMaxColor);
 ReadLn;
 CloseGraph;
End.