Оформление текста на экране.

В предыдущем уроке мы выводили текст шрифтом черного цвета на белом экране, начиная с той позиции, где в настоящее время находится курсор. Возникает вопрос, а можно ли выводить цветной текст на цветном поле.

Для реализации такой возможности входит особый дополнительный модуль CRT. Этот модуль содержит набор программ (процедур и функций), которые позволяют задавать цвет символов, очищать экран, устанавливать курсор в любую позицию экрана.

Предназначен для работы с текстовым окном. Это означает, что информация выводится на экран в виде символов, каждый из которых отображается на экране в определенной позиции. Экран можно представить как таблицу из 25 строк и 80 столбцов. Каждая ячейка таблицы имеет 2 координаты X и Y, где X – номер столбца, Y – номер строки. Строки нумеруются сверху вниз, начиная с 1 до 25, столбцы – слева направо, с 1-ого до 80-го.

X

(1,1) (80, 1)

(1, , 25)

Y

Подключив модуль CRT, можно одновременно совмещать вывод текста и создание окон.

Подключение модуля CRT осуществляется в разделе модулей:

Uses CRT;

Основные процедуры.

procedure ClrScr; Очищает цветом фона все текстовое окно или текущее окно, установленное процедурой window. Устанавливает курсор в левый верхний угол очищенного окна.

procedure Window(x1,y1,x2,y2: integer); Определяет на экране текущее окно. Устанавливает курсор в левый верхний угол текущего окна

procedure TextColor(c: byte); Устанавливает цвет символов.

procedure TextBackGround(c: byte); устанавливает цвет фона.

procedure GotoXY(x, y: integer);Перемещает курсор в позицию (x, y) относительно текущего окна.

Пример: Создать окно размером 1, 1, 40, 22 зеленого цвета и поместить курсор в позицию 2,2 и вывести текст «Работа с модулем CRT» черным цветом.

Program CRT1;

Uses CRT;

Begin

Window(1, 1, 40, 22);

TextBackGround(Green);

ClrScr;

GotoXY(2,2);

Write(‘Работа с модулем CRT’);

End.

Задание 1. Написать программу, выводящую на экран 2 любых сообщения в левом верхнем и правом нижнем углах экрана. Каждое сообщение выводить своим цветом.

Задание 2. Вывести на экран следующие картинку и сообщения.

++-----+

: : +

: green : blue +

: : +

++-----+

: : +

: Yellow : red +

: : +

++-----+