He aqui una lista de las funciones y procedimientos mas interesantes de la unidad mouse.tpu
function initmouse:word - inicializa el mouse
function mouseavail:byte - verifica que el mouse este disponible
function detectmouse:boolean - verifica si el mouse esta conectado al puerto
procedure detectarmouse - verifica que el mouse esta conectado mandando un mensaje si no lo esta (el mensaje lo manda en modo texto)
procedure activarmouse - prende el puntero del mouse
procedure desactivarmouse - apaga el puntero del mouse
procedure getmouse(var knoppen, x , y:word) - devuelve la posicion del mouse, donde x son las columnas y y las filas
procedure setmouse(x,y:word) - Coloca el puntero del mouse en las columna (x) y fila (y) especificada
function mousepresion - devuelve verdadero si cualquier boton del mouse fuepresionaod
function getbutton(button:byte):buttonstate - el parametro button especifica el numero de boton (1) izquierdo, (2) derecho, buttondown significa presionado, el formato es "if getbutton(1)=buttondown then"
function mousein(c1,f1,c2,f2:word):boolean - devuelve verdadero si el puntero del mouse esta dentro de la caja que forman las coordenadas c1,f1,c2,f2 (c1,f1 :columna y fila de inicio, c2,f2: columna y fila de fin).
procedure mousebox(left,top,right,bottom:word) - crea una caja imaginaria dentro de la cual el mouse se podra mover pero no salir, para borrar es caja usa resetmouse
Como dice el autor de esta unidad la mejor forma de dominarla es practicando y usar cada uno de los procedimientos y funciones para saber como funcionan.
