Function ...

Дата добавления: 2015-01-16; просмотров: 562; Нарушение авторских прав

GraphResult: Integer ;
—	возвращает код ошибки последней графической операции: grOK = 0 — успешное выполнение; grNoInitGraph = -1 — не установлен графический режим (InitGraph); grNotDetected = -2 — нет графического адаптера; grFileNotFound = -3 — нет драйвера устройства; grInvalidDriver = -4 — ошибка в драйвере; grNoLoadMem = -5 — нет памяти для загрузки драйвера; grNoScanMem = -6 — нет памяти для сканирования; grNoFloodMem = -7 — нет памяти для закраски; grFontNotFound = -8 — не найден файл со шрифтом; grNoFontMem = -9 — нет памяти для загрузки шрифта; grInvalidMode = -10 — недопустимый режим для выбранного драйвера; grError = -11 — ошибка графической системы; grIOerrror = -12 — ошибка ввода-вывода графической системы; grInvalidFont = -13 — ошибка в файле со шрифтом; grInvalidFontNum = -14 — неверный номер шрифта. После обращения к функции она сбрасывает свое значение на 0 — поэтому возвращенное значение лучше сохранить в переменной и потом использовать это сохраненное значение.
GraphErrorMsg ( ErrorCode : Integer ) :String ;
—	по заданному коду ошибки (например, который возвращает GraphResult) выдает текстовое сообщение об ошибке. ErrorCode — заданный код ошибки.
GetGraphMode: Integer ;
—	возвращает номер текущего графического режима работы графического адаптера.

Пример 12.3 (иллюстрация некоторых упомянутых выше процедур и функций):

Uses Graph ;

Var

Driver, Mode, ErrCode : Integer ;

Begin

Driver := Detect ;

InitGraph( Driver, Mode, ’’ ) ;

ErrCode := GraphResult ;

If ErrCode <> grOK then

WriteLn ( GraphErrorMsg( ErrCode ) )

Else

Begin

. . .

RestoreCRTMode ;

. . .

SetGraphMode ( GetGraphMode - 1 ) ;

. . .

CloseGraph ;

End

End.

GetDriverName :String ;
—	возвращает строку, содержащую имя текущего графического драйвера.
GetMaxMode :Word ;
—	возвращает число режимов текущего драйвера.
GetModeName ( ModeNumber : Integer ) :String ;
—	возвращает строку с именем заданного графического режима по его номеру. ModeNumber — номер графического режима.

<== предыдущая лекция	\|	следующая лекция ==>
Управление графическим режимом	\|	Процедуры управления экраном, окном, страницей