home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wincurso.def < prev    next >
Text File  |  1994-05-03  |  2KB  |  73 lines
  1. DEFINITION MODULE WINCURSORS;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager Text cursors.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SYSTEM;
  14. FROM   OS2DEF  IMPORT TYPEPREFIX, HWND, RECTL;
  15.  
  16. PROCEDURE WinDestroyCursor
  17. ( WinHandle                 : HWND
  18. )                           : BOOLEAN;
  19.  
  20. PROCEDURE WinShowCursor
  21. ( WinHandle                 : HWND;
  22.   Show                      : BOOLEAN
  23. )                           : BOOLEAN;
  24.  
  25. PROCEDURE WinCreateCursor
  26. ( WinHandle                 : HWND;
  27.   x                         : LONGINT;
  28.   y                         : LONGINT;
  29.   xSize                     : LONGINT;
  30.   ySize                     : LONGINT;
  31.   Flags                     : LONGCARD;
  32.   VAR ClipRect              : RECTL
  33. )                           : BOOLEAN;
  34.  
  35. CONST (* WinCreateCursor() flags *)
  36.   CURSOR_SOLID              = 0000H;
  37.   CURSOR_HALFTONE           = 0001H;
  38.   CURSOR_FRAME              = 0002H;
  39.   CURSOR_FLASH              = 0004H;
  40.   CURSOR_SETPOS             = 8000H;
  41.  
  42. TYPE
  43.   CURSORINFO                = RECORD (* csri *)
  44.     CASE                      : TYPEPREFIX OF
  45.     | TRUE                    :
  46.       hwnd                    : HWND;
  47.     | FALSE                   :
  48.       WinHandle               : HWND;
  49.     END;
  50.     x                         : LONGINT;
  51.     y                         : LONGINT;
  52.     CASE                      : TYPEPREFIX OF
  53.     | TRUE                    :
  54.       cx                      : LONGINT;
  55.       cy                      : LONGINT;
  56.       fs                      : LONGCARD;
  57.       rclClip                 : RECTL;
  58.     | FALSE                   :
  59.       xSize                   : LONGINT;
  60.       ySize                   : LONGINT;
  61.       Flags                   : LONGCARD;
  62.       ClipRect                : RECTL;
  63.     END;                      END;
  64.   PCURSORINFO               = POINTER TO CURSORINFO;
  65.  
  66. PROCEDURE WinQueryCursorInfo
  67. ( DesktopWinHandle          : HWND;
  68.   VAR CursorInfo            : CURSORINFO
  69. )                           : BOOLEAN;
  70.  
  71.  
  72. END WINCURSORS.
  73.