- •2 Задачи работы
- •3 Порядок выполнения работы
- •4 Отчет о проделанной работе должен содержать
- •5 Теоретические положения
- •5.1 Описание процедур и функций модуля Graph
- •5.2 Построение изображений на экране
- •5.3 Установка цвета и стиля заполнения
- •5.4 Заполнение областей изображения
- •5.5 Работа с текстом
- •6 Образцы решения задач
- •Изобразить летающую тарелку.
- •7 Контрольные вопросы
- •Варианты заданий для выполнения
5.3 Установка цвета и стиля заполнения
Для установки цвета изображения и фона применяются процедуры:
SetColor (Color: Word) задает цвет, который будет использоваться процедурами графического вывода.
SetBkColor (Color: Word) задает новый цвет фона
Номер цвета задается параметром Color
Константа |
Значение |
Цвет на экране монитора |
Black |
0 |
Черный |
Blue |
1 |
Синий |
Green |
2 |
Зеленый |
Cyan |
3 |
Голубой |
Red |
4 |
Красный |
Magenta |
5 |
Малиновый |
Brown |
6 |
Коричневый |
LightGray |
7 |
Светло-серый |
DarkGray |
8 |
Темно-серый |
LightBlue |
9 |
Светло-синий |
LightGreen |
10 |
Светло-зеленый |
LightCyan |
11 |
Светло-голубой |
LightRed |
12 |
Светло-красный |
LightMagenta |
13 |
Светло-малиновый |
Yellow |
14 |
Желтый |
White |
15 |
Белый |
В модуле Graph содержится ряд стандартных шаблонов различных узоров для заполнения внутренних и внешних областей различных геометрических фигур. Узор может быть окрашен в допустимые для установленной палитры цвета. Комбинацию узор-цвет называют стилем заполнения.
Процедура SetFillStyle( Pattern: Word; Color: Word) устанавливает маску Pattern и ее цвет Color, т. е. определяет стиль заполнения.
Параметр Pattern может иметь следующие значения:
Константа |
Значение |
Описание узора |
EmptyFill |
0 |
Сплошной цветом фона |
SolidFill |
1 |
Сплошной текущим цветом |
LineFill |
2 |
Типа |
LtSlashFill |
3 |
Типа /// нормальной толщины |
SlashFill |
4 |
Типа /// удвоенной толщины |
BkSlashFill |
5 |
Типа \\\ нормальной толщины |
LtBkSlashFill |
6 |
Типа \\\ удвоенной толщины |
HatchFill |
7 |
Заполнение клеткой |
XHatchFill |
8 |
Заполнение косой редкой клеткой |
InterLeaveFill |
9 |
Заполнение косой частой клеткой |
WideDotFill |
10 |
Заполнение редкими точками |
CloseDotFill |
11 |
Заполнение частыми точками |
UserFill |
12 |
Определяется пользователем |
5.4 Заполнение областей изображения
Процедура Sector (X, Y: Integer; StEngle, EndEngle: Word; XR, YR: Word) рисует сектор эллипса, который будет залит цветом по текущему шаблону.
Процедура PieSlice (X, Y: Integer; StEngle, EndEngle, Radius: Word) рисует сектор эллипса, который будет залит текущим узором.
Процедура FillEllipse (X, Y: Integer; XR, YR: Word) рисует контур эллипса текущим цветом и заполняет ограниченную контуром область экрана текущим узором.
Процедура FloodFill (X, Y: Integer; Border: Word) заполняет заданным с помощью SetFillStyle стилем область, расположенную либо внутри замкнутого контура, либо вне его. (X, Y)-координаты точки внутри или вне замкнутого контура, Border-цвет контура.
