Функция GetGraphMode

Модуль Graph

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

Объявление:

 Function GetGraphMode : Integer;

Режим: 

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

Пример:

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

См. также: