GraphErrorMsg (errcode:integer) -функция. Генерирует сообщение об ошибке, соответствующее коду ошибкиerrcode, значение которого определяет функцияGraphResult

Графические процедуры и функции для формирования экрана, окна, страницы:

ClearDevice - процедура. Гасит экран и устанавливает параметры графического драйвера на стандартное значение.

SetViewPort (xl,yl,x2,Y2:intеgеr;clip:boolean) -процедура. Создает окно с левым верхним углом (х1,у1) и правым нижним углом (х2,у2), устанавливая при этом курсор в верхний левый угол окна. Параметр clip устанавливает, пересекают ли символы границы окна.

ClearViewPort - процедура. Содержимое окна гасится и окрашивается в цвет, заданный фоновым.

SetVisualPage (p:word) - процедура. Некоторые графические адаптеры (например, EGA, VGA, Hercules) поддерживают несколько страниц. Процедура SetVisualPage устанавливает, какая страница видна.

SetActivePage (p:word) - процедура. Устанавливает, на какой странице строится изображение.

GetMaxX - функция. Возвращает максимально возможную координату Х для установленного драйвера и режима.

GetMaxY - функция. Возвращает максимально возможную координату Y для установленного драйвера и режима.

Графические процедуры и функции для работы с точечными изображениями:

PutPixel (x,y:integer;col:word) -процедура. В точке с координатами (х,у) рисуется точка, цвет который определяется значением переменной col.

GetPixel (x,y:integer) - функция. Возвращает номер цвета элемента графического изображения в точке с координатами (х,у).

GetX - функция. Возвращает координату Х текущей позиции курсора.

GetY - функция. Возвращает координату Y текущей позиции курсора.

Графические процедуры и функции для работы с графическими примитивами типа "линия":

Line (xl,yl,x2,y2:integer) - процедура. Вычерчивает отрезок прямой от точки (х1,у1) до точки (х2,у2). Тип линии устанавливается процедурой SetLineStyle. Положение курсора не меняется.

LineTo (х,у: integer) - процедура. Вычерчивает отрезок прямой из текущей позиции курсора до точки (х,у). После вызова процедуры положение курсора (х,у).

LineRel (dx,dy:integer) - процедура. Курсор находится в позиции (х,у), начиная с которой вычерчивается прямая до точки (х+dx, y+dy).

MoveTo (x,y:integer) - процедура. Устанавливает курсор в точку (х,у).

MoveRel (dx,dy:integer) - процедура. Перемещает курсор из текущей позиции (х,у) в точку (x+dx,y+dy).

SetLineStyle (stil,muster,w:word) - процедура. Устанавливает тип линии для следующих операций над графическими изображениями (Line, LineTo, Arc, Circle, DrawPoly, Rectangle). Для переменной stil в модуле Graph определены следующие константы:

const

solidln = 0; { сплошная линия }

dotteln = 1; { пунктирная линия }

centerln = 2; { штрихпунктирная линия}

dasheln = 3; { штриховая линия }

userbitln = 4; { определенная пользователем линия }

Параметр muster имеет значение только при stil = userbitln. Для параметра w определены следующие константы:

const

normwidth = 1; { обычная толщина }

thickwidth = 3; { жирная линия)

Графические процедуры и функции для работы с дугами, фигурами, штриховкой:

Arc (x,y:integer;w1, w2, r:word) -процедура. Из центра (х,у) вычерчивает дугу радиусом г от угла wl до угла w2. Угол задается в градусах.

Circle (x,y:integer;r:word) - процедура. Вычерчивает окружность радиусом r с центром в точке (х,у).

Rectangle (xl,yl,x2,y2:integer) - процедура. Вычерчивает прямоугольник с координатами левого верхнего угла (х1,у1) и координатами правого нижнего угла (х2,у2).

