Процедура Arc procedure Arc(X, Y: Integer, StAngle, EndAngle, Radius: Word}',

Строит дугу окружности текущим цветом с учетом масштабов но • Текущий цвет задастся процедурой SetColor, текущие параметр!:';пии - процедурой SetUneSlyle. Изменение относительных масш изображения по вертикали и горизонтали осуществляется проце;

Set Aspect Rat lo.

X, Y - координаты центра душ;

StAngle - угол до начальной точки дуги, отсчитываемый против час стрелки от горизонтальной оси, направленной слева направо:

EndAngle - угол до конечной точки дуги, отсчитываемый против ' вой el редки от горизонтальной оси, направленной слева направо:

Radius - радиус дуги.

Процедура Bar procedure 8аг(Х1, Y1, Х2, Y2: Integer}:

Строит прямоугольник, закрашенный текущим орнаментом и цветом заполнения. Орнамент п цвет заполнения задаются процедурами Set Fil! Style иди Set Fill Pattern.

XI. Y1, Х2, Y2 - координаты левого верхнею и правого нижнего углов прямоугольника.

Процедура Bar3D procedure Ba/3D(X1, Y1, Х2, Y2: Integer, Depth: Word, Top: Boolean}:

Строит параллелепипед, закрашенный текущим орнаментом и цветом заполнения. Орнамент п цвет заполнения задаются процедурами SetFillStyle или SetFillPattern.

XI, Y1, Х2, Y2 - координаты левого верхнего и правого нижнего углов передней грани;

Depth - ширина боковой грани (отсчитывается по горизонтали);

Тор - признак включения верхней грани (если True - верхняя грань вычерчивается, в противном случае верхняя грань не отображается) -см. табл. 16.18.

Процедура Circle procedure Circle{X, Y; Integer, Radius: Word);

Строит окружность текущим цветом с учетом масштабов по осям. Текущий цвет задастся процедурой SetColor. текущие параметры линии -процедурой SetLincStyle. Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой Se f Aspect Ratю, X, Y - координаты центра окружности;

Radius - радиус окружности.

Процедура ClearDevice procedure ClearDevice;

Очищает графический экран, закрашивает его в цвет фона, устанавливает указатель текущей позиции в точку с координатами (0, 0). Цвет фона задается процедурой SetBkColor.

Процедура ClearViewPort Procedure ClearViewPort;

Очищает выделенное окно графического экрана, закрашивает его в цвет фона, устанавливает указатель текущей позиции в левый верхний угол окна с координатами (0, 0). Цвет фона задастся процедурой SetBkColor.

Процедура CloseGraph Procedure CloseGraph;

Завершает работу в графическом режиме и осуществляет переход в текстовый режим.

Процедура DetectGraph procedure DetectGraph{\/ar GraphDnver, GraphMode: Integer),

Проверяет имеющееся оборудование 11 определяет, какой графический драйвер н режим можно использовать.

GraphDriver - переменная, в которую процедура помещает код требуе-м о го др а и ве ра (с м. таб; i. 16.10):

GraphMode - переменная, в которую процедура помещает код графического режима (см. табл. 16.9) и.ти -2 в случае аварийной ситуации. В случае аварийной ситуации (у компьютера нет графического адаптера или нет драйвера для него) процедура устанавливает код ошибки -2.

Процедура DrawPoly procedure DraivPo/y(NumPoints: Word; var PolyPoints);

Строит контур многоугольника линией с заданными параметрами и цветом. Текущий цвет задастся процедурой SetColor, текущие параметры линии - процедурой SetLineStyle, а режим построения линии - процедурой Set Write Mode. NumPoints - число вершин многоугольника;

PolyPoints - переменная без типа, содержащая NumPoint + 1 пар координат вершин многоугольника (координаты должны быть целого типа, перечисляться в той же последовательности, в которой они идут по контуру, причем первая вершина должна быть повторена и в конце перечисления).

Процедура Ellipse

