Заполнение замкнутых областей

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

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 относительно точки внутри первого прямоугольника. Цвет всех областей, кроме первого прямоугольника, меняется на синий.

pascal75

pascal76

pascal77

pascal78

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong

Copyright © 2009-2010 Программирование на паскале.