[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