Главная » Free Pascal » Управление атрибутами отображаемого текста Free Pascal

0

При записи очередного символа в окно вывода (а точнее, в соответствующую позицию видеопамяти) к коду ASCII присоединяется байт атрибута, который хра- нится в системной переменной TextAttr. Мы уже упоминали, что по умолчанию в ней находится код $07, что соответствует следующей комбинации битов атрибута:

± биты цвета контура (IRGB) = 0111 (серый цвет, не яркий);

± биты цвета фона (RGB) = 000 (черный цвет);

± бит мерцания = 0 (режим мерцания отключен).

Содержимое бита повышенной яркости (I) можно изменить с помощью одной из следующих процедур без параметров:

± HighVideo — в бит I заносится 1 (признак повышенной яркости);

± LowVideo — в бит I заносится 0 (признак обычной яркости);

± NormVideo — восстанавливается бит яркости, установленный перед запуском программы.

Для изменения цвета контуров символа используется процедура TextColor. Ее единственным аргументом является код цветности, замещающий биты IRGB в сис- темной переменной TextAttr. Значение этого кода должно принадлежать диапазо- ну [0, 15]. На практике вместо числового кода обычно задается одна из мнемониче- ских констант, список которых приведен в табл. 12.1.

Таблица 12.1

Код

Константа

Цвет

Код

Константа

Цвет

0

Black

Черный

8

DarkGray

Темно-серый

1

Blue

Синий

9

LightBlue

Светло-синий

2

Green

Зеленый

10

LightGreen

Светло-зеленый

3

Cyan

Бирюзовый

11

LightCyan

Светло-бирюзовый

4

Red

Красный

12

LightRed

Светло-красный

5

Magenta

Фиолетовый

13

LightMagenta

Светло-фиолетовый

6

Brown

Коричневый

14

Yellow

Желтый

7

LightGray

Светло-серый

15

White

Белый

Для изменения цвета фона предназначена процедура TextBackground, исполь- зующая в качестве своего единственного аргумента код из диапазона [0, 15]. Три младших двоичных разряда кода определяют цвет фона, а старший разряд замеща- ет бит мерцания (M). Фактический аргумент процедуры TextBackground может быть задан одной из мнемонических констант из табл. 12.1.

Источник: Кетков, Ю. Л., Свободное программное обеспечение. FREE PASCAL для студентов и школьников, Ю. Л. Кетков, А. Ю. Кетков. — СПб.: БХВ-Петербург, 2011. — 384 с.: ил. + CD-ROM — (ИиИКТ)

По теме:

  • Комментарии