home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-PMCU.ADS < prev    next >
Text File  |  1996-08-10  |  3KB  |  64 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package     Os2.PM                                         ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║               PM    Cursor manager                                ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.PMcu is
  21. pragma Preelaborate (PMcu);
  22.  
  23. --     Cursor manager common subsection
  24. --
  25. function WinDestroyCursor(hwn :HWND )return BOOL32;
  26. pragma Import(c,WinDestroyCursor, Link_name=>"_WinDestroyCursor");
  27.  
  28. function WinShowCursor(hwn  :HWND   ;
  29.                        fShow:BOOL32 )return BOOL32;
  30. pragma Import(c,WinShowCursor, Link_name=>"_WinShowCursor");
  31.  
  32. function WinCreateCursor(hwn     :HWND   ;
  33.                          x       :LONG   ;
  34.                          y       :LONG   ;
  35.                          cx      :LONG   ;
  36.                          cy      :LONG   ;
  37.                          fs      :ULONG  ;
  38.                          prclClip:PRECTL )return BOOL32;
  39. pragma Import(c,WinCreateCursor, Link_name=>"_WinCreateCursor");
  40.  
  41. --     WinCreateCursor( ) flags
  42.  
  43.  CURSOR_SOLID             :constant Long:=16#0000#;
  44.  CURSOR_HALFTONE          :constant Long:=16#0001#;
  45.  CURSOR_FRAME             :constant Long:=16#0002#;
  46.  CURSOR_FLASH             :constant Long:=16#0004#;
  47.  CURSOR_SETPOS            :constant Long:=16#8000#;
  48.  
  49. type CURSORINFO  is record    -- csri
  50.    hwn       :HWND    ;
  51.    x         :LONG    ;
  52.    y         :LONG    ;
  53.    cx        :LONG    ;
  54.    cy        :LONG    ;
  55.    fs        :ULONG   ;
  56.    rclClip   :RECTL   ;
  57. end record; -- CURSORINFO;
  58. type PCURSORINFO  is access all CURSORINFO;
  59.  
  60. function WinQueryCursorInfo(hwndDesktop:HWND        ;
  61.                             pCursorInf :PCURSORINFO )return BOOL32;
  62. pragma Import(c,WinQueryCursorInfo, Link_name=>"_WinQueryCursorInfo");
  63. end os2.pmcu;
  64.