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