Procedure mhide;

{Процедура, которая «прячет» курсор}

procedure mpos(var mouse: locrec);

{Данную процедуру необходимо крутить в цикле, тогда данные, возвращаемые в структуре locrec, будут сообщать текущее состояние мыши}

 

procedure mmoveto(col, row: integer);

{Процедура, перемещающая курсор мыши в заданные координаты}

 

procedure mpressed(button: integer; var mouse: locrec);

{Процедура, которая отслеживает событие нажатия на клавишу, передаваемую в button: 0-левая клавиша мыши, 1-правая клавиша мыши. В структуре locrec возвращается buttonstatus – нажатая клавиша во время срабатывания события. Факт срабатывания события можно определить по значению в opcount: 1-событие сработало, 0-событие не сработало}

procedure mreleased(button: integer; var mouse: locrec);

{Процедура, аналогичная mpressed. Событие срабатывает в том случае, когда клавиша мыши отпущена}

procedure mcolrange(min, max: integer);

{Устанавливает минимальные и максимальные границы для перемещения курсора мыши, т.е. если вызвали процедуру mcolrange с фактическими параметрами 10 и 50: mcolrange(10, 50), то движение курсора будет ограничено следующим образом по координате x: 10<=mx<=50}

procedure mrowrange(min, max:integer);

{Процедура, подобная mcolrange, но ограничения устанавливаются по y}

{Остальные процедуры в рамках данной лабораторной работы рассматриваться не будут}

procedure mgraphcursor(hhot, vhot: integer; maskseg, maskofs: word);

procedure mtextcursor(ctype, p1, p2: word);

procedure mmotion(var moved: moverec);

procedure minsttask(mask, taskseg, taskofs: word);

procedure mlpenon;

procedure mlpenoff;

procedure mratio(horiz, vert: integer);

 

implementation

…

Примечание. Процедуры mpos, mpressed, mreleased обычно используют в цикле, где проверяют состояние мыши. Там же программист задает реакцию (необходимые действия) на происходящие события.