Процедура RestoreMemory

Модуль 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.
 

См. также: