334 Приложение

Is := bx<>$FFFF end;

MousePresent := Is end;

IsMouse := MousePresent end; {IsMouse} ^———————_———————;

Function InitMouse: Boolean;

(Инициация ыьшшл} begin

with Reg do begin

ax := 0;

Intr($33,Reg) ;

MousePresent := ax=$FFFF;

NButton :" bx end;

ClearMouseItems;

SetMousePage(0) ;

HideMouse;

MouseScreen end; {InitMouse} ^———————————————;

Procedure SetMousePage(Page: Byte);

{Устанавливает страницу для указателя мыши} begin

with Reg do begin

ax := $1D;

Ы := Page;

bh := 0;

Intr($33,Reg) end end; {SetMousePage} ^___— — ————————„-.—}

Function GetMousePage: Byte;

{Возвращает номер страницы с указателем} begin

with Reg do begin

ax :~ $1E;

Intr($33,Reg) ;

GetMousePage := Ы end end; (GetMousePage} ^———^———————————;

Procedure SetStepToPixel(Hor,Ver: Integer);

{Ус та на влив ает чувствительность мыши} begin

if IsMouse then with Reg do begin

ax := $OF;

ex := Hor and $7FFF;

dx := Ver and $7FFF;

HorRat := ex;

VerRat := dx;

Intr($33,Reg) end end; (SetStepToPixel}