KURSOV~1 / DMOUSE

unit DMouse;

interface

uses Crt, Dos;

var r:registers;
x, y, z:word;

function MousePosX:word;
function MousePosY:word;
function Click:boolean;
procedure SetMousePos(x, y:word);
procedure MouseShow(sh:word);
procedure CursorOff;
procedure CursorOn;

implementation

{Poluchenie tekuschih koordinaty mishi po X}
function MousePosX:word;
begin
asm
mov ax,3
int 33h
mov x,cx
end;
MousePosX:=X;
end;

{Poluchenie tekuschih koordinaty mishi po Y}
function MousePosY:word;
begin
asm
mov ax,3
int 33h
mov y,dx
end;
MousePosY:=Y;
end;

{Proverka na nalichie Klika myshkoy}
function Click:boolean;
begin
asm
mov ax,3
int 33h
mov z,bx
end;
if Z=0 then Click:=False
else Click:=True;
end;

{Ustanovka mishi v nujnoe mesto}
{Ne ispolzuetsy no pust budet}
procedure SetMousePos(x, y:word);
begin
x:=x*8-1;
y:=y*8-1;
asm
mov ax,4
mov cx,x
mov dx,y
int 33h
end;
end;

{Pokaz Mishki}
{SH:1-pokazat 2-spryatat}
procedure MouseShow(sh:word);assembler;
asm
mov ax,sh
int 33h
end;

{Ћ’Љ‹ћ—€’њ Љ“ђ‘Ћђ *****************************************************}
procedure CursorOff;assembler;
asm
mov ah,1
mov ch,20h
mov cl,0
int 10h
end;

{‚Љ‹ћ—€’њ Љ“ђ‘Ћђ ******************************************************}
procedure CursorOn;assembler;
asm
mov ah,1
mov ch,6
mov cl,7
int 10h
end;


end.