Процедура RestoreCRTMode

Модуль Graph

Открывает существующий файл.

Объявление:

 Procedure RestoreCrtMode;

Режим: 

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

Пример:

  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.
 

См. также: