Синтаксис:
procedure TextColor(Цвет; byte);
Действие:
Устанавливает цвет символов сообщений, выводимых инструкциями write и writein. В качестве параметра цвет может использоваться одна из перечисленных ниже именованных констант.
| Константа |
Цвет |
Номер цвета |
| Black |
Черный |
0 |
| Blue |
Синий |
1 |
| Green |
Зеленый |
2 |
| Cyan |
Бирюзовый |
3 |
| Red |
Красный |
4 |
| Magenta |
Сиреневый |
5 |
| Brown |
Коричневый |
6 |
| LightGray |
Белый |
7 |
| DarkGray |
Серый |
8 |
| LightBlue |
Голубой |
9 |
| LightGreen |
Светло-зеленый |
10 |
| LightCyan |
Светло-бирюзовый |
11 |
| LightRed |
Светло-красный (алый) |
12 |
| LightMagenta |
Светло-сиреневый |
13 |
| Yellow |
Желтый |
14 |
| White |
Белый,яркий |
15 |