home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / turbopas / pstui100.zip / PTUIMDEF.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-09  |  2KB  |  50 lines
  1. {
  2.  
  3.                                                       ╔══════════════════╗
  4.                                                       ║  Mouse Function  ║
  5.                                                       ║     Defines      ║
  6.                                                       ║    Rev.  1.00    ║
  7.                                                       ╚══════════════════╝
  8.  
  9. }
  10.  
  11. Unit PTUIMDef;
  12.  
  13. {$F+} {$O-} {$A+} {$G+}
  14. {$V-} {$B-} {$X-} {$N+} {$E+}
  15.  
  16. {$I FINAL.PAS}
  17.  
  18. {$IFDEF FINAL}
  19.   {$I-} {$R-}
  20.   {$D-} {$L-} {$S-}
  21. {$ENDIF}
  22.  
  23. Interface
  24.  
  25. Type
  26.   MouseProc_Init           = Procedure (Installed:Boolean);
  27.   MouseProc_Show           = Procedure;
  28.   MouseProc_Hide           = Procedure;
  29.   MouseProc_SetSpeed       = Procedure (Mousems:Byte);
  30.   MouseProc_SetXY          = Procedure (X,Y:Word);
  31.   MouseProc_SetBounds      = Procedure (X1,Y1,X2,Y2:Word);
  32.   MouseProc_GetPresses     = Procedure (Var X,Y:Word;Var Button:Byte;
  33.                                         Var Held:Boolean;Var NumTimes:Word);
  34.   MouseProc_GetXY          = Procedure (Var X,Y:Word);
  35.   MouseProc_GetStatus      = Procedure (Var X,Y:Word;
  36.                                         Var Left,Right,Middle:Boolean);
  37.   MouseProc_GetClick       = Procedure (Var X1, Y1, X2, Y2:Word;
  38.                                         Var MouseButton:Byte;
  39.                                         Var Held,Doubled:Boolean);
  40.  
  41. Var
  42.   ComputerSpeed :LongInt;
  43.   Active        :Boolean;
  44.  
  45. Implementation
  46.  
  47. End.
  48.  
  49. { Copyright 1993, Michael Gallias }
  50.