Переменные и константы модуля CRT
Константы цветов
Константы текстового режима
Переменная CheckBreak
Переменная CheckEOF
Переменная DirectVideo
Переменная CheckSnow
Переменная LastMode
Переменная TextAttr
Переменные WindMax и WindMin
Константы цветов
Используйте константы цветов с процедурами
TextColor и
TextBackGround.
| Темные цвета (Текст и фон) |
| 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 |
Для подсветки текста используйте константу
Blink = 128. Пример:
TextColor(Blue + Blink) или TextColor(1 + 128)
Константы текстового режима
Используйте эти константы с процедурой
TextMode.
| Константа | Значение |
| BW40 | $00 |
| CO40 | $01 |
| BW80 | $02 |
| CO80 | $03 |
| Mono | $07 |
| Font8x8 | $FF |
Переменная CheckBreak
Управляет пользовательским завершением программы, используя окно CRT.
Объявление:
const CheckBreak: Boolean = TRUE;
Замечания:
Если
CheckBreak = TRUE, пользователь может завершить программу
в любое время, нажав комбинацию клавиш
Ctrl-Break или
Ctrl+C.
Программа не может быть завершена таким образом, если
CheckBreak
установлена в значение FALSE.
Переменная CheckEOF
Управляет проверкой символа конца файла в окне CRT.
Объявление:
const CheckEOF: Boolean = FALSE;
Переменная DirectVideo
Включает и выключает прямой доступ к памяти для операторов вывода на
экран
Write и
WriteLn.
Объявление:
const DirectVideo: Boolean = TRUE;
Если
DirectVideo = TRUE, то процедуры
Write и
WriteLn
будут записывать символы непосредственно в видеопамять, иначе для
отображения символов на экране будет использоваться BIOS.
Переменная CheckSnow
Включает и выключает «проверку снега», когда символы записываются
непосредственно в видеопамять.
Объявление:
const CheckSnow: Boolean = FALSE;
Переменная LastMode
Каждый раз, когда вызывается процедура
TextMode, текущий
видеорежим записывается в переменную
LastMode.
Объявление:
var LastMode: Word;
Замечания:
Переменная
LastMode инициализируется при запуске программы для
определения предыдущего видеорежима.
Переменная TextAttr
Хранит текущие атрибуты текста.
Объявление:
var TextAttr: Byte := LigthGray;
Замечания:
Атрибуты текста обычно устанавливаются с помощью процедур
TextColor
и
TextBackGround.
Переменные WindMax и WindMin
Хранят координаты экрана текущего окна.
Объявление:
var WindMax: Word;
var WindMin: Word;
Замечания:
Эти переменные устанавливаются при вызове процедуры
Window.
WindMin определяет левый верхний угол.
WindMax
определяет правый нижний угол.
Координата
X записана в младшем байте, а координата
Y
записана в старшем байте.
Например, функция
Lo(WindMin) возвратит координату
X
левого края окна, а функция
Hi(WindMax) возвратит координату
Y
нижнего края.
Верхний левый угол экрана соответствует координатам
(X,Y) = (0,0),
но для значений, посылаемых процедурам
Window и
GotoXY,
верхний левый угол имеет координаты
(1,1).
