DMouse Unit

Joao Paulo Schwarz Schuler

                             unit DMOUSE;
{ Joao Paulo Schwarz Schuler }

                              INTERFACE
                 USES crt,DOS;
procedure MSENSIBILITY(S:INTEGER);
{ ajust mouse sensibility }

procedure MSETPOS(X,Y:INTEGER);
{ set mouse position}

procedure MSTATUS(VAR X,Y,TECL:INTEGER);
{ get position X,Y and mouse keys in TECL }

procedure MCURSORON;
{ display mouse cursor }

procedure MCURSOROFF;
{ hide mouse cursor }


                               IMPLEMENTATION

PROCEDURE MSENSIBILITY(S:INTEGER);
VAR R:REGISTERS;
BEGIN
R.AX:=15;
R.CX:=1*S;
R.DX:=2*S;
INTR(51,R);
END;


PROCEDURE MSETPOS(X,Y:INTEGER);
VAR R:REGISTERS;
BEGIN
R.AX:=4;
R.CX:=X;
R.DX:=Y;
INTR(51,R);
END;


PROCEDURE MSTATUS(VAR X,Y,TECL:INTEGER);
VAR R:REGISTERS;
BEGIN
R.AX:=3;
INTR(51,R);
X:=R.CX;
Y:=R.DX;
TECL:=R.BX;
END;


PROCEDURE MCURSORON;
VAR R:REGISTERS;

BEGIN
R.AX:=1;
INTR(51,R);
END;

PROCEDURE MCURSOROFF;
VAR R:REGISTERS;

BEGIN
R.AX:=2;
INTR(51,R);
END;



end.

Return to the Home Page

Return to the Fontes em Pascal Page