Процедура RestoreCRTMode

Модуль GRAPH

Восстанавливает первоначальный текстовый режим, который был до инициализации графического режима.

Объявление:

Procedure RestoreCrtMode;

Режим:

Protected,  Real

Замечание:

Восстанавливает первоначальный видеорежим, определенный InitGraph. Может использоваться вместе с SetGraphMode, чтобы переключаться между текстовым и графическим режимами. Нужно быть в графическом режиме.

Пример:

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.