Вывод линии

Вывод точки

ClearDevice

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

Перемещение текущего указателя

MoveTo(X,Y:integer) перемещает текущий указатель в точку с координатами X,Y.

MoveRel(dX,dY:integer) перемещает текущий указатель на dX точек по горизонта­ли и на dY точек по вертикали.

GetX, GetY возвращают координаты текущего указателя:

var

Xpos, Ypos: integer;

...

Xpos:= GetX; Ypos:= GetY;...

Функции GetMaxX:integer и GetMaxY:integer возвращают максимально возможные для установленного режима значения Х- и Y-координат.

Создание окна 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		(черный)
Blue		(синий)
Green		(зеленый)
Cyan		(бирюзовый)
Red		(красный)
Magenta		(малиновый)
Brown		(коричневый)
LightGray		(светло-серый)
DarkGray		(темно-серый)
LightBlue		(светло-синий)
LightGreen		(светло-зеленый)
LightCyan		(светло-бирюзовый)
LightRed		(светло-красный)
LightMagenta		(светло-малиновый)
Yellow		(желтый)
White		(белый)
Blink		(мерцание)

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		Сплошная линия
DottedLn		Точечная линия
CenterLn		Штрих-пунктирная линия
DashedLn		Пунктирная линия
UserBitLn		Тип линии, определяемый программистом
NormWidth		Нормальная толщина линии
ThickWidth		Жирная линия

Дата добавления: 2014-01-05