PASCAL ABC. Модуль CRT

PASCAL ABC.

Модуль CRT

Модуль CRT предназначен для работы с текстовым окном. Он написан для совместимости с Turbo Pascal. В качестве текстового используется графическое окно модуля GraphABC, при этом запрещено изменение размеров окна и ввод/вывод осуществляется непосредственно в текстовом окне. В результате вывода может осуществляться скроллирование текстового экрана.

Подключив модули CRT и GraphABC одновременно, можно совмещать вывод текста и графики. При этом, однако, запрещено изменение размеров окна, рекомендуется также перед графическим выводом отключать курсор. Наконец, совместное использование модулей CRT и Events не рекомендуется.
 

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 задает красный цвет символов на желтом фоне.
 

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);

Ничего не делает. Оставлена для совместимости.