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

                                                                           13




      Процедура TextMode сбрасывает все предшествующие установки цвета и
окон, очищает экран и переводит курсор в его левый верхний угол.
      В текстовом режиме можно открывать окна - области экрана, в которые
можно выводить текстовую информацию. Для этого используется процедура
      Windows(X1, Y1, X2, Y2), где
      X1,Y1 - координаты верхнего левого угла окна;
      X2,Y2 - координаты нижнего правого угла окна.
      Левый верхний угол экрана имеет координаты (1,1).
      Сразу после вызова процедуры курсор помещается в левый верхний угол
окна, а само окно очищается (заполняется цветом фона) после очистки экрана.
      Если какая либо из координат (X1, Y1, X2, Y2) выходит за границы экрана
или не верно указана, то процедура не выполняется.
      В программе одновременно можно открыть несколько окон, координаты
любого из окон задаются всегда в "абсолютных" координатах, т.е. относительно
начала экрана.
      Очистка текущего окна или всего экрана осуществляется с помощью
процедуры Clrscr.
      Для установки цвета фона (экрана) используется процедура
TextBackGround(N), N - выражение типа Byte, задающее код цвета. Этот код
удобно задавать с помощью констант, объявленных в модуле Crt: N от 0 до 7.
      Const
            Black = 0; { Черный}
            Blue = 1; { Синий}
            Green = 2; { Зеленый}
            Cyan = 3; { Голубой}
            Red = 4; { Красный}
            Magenta = 5; { Фиолетовый}
            Brown = 6; {Коричневый}
            LightGray = 7; { Светло-серый}
      Цвет фона изменится после того, как в программе будет использована
процедура очистки экрана Clrscr (производится заполнение экрана или окна
заданным цветом фона).
      Для задания цвета символов (пера) используется процедура TextColor(N).
N от 0 до 15: первые 8 цветов те же, что используются для задания цвета фона.
      Остальные цвета задаются следующими константами:
      Const
            DarkGray = 8; {Темно-серый}
            LightBlue = 9; {Светло-синий}
            LightGreen = 10; {Светло-зеленый}
            LightCyan = 11; {Ярко-голубой}
            LightRed = 12; {Светло-красный}
            LightMagenta = 13; {Светло-фиолетовый}
            Yellow = 14; {Желтый}
            White = 15; {Белый}

                                                                           13