[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'Crt' (#rtl)

# TextBackground

Set text background

## Declaration

Source position: crth.inc line 91

`procedure TextBackground(`
`Color: Byte`
`);`

## Description

TextBackground sets the background color to CL. CL can be one of the predefined color constants.

## Errors

None.

## See also

TextColor |  | Set text color
HighVideo |  | Switch to highlighted text mode
LowVideo |  | Switch to low intensity colors.
NormVideo |  | Return to normal (startup) modus

## Example

    Program Example13;
    uses Crt;

    { Program to demonstrate the TextBackground function. }

    begin
      TextColor(White);
      WriteLn('This is written in with the default background color');
      TextBackground(Green);
      WriteLn('This is written in with a Green background');
      TextBackground(Brown);
      WriteLn('This is written in with a Brown background');
      TextBackground(Black);
      WriteLn('Back with a black background');
    end.