Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю2 / Иллюстрации к Лекции 8 по информатике.doc
Скачиваний:
54
Добавлен:
02.05.2014
Размер:
1.4 Mб
Скачать

Приложение Процедуры управления графическим режимом

CloseGraph; - останавливает работу графической системы.

DetectGraph (var Driver, Mode: integer); - проверяет наличие соответствующих аппаратных средств и определяет, какой графический режим и драйвер следует использовать.

GetModeRange (GraphDriver: integer; var LoMode, HiMode: integer); - для данного драйвера возвращает наименьший и наибольший номер графического режима.

GraphDefaults; - сбрасывает установленные для графических средств пара­метры. Возвращает текущий указатель в нулевую точку и устанавливает для графической системы параметры (область просмотра, палитру, фоновый и основной цвет, тип линии и образец линии, тип заполнителя, образец заполнителя и цвет заполнителя), принятые по умолчанию.

InitGraph (var GrDriver:integer; var Mode:integer; Path:string); - инициализирует графическую систему и переводит аппаратуру в графический режим.

RestoreCrtMode; - возвращение в текстовый режим.

SetGraphBufSize (BufSize:word); - изменение размера графического буфера.

SetGraphMode (Mode:integer); - устанавливает для системы графический режим и очищает экран.

Функции управления графическим режимом

GetGraphMode: integer; - получение номера текущего графического режима.

GetMaxMode: word; - возвращает для текущего загруженного драйвера максимальное значение номера режима.

GetModeName (Mode: integer): string; - возвращает строку, содержащую имя заданного графического режима Mode.

GraphErrorMsg (ErrorCode: integer): string; - для заданного кода ошибки (ErrorCode) возвращает строку сообщения об ошибке.

GraphResult: integer; - получение кода ошибки.

GetDriverName: string; - получение имени текущего драйвера.

InstallUserDriver (Name: string; AutoDetectPtr: pointer): integer; - включает в таблицу драйверов устройств BGI фирмы Borland драйверы, поставляемые другими фирмами

InstallUserFont (Name: String): integer; - устанавливает новый шрифт, не предусмотренный в системе фирмы Borland (BGI).

RegisterBGIdriver (Driver: pointer): integer; - регистрирует в графической системе загруженный пользователем или скомпонованный с программой драйвер формата BGI (формат фирмы Borland).

RegisterBGIfont (Font: pointer): integer; - регистрирует загружаемый пользователем или скомпонованный с программой шрифт формата BGI (фирмы Borland) в графической системе. В случае ошибки возвращаемое значение будет меньше 0. В противном случае возвращается внутренний номер шрифта.

Процедуры управления экраном, окном, страницей

ClearDevice; - очистка графического экрана.

ClearViewPort; - очищает текущую область просмотра (окно).

GetAspectRatio (var Xk, Yk: word); - возвращает действующую разрешающую способность графического экрана, с помощью которого можно вычислить коэффициент относительного удлинения (Xk,Yk).

GetViewSettings (var ViewPort: ViewPortType); - получение параметров текущего графического окна.

SetActivePage (Page: word); - устанавливает для графического вывода активную страницу. Страница, заданная параметром Page, становится активной. Весь графический вывод будет теперь направляться в эту страницу.

SetAspectRatio (Xasp, Yasp: word); - изменяет принятое по умолчанию значение коэффициента относительного удлинения.

SetViewPort (XI, Yl, X2, Y2: word; Clip: boolean); - задание размеров окна.

SetVisualPage (Page: word); - задание отображаемой на экране страницы.