home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wintrack.def < prev    next >
Text File  |  1994-05-03  |  3KB  |  70 lines
  1. DEFINITION MODULE WINTRACKRECT;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager WinTrackRect() function.
  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. FROM   OS2DEF  IMPORT TYPEPREFIX, POINTL, RECTL, HWND, HPS;
  14.  
  15. TYPE (* WinTrackRect() tracking information structure *)
  16.   TRACKINFO               = RECORD  (* ti *)
  17.   CASE                      : TYPEPREFIX OF
  18.   | TRUE                    :
  19.     cxBorder                : LONGINT;
  20.     cyBorder                : LONGINT;
  21.     cxGrid                  : LONGINT;
  22.     cyGrid                  : LONGINT;
  23.     cxKeyboard              : LONGINT;
  24.     cyKeyboard              : LONGINT;
  25.     rclTrack                : RECTL;
  26.     rclBoundary             : RECTL;
  27.     ptlMinTrackSize         : POINTL;
  28.     ptlMaxTrackSize         : POINTL;
  29.     fs                      : LONGCARD;
  30.   | FALSE                   :
  31.     xBorderSize             : LONGINT;
  32.     yBorderSize             : LONGINT;
  33.     xGridSize               : LONGINT;
  34.     yGridSize               : LONGINT;
  35.     xKeyboardSize           : LONGINT;
  36.     yKeyboardSize           : LONGINT;
  37.     Track                   : RECTL;
  38.     Boundary                : RECTL;
  39.     MinTrackSize            : POINTL;
  40.     MaxTrackSize            : POINTL;
  41.     Flag                    : LONGCARD;
  42.   END;                      END;
  43.   PTRACKINFO              = POINTER TO TRACKINFO;
  44.  
  45. PROCEDURE WinTrackRect
  46. ( WinHandle               : HWND;
  47.   PresSpaceHandle         : HPS;
  48.   VAR Trackinfo           : TRACKINFO
  49. )                         : BOOLEAN;
  50.  
  51. PROCEDURE WinShowTrackRect
  52. ( WinHandle               : HWND;
  53.   Show                    : BOOLEAN
  54. )                         : BOOLEAN;
  55.  
  56. CONST (* WinTrackRect() flags *)
  57.   TF_LEFT                 = 0001H;
  58.   TF_TOP                  = 0002H;
  59.   TF_RIGHT                = 0004H;
  60.   TF_BOTTOM               = 0008H;
  61.   TF_MOVE                 = TF_LEFT OR TF_TOP OR TF_RIGHT OR TF_BOTTOM;
  62.   TF_SETPOINTERPOS        = 0010H;
  63.   TF_GRID                 = 0020H;
  64.   TF_STANDARD             = 0040H;
  65.   TF_ALLINBOUNDARY        = 0080H;
  66.   TF_VALIDATETRACKRECT    = 0100H;
  67.   TF_PARTINBOUNDARY       = 0200H;
  68.  
  69. END WINTRACKRECT.
  70.