^—————_——___;

Procedure GetStepToPixel(var Hor,Ver: Integer);

{Возвращает чувствительность мыши} begin

if IsMouse then with Reg do begin

Hor := HorRat;

Ver := VerRat end

end; IGetStepToPixel} /—————————————_--^

Procedure SetDoubleSpeed(Speed: Word);

{Устанавливает порог удвоения скорости перемещения указателя} begin

if IsMouse then with Reg do begin

ax :° $13;

dx := Speed;

Speed.2 := Speed;

Intr($33,Reg) ;

end

end; ISetDoubleSpped.} _————————————.——;

Function GetDoubleSpeed: Word;

(Возвращает порог удвоения скорости} begin

GetDoubleSpeed := Speed2 end; {GetDoubleSpped} ^_————————————————————__———_____+

I Координаты I +__——_———_————.———_————___——___—+;

Function MouseTextCooX(X: Integer): Byte;

{Возвращает текстовую координату по заданной виртуальной} begin

MouseTextCooX := X div TextRatioX+1 end; {MouseTextCooX} /———————————————;

Function MouseTextCooY(У: Integer): Byte;

{Возвращает текстовую координату по заданной виртуальной} begin

MouseTextCooY :° У div TextRatioY+1 end; {MouseTextCooY} ^_——————————————;

Function MouseGraphCooX(X: Byte): Integer;

{Возвращает виртуальную координату по заданной текстовой} begin

MouseGraphCooX :° (X-1)*TextRatioX end; {MouseGraphCooX} ^___— _—————————_—_

Function MouseGraphCooY(Y: Byte): Integer;

{Возвращает виртуальную координату по заданной текстовой} begin

MouseGraphCooY := (У-1)*TextRatioY end; {MouseGraphCooY} ^———————————————_

Procedure MouseWhereXY(var X,Y: Integer);

/'Возвращает виртуальные координаты мыши) begin

if IsMouse then with Reg do