procedure F///'pse(X, Y: integer, StAngle, EndAngle: Word; XRadius, YRadius: Word}', Рисует дугу эллипса текущим цветом. Текущий цвет задастся процедурой SetColor, текущие параметры линии - процедурой SetLineStyle. Изменение относительных масштабов изображения но вертикали и горизонтали осуществляется процедурой SetAspectRatio. X, Y - координаты центра эллипса;

StAngle - угол до начальной точки эллипса, отсчитываемый против часовой стрелки от горизонтальной оси. направленной слева направо;

EndAngle - угол до конечной точки эллипса, отсчитываемый против часовой стрелки от горизонтальной оси. направленной слева направо;

XRadius. YRadius - горизонтальная и верти кальная полуоси эллипса.

Процедура FillEllips procedure FillEllipse{X, Y: Integer: XRadius, YRadius: Word):

Строит эллипс, закрашенный текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурами SetFillStyle или SetFillPattern. Текущий цвет контура задается процедурой SetColor, текущие параметры линии - процедурой ScliineSivle. Изменение относительных масштабов изображения по вертикали и горизонтали осуШ^' вляется процедурой SctAspectRatio.

\. Y - координаты центра 'эллипса:

XRadius. YRadius - горизонтальная и вертикальная полуоси эллипса.

Процедура FillPoly ^-, xedure FillPoly( NumPoint: Word; var PolyPoints)

Crpom многоугольник, закрашенный текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурами SctFillStyle или Set Fill Pattern, Текущий цвет контура задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle. а режим построения линии - процедурой SetWriteMocle. NumPoints - число вершин многоугольника;

PolyPoints - переменная без типа, содержащая NumPoint -i- 1 пар координат вершин многоугольника (координаты должны быть целого тина, перечисляться в той же последовательности, в которой они идут но контуру, причем первая вершина должна быть повторена и в конце перечисления). В случае аварийной ситуации (во время заполнения многоугольника) процедура устанавливает код ошибки -6.

Процедура FloodFill р? 4;edure FloodFill{X, Y: Integer; Border: Word);

Закрашивает область, ограниченную непрерывной линией, текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурами SetFillStyle или SetFillPattern. X. Y - координаты любой точки внутри закрашиваемой линии;

Border - цвет линии, до которой производится закрашивание. В случае аварийной ситуации (в процессе закраски) процедура устанавливает код ошибки -7. Процедуру нельзя применять при использовании графического драйвера IBM8514.BGI.

Процедура GetArcCoords i cedure GetArcCoords{var ArcCoord; ArcCoordType);

Возвращает параметры дуги или эллипса, построенных при последнем обращении к процедурам Arc или Ellipse. ArcCoord - переменная типа ArcCoordType (см. табл. 16.8), в которую процедура помещает параметры дуги или эллипса.

Процедура GetAspectRatio Р cedure GetAspectRatio{\/ar Xasp, Yasp: Word);

Возвращает число точек (пикселей) на графическом экране по горизонтали и вертикали.

Xasp, Yasp - переменные, н которые процедура записывает число точек по горизонтали и вертикали.

Процедура GctDefaultPalctte Р cedure GetDefaultPaiette{\/ar Pal: PaletteType);

Возвращает параметры исходной палитры, заданной во время выполнения процедуры InitGmph.

Pa! - переменная тина Palette Type (см. табл. 16.8), в которую процедупа записывает параметры палитры.

Процедура GetFillPattcrn procedure GetFillPattern{\/ar FillPattern; FillPatternType);

Возвращает установленный пользователем с помощью процедупь! SetFillPattern орнамент заполнения (если орнамент не устанавливался возвращает массив значений SFF).

FillPattern - переменная типа FillPatternType (см. табл. 16.8), в которую процедура записывает установленный орнамент.

Процедура GetFillSettings procedure GetFillSettings{\/ar Filllnfo: FIHSettingsType};

Возвращает текущие орнамент и цвет, установленные процедурами SetFillPattern или Set Fill Style.

Filllnfo - переменная типа FillSettingsType (см. табл. 16.8), в которую процедура записывает текущие орнамент и цвет.

Процедура Getlmage procedure Getlmage{^, Y1, Х2, Y2: Integer, var BitMap);

Сохраняет изображение заданного участка экрана в буфере.

XI, Y1, Х2, Y2 - координаты левого верхнего и правого нижнего углов

сохраняемого участка экрана;

BitMap - переменная без типа, являющаяся буфером для сохранения информации; в этой переменной первое слово отводится для записи ширины сохраняемого участка, второе слово - для записи высоты участка, третье слово зарезервировано, остальная область отводится под изображение.

Размер буфера не должен превышать 64 Кбайт (желательно для выбора размера буфера использовать функцию fmageSi^e).

Процедура GetLineSettings procedure GetLineSettings{\/ar Linelnfo: UneSettingType)',

Возвращает текущие параметры линии (стиль, шаблон и толщину). Linelnfo - переменная, в которую записываются текущие параметры линии (см. табл. 16.8, 16.15 и 16.16).

Процедура GetModeRange procedure Gef/Vfodeffange(GraphDnver: Integer: var LoMode, HiMode: Integer}',

Возвращает минимальный и максимальный номера графических режимов драйвера.

GraphDriver " код драйвера (см. табл. 16.10), LoMode - переменная, куда записывается минимальный номер режима, HiMode - переменная, куда записывается максимальный номер режима. Если значение GraphDriver задано неверно, параметры LoMod⁰ и HiMode устанавливаются равными -1.

11роцедура GetPalettc о с cedure GetPalette{\/ar Palette: PaletteType);

Возвращает текущую палитру и количество цветов к ней. Palette - переменная типа Palette Type (см. табл. 16.8). к которую процедура записывает параметры палитры. Применяется только с драйверами EGA, EGA64 и VGA.

Процедура GetTextSettings р <cedure GetTextSettings{\/ar Textlnfo: TextSettingsType};

Возвращает текущие параметры шрифта (тип, направление, размер, выравнивание), установленные процедурами SetTexfStyle и Set Text Justify. Textlnfo - переменная типа TextSettingsType (см. табл. 16.8), в которую процедура записывает параметры (значения параметров - в табл. 16.21. 16.22).

Процедура GetViewSettings I, Kedure GetVt'ewSettings{\/ar Viewport: ViewPortType};

Возвращает параметры текущею окна.

Viewport - переменная типа ViewPortType (см. табл. 16.8), в которую

процедура помещает параметры окна.

I Процедура GraphDefaults

Сбрасывает заданные пользователем параметры графического режима s устанавливает исходные (определяемые при запуске процедуры hut Graph).

Процедура InitGraph

р' cedure lnitGraph{\/ar GraphDriver Integer, var GraphMode: Integer, DriverPath:

^ -g);

Инициализирует графическую систему, устанавливает графический ре-mim, устанавливает исходные значения курсора, палитры, цвета и т. д. ^/ -raphDriver - переменная, в которую необходимо записать код нужного рафического драйвера или 0, если требуется автоматическое определение драйвера (см. табл. 16.10);

GraphMode - переменная, в которую процедура помещает код графического режима (см. табл. 16.9);

: ^nvcrPath - строка, содержащая путь к драйверу (если пустая строка. нггается, что драйвер находится в текущем каталоге).

• случае аварийной ситуации процедура устанавливает кол ошибки:

2 - нет графическою адаптера:

• - нет драйвера устройства:

^ - ошибка в драйвере:

- пег памяти для загрузки драйвера:

• ⁽ - недопустимый режим для выбранною драйвера.

Процедура Line procedure Line(X}. Y1, X2, Y2: Integer};

Проводит линию текущею цвета между точками е координатами ^! Y1) и (Х2. Y2) без изменения значения указателя координат. Теку;

ивег задается процедурой SeiColor. текущие параметры динии - npi дурой SetiineStyle, а режим построения динии - ироцед' SeiW rileMode. XI. Y1, Х2, Y2 - координаты точек, между которыми проводится дипи;;

Процедура LineRel procedure L/ne/^e^Dx, Dy: Integer);

