Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 27 стр.

                                                                             27




      Закрытие текстового режима           осуществляется с помощью вызова
процедуры CloseGraph. Если в программе есть вызов процедуры InitGraph, то
должен присутствовать соответствующий вызов процедуры CloseGraph. Эта
процедура очищает экран и переводит дисплей в текстовый режим.
      В одной программе можно несколько раз выполнять инициализацию
графического режима и его закрытие.
      Для очистки экрана в графическом режиме используется процедура
ClearDevice.
      В процессе работы в графическом режиме можно перейти в текстовый
режим и затем снова возвратиться в графический режим.
      Процедура RestoreCRTMode служит для перехода в текстовый режим (без
явного закрытия графического режима). Для возврата назад в графический можно
режим использовать функцию GetGraphMode, которая возвращает значение типа
Integer соответствующее коду режима работы графического драйвера и процедуру
SetGraphMode, которая устанавливает новый графический режим.
      Для возврата в графический режим после вызова процедуры
RestoreCRTMode            необходимо       произвести     вызов   процедуры:
SetGraphMode(GetGraphMode);
      Следующая простая программа иллюстрирует переход в текстовый режим и
возврат в графический.
      Uses crt,graph;
    begin
       Init_Graph_Mode; {Используем процедуру описанную ранее}
       outtextxy(270,200,'This is graph mode');
       readkey;
       RestoreCRTMode;
       gotoxy(30,12);
       writeln('This is text mode');
       readkey;
       SetGraphMode(GetGraphMode);
       outtextxy(270,200,'Return in graph mode ');
       readkey;
   end.

         2.2.2 Графический курсор, координаты экрана в графическом
                                режиме

      Графический курсор или иначе "текущий указатель", в отличие от
текстового курсора, невидим на экране. Для определения текущего положения
графического курсора используются две функции, возвращающие результат типа
integer: GetX - координата курсора по горизонтали, GetY - координата курсора по
вертикали.
      Любая координата на графическом экране задается относительно левого
верхнего угла. В свою очередь этот угол имеет координаты (0.0) - это
минимальные координаты экрана. Максимальные координаты графического
                                                                             27