home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 18 / CD_ASCQ_18_111294_W.iso / dos / prg / pas / gfxfx / mousetst.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-20  |  1KB  |  47 lines
  1.  
  2. program mousetest;
  3. { Test program for mouseunit, by Bas van Gaalen, Holland, PD }
  4. uses crt,video,mouse;
  5.  
  6. function hex(value : word) : string;
  7. const hexchars : array[0..15] of char = '0123456789abcdef';
  8. begin
  9.   hex := hexchars[value shr 4]+hexchars[value and 15];
  10. end;
  11.  
  12. begin
  13.   resetmouse;
  14.   if driverinstalled then begin
  15.     filltext(' ',0,0,25,20,7);
  16.     cursoroff;
  17.     showmouse;
  18.     getmouseversion;
  19.     gotoxy(1,5);
  20.     writeln('version : ',hex(verhi),'.',hex(verlo));
  21.     writeln('type    : ',mtypes[mousetype]);
  22.     writeln('buttons : ',buttons);
  23.  
  24.     {mousewindow(10,10,70,40);}
  25.  
  26.     repeat
  27.       gotoxy(1,10);
  28.       write('x : ',getmousex:2,'    y : ',getmousey:2,#13);
  29.  
  30.       gotoxy(1,11);
  31.       if leftpressed then begin
  32.         write('left');
  33.         dspat(getstratcursor,0,13,7);
  34.  
  35.       end else write('    ');
  36.  
  37.       gotoxy(1,12);
  38.       if rightpressed then write('right') else write('     ');
  39.  
  40.     until keypressed;
  41.  
  42.     hidemouse;
  43.     cursoron;
  44.  
  45.   end else writeln('no mousedriver installed!');
  46. end.
  47.