Turbo Pascal (Borland Pascal) 7.0. Руководство пользователя


Стандартные стили заполнения


Константа Значение Маска
EmptyFill 0 Заполнение цветом фона
SolidFill 1 Заполнение текущим цветом
LineFill 2 Заполнение символами --, цвет – color
LtslashFill 3 Заполнение символами // нормальной толщины, цвет – color
SlashFill 4 Заполнение символами // удвоенной толщины, цвет – color
BkslashFill 5 Заполнение символами \\ удвоенной толщины, цвет – color
LtbkSlahFill 6 Заполнение символами \\ нормальной толщины, цвет – color
HatchFill 7 Заполнение вертикально-горизонтальной штриховкой тонкими линиями, цвет – color
XhatchFill 8 Заполнение штриховкой крест-накрест по диагонали «редкими» тонкими линиями, цвет – color
InterLeaveFill 9 Заполнение штриховкой крест-накрест по диагонали «частыми» тонкими линиями, цвет – color
WideDotFill 10 Заполнение «редкими» точками
CloseDotFill 11 Заполнение «частыми» точками
UserFill 12 Заполнение по определенной пользователем маске заполнения, цвет – color

Для построения секторов можно использовать следующие процедуры:

PieSlice (x, y: integer, a, b, R: word), которая рисует и заполняет сектор круга. Координаты x, y – центр окружности, сектор рисуется от начального угла a до конечного угла b, а закрашивание происходит при использовании специальных процедур;

Sector (x, y: integer, a, b, Rx, Ry: word), которая создает и заполняет сектор в эллипсе. Координаты x, y – центр, b, Rx, Ry – горизонтальный и вертикальный радиусы, и сектор вычерчивается от начального угла a до конечного угла b.

Пример использования PieSlice:

SetFillStyle(10, 10); {установка стиля}

SetColor(12); {цвет вычерчивания}

PieSlice(100, 100, 0, 90, 50);

Пример использования Sector:

SetFillStyle(11, 9); {установка стиля}

SetColor(LightMagenta); {цвет вычерчивания}

Sector(300, 150, 180, 135, 60, 70);




- Начало -  - Назад -  - Вперед -