2.3. Подпрограммы графического режима

Представим список основных процедур и функций модуля Graph.

Procedure PutPixel(X, Y: Integer; Pixel: Word);

Рисует точку с координатами X, Y с определенным цветом Pixel.

Procedure Rectangle(X1, Y1, X2, Y2: Integer);

Рисует прямоугольник, который задается координатами двух точек, образующих углы прямоугольника по диагонали.

Procedure Bar(X1, Y1, X2, Y2: Integer);

Рисует закрашенный прямоугольник, который задается координатами двух точек, образующих углы прямоугольника по диагонали.

Procedure Circle(X, Y: Integer; Radius: Word);

Рисует окружность с центром в координатах X, Y и радиусом Radius.

Procedure Arc (X, Y; Integer; StAngle, EndAngle, Radius; Word);

Рисует дугу окружности. Центр окружности – X,Y, радиус – Radius, начальный и конечный углы дуги – StAngle, EndAngle.

Procedure Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius: Word);

Рисует эллипс с центром X, Y. StAngle, EndAngle начальный и конечный углы эллипса соответственно. XRadius, YRadius – радиусы эллипса в соответствующих направлениях.

Procedure Line(X1, Y1, X2, Y2: Integer);

Рисует линию от точки с координатами X1, Y1 в точку X2, Y2.

Procedure LineTo(X, Y: Integer);

Рисует линию от текущей точки в точку с координатами X, Y.

Procedure MoveTo(X, Y: Integer);

Устанавливает текущую позицию точки, но не изображает ее.

Function GetPixel(X, Y: Integer): Word;

Получение текущего цвета точки X, Y экрана.

Function GetX: Integer;

Получение значения координаты X.

Function GetY: Integer;

Получение значения координаты Y.

Function GetMaxX: integer;

Функция, возвращающая максимальный X для установленного графического режима.

Function GetMaxY: integer;

Функция, возвращающая максимальный Y для установленного графического режима.

Procedure ClearDevice;

Очистка экрана.

Procedure SetColor(Color: Word);

Устанавливает текущий цвет пера.

Procedure SetBkColor(ColorNum: Word);

Устанавливает цвет заднего фона.

Procedure FloodFill(X, Y: Integer; Border: Word);

Заливка замкнутого контура выбранным типом и цветом. Точка с координатами X, Y должна находиться внутри контура. Border – цвет границы контура.

Procedure SetFillStyle(Pattern: Word; Color: Word);

Установка нового шаблона и цвета заполнения.

Procedure OutText(TextString: string);

Вывод текста в текущую позицию на экране.

Procedure OutTextXY(X,Y: Integer; TextString: string);

Вывод текста в позицию X,Y на экране.

Для задания цвета можно использовать как слово на английском языке (стандартную константу), так и цифру из табл. 1.

Таблица 1

Основные цвета

Константа	Цвет	Код
Black	черный	0
Blue	синий	1
Green	зеленый	2
Cyan	бирюзовый	3
Red	красный	4
Magenta	малиновый	5
Brown	коричневый	6
LightGray	светло-серый	7
White	белый	15