Графика в системе PascalABC - 23 стр.

UptoLike

25
pmNot режим инвертирования: при рисовании цвет поверхности ин-
вертируется (становится негативным), а цвет пера при этом иг-
норируется.
Внутренность объекта может закрашиваться кистью или заданным цветом
процедурой FloodFill :
procedure FloodFill (x,y: integer; color: integer);
Точка (x,y)любая точка внутри ограниченной области.
Закрашивает одноцветную область цветом color, начиная с точки (x,y).
Если область незамкнута, то заливка
разольетсяпо графическому окну.
Действия с кистью
Имя Назначение
SetBrushColor
установка цвета кисти
BrushColor
текущий цвет кисти
FillRect
заливка прямоугольника
По умолчанию кисть имеет белый цвет.
Процедура SetBrushColor
procedure SetBrushColor(color: integer);
Устанавливает цвет кисти, задаваемый параметром color.
Функция BrushColor
function BrushColor: integer;
Возвращает текущий цвет кисти.
Процедура FillRect
procedure FillRect (x1,y1,x2,y2: integer);
Закрашивает прямоугольник, заданный координатами противоположных
вершин (x1,y1) и (x2,y2), текущим цветом кисти.