home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / gpicontr.def < prev    next >
Text File  |  1994-05-03  |  5KB  |  173 lines

  1. DEFINITION MODULE GPICONTROL;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager
  5.            GPI Basic PS control.
  6.  
  7.   Copyright (c) 1992 by Juergen Neuhoff
  8. *************************************************************************)
  9.  
  10. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  11. (*$CDECL+    C-style procedures                                         *)
  12. (*$A         default alignment for record fields                        *)
  13.  
  14. FROM   OS2DEF  IMPORT HDC, HAB, HPS;
  15. FROM   GPIDEF  IMPORT SIZEL;
  16.  
  17. CONST (* units for GpiCreatePS and others *)
  18.   PU_ARBITRARY               = 0004H;
  19.   PU_PELS                    = 0008H;
  20.   PU_LOMETRIC                = 000CH;
  21.   PU_HIMETRIC                = 0010H;
  22.   PU_LOENGLISH               = 0014H;
  23.   PU_HIENGLISH               = 0018H;
  24.   PU_TWIPS                   = 001CH;
  25.  
  26. CONST (* format for GpiCreatePS *)
  27.   GPIF_DEFAULT               = 0000H;
  28.   GPIF_SHORT                 = 0100H;
  29.   GPIF_LONG                  = 0200H;
  30.  
  31. CONST (* PS type for GpiCreatePS *)
  32.   GPIT_NORMAL                = 0000H;
  33.   GPIT_MICRO                 = 1000H;
  34.  
  35. CONST (* implicit associate flag for GpiCreatePS *)
  36.   GPIA_NOASSOC               = 0000H;
  37.   GPIA_ASSOC                 = 4000H;
  38.  
  39. CONST (* return error for GpiQueryDevice *)
  40.   HDC_ERROR                  = HDC( -1 );
  41.  
  42. (* common GPICONTROL functions *)
  43.  
  44. PROCEDURE GpiCreatePS
  45. ( AnchorBlockHandle          : HAB;
  46.   DevContextHandle           : HDC;
  47.   VAR PresPageSize           : SIZEL;
  48.   Options                    : LONGCARD
  49. )                            : HPS;
  50.  
  51. PROCEDURE GpiDestroyPS
  52. ( PresSpaceHandle            : HPS
  53. )                            : BOOLEAN;
  54.  
  55. PROCEDURE GpiAssociate
  56. ( PresSpaceHandle            : HPS;
  57.   DevContextHandle           : HDC
  58. )                            : BOOLEAN;
  59.  
  60. PROCEDURE GpiRestorePS
  61. ( PresSpaceHandle            : HPS;
  62.   PresSpaceId                : LONGINT
  63. )                            : BOOLEAN;
  64.  
  65. PROCEDURE GpiSavePS
  66. ( PresSpaceHandle            : HPS
  67. )                            : LONGINT;
  68.  
  69. PROCEDURE GpiErase
  70. ( PresSpaceHandle            : HPS
  71. )                            : BOOLEAN;
  72.  
  73. PROCEDURE GpiQueryDevice
  74. ( PresSpaceHandle            : HPS
  75. )                            : HDC;
  76.  
  77. CONST (* options for GpiResetPS *)
  78.   GRES_ATTRS                 = 0001H;
  79.   GRES_SEGMENTS              = 0002H;
  80.   GRES_ALL                   = 0004H;
  81.  
  82. CONST (* option masks for PS options used by GpiQueryPs *)
  83.   PS_UNITS                   = 00FCH;
  84.   PS_FORMAT                  = 0F00H;
  85.   PS_TYPE                    = 1000H;
  86.   PS_MODE                    = 2000H;
  87.   PS_ASSOCIATE               = 4000H;
  88.   PS_NORESET                 = 8000H;
  89.  
  90. CONST (* error context returned by GpiErrorSegmentData *)
  91.   GPIE_SEGMENT               = 0;
  92.   GPIE_ELEMENT               = 1;
  93.   GPIE_DATA                  = 2;
  94.  
  95. CONST (* control parameter for GpiSetDrawControl *)
  96.   DCTL_ERASE                 = 1;
  97.   DCTL_DISPLAY               = 2;
  98.   DCTL_BOUNDARY              = 3;
  99.   DCTL_DYNAMIC               = 4;
  100.   DCTL_CORRELATE             = 5;
  101.  
  102. CONST (* constants for GpiSet/QueryDrawControl *)
  103.   DCTL_ERROR                 = -1;
  104.   DCTL_OFF                   = 0;
  105.   DCTL_ON                    = 1;
  106.  
  107. CONST  (* constants for GpiSet/QueryStopDraw *)
  108.   SDW_ERROR                  = -1;
  109.   SDW_OFF                    =  0;
  110.   SDW_ON                     =  1;
  111.  
  112. CONST (* drawing for GpiSet/QueryDrawingMode *)
  113.   DM_ERROR                   = 0;
  114.   DM_DRAW                    = 1;
  115.   DM_RETAIN                  = 2;
  116.   DM_DRAWANDRETAIN           = 3;
  117.  
  118.  
  119. (*** other GPICONTROL functions *)
  120.  
  121. PROCEDURE GpiResetPS
  122. ( PresSpaceHandle            : HPS;
  123.   Options                    : LONGCARD
  124. )                            : BOOLEAN;
  125.  
  126. PROCEDURE GpiSetPS
  127. ( PresSpaceHandle            : HPS;
  128.   VAR PresSpaceSize          : SIZEL;
  129.   Options                    : LONGCARD
  130. )                            : BOOLEAN;
  131.  
  132. PROCEDURE GpiQueryPS
  133. ( PresSpaceHandle            : HPS;
  134.   VAR PresSpaceSize          : SIZEL
  135. )                            : LONGCARD;
  136.  
  137. PROCEDURE GpiErrorSegmentData
  138. ( PresSpaceHandle            : HPS;
  139.   VAR Segment                : LONGINT;
  140.   VAR Context                : LONGINT
  141. )                            : LONGINT;
  142.  
  143. PROCEDURE GpiQueryDrawControl
  144. ( PresSpaceHandle            : HPS;
  145.   Control                    : LONGINT
  146. )                            : LONGINT;
  147.  
  148. PROCEDURE GpiSetDrawControl
  149. ( PresSpaceHandle            : HPS;
  150.   Control                    : LONGINT;
  151.   Value                      : LONGINT
  152. )                            : BOOLEAN;
  153.  
  154. PROCEDURE GpiQueryDrawingMode
  155. ( PresSpaceHandle            : HPS
  156. )                            : LONGINT;
  157.  
  158. PROCEDURE GpiSetDrawingMode
  159. ( PresSpaceHandle            : HPS;
  160.   Mode                       : LONGINT
  161. )                            : BOOLEAN;
  162.  
  163. PROCEDURE GpiQueryStopDraw
  164. ( PresSpaceHandle            : HPS
  165. )                            : LONGINT;
  166.  
  167. PROCEDURE GpiSetStopDraw
  168. ( PresSpaceHandle            : HPS;
  169.   Value                      : LONGINT
  170. )                            : BOOLEAN;
  171.  
  172. END GPICONTROL.
  173.