Процедура Rectangle(X1,Y1,X2,Y2:integer); строит изображение прямоугольника на плоскости. Здесь X1,Y1 – координаты левого верхнего угла, X2,Y2 – координаты правого нижнего угла прямоугольника. При этом используется текущий цвет SetColor и стиль линии SetLineStyle. Область внутри прямоугольника не закрашена и совпадает по цвету с фоном.
Процедура Bar(X1,Y1,X2,Y2:integer); позволяет строить более эффектные прямоугольники. Она рисует прямоугольник, внутренняя область которого залита по текущему шаблону. Обычно используется в деловой графике для построения столбиковых диаграмм, а также для “закраски” графического окна, чтобы фон графического окна не сливался с общим фоном экрана.
Рассмотрим, как производить "заливку" замкнутых областей экрана с помощью различных узоров, т.е. как выбрать узор (шаблон) и цвет заполнения фигуры. Комбинацию узор-цвет принято называть стилем заполнения.
Процедура SetFillStyle(<шаблон>:word; <цвет>:word); устанавливает шаблон и цвет заполнения замкнутой фигуры.
Таблица 4. Константы шаблонов закраски
Константа | Значение | Описание узора |
EmptyFill SolidFill LineFill LtSlashFill SlashFill BkSlashFill LtBkSlashFill HatchFill XhatchFill InterleaveFill WideDotFill CloseDotFill UserFill | Закраска области фоновым цветом Сплошная закраска области текущим цветом Закраска линиями – Закраска линиями /// Закраска жирными линиями /// Закраска жирными линиями \ Закраска линиями \ Закраска редкой штриховкой Закраска частой штриховкой (в обоих направлениях) Закраска прерывистой линией Закраска линией из редких точек Закраска линией из частых точек Закраска определяемая программистом |
Процедура FloodFill(X,Y:integer; Border:word); заполняет ограниченную область текущим цветом и стилем заполнения (SetFillStyle). Граница закрашиваемой области высвечивается цветом, заданным в Border.
Если точка (X,Y) находится внутри области, то эта область закрашивается, если же она расположена вне области, то заполняется внешняя часть области.