Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!sdd.hp.com!samsung!noose.ecn.purdue.edu!mentor.cc.purdue.edu!j.cc.purdue.edu!brazil.psych.purdue.edu!zhou
From: zhou@brazil.psych.purdue.edu (Albert Zhou)
Newsgroups: comp.lang.pascal
Subject: Re: Mouse in TP5 (Have a Unit, need help)
Message-ID: <11491@j.cc.purdue.edu>
Date: 16 Nov 90 22:57:32 GMT
References: <1990Nov16.021545.5797@cs.odu.edu>
Sender: news@j.cc.purdue.edu
Reply-To: zhou@brazil.psych.purdue.edu (Albert Zhou)
Organization: Purdue University
Lines: 17

Try to reset the mouse boundary. Here is the code:
	Procedure SetMouseBoundary(x1,y1,x2,y2);
	var  Reg: Registers;
        begin
             Reg.AX := 7;
	     Reg.CX := x1;
	     Reg.DX := x2;
	     Intr($33, Reg);
	     Reg.AX := 8;
	     Reg.CX := y1;
	     Reg.DX := y2;
	     Intr($33, Reg);
	end;
Make sure you set the boundary to the full range of VGA if you want to use the
full screen.