TEXTBACKGROUND(I);CLRSCR END; Если вы хотите установить текстовое окно и закрашивать его в различны цвета, то это можно сделать, обратившись к процедуре WINDOW: WIND0W(X1, Y1, Х2, Y2); FOR I:= 1 ТО 15 DO BEGIN TEXTBACKGROUND(I); CLRSCR END; где XI, Yl - координаты верхнего левого угла окна, Х2, Y2 - нижнего правого. Сразу после вызова процедуры WINDOW курсор помещается в его левый верхний угол, а само окно заполняется цветом фона. Обратите внимание, что обращение к процедуре WINDOW игнорируется, если какая-либо из координат выходит за границу экрана или нарушается условие (Х2 > XI) AND (Y2 > Yl). В модуле CRT дополнительные возможности по управлению клавиатурой реализуются функциями READKEY и KEYPRESSED. Функция READKEY возвращает значение типа CHAR, которое извлекается из буфера клавиатуры в виде кода символа. Если буфер пуст, то функция будет ждать нажатия на любую клавишу. Обратите внимание: эта функция не отображает вводимые символы на экране. Следует помнить, что при использовании READKEY в буфер помещается расширенный код, т. е. для любой алфавитно-цифровой клавиши он соответствует коду вводимого символа, а при использовании функциональных клавиш <F1>, <F2>, <F10> и <Ins> генерируется двухбайтовая последовательность из #0 и кода клавиши. Кроме того, функция игнорирует нажатие <Shift>, <Ctrl>, <Alt>, <CapsLock>, <NumLock>, <ScrollLock>, <F11> и <F12>, воспринимая их только в комбинации с чем-нибудь еще. Функция KEYPRESSED возвращает значение TRUE, если буфер клавиатуры не пуст, и FALSE - в противном случае. Например, для вывода всего буфера (до 16 символов) на экран можно использовать следующую программу:
|
