Модуль crt
Модуль CRT предназначен для работы с текстовым окном. Он написан для совместимости с Turbo Pascal. В качестве текстового используется графическое окно модуля GraphABC, при этом запрещено изменение размеров окна и ввод/вывод осуществляется непосредственно в текстовом окне. В результате вывода может осуществляться скроллирование текстового экрана.
Подключив модули CRT и GraphABC одновременно, можно совмещать вывод текста и графики. При этом, однако, запрещено изменение размеров окна, рекомендуется также перед графическим выводом отключать курсор. Наконец, совместное использование модулей CRT и Events не рекомендуется.
|
Константы и переменные модуля CRT |
const 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;
Цветовые константы. Используются для задания цвета символов и цвета фона в процедурах TextColor и TextBackGround и при присваивании переменной TextAttr.
var TextAttr: byte;
Задает цвет символов и цвет фона одновременно. Первые 4 бита отводятся под цвет фона, последние 4 бита - под цвет символов.
Например, присваивание TextAttr:=16*Yellow+Red задает красный цвет символов на желтом фоне.
|
Процедуры и функции модуля CRT |
function ReadKey: char;
Читает символ из буфера клавиатуры.
function KeyPressed: boolean;
Определяет, была ли нажата клавиша.
procedure GotoXY(x,y: integer);
Перемещает курсор в позицию (x,y).
function WhereX: integer;
Возвращает x-координату текущего положения курсора.
function WhereY: integer;
Возвращает y-координату текущего положения курсора.
procedure ClrScr;
Очищает цветом фона все текстовое окно или текущее окно, установленное процедурой window. Устанавливает курсор в левый верхний угол очищенного окна.
procedure Window(x1,y1,x2,y2: integer);
Определяет на экране текущее окно. Устанавливает курсор в левый верхний угол текущего окна
procedure ClrEol;
Очищает все символы с позиции курсора до конца строки без перемещения курсора.
procedure DelLine;
Удаляет строку, содержащую курсор.
procedure InsLine;
Вставляет пустую строку в позиции курсора.
procedure Delay(ms: integer);
Осуществляет задержку на ms миллисекунд.
procedure TextColor(c: byte);
Устанавливает цвет символов.
procedure TextBackGround(c: byte);
Устанавливает цвет фона.
procedure LowVideo;
Включает низкую интенсивность символов.
procedure HighVideo;
Включает высокую интенсивность символов.
procedure HideCursor;
Скрывает текстовый курсор.
procedure ShowCursor;
Делает текстовый курсор видимым.
procedure CRTWindowSize(w,h: integer);
Устанавливает размер текстового окна в символах.
procedure TextSize(sz: integer);
Устанавливает размер символов в пунктах (по умолчанию 10 пунктов).
procedure TextNormal;
Устанавливает нормальный стиль символов.
procedure TextBold;
Устанавливает жирный стиль символов.
procedure ScrollingOff;
Отключает прокрутку при выводе.
procedure ScrollingOff;
Включает прокрутку при выводе.
procedure AssignCRT;
Ничего не делает. Оставлена для совместимости.
procedure Sound(hz: integer);
Ничего не делает. Оставлена для совместимости.
procedure NoSound;
Ничего не делает. Оставлена для совместимости.
procedure TextMode(i: integer);
Ничего не делает. Оставлена для совместимости.