4.2.2. Инициация мыши
Функция IsMouse. Возвращает True, если программе доступна мышь. Заголовок:
Function IsMouse: Boolean;
Для проверки доступности мыши функция контролирует вектор прерывания $33 — он не должен быть нулевым. Затем она обращается к функции 3 драйвера (дать статус мыши) и контролирует изменение регистра ВХ. Замечу, что эти проверки осуществляются только в том случае, когда внутренняя переменная NButton, содержащая количество кнопок мыши, равна нулю. Если мышь оснащена двумя или тремя кнопками, в эту переменную помещается нужное число после первого же обращения к функции InitM.ov.se.
Функция InitMouse. Осуществляет сброс драйвера мыши. Заголовок:
Function InitMouse: Boolean;
После вызова этой функции указатель гасится и устанавливается в центр экрана, он приобретает стандартную форму, границы перемещения указателя расширяются на весь экран, для его отображения в текстовом режиме выбирается видеостраница 0 (основная). Если к этому моменту были определены элементы выбора, они сбрасываются.
Функция возвращает True после успешного вызова и False, если отсутствует драйвер мыши или к мыши нет физического доступа. Вызов функции должен предшествовать началу работы с мышью.
Процедура SetMousePaqe. Устанавливает видеостраницу, в которой будет отображаться указатель мыши. Заголовок:
Procedure SetMousePage(Page: Byte).
Здесь Page — номер устанавливаемой страницы (нумерация страниц начинается с нуля).
Заметим, что при смене видеостраниц с помощью прерывания $10 драйвер мыши автоматически меняет страницу отображения, поэтому надобности в этой процедуре обычно не возникает.
Функция GetMousePaqe. Возвращает номер видеостраницы с указателем мыши. Заголовок:
Function GetMousePage: Byte.
Процедура SetStepToPixel. Устанавливает чувствительность мыши. Заголовок:
Procedure SetStepToPixel(Ног,Ver: Integer).
Здесь Ног — чувствительность по горизонтали, Ver — чувствительность по вертикали.
Чувствительность определяется как количество сотых долей дюйма (0,254 мм) перемещения мыши, приходящихся на каждый пиксел экрана. По умолчанию чувствительность соответствует 8 единицам по каждой оси (2,032 мм). Чем большее значение имеют параметры Ног и Ver, тем на меньшее расстояние переместится указатель при одном и том же смещении мыши.
Процедура GetStepToPixel. Возвращает текущую чувствительность мыши. Заголовок:
Procedure GetStepToPixel(var Ног,Ver: Integer);
После обращения к процедуре переменные Ног и Ver будут иметь значения, соответствующие сотым долям дюйма на каждый пиксел экрана.
