Turbo Pascal Documentation

Процедура RestoreCrtMode

Модуль Graph

     Функция: Возвращает режим экрана в  исходное  состояние
(то, какое существовало до инициализации графики).
     Описание: RestoreCrtMode
     Примечания: Восстанавливает исходный видеорежим,  обна-
руженный  процедурой  InitGraph.  Данная процедура может ис-
пользоваться вместе с процедурой SetGraphMode для переключе-
ния между текстовым и графическим режимом.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  DetectGraph,  InitGraph,
SetGraphMode.
     Пример:

uses Graph;
var
   GraphDriver, GraphMode : integer;
begin
   GraphDriver := Detect;
    InitGraph(GraphDriver,GraphMode,'');
   if GraphResult <> grOk then
      Halt(1);
   OutText('Для выхода из графики нажмите RETURN:');
   Readln;
   RestoreCrtMode;
   Writeln('Теперь вы в текстовом режиме');
   Readln;
   SetGraphMode(GetGraphMode);
   OutTextXY(0, 0, 'Вы снова в графическом режиме');
OutText(0, TextHeight('H'), 'Для выхода нажмите RETURN');
Readln;
CloseGraph;
end.