Проводит линию текущего цвета из текущей позиции в точку, сдвип относительно исходной позиции на величины Ох и Dy. Текущий цвет ,;

стся процедурой SetCohf\ текущие параметры линии - проце i. SefLineStyle, а режим построения линии - процедурой SeiWriteMode. Dx, Dy - смещение координат точки конца линии но отношению к ходи ы м коорди патам.

Процедура LineTo procedure L/r?e7o(X, Y: Integer);

Проводит линию текущею цвета из текущей позиции в точку с за. ными координатами. Текущий цвет задается процедурой SetColof\ i> щис параметры линии - процедурой SetLineStyle, а режим построю линии - процедурой Set Write Mode. X, Y - координаты точки, до которой проводится линия.

Процедура MoveRel procedure MoveRel{Dy, Dy: integer);

Перемещает текущий указатель координат на заданное расстояние ' Dy) но отношению к его предыдущему положению (точка на экг не высвечивается).

Dx, Dy - смещение текущею указа геля относительно ею старою и жсния.

Процедура MoveTo procedure MoveTo{X, Y: Integer);

Перемещает текущий указатель координат в точку окна с координ^

X, Y (точка на экране не высвечивается).

X, Y - координаты точки относительно левою верхнею угла окна.

Процедура OutText procedure OL/?7Ј?x^( TextString: string);

тично (в случае "гладких" шрифтов). Текущий цвет текста задается процедурой SetColor. Параметры шрифта задаются процедурами SetTextStyle и SerTexiJustify. Коэффициенты увеличения ширины и высоты штриховых шрифтов можно задать процедурой SetUserCharSi^e. Ширину и высоту строки можно определить с помощью функций Text Width и Text Height. TextString - выводимый текст.

Процедура OutTextXY procedure OutTextXY(X, Y: Integer; TextString; string);

Выводит на экран последовательность символов начиная с заданных координат (X, Y). Текущая позиция после выполнения процедуры нс изменяется. Если выводимый текст нс помещается в графическое окно, он либо вообще не высвечивается (в случае "грубого¹¹ шрифта, принятого по умолчанию), либо высвечивается частично (в случае "гладких" шрифтов). Параметры текста задаются так же, как и для процедуры Out Text. X, Y - исходные координаты;

TextString - выводимый текст.

Процедура PieSlice procedure PfeSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word);

Строит сектор круга, закрашенный текущим орнаментом и цветом заполнения, с учетом масштабов по осям. Орнамент и цвет заполнения задаются процедурами SetFillStyle или SetFillPattern. Текущий цвет контура задастся процедурой SetColor. текущие параметры линии - процедурой SetLineStyle. Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой Set Aspect Ratio. X, Y - координаты центра сектора круга;

StAngle - начальный угол сектора, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

EndAngle - конечный угол сектора, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

Radius - радиус сектора.

В случае аварийной ситуации (во время закрашивания фигуры) процедура устанавливает код ошибки -6.

Процедура Putlmage procedure Putlmage{X, Y: Integer; var BitMap; BitBIt: Word);

Выдает на экран образ изображения, записанный в буфере.

BitMap - неременная без указания тина, являющаяся буфером информации (см. процедуру Get linage);

BitBIt - параметр, указывающий способ объединения передаваемой на экран информации с уже имеющейся там информацией (см. табл. 16.20).

Если изображение нс помещается на экране, оно нс будет выводиться на экран.

Процедура PutPixel procedure PutPixel{X, Y: Integer, Pixel: Word);

Закрашивает пиксель с заданными координатами в цвет Pixel.

X, Y - координаты пикселя;

Pixel - цвет, в который закрашивается пиксель.

Процедура Rectangle procedure Rectangle^, Y1, Х2, Y2: Integer);

Строит контур прямоугольника текущим цветом. Текущий цвет задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle, а режим построения линии - процедурой SetWriteMode,

XI, Y1 - координаты левого верхнего угла прямоугольника;

Х2, Y2 - координаты правого нижнего угла прямоугольника (необходимо, чтобы 0 <= XI < Х2 <= GetMcixXn 0 <= Y1 < Y2 <= GetMaxY).

