Skip to content

TextColor

Set text color

Declaration

Source position: crth.inc line 90

  procedure TextColor(Color: Byte);

Description

TextColor sets the foreground color to CL. CL can be one of the predefined color constants.

Errors

None.

See also

Name Description
HighVideo Switch to highlighted text mode
LowVideo Switch to low intensity colors.
NormVideo Return to normal (startup) modus
TextBackground Set text background

Example

Program Example12;
uses Crt;
{ Program to demonstrate the TextColor function. }
begin
  WriteLn('This is written in the default color');
  TextColor(Red);
  WriteLn('This is written in Red');
  TextColor(White);
  WriteLn('This is written in White');
  TextColor(LightBlue);
  WriteLn('This is written in Light Blue');
end.