[fpc-announce]New entry in Free Pascal Contributed units. (mouse.pas)

contribs at freepascal.org contribs at freepascal.org
Wed Feb 12 22:05:49 CET 2003


The following entry was added to the Free Pascal contributed units:

Name         : mouse.pas
Author       : Becheru Petru
Email        : vginistu at yahoo.com
Homepage     : http://
FTP site     : ftp://
Version      : 1
Date         : 2003-02-12
Category     : Graphics
Supported OS : dos
Description  :
this unit provides acces to all mouse functions
{-srool:i don't know how(*my documentation is old,but good :)*)}
procedure HardMsReset(	var ok	:boolean;
								var b		:word		);
procedure SoftMsreset(	var ok	:boolean;
								var b		:word		);
procedure ShowMs;
procedure HideMs;
procedure GetMsPosBut(
								var x,y			:word;
								var lb,rb,cb	:boolean);
procedure PutMs(x,y:word);
procedure SetMsShape(s:string);
procedure GetBtDown(
									b		:buton;
							var	n,x,y	:word);
procedure GetBtReleased(
									b		:buton;
							var	n,x,y	:word);
procedure SetMsHorizRange(xmin,xmax	:word);
procedure SetMsVertRange(ymin,ymax	:word);
procedure GetMsDist(
								var x,y	:integer);
procedure SetMsExclutionArea(x1,y1,x2,y2	:word);
procedure SetMsSens(x,y,d	:word);
procedure GetMsSens(x,y,d	:word);
procedure SetMsActivPg(p	:word);
function  GetMsActivPg:word;
procedure DeactivateMsDriver;
procedure ActivateMsDriver;




More information about the fpc-announce mailing list