Программирование на языке паскаль

Для заполнения замкнутых областей предназначена процедура:

FloodFill(x, y, FillColor, FillStyle);

• (x, y) – точка, относительно которой происходит заполнение цветом и стилем кисти.
• FillColor – цвет, определяющий границы заполнения.
• FillStyle – стиль заполнения (fsSurface, fsBorder). При FillStyle=fsSurface заполняется область холста с цветом FillColor. При FillStyle=fsBorder заполняется область холста с цветами кроме FillColor.),

В примере в форме кнопкой “Рисование» рисуются два прямоугольника, закрашенные серым и красным цветами.

Затем задается и FillColor=clGray. два раза применяется процедура закраски синим цветом.

Кнопка “Закраска sSurface» запускает свой обработчик. Он устанавливает синий цвет кисти и запускает процедуру FloodFill с серым цветом и FillStyle=fsSurface относительно точки внутри первого прямоугольника. Цвет первого прямоугольника меняется на синий.

Кнопка “Закраска bsBorder» запускает свой обработчик. Он устанавливает синий цвет кисти и запускает процедуру FloodFill с серым цветом и FillStyle=fsBorder относительно точки внутри первого прямоугольника. Цвет всех областей, кроме первого прямоугольника, меняется на синий.