Функция GetGraphMode()

Модуль GRAPH

Возвращает текущий графический режим.

Объявление:

 Function GetGraphMode : Integer;

Режим:

Protected,  Real

Замечание:

Функция GetGraphMode возвращает текущий графический режим, установленный с помощью InitGraph или SetGraphMode. Значение Mode - целое число от 0 до 5, в зависимости от текущего драйвера.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для функции GetGraphMode }

Uses Graph;

Var Gd, Gm : Integer;
      Mode : Integer;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 OutText('Press  to leave graphics:');
 ReadLn;
 RestoreCrtMode;
 WriteLn('Текстовый режим');
 Write('Нажмите , чтобы войти в графику:');
 ReadLn;
 SetGraphMode(GetGraphMode);
 OutTextXY(0, 0, 'Back in graphics mode');
 OutTextXY(0, TextHeight('H'), 'Press  to quit:');
 ReadLn;
 CloseGraph;
End.