Синтаксис: DetectGraph(var Драйвер, Режим: integer);
Действие:
Проверяет графический адаптер и определяет, какой графический драйвер и режим используются.
Ellipse
Синтаксис: procedure Ellipse(х,у: integer; УголНачала, УголКонца: word;
РадиусХ, РадиусУ: word);
Действие:
Вычерчивает эллипс или дугу эллипса с центром в точке с координатами (к,у). Параметры УголНачала и Уголконца задают угловые координаты начальной и конечной точек линии эллипса, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах, их значения возрастают против часовой стрелки. Параметры РадиусХ и Радиусу определяют горизонтальный и вертикальный радиусы эллипса. Линия эллипса или дуги вычерчивается в соответствии с установками процедуры setcoior.
GetX, GetY
Синтаксис: function GetX: integer; function GetY: integer;
Действие:
Возвращают координаты х и у указателя вывода.
GraphResult
Синтаксис: function GraphResult: imteger;
Возвращает результат (код ошибки) последней выполненной графической операции. Если операция выполнена успешно, функция возвращает ноль. Код ошибки выполнения графической операции устанавливают процедуры Bar, Bar3D, InitGraph, PieSlice, SetFillPattern, SetFillStyle, SetLineStyle, SetTextStyle
и др.
|
|
InitGraph
Синтаксис: InitGraph(var Driver: integer; var Mode: integer; Path: string)
Действие:
Инициализирует графический режим. Параметр Driver определяет драйвер видеосистемы, параметр Mode — режим работы видеосистемы, параметр Path — каталог, где находится драйвер.
Line
Синтаксис: procedure Line(xl,yl,x2,y2: integer);
Действие:
Вычерчивает линию между двумя точками экрана, координаты которых указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры setcoior.
LineTo
Синтаксис: procedure Line(x2,yl: integer);
Действие:
Вычерчивает линию от текущего положения указателя вывода до точки, координаты которой указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры SetColor.
MoveTo
Синтаксис: procedure MoveTo(x,у: integer);
Действие:
Перемещает указатель вывода в точку с координатами х и у.