Процедура RestoreCrtMode procedure RestoreCrtMode;

Осуществляет переход из графического режима в текстовый.

Процедура Sector procedure Sector(X, Y: Integer, StAngle, EndAngle, XRadius, YRadius: Word);

Строит сектор эллипса, закрашенный текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурами SetFillStyle или SetFillPattern. Текущий цвет контура задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle. Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой SetAspectRatio. X, Y - координаты центра сектора эллипса;

StAngle - начальный угол эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

EndAngle - конечный угол эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной вправо;

XRadius, YRadius - горизонтальная и вертикальная полуоси эллипса. В случае аварийной ситуации (во время закрашивания фигуры) процедура устанавливает код ошибки -6.

Процедура SetActivePage procedure SetActivePage{PaQe: Word);

Устанавливает номер активной графической страницы (страницы, в которую можно записывать информацию). Page - номер страницы (нумерация начинается с нуля).

Процедура SetAllPalette procedure SetAIIPalette{\/ar Palette);

Меняет все цвета палитры на заданные.

j\..!;ii,- переменная без тина. в нервом байте которой помещается чис-, \ количество цветов в палитре, а в последующих N байтах - коды ;,1С\'Ь1\ цветов, принимающих значения от -1 до 15 (см. табл. ! ): если задана величина -1. исходный цвет остается без изменения. ц ,. г.ч^с аварийной ситуации (неправильные входные параметры) про-_;,?,[ устанавливает код ошибки -11 и никаких изменений в палитре

:,• ;:р(, ИСХОДИТ.

П,..меняется только драйверами EGA, EGA 64 н VGA.

! iponi ivpa SetAspectRatio

r.rocedure SetAspectRatio^as^, Yasp: Word);

Меняет относительный масштаб изображения по горизонтали и верти-

\<iSp, Yasp - задаваемые масштабы по горизонтали и вертикали.

Процедура SctBkColor

n ocedure SotBkColor( Color: Word);

\ ^танавливает цвет фона экрана.

(.\)lor - устанавливаемый цвет (соответствует номеру цвета в палитре

или черный, если Color == 0).

Процедура SetCoIor

; о с е d u re Se tColor[ Color: Word);

Устанавливает текущий цвет, которым будут изображаться контуры

фигур и текст.

( olor - устанавливаемый цвет (номер цвета из палитры).

Процедура SetFillPattern

Задает произвольный орнамент, а также цвет для заполнения фигур. РаПегп - задаваемый пользователем орнамент (см. тип Fill Pattern Type п табл. 16.8);

С olor - цвет заполнения фигур (номер цвета в палитре). В случае аварийной ситуации (недопустимые входные данные) процедура устанавливает код ошибки -11, а текущий орнамент и цвет нс изменяются.

Процедура SetFillStyle i •••cedure SetFHIStyle( Pattern: Word; Color: Word);

Ълает стандартный орнамент и цвет заполнения фигур. Гапегп - задаваемый стандартный парауетр (см. табл. 16.19);

Color - цвет заполнения фигур (номер цвета в палитре). В случае аварийной ситуации (недопустимые входные данные) процедура устанавливает код ошибки -11. а текущий орнамент и цвет не изменяются.

Процедура SetGraphBufSize procedure SetGraphBufSize(Q^S\ze: Word);

Разменяет размер буфера для сканирования и заполнения фигур (;

умолчанию размер буфера равен 4 Кбайт). Процедуру следует испо. ;

зовать только до обращения к InitGraph. BufSize - новый размер буфера.

Процедура SetGraphMode procedure SetGraphMode(Modie: Integer)',

Задает графический режим, устанавливает исходные значения текушс;

указателя, палитры, цвета и т. д., очищает экран. Mode - графический режим (см. табл. 16.9). В случае аварийной ситуации (недопустимый графический режим) пр< цедура устанавливает код ошибки -10.

Процедура SetLineStyle procedure SetLineStyle(\-\neS{y\e: Word; Pattern: Word; Thickness: Word);

Задает текущие параметры линии (стиль, шаблон и толщину). LineStyle - стиль линии (см. табл. 16.15);

Pattern - шаблон линии - задается только в случае, если LineStyle == UserBitLn', представляется в виде двухбайтового числа, каждый он которого равен единице, если очередной пиксель следует высветить, и нулю - в противном случае;

Thickness - толщина линии (см. табл. 16.16). В случае аварийной ситуации (недопустимые параметры) процедура ус танавливает код ошибки -11 и не производит никаких изменений теку щих параметров.

Процедура SetPalette procedure Se?Pa/e^e(ColorNum: Word; Color: Shortint);

Меняет цвет одной компоненты в палитре. ColorNum - номер компоненты палитры;

Color - задаваемый цвет (см. табл. 16.12). В случае аварийной ситуации (неправильные входные параметры) про цедура устанавливает код ошибки -11 и никаких изменений в палитр не происходит.

Процедура SetRGBPalette procedure SefffGSPa/efte(ColorNum, RedValue, GreenValue, BlueValue: Integer);

Задает цвет в палитре для драйверов IBM-8514 и VGA.

ColorNum - номер цвета палитры (для IBM-8514 - в пределах от 0 .

255, для VGA - в пределах от 0 до 15);

RedValue, GreenValue, BlueValue - красная, зеленая и синяя компонс' ты цвета (используются только 6 старших битов младшего байта цсяо;

числа). Применяется только для драйверов IBM-8514 и VGA.

Процедура SetText Justify procedure SenexiJiJStify{Hor\z. Vert: \Vord}.

Устанавяивасг способ выравнивания ;ия вывела гскс'ш с испоягзоьлци-

Устанавливает текущие тин шрифта, лаиравяснис tokoi.i и размер символов. Font - thi! шрифта (см. табл. 16 21):

Direction - направление текста (см '"абл. 16.21), CharSize - размер символов.

В случае аварийной ситуация процедура устан^вяш^сг код ошибки. "8 - нс найден файл со шрифтом:

-9 - нет памяти для загрузки шрифта:

-11 - ошибка графической системы:

"12 - ошибка ввода-вывода графической сисюмы;

-13 - ошибка в файле со шрифтом:

-14 - неверный номер шрифта.

Процедура SetUserCharSize procedure SetUserCharSizo{^u\\X, DivX. MiiitY, DivY: Word);

Задает размеры окна для вывода графической инфюрмашп? и перемещает указатель юкушсй позиции н .ясный верхний yro;i с координатами (О, 0).' XI, Y1 - координаты левого верхнего \тяа окна:

Х2, Y2 - коорлшкпы правого ння\нсго угяа окия (0 •'-^:- Xl . Х2 и О <-- Y1 < Y2),

Clip - ограничитель фигур Есяи Clip ^ True. 'ю нес 1ЮС1|^осяия проводятся только в 11рслся;.!.\ окня. }\ iipo'lliBHONi случае чася'.! фшур NioryT шяхолить за прс.тсяы окна (см. hioi. 1(?.1⁷). Псяи нс 1ия1{ояняю1ся УСЯОШ1Я c^)o't(!oii.'cniin K00p:isiii.ii окна irm за.[а-ны нс;юнус'11гм{яс коордткпы. окно ."..• 1Я>1.чс;1яси:я ц формируется коя ошибки --1 1

Устанавливает номер отображаемой на экране страницы. Page - номер страницы (нумерация начинается с нуля).

Устанавливает режим построения линии (действует только при вызов. процедур DmwPoly. Line, LineRel, LineTo и Rectangle}.

WriteMode - величина, определяющая режим построения лиши (см. табл. 16.20).

16.4.2. Функции модуля Graph

Функция GetBKColor function GetBKColor. Word;

Возвращает номер текущего цвета фона в палитре.

Функция GetColor function GetColor; Word;

Возвращает номер цвета в палитре, заданного последней процедуре” SetColor.

Функция GetDriverName function GetDriverName: string;

Возвращает строку, содержащую имя текущего драйвера.

Функция GetGraphMode function GetGraphMode: Integer;

Возвращает номер текущего графического режима (см. табл. 16.9).

Функция GetMaxCoIor function GetMaxCoIor: Word;

Возвращает максимальный номер цвета палитры (нумерация начинав! ся с нуля) для данного драйвера.

Функция GetMaxMode function GetMaxMode: Word;

Возвращает число режимов текущего драйвера.

Функция GetMaxX

function GetMaxX: Integer;

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

Функция GetMaxY

Возвращает максимальную координату У для текущего драйвера в ;

кущсм режиме.

Возвращает строку с именем заданного графического режима (см. табл.

16.9).

Mode Number - номер графического режима.

Функция GetPaIetteSize function GetPaletteSize: Word;

Возвращает количество цветов палитры.

Функция GetPixel function GetPixel(X, Y: Integer}: Word;

Возвращает цвет пикселя с заданными координатами.

Функция GetX

function GetX: Integer;

Возвращает координату X текущей позиции на экране относительно установленного графического окна.

Функция GetY function GetY: Integer;

Возвращает координату Y текущей позиции на экране относительно установленного графического окна.

Функция GraphErrorMsg function GraphErrorMsg(ErrorCoee: Integer): string;

Возвращает сообщение об ошибке для заданного кода ошибки. ErrorCode - заданный код ошибки.

Функция GraphResuIt function GraphResuIt: Integer;

Возвращает код ошибки последней графической операции (см. табл. 16.11) и сбрасывает его в 0.

Функция ImageSize function /mageS/ze(X1, Y1, Х2, Y2: Integer): Word;

Возвращает количество байтов, необходимое для размещения в памяти прямоугольной области экрана (плюс 3 слова, необходимые для размещения размеров области по ширине и высоте). XI, Y1, Х2, Y2 - координаты верхнего левого и правого нижнего углов области.

Если требуемая для размещения область больше 64 Кбайт, формируется код ошибки -11. а функция принимает значение 0.

Функция InstaIlUserDriver function lnstaflUserDnver(Mame: string: AutoDetectPtr: Pointer): Word;

Размещает драйвер в таблице BGI-драйвсров (функция принимает значение внутреннею номера драйвера). Драйвер следует зарегистрировать л о обращения к In it Graph. Name - имя файла с драйвером:

AutoDeteclPir - указатель на функцию автоматического раснознавани ;

драйвера (если такой функции ист. лот параметр должен имс'1Ь знач • ние nil).

В случае аварийной ситуации функция устанавливает код ошибки. а сама принимает отрицательное значение. Возможный кол ошибки:

-1 ] - нет места в таблице драйверов.

Функция InstallUserForK function /AS^a/^serFo^^FontFiieNarrie: string); Integer,

Устанавливает новый шрифт, не встроенный в систему BGI (функни:;

принимает значение внутреннею номера шрифта). Шрифт следует за регистрировать до обращения к InilGmph. FonlFileName - имя файла со шрифтом. Если в таблице шрифтов нет места, функция возвращает значение (шрифт, используемый по умолчанию).

Функция RegisterBGIdrivcr function RegisterBGIdn'ver( Driver: Pointer): Integer,

Регистрирует загруженный в память BGI-драйвср для последующе! использования в графическом режиме (функция принимает значент внутреннего номера драйвера). Драйвер необходимо зарегистрирова до обращения к InitGrciph. Driver - адрес драйвера в памяти.

В случае аварийной ситуации функция устанавливает код ошибка а сама принимает отрицательное значение. Возможные коды ошибок:

-4 - недопустимое имя драйвера;

-11 - попытка использовать функцию после вызова InitGraph.

Функция RegisterBGIfont function RegisterBGIfont^o^t Pointer]: Integer;

Регистрирует загруженный в память шрифт для последующего испо. i

ращения к InitGraph.

Font - адрес шрифта в памяти.

Функция TextHcight function TextHeight('rex[StnnQ: string): Word:

Возвращает длину строки в пикселях. TcxtStrmg - исходная строка.