Bar (xl,yl,x2,y2:integer) - процедура. Вычерчивает прямоугольник с координатами левого верхнего угла (xl,yl) и координатами правого нижнего угла (х2,у2), причем прямоугольник закрашивается в соответствии с образцом, заданным процедурамиSetFillStyle илиSetFillPattern.

Bar3d (xl,yl,x2,y2:integer;t:word;top:boolean) - процедура. Вычерчивает трехмерный брусок с прямоугольным основанием с координатами (х1,у1) и (х2,у2). Переменная t задает пространственную глубину в элементах изображения. Прямоугольник заполняется в соответствии с образцом, заданным процедурами SetFillStyle или SetFillPattern. Переменная top задает, должен ли брусок иметь верхнее замыкание или нет.

DrawPoly (an:word;var p) - процедура. Вычерчивает многоугольник с an вершинами. Переменная р является массивом, содержащим координаты вершин, то есть переменная р имеет тип аггау[1..аn] of pointtype, где

type pointtype = record

х,у: word;

end;

FillPoly (an:word;var p) - процедура. Вычерчивает многоугольник с an вершинами. Координаты точек могут задаваться через определенный в модуле graph тип pointtype. После того как многоугольник построен (последняя точка должна совпадать с первой, чтобы ломанная замкнулась), он заполняется в соответствии с образцом, определенными процедурамиSetFUlStyle илиSetFUlPattern.

SetFUlStyle (muster,f:word) - процедура. Устанавливает образец для заполнения площадки. Для muster существуют следующие константы:

const

emptyfill = 0; { Заполнение цветом фона)

solidfill = 1; { Сплошное заполнение }

linefill=2; {——}

Ltslashfill=3; {\\\\}

slashfill = 4; {\\\\, линии утолщенные}

bkslashfill = 5; {////,линии утолщенные }

Ltbkslashfill=6; {////}

hatehfill = 7; { легкая штриховка}

xhatchfill = 8; { частая штриховка, пересекающаяся } interleavefill = 9; { чередующиеся линии}

widedofill =10; { далеко отстоящие одна от другой точки } closedotfill =11; { жирные точки}

Переменная f определяет цвет заполнения.

SetFiIlPattern (mustcr:fillpatterntype;f:word) - процедура. Устанавливает образец заполнения и цвет для одной из вызываемых процедур FillPoly, FloodFiIl, Bar, Bar3d, Pieslice. Для этого в модуле Graph имеется тип

type

fillpatterntype = аrrау[1..8] of byte;

При этом каждому биту этого массива соответствует один элемент изображения (пиксел). Каждый байт определяет восемь расположенных рядом точек. Восемь байтов устанавливаются один за другим. Переменная f устанавливает цвет заполнения.

FloodFill (x,y,rand:word) - процедура. Если точка (x,y) находится внутри ограниченной некоторыми линиями цвета rand поверхности, она закрашивается в соответствии с образцом, определенными процедурамиSetFillStyle илиSetFillPattern.

Pieslice (x,y:integer;wl,w2,r:word) -процедура.Из центра (х,у) вычерчивает дугу радиусом г от угла wl до угла w2. Угол задается в градусах. Затем такая "вырезка" заполняется согласно установленному с помощью SetFillStyle или SetFillPattern образцу.

Ellipse (x,y:integer;al,a2,rX,rY:word) - процедура. Вычерчивает эллиптическую дугу радиусами гХ, rY от угла а1 до угла а2, координаты точки (х,у) задают центр эллипса.

Графические процедуры и функции для работы с цветом и палитрой:

SetBkColor (f:word) - процедура. Переменная f устанавливает фоновый цвет.

SetCoIor (f:word) - процедура. Переменная f устанавливает текущий цвет.

 

Графические процедуры и функции работы с текстом:

OutText (str: string) - процедура. С позиции курсора выводится строка str. Автоматической переверстки строк не производится. Шрифт устанавливается с помощью процедур SctTextJustify, SetTextStyle, SetUserCharSize.