Прочие функции
TextBackGround
Синтаксис:
procedure TextBackGround(Цвет: byte);
Действие:
Задает цвет фона сообщений, выводимых инструкциями write и writein. В качестве параметра цвет может использоваться одна из перечисленных ниже именованных констант.
| Константа | Цвет | Номер цвета |
|---|---|---|
| Black | Черный | 0 |
| Blue | Синий | 1 |
| Green | Зеленый | 2 |
| Cyan | Бирюзовый | 3 |
| Red | Красный | 4 |
| Magenta | Сиреневый | 5 |
| Brown | Коричневый | 6 |
| LightGray | Белый | 7 |
TextColor
Синтаксис:
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 |
WhereX
Синтаксис:
function WhereX: byte;
Действие:
Возвращает координату х курсора в текущем окне, заданном Процедурой Window.
WhereY
Синтаксис:
function WhereY: byte;
Действие:
Возвращает координату y курсора в текущем окне, заданном процедурой window.
Window
Синтаксис:
procedure Window(x1,y1,x2,y2: byte);
Действие:
Определяет окно – область экрана. Параметры xi,yi задают координаты левого верхнего угла окна, а параметры х2,у2 – правого нижнего угла.