Экран и окно в графическом режиме

ClearDevice

Создание окна SetViewPort(xl,yl,x2,y2:integer; Clip:boolean);

где xl, yl — координаты левого верхнего угла,

х2, у2 — координаты правого нижнего угла окна.

Параметр Clip определяет, будет рисунок отсекаться при выходе за границы окна (Clip:= True) или нет (Clip:= False).

После создания окна за точку отсчета принимается верхний левый угол окна, имеющий координаты (0,0)

Очистка окна ClearViewPort.

Атрибуты текущего окна можно получить с помощью процедуры

GetViewSettings(var Vp : ViewPortType).

"Закраска" графического окна – SetFillStyle и SetFillPattern.

Вывод точки

PutPixel(X,Y:integer;Color:word);

где X и Y — экранные координаты расположения точки,

Color — ее цвет Таблица 4.

Таблица 4

Константы цвета

Константа		Значение
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	(белый )
Blink	128	( мерцание)

GetPixel(X,Y:integer):word.

Вывод линии

Line (XI,Y1,Х2,Y2:integer);

где XI, Y1 — координаты начала,

Х2, Y2 — координаты конца линии.

Цвет – SetColor(Color:word),

где Color — Таблица 4

Для черчения линий применяются еще две процедуры:

LineTo(X,Y:integer) строит линию из точки текущего положения указателя в точку с координатами X,Y.

LineRel(dX,dY:integer) проводит линию от точки текущего расположения указателя в точку СРх + dX, СРу + dY, где СРх и СРу —текущие координаты СР(Cursor Point).

Установка стиля – SetLineStyle(LineStyle:word; Pattern:word; Thickness:word).

Параметр LineStyle устанавливает тип строки,

Pattern — образец,

Thickness — толщина линии, определяемая константами, указанными в Таблица 5.

Например: SetLineStyle(DottedLn,0,NormWidth);

Таблица 5

Константы типа линий и их толщины

Константа	Значение	Примечание
SolidLn	0	Сплошная линия
DottedLn	1	Точечная линия
CenterLn	2	Штрих-пунктирная линия
DashedLn	3	Пунктирная линия
UserBitLn	4	Тип линии, определяемый программистом
NormWidth	1	Нормальная толщина линии
ThickWidth	3	Жирная линия