- •Приложение: Процедуры управления графическим режимом
- •8.1. Инициализация и закрытие графического режима
- •Переключение текст — графика — текст
- •Обработка ошибок
- •Система координат
- •Перемещение текущего указателя
- •Экран и окно в графическом режиме
- •Вывод точки
- •Вывод линии
- •8.3. Работа с текстом Вывод текста
- •Вывод численных значений
- •Установка шрифта.
- •Выравнивание текста
- •SetTextJustify(Horiz,Vert:word);
- •8.4. Установка цвета и палитры
- •8.5. Построение графических фигур Построение прямоугольников
- •Построение многоугольников
- •Построение дуг и окружностей
- •Атрибуты графических фигур Установка цвета и стиля.
- •Коэффициент сжатия.
- •8.6. Работа с фрагментами изображения
- •GetImage (XI, Yl, x2, y2: Integer; var BitMap);
- •Приложение Процедуры управления графическим режимом
- •Функции управления графическим режимом
- •Процедуры управления экраном, окном, страницей
- •Процедуры управления цветом и палитрой
- •Функции управления цветом и палитрой
- •Функции работы с точками
- •Процедуры работы с точками
- •Процедуры работы с линиями
- •Процедуры построения фигур из линий
- •Процедуры построения криволинейных фигур
- •Процедуры работы с текстом
- •Функции работы с текстом
- •Процедуры обмена с памятью
- •Функции обмена с памятью
Процедуры построения фигур из линий
Ваr(Х1, Yl, X2, Y2: integer) - рисует столбец, заданный координатами (XI,Y1) и (X2,Y2), используя стандартный тип и цвет закраски.
Bar3D (XI, Yl, X2, Y2: integer; L: word; S: boolean); - используя текущий тип и цвет закраски, рисует трехмерный параллелепипед (столбец), заданный координатами (X1,Y1), (X2,Y2) и глубиной L. S — признак отображения верхней плоскости.
DrawPoly (N : word; var S); - используя текущий тип линии и текущий цвет, рисует контур многоугольника. Параметр S является нетипизованным параметром, который содержит координаты каждого пересечения в многоугольнике. Параметр N задает число координат в S. Координата состоит из двух слов: значения Х и значения У.
FillPoly (N : word; var S); - рисует закрашенный многоугольник.
Параметр S является нетипизованным параметром, который содержит координаты каждого пересечения сторон в многоугольнике (координаты вершин). Параметр N задает число координат в S. Координата состоит из двух слов: значения X и значения Y.
FloodFill (X, Y: integer; S: word); - закрашивает ограниченную область, используя текущий заполнитель. Точка (X,Y) является произвольной внутренней точкой заполняемой области. Для заполнения области, ограниченной цветом, которую определяет параметр S, используется текущий образец закраски.
GetFillPattern (var Pattern: FiUPatternType); - возвращает текущий образец заполнителя, заданный последним обращением к процедуре SetFillPattern. Параметр Pattern — это образец заполнителя.
GetFillSetings (var Inf: FillSettingsType); - позволяет выдавать запрос о текущем типе заполнителя и его цвете, которые установлены процедурами SetFillStyl или SetFillPattern.
Rectangle (XI, Yl, X2, Y2: integer); - рисует прямоугольник, используя текущий цвет и тип линии. Точка с координатами (X1, Y1) определяет верхний левый угол прямоугольника, а точка с координатами (X2,Y2) определяет нижний правый угол (0 <= X1 < Х2 <= GetMaxX и 0 <= Yl< Y2 <= GetMaxY).
SetFillPattern (Pattern:FfflPatternType; Color: word); - выбирает заданный пользователем образец закраски.
SetFillStyle (Pattern: word; Color: word); - устанавливает тип закраски и ее цвет.
Процедуры построения криволинейных фигур
Arc(X, Y: integer; Angle1, Angle2, R: Word) - вычерчивает дугу окружности от начального угла Angle1 до конечного угла Angle2 с радиусом R, точка (X,Y) используется как центр окружности.
Circle (X, Y: integer; R: word); - рисует окружность с радиусом R, точка (X,Y) считается центром окружности
Ellipse (X, Y: integer; SStart, SEnd: word; RadX, RadY: word); - рисует эллиптическую дугу от начального угла SStart до конечного угла SEnd, используя (X,Y) в качестве точки центра, а RadX, RadY - как горизонтальную и вертикальную оси.
FillEllipse (X, Y: integer; XRad, YRad: word); - рисует закрашенный эллипс, используя точку с координатами (X,Y) в качестве центра, a XRad и YRad - в качестве горизонтальной и вертикальной осей.
GetArcCoords(var Coords: ArcCoordsType); - получение координат последней дуги.
PieSlice (X, Y: integer; SStart, SEnd, R:word); - рисует и заполняет цветом сектор круга. Точка (X,Y) при этом используется в качестве центра окружности, а сектор рисуется от начального угла (SStart) до конечного угла (Send) с радиусом R.
Sector (X, Y: integer; SStart, SEnd, XRad, YRad: word); - вычерчивает и заполняет эллиптический сектор. Процедура использует (X,Y) как точку центра, параметры XRad, YRad определяют, соответственно, горизонтальный и вертикальный радиусы. Сектор вычерчивается от начального угла SStart до конечного угла SEnd. Сектор рисуется текущим цветом и закрашивается с использованием образца закраски и цвета, заданных с помощью процедур SetFillStyle или SetFillPattern.