home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / tricks / hgcmouse.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  1.1 KB  |  55 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  HGCMOUSE.PAS                          *)
  3. (* Spezielle Initialisierung der Maus für den Grafikmodus *)
  4. (*       (C) 1989 Maximilian Mayr & TOOLBOX               *)
  5. (* ------------------------------------------------------ *)
  6. UNIT HGCMouse;
  7.  
  8. INTERFACE
  9.  
  10. USES Crt, Dos, Graph;
  11.  
  12.   PROCEDURE Init_Mouse;
  13.   PROCEDURE ShowMouse;
  14.   PROCEDURE HideMouse;
  15.   FUNCTION  Mouse_Status(VAR x, y : INTEGER) : INTEGER;
  16.  
  17. IMPLEMENTATION
  18.  
  19. CONST
  20.   mintr = 51;
  21.  
  22. VAR
  23.   Regs : Registers;
  24.  
  25.   PROCEDURE Init_Mouse;
  26.   BEGIN
  27.     Regs.ax := 0;
  28.     Intr(mintr, Regs);
  29.   END;
  30.  
  31.   PROCEDURE ShowMouse;
  32.   BEGIN
  33.     Regs.ax := 1;
  34.     Intr(mintr, Regs);
  35.   END;
  36.  
  37.   PROCEDURE HideMouse;
  38.   BEGIN
  39.     Regs.ax := 2;
  40.     Intr(mintr, Regs);
  41.   END;
  42.  
  43.   FUNCTION Mouse_Status(VAR x, y : INTEGER) : INTEGER;
  44.   BEGIN
  45.     Regs.ax := 3;
  46.     Intr(mintr, Regs);
  47.     x := Regs.cx;
  48.     y := Regs.dx;
  49.     Mouse_Status := Regs.bx;
  50.   END;
  51.  
  52. END.
  53. (* ------------------------------------------------------ *)
  54. (*              Ende von HGCMOUSE.PAS                     *)
  55.