У П Р А В Л Е Н И Е Ф О Р М О Й К У Р С О Р А

Курсор служит двум целям. Во-первых, он указывает позицию экрана, в которую программа должна производить вывод очередного символа. Во-вторых, он делает видимой на экране точку отсчета для пользователя. Только для второй цели курсор должен быть видимым. Тем не менее вне зависимости от того, видим он или невидим, курсор всегда указывает определенную позицию на экране. Это связано с тем, что операционная система в любом случае производит вывод на экран, начиная с текущей позиции курсора.

Программа может управлять формой курсора, вплоть до полного его отключения, с помощью функции 1 программного прерывания $10. Для этого требуется лишь загрузить в регистры CH и CL номера начальной и конечной линий курсора.

Курсор строится из тонких горизонтальных отрезков, верхний из которых называется начальной линией курсора, а нижний - его конечной линией. Размер курсора по вертикали не может превышать размер знакоместа, ширина курсора всегда равна ширине знакоместа. Начальная и конечная линии отсчитываются сверху вниз: 0 .. 7 или 0 .. 13.

В знакоместе 8 ´ 8 нормальный курсор занимает строки 7 и 8, в знакоместе 14 ´ 8 - строки 12 .. 14. Значение начальной строки, равное 32 ($20), отключает курсор, т.е. делает его невидимым. Мигание видимого курсора отключить нельзя, так как оно реализовано аппаратно.

Ниже приведена программа, иллюстрирующая управление курсором.

ProgramDemoCursor;

Uses Crt, Dos;

{ --------------------------------- }

Procedure WaitEnter;

Var ch : char;

Begin

Repeat

ch:=ReadKey;

Until ord(ch)=13;

End { WaitEnter };

{ --------------------------------- }

Procedure SetCursor(Cursor:word);

Var Reg : Registers;

Begin

WithReg do

Begin

AH:=1; { Номер функции }

BH:=0; { Номер страницы }

CH:=Hi(Cursor); { Начальная линия }

CL:=Lo(Cursor); { Конечная линия }

End;

Intr($10,Reg);

End{ SetCursor };

{ --------------------------------- }

Begin

SetCursor($0607); Writeln('Нормальный курсор');

WaitEnter;

SetCursor($0007); Writeln('Блок-курсор');

WaitEnter;

SetCursor($2000); Writeln('Отключенный курсор');

WaitEnter;

SetCursor($0707); Writeln('Тонкий курсор');

WaitEnter;

End.