HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
18 февраля. В 1992 году (26 лет назад) - "Российская газета": Гражданин США Джеффри Дамер обвинен в убийстве 15 молодых людей - г-н Дамер лишал своих жертв чести и жизни и даже их поедал. Подсудимый признался, в частности, в том, что просверлил голову одной из своих жертв и наполнил ее кипятком. Дамер объясняет свой поступок намерением превратить пострадавшего в "зомби", что ему, однако, не удалось.
 
 

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.




HOME