Процедуры и функции графического режимаArc Синтаксис: procedure Arc(x,у: integer; УголНачала, УголКонца: integer; Радиус: integer);Действие: Вычерчивает дугу с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты на-чальной и конечной точек линии дуги, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах. Значение угловой координаты возрастает против часовой стрелки. Параметр Радиус задает радиус дуги. Bar Синтаксис: procedure Bar(xl,yl,x2,y2: integer);Действие: Вычерчивает закрашенный прямоугольник. Параметры xl и yl задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего. Используемый стиль и цвет заливки задается Процедурой SetFillStyle. Bar3D Синтаксис: procedure Bar3D(xI,yl,x2,y2: integer; Глубина: word; Граница: boolean);Действие: Вычерчивает параллелепипед. Параметры xl и yl задают положение левого верхнего, а х2 и у2 — правого нижнего угла ближней грани параллелепипеда. Параметр глубина задает расстояние между передней и задней гранями. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда. Circle Синтаксис: procedure Circle(х,у: integer; r: word);Действие: Вычерчивает окружность радиуса г с центром в точке с координатами (х,у). DetectGraph Синтаксис: 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. Цвет линии можно задать при помощи процедуры MoveTo Синтаксис: procedure MoveTo(x,у: integer);Действие: Перемещает указатель вывода в точку с координатами х и у. MoveRel Синтаксис: procedure MoveRel(dx:, dy: integer);Действие: Перемещает указатель вывода на dx и dy пикселов. Если значение параметра dx (dy) положительное, то указатель перемещается вниз (влево), если отрицательное, то — вверх (вправо). OutText Синтаксис: procedure OutText{Текст: string);Действие: Выводит строку символов текст от текущего положения указателя вывода и перемещает указатель вывода в точку, расположенную за последним выведенным символом. OutTextXY Синтаксис: procedure OutTextXY(x, у: integer; Текст: string);Действие: Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами (я, у). Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — процедурой SetTextStyle.PieSlice Синтаксис: procedure PieSlice(х,у: integer; УголНачала,УголКонца, Радиус: word);Действие: Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из точки (х,у) в сторону PutPixel Синтаксис: procedure PutPixel(х,у: integer; Цвет: word);Действие: Окрашивает пиксел, точку с координатами (х,у), цветом цвет. В качестве параметра цвет обычно используют именованную Rectangle Синтаксис: procedure Rectangle{xl,yl,x2,y2: integer);Действие: Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.
SetLineStyle Синтаксис: procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word) ;Действие: Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle И Др.).
Параметр толщлна определяет толщину линии. Линия может быть обычной толщины (константа Normwidth) или утолщенная SetTexStyle Синтаксис: procedure SetTexStyle{Шрифт, Ориентация, Размер: word);Действие: Устанавливает шрифт, размер и ориентацию текста, выводимого
Примечание |
Назад | Начало | Вперед |