[comp.lang.pascal] Mouse in TP5

simmons@cs.odu.edu (Gregory S. Simmons) (11/16/90)

About 1 year ago I put together some great mouse routines for TP5.
They worked great except for 1 item that is.  They would not work 
well when I put my screen into VGA mode.  CGA/EGA they worked great,
but in VGA mode they would work such that the mouse pointer wouldn't
go beyound the 350 pixel on the screen (may have been only the 200, I
forget), and after a few seconds of moving the mouse around screen
the entire system would lock up (Go figure).  ANYway, has anyone had
experience in dealing with mouses and VGA mode?  Perhaps someone could
point out a consideration I forgot to take into consideration.

Greg Simmons
     simmons@xanth.cs.odu.edu

zhou@brazil.psych.purdue.edu (Albert Zhou) (11/17/90)

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.