Правила форума
TextColor (процедура) (модуль Crt)Язык:
Русский
English
TextColor (процедура) (модуль Crt)
Выбирает цвет символов.
Объявление
Procedure TextColor(Color : Byte);
Режим
Real, Protected
Замечания
Параметр Color - целочисленное выражение в диапазоне 0 .. 15, соответствующий одной из констант цвета текстового режима, определённых в модуле Crt.
В модуле Crt существует переменная типа байт — TextAttr, которая используется для хранения текущего видеоатрибута. TextColor устанавливает биты 0-3 переменной TextAttr в Color. Если Color больше 15, то бит 7 (бит, определяюший мигание) тоже поднимается.
Вы можете заставить выводимые символы мигать, прибавив 128 к значению Color. Для этой цели существует предопределенная константа Blink. Для совместимости с Turbo Pascal 3.0, любое значение Color, большее 15, будет заставлять выводимые символы мигать.
Все символы, выводимые впоследствии, будут выводиться цветом = Color.
См. также
Лекция №14.1: Методы создания пользовательского интерфейса
Таблица номеров и констант цветов
HighVideo
LowVideo
NormVideo
TextBackground
Пример
Язык:
Русский
English
{ Пример программы для NormVideo, TextBackground и TextColor }
begin
{ Зеленые символы на черном фоне }
TextColor(Green);
TextBackground(Black);
WriteLn('Привет!');
{ Мигающие светло-красные символы на сером фоне }
TextColor(LightRed + Blink);
TextBackground(LightGray);
WriteLn('Ещё раз привет!');
{ Желтые символы на синем фоне }
TextColor(14);
{ Константа Yellow = 14 }
TextBackground(Blue);
WriteLn('Ну, привет же !!!');
NormVideo;
{ Восстанавливаем атрибуты }
WriteLn('Нет никого ??? Тогда, пока !');
end.
::
::
::
