home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / PAS.ZIP / PASEXAMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-10  |  2.7 KB  |  75 lines
  1. {--------------------------------------------------------}
  2. {   PASEXAMP.PAS - Mouse functions and Microsoft Pascal  }
  3. {                                                        }
  4. {   Program enters graphics mode, displays default       }
  5. {   cursor, limits its range of motion, and quits when   }
  6. {   the left mouse button is pressed.                    }
  7. {                                                        }
  8. {   Make File:                                           }
  9. {                                                        }
  10. {       pasexamp.obj:   pasexamp.pas                     }
  11. {              pas1 pasexamp;                            }
  12. {              pas2                                      }
  13. {                                                        }
  14. {       pasexamp.exe:   pasexamp.obj subs.obj            }
  15. {              link pasexamp subs,,,..\mouse;            }
  16. {                                                        }
  17. {--------------------------------------------------------}
  18.  
  19. program mtest (output);
  20.  
  21. procedure mousel(vars m1, m2, m3, m4:word);extern;
  22. procedure chkdrv;extern;
  23. procedure graf;extern;
  24.  
  25. var
  26.   m1, m2, m3, m4: word;
  27.  
  28. begin {demo}
  29.  
  30.   chkdrv;               {check mouse driver, if not }
  31.                         {installed, Exit.           }
  32.   m1:=0;                {installed, initialize mouse}
  33.   mousel( m1, m2, m3, m4);
  34.   if ( m1 = 0 ) then
  35.      writeln('Microsoft Mouse NOT found')
  36.   else
  37.      begin
  38.  
  39.        m1 := 4;         {function call 4, set mouse }
  40.        m3 := 200;       {horizontal position        }
  41.        m4 := 100;       {vertical position          }
  42.        mousel( m1, m2, m3, m4 );
  43.  
  44.  
  45.        m1 := 7;         {function call 7, set mouse }
  46.        m3 := 150;       {minimum horizontal position}
  47.        m4 := 450;       {maximum horizontal position}
  48.        mousel( m1, m2, m3, m4 );
  49.  
  50.  
  51.        m1 := 8;         {function call 8, set mouse }
  52.        m3 := 50;        {minimum vertical position  }
  53.        m4 := 150;       {maximum vertical position  }
  54.        mousel( m1, m2, m3, m4 );
  55.  
  56.        graf;            {change into graphics mode  }
  57.  
  58.        writeln('Graphics cursor limited to center of the screen.');
  59.        writeln('Press the left mouse button to EXIT.');
  60.  
  61.        m1 := 1;         {function call 1            }
  62.        mousel( m1, m2, m3, m4 ); {show mouse cursor }
  63.  
  64.        m2 := 999;       {dummy value for loop       }
  65.        repeat           {until ....                 }
  66.          m1 := 3;       {function call 3            }
  67.          mousel( m1, m2, m3, m4 ); {get current mouse status }
  68.        until m2 := 1;   {left mouse button pressed  }
  69.  
  70.        m1 := 0;         {Reset mouse driver         }
  71.        mousel( m1, m2, m3, m4 );
  72.      end
  73.  
  74. end. {demo}
  75.