Скачать Includable Mouse Library for TP4+

PROGRAM MouseDemo;
  {$M 16384,10000,20000 }
  uses crt, graph, dos;
  {$I global.ini }
  {$I goodies.ini }
  {$I mouse.ini }
TYPE
  poly = RECORD
           count : word;
           min_x : word;
           min_y : word;
           max_x : word;
           max_y : word;
           hot_x : word;
           hot_y : word;
           points : ARRAY[1..8] OF point;
         END;
 
CONST
  pencil : mouse_graphics_cursor = (
    hot_x : 5;
    hot_y : $FFFF;
    cursor_mask : (
      $F7FF,                  {1111011111111111}
      $E3FF,                  {1110001111111111}
      $C1FF,                  {1100000111111111}
      $80FF,                  {1000000011111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F,                  {0000000001111111}
      $007F                   {0000000001111111}
      );
    screen_mask : (
      $0000,                  {0000000000000000}
      $0000,                  {0000000000000000}
      $0000,                  {0000000000000000}
      $2200,                  {0010001000000000}
      $4B00,                  {0110101100000000}
      $6B00,                  {0110101100000000}
      $6B00,                  {0110101100000000}
      $6B00,                  {0110101100000000}
      $6B00,                  {0110101100000000}
      $6B00,