home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / PointerLib / Pointerlib.i < prev   
Encoding:
Text File  |  1997-05-06  |  524 b   |  33 lines
  1.  
  2.   { ********************************** }
  3.   { * Includefile f. Pointer.library * }
  4.   { ********************************** }
  5.  
  6. Const
  7.     PointerName = "pointer.library";
  8.  
  9. Var
  10.     PointerBase : Address;
  11.  
  12. Type
  13. MousePointer = record
  14.     Data : Address;
  15.     Height,
  16.     Width,
  17.     XOff,
  18.     YOff,
  19.     Size : Integer;
  20. End;
  21. MousePointerPtr = ^MousePointer;
  22.  
  23.  
  24. Procedure SetBusyPointer( Win : WindowPtr );
  25.     External;
  26.  
  27. Function  LoadPointer( filename : String ): MousePointerPtr;
  28.     External;
  29.  
  30. Procedure FreePointer( OldPointer : MousePointerPtr );
  31.     External;
  32.  
  33.