2) Координаты экрана

Определяются возможностями видеосистемы ПЭВМ. Обычно стараются использовать наилучший возможный режим экрана

{ *** функции, связанные с координатами *** }

function GetX : integer; – получить текущую координату X;

function GetY : integer; – получить текущую координату Y;

function GetMaxX : integer; – получить максимально возможную координату экрана по X;

function GetMaxY : integer; – получить максимально возможную координату экрана по Y;

3) Управление графическим режимом

{ *** определение, инициализация и восстановление текстового режима *** }

procedure DetectGraph (var GraphDriver, GraphMode : integer); – получение возможного типа драйвера и графического режима по установленным аппаратным средствам;

procedure InitGraph (var GraphDriver : integer;

var GraphMode : integer;

PathToDriver : String); – инициализировать графический режим экрана;

procedure CloseGraph; – закрытие графического режима.

{ Коды завершений графических операций: }

grOk = 0; – без ошибок.

grNoInitGraph = -1; – не загружен драйвер графического режима.

grNotDetected = -2; – не определен тип видеокарты.

grFileNotFound = -3; – не найден файл с драйвером.

grInvalidDriver = -4; – ошибка работы драйвера.

grNoLoadMem = -5; – не хватает места в ОП для загрузки драйвера.

grNoScanMem = -6; – выход за пределы памяти при сканирующем заполнении

grNoFloodMem = -7; – выход за пределы памяти при заливке.

grFontNotFound = -8; – не найден заказанный шрифт.

grNoFontMem = -9; – не хватает места в ОП для загрузки шрифта.

grInvalidMode = -10; – неверный режим графики.

grError = -11; – ошибка графической операции.

grIOerror = -12; – ошибка графического ввода/вывода

grInvalidFont = -13; – ошибка в файле шрифта.

grInvalidFontNum = -14; – недопустимый номер шрифта.

{ *** Функции, возвращающие сведения об ошибках *** }

function GraphErrorMsg (ErrorCode : integer) : String; – название ошибки по коду;

function GraphResult : integer; – код ошибки последней графической операции.

4) Управление экраном и окном

{ *** экран, окна, сохранение и восстановление окон *** }

procedure ClearDevice; – очиска грфического экрана цветом фона. Текущий указатель в левом верхнем углу;

procedure SetViewPort (x1, y1, x2, y2 : integer; Clip : boolean); – задание границ окна и типа отсечения;

procedure ClearViewPort; – очистить окно цветом фона;

{ *** сохранение/восстановление части экрана *** }

function ImageSize (x1, y1, x2, y2 : integer) : word; – определить размер ОП для прямоугольника;

procedure GetImage (x1, y1, x2, y2 : integer; var BitMap); – сохранить в ОП образ прямоугольника;

procedure PutImage (X, Y : integer; var BitMap; BitBlt : word); – восстановить прямоугольник из ОП.

5) Управление цветом

{ константы изображения цветов: }

Таблица 1. Кодировка цветов

Код	Имя константы	Цвет
0	Black	Черный (прозрачный)
1	Blue	синий
2	Green	зеленый
3	Cyan	голубой
4	Red	красный
5	Magenta	фиолетовый
6	Brown	коричневый
7	LightGray	светло-серый
8	DarkGray	темно-серый
9	LightBlue	светло-голубой
10	LightGreen	светло-зеленый
11	LightCyan	светло-синий
12	LightRed	светло-красный
13	LightMagenta	светло-фиолетовый (розовый)
14	Yellow	светло-коричневый(желтый)
15	White	белый

{ *** процедуры работы с цветом *** }

procedure SetBkColor (ColorNum : word); – установить цвет фона;

procedure SetColor(Color : word); – установить цвет рисования

function GetBkColor : word; – получить цвет фона;

function GetColor : word; – получить текущий цвет рисования;