**********************************************************
*                                                        *
*Nacional Avalon 2000 ----- Programa de JRenton          *
*                Mouse.Tpu                               * 
*            Lista de Comandos                           *
**********************************************************

function initmouse:word;
function mouseavail: BYTE;
procedure resetmouse;
procedure iniciarmouse;
procedure activarmouse;
procedure desactivarmouse;
procedure getmouse (VAR knoppen, X, Y: WORD);
procedure setmouse (X, Y: WORD);
procedure setmousex (min, max: WORD);
procedure setmousey (min, max: WORD);
procedure grafischecursor (cursor: cursorray);
procedure setcursor (ctype, startlijn, eindlijn: WORD);
procedure mousespeed (vx,vy: INTEGER);
procedure mousesense (sensex, sensey: INTEGER);
procedure getmousesense (VAR horiz, vert, double: WORD);
procedure setmousesense (VAR horiz, vert, double: WORD);
PROCEDURE GetButtonPressInfo (VAR X, Y, Button, NumberOfPresses : WORD);
PROCEDURE GetButtonRelInfo (VAR X, Y, Button, NumberOfReleases : WORD);
procedure mouseBox(left,top,right,bottom : word);
function mousemove : direction;
procedure defineSensivilidad(x,y : word);
procedure defineDoblerapides(treshHold : word);
procedure disableTreshHold;
procedure defaultTreshHold;
procedure defineDoubleSpeedTreshHold(treshHold : word);
function mousein(c1,f1,c2,f2:integer):boolean;
function getButton(Button : Byte) : buttonState;
function DetectMouse : Boolean;
Procedure detectarmouse;
FUNCTION MousePresion : BOOLEAN;

{*** Diferentes tipos de Cursores ***}
procedure flecha;
procedure setWatchCursor;
Procedure setUpArrowCursor;
procedure setLeftArrowCursor;
procedure setCheckMarkCursor;
Procedure mano;
procedure setDiagonalCrossCursor;
procedure setRectangularCrossCursor;
procedure reloj_arena;
procedure setNewWatchCursor;

**********************************************************
Recuarda que debes tener MOUSE.TPU 
y colocar en el cdigo de tu Programa

	Uses crt,dos,mouse;

Si deseas los Cdigos fuentes de MOUSE.TPU y TUTOR.EXE
Mandame un Email a J_Renton@Latinmail.com 
y te prometo que los embio 
**********************************************************
