La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1463 - MOUSE EN MODO TEXTO
Autor:  Pepo Ramzez
Alguién me puede ayudar, necesito me digan como habilitar el mouse en modo texto de Pascal, pero sin utilizar lenguaje ensamblador, para manejar menús.. gracias

  Respuesta:  Martin flores
la interrupcion es $33; primero tiene que llamar a algunos servicios antes , ahi te va el codigo
R es una variable de tipo regsiters (ax,dx,bx,cx,es,falgs ect)

r.ax:=$0000;{reseteo el driver del mouse}
intr($33,r);{llamo la interrupcion , con el proceimiento intr y le tengo que}
{le tengoq ue pasar los registros por medio de R}

r.ax:=$0001;{ e aqui la gracias show the mouse, muestro el mouse}
intr($33,r); {llamo nuevamente la interrupcion}
(*-----------------------------------------------------------------------*)
r.ax:=$0003;{ este servicio devuelve en bx=estado (1=click) cx=culumna y
dx=fila , esta matris va de 8 en 8 }
intr($33,r);

saludos

  Respuesta:  J RC
Lo mejor para esto es que consigas la Guía de Referencia del programador del ratón de Microsoft y un disco que la acompaña, que contiene una librería llamada MOUSE.LIB con 30 funciones básicas para el manejo del ratón. Algunas de estas funciones son la 0 (inicializar ratón), la 1 (visualizar el cursor), la 2 (lo borra), la 3 que lee el estado de los botones y la posición, etc. Enlazando estas funciones puedes crearte una unidad de alto nivel para manejar el ratón.