home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mouse / mousetp / turbo4_5 / mousebox.doc next >
Encoding:
Text File  |  1993-07-29  |  5.8 KB  |  141 lines
  1. {──────────────────────────────}
  2. {      Documentation File      }
  3. {                              }
  4. {    Mousebox,  Version 1.2    }
  5. {    Copyright (c) 1988, 89    }
  6. {             by               }
  7. {                              }
  8. {         Ralf Krause          }
  9. {                              }
  10. {    Leuchtenberger Str. 7a    }
  11. {   D-8480 Weiden i. d. Opf.   }
  12. {──────────────────────────────}
  13.  
  14. {$D-}    { Debug information off }
  15. {$S-}    { Stack checking    off }
  16. {$I-}    { I/O checking      off }
  17. {$F+}    { Force far calls   on  }
  18.  
  19. UNIT Mousebox;
  20.  
  21. INTERFACE
  22.  
  23. USES Dos;
  24.  
  25.  
  26. TYPE
  27.   MouseCursor    = RECORD
  28.                      ScreenMask,
  29.                      CursorMask  : ARRAY[0..15] OF WORD;
  30.                      XHotSpot,
  31.                      YHotSpot    : WORD;
  32.                    END;
  33.  
  34.   TextCursorType = RECORD
  35.                      HardWareCursor : BOOLEAN;
  36.                      ScreenMask,
  37.                      CursorMask     : WORD;
  38.                    END;
  39.  
  40. CONST
  41.   MouseIntr = $33;      { Mouse-Interrupt }
  42.  
  43.   Clock : MouseCursor = (ScreenMask : ($0000,$0000,$0000,$0000,
  44.                                        $8001,$C003,$E007,$F00F,
  45.                                        $E007,$C003,$8001,$0000,
  46.                                        $0000,$0000,$0000,$FFFF);
  47.                          CursorMask : ($0000,$7FFE,$6006,$300C,
  48.                                        $1818,$0C30,$0660,$1FF0,
  49.                                        $0660,$0C30,$1818,$300C,
  50.                                        $6006,$7FFE,$0000,$0000);
  51.                          XHotSpot   :  7;
  52.                          YHotSpot   :  7);
  53.  
  54.   Arrow : MouseCursor = (ScreenMask : ($3FFF,$1FFF,$0FFF,$07FF,
  55.                                        $03FF,$01FF,$00FF,$007F,
  56.                                        $003F,$001F,$00FF,$10FF,
  57.                                        $30FF,$F87F,$F87F,$FC3F);
  58.                          CursorMask : ($0000,$4000,$6000,$7000,
  59.                                        $7800,$7C00,$7E00,$7F00,
  60.                                        $7F80,$7FC0,$7C00,$4600,
  61.                                        $0600,$0300,$0300,$0180);
  62.                          XHotSpot   :  7;
  63.                          YHotSpot   :  7);
  64.  
  65.   Hand : MouseCursor = (ScreenMask : ($F3FF,$E1FF,$E1FF,$E1FF,
  66.                                       $E1FF,$E001,$E000,$E000,
  67.                                       $0000,$0000,$0000,$0000,
  68.                                       $0000,$0000,$0000,$0000);
  69.                         CursorMask : ($0C00,$1200,$1200,$1200,
  70.                                       $1200,$13B6,$1249,$1249,
  71.                                       $7249,$9249,$9249,$9249,
  72.                                       $8001,$8001,$8001,$FFFF);
  73.                         XHotSpot   :  7;
  74.                         YHotSpot   :  7);
  75.  
  76.   Plus : MouseCursor = (ScreenMask : ($FC3F,$FC3F,$FC3F,$0000,
  77.                                       $0000,$0000,$FC3F,$FC3F,
  78.                                       $FC3F,$FFFF,$FFFF,$FFFF,
  79.                                       $FFFF,$FFFF,$FFFF,$FFFF);
  80.                         CursorMask : ($0000,$0180,$0180,$0180,
  81.                                       $7FFE,$0180,$0180,$0180,
  82.                                       $0000,$0000,$0000,$0000,
  83.                                       $0000,$0000,$0000,$0000);
  84.                         XHotSpot   :  7;
  85.                         YHotSpot   :  7);
  86.  
  87.   UpArrow : MouseCursor = (ScreenMask : ($F9FF,$F0FF,$E07F,$E07F,
  88.                                          $C03F,$C03F,$801F,$801F,
  89.                                          $000F,$000F,$F0FF,$F0FF,
  90.                                          $F0FF,$F0FF,$F0FF,$F0FF);
  91.                            CursorMask : ($0000,$0600,$0F00,$0F00,
  92.                                          $1F80,$1F80,$3FC0,$3FC0,
  93.                                          $7FE0,$0600,$0600,$0600,
  94.                                          $0600,$0600,$0600,$0000);
  95.                            XHotSpot   :  7;
  96.                            YHotSpot   :  7);
  97.  
  98.   SmallArrow : MouseCursor = (ScreenMask : ($FFFF,$FFFF,$FFFF,$FFFF,
  99.                                             $FFFF,$FFFF,$FFFF,$FFFF,
  100.                                             $FFFF,$FFFF,$FFFF,$FFFF,
  101.                                             $FFFF,$FFFF,$FFFF,$FFFF);
  102.                               CursorMask : ($4000,$7000,$7C00,$7F00,
  103.                                             $6C00,$0600,$0300,$0180,
  104.                                             $0000,$0000,$0000,$0000,
  105.                                             $0000,$0000,$0000,$0000);
  106.                               XHotSpot   :  7;
  107.                               YHotSpot   :  7);
  108.  
  109.  
  110.   FUNCTION InitMouse : BOOLEAN;
  111.   PROCEDURE ResetMouse;
  112.   PROCEDURE ShowCursor;
  113.   PROCEDURE HideCursor;
  114.   FUNCTION GetXPosition : WORD;
  115.   FUNCTION GetYPosition : WORD;
  116.   FUNCTION GetXTextPosition : WORD;
  117.   FUNCTION GetYTextPosition : WORD;
  118.   FUNCTION LeftButton : BOOLEAN;
  119.   FUNCTION RightButton : BOOLEAN;
  120.   FUNCTION MiddleButton : BOOLEAN;
  121.   FUNCTION MouseMoved  : BOOLEAN;
  122.   FUNCTION MouseLeftMoved : BOOLEAN;
  123.   FUNCTION MouseRightMoved  : BOOLEAN;
  124.   FUNCTION MouseUpMoved : BOOLEAN;
  125.   FUNCTION MouseDownMoved : BOOLEAN;
  126.   FUNCTION LeftButtonPressed : WORD;
  127.   FUNCTION RightButtonPressed : WORD;
  128.   FUNCTION MiddleButtonPressed : WORD;
  129.   FUNCTION LeftButtonReleased : WORD;
  130.   FUNCTION RightButtonReleased : WORD;
  131.   FUNCTION MiddleButtonReleased : WORD;
  132.   PROCEDURE SetXYMouse(VAR x, y : WORD);
  133.   PROCEDURE SetXRange(VAR XMin, XMax : WORD);
  134.   PROCEDURE SetYRange(VAR YMin, YMax : WORD);
  135.   PROCEDURE SetGraphicCursor(VAR GraphicCursor : MouseCursor);
  136.   PROCEDURE SetTextCursor(VAR TextCursor : TextCursorType);
  137.   FUNCTION GetXMickey : WORD;
  138.   FUNCTION GetYMickey : WORD;
  139.   PROCEDURE SetXYMickey(VAR XMickey, YMickey : WORD);
  140.   PROCEDURE SetMouseSpeed(VAR MouseSpeed : WORD);
  141.