Pascal/Turbo Pascal - usar mouse, free pascal

   
Vista:

usar mouse, free pascal

Publicado por franco sanguedolce (32 intervenciones) el 08/05/2013 16:46:51
Hola amigos, queria saber si me.pueden facilitar algun tipo de info sobre las rutinas de la libreria mouse de free pascal, o algun codigo fuente con comentarios sobre esas rutinas, de antemano gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

usar mouse, free pascal

Publicado por ramon (2072 intervenciones) el 03/06/2013 19:25:54
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{A qui tienes un ejemplo para free pascal 2.6 funcionando bien free pascal dispone de la unidad
mouse}
 
program pruemous;
 
uses
    crt, mouse;
 var
   x, y : word;
   pres : byte;
   estado : tmouseevent;
  begin
     clrscr;
     initmouse;
     pres := detectmouse;
     if pres = 0 then
     writeln(';;;;; Mouse No Presente :::::')
   else
      begin
         x := getmousex;
         y := getmousey;
         gotoxy(10,2);write('Posicion x : ',x);
         gotoxy(30,2);write('Posicion y : ',y);
         gotoxy(2,47);write('**** Salir Pulse Boton Gerecho *****');
 
       repeat
            if (x <> getmousex) or (y <> getmousey) then
            begin
               gotoxy(10,2);clreol;
               x := getmousex;
               y := getmousey;
               gotoxy(10,2);write('Posicion x : ',x);
               gotoxy(30,2);write('Posicion y : ',y);
            end;
            getmouseevent(estado);
       until (estado.buttons = mouserightbutton) or (keypressed);
      end;
        donemouse;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar