Fulcrum Software's

                                   Mouse Unit

                                   version 1

                          (c) 1995 by Nathan Ehresman



                               Writen for TP 7.0





                    Shareware --> $8 + $1 shipping & handling


     Fulcrum Software's Mouse Unit is an object oriented unit for TP7 that
easily incorporates mouse routines into your source code.  For version 1, you
_MUST BE IN TEXT MODE_!!  For ordering info read REGISTER.DOC.


                                     Types

PMouse
       A pointer to object type TMouse.

TMouse
       The object used for FSMouse;




                            Procedures and Functions


constructor TMouse.Init

         MUST be called before any other FSMouse routine.  Checks to see if a
   mouse driver is installed.  If not, then halts program execution.

procedure TMouse.HideMouse

         Hides the mouse cursor.  Should be called before any writing is done
   on the screen.

procedure TMouse.ShowMouse

         Shows the mouse cursor.  Must be called after a call to HideMouse to
   show the mouse cursor again.

function TMouse.GetNumberOfButtons : byte

         Returns the number of buttons on the mouse.

function TMouse.ButtonPressed : byte

         Returns 0 if no button pressed, otherwise returns 1 for left button,
   2 for right button and 3 for middle button.

function TMouse.GetX : word

         Returns X (horizontal) coordinates of mouse for 80x25 text mode.

function TMouse.GetY : word

         Returns Y (vertical) coordinates of mouse for 80x25 text mode.

destructor TMouse.Done

         Shuts down TMouse.





            *******************************************************

                            Benefits of Registering

            *******************************************************

           Registration is _only_ $8 + $1 (shipping and handling)!!!

Here is what you get :

  **  A procedure to position the mouse cursor anywhere on the screen.
  **  A procedure to define the vertical mouse cursor range.
  **  A procedure to define the horizontal mouse cursor range.
      (The last 2 are excellent for keeping the mouse within a certain range.
         Create a dialog box that keeps the mouse inside it's boudaries until
         the dialog box is finished, or customize it to whatever application
         your heart desires!!!)
  **  The satisfaction of supporting your shareware author.

    *** SEE REGISTER.DOC FOR INFO ON ORDERING AND CONTACTING THE AUTHOR ***