home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / gpimetaf.def < prev    next >
Text File  |  1994-05-03  |  4KB  |  111 lines
  1. DEFINITION MODULE GPIMETAFILES;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager
  5.            GPI MetaFiles.
  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. IMPORT SYSTEM;
  15. FROM   OS2DEF  IMPORT HMF, HAB, HPS;
  16.  
  17. CONST (* constants for index values of options array for GpiPlayMetaFile *)
  18.   PMF_SEGBASE                     = 0;
  19.   PMF_LOADTYPE                    = 1;
  20.   PMF_RESOLVE                     = 2;
  21.   PMF_LCIDS                       = 3;
  22.   PMF_RESET                       = 4;
  23.   PMF_SUPPRESS                    = 5;
  24.   PMF_COLORTABLES                 = 6;
  25.   PMF_COLORREALIZABLE             = 7;
  26.   PMF_DEFAULTS                    = 8;
  27.   PMF_DELETEOBJECTS               = 9;
  28.  
  29. CONST (* options for GpiPlayMetaFile *)
  30.   RS_DEFAULT                      = 0;
  31.   RS_NODISCARD                    = 1;
  32.   LC_DEFAULT                      = 0;
  33.   LC_NOLOAD                       = 1;
  34.   LC_LOADDISC                     = 3;
  35.   LT_DEFAULT                      = 0;
  36.   LT_NOMODIFY                     = 1;
  37.   LT_ORIGINALVIEW                 = 4;
  38.   RES_DEFAULT                     = 0;
  39.   RES_NORESET                     = 1;
  40.   RES_RESET                       = 2;
  41.   SUP_DEFAULT                     = 0;
  42.   SUP_NOSUPPRESS                  = 1;
  43.   SUP_SUPPRESS                    = 2;
  44.   CTAB_DEFAULT                    = 0;
  45.   CTAB_NOMODIFY                   = 1;
  46.   CTAB_REPLACE                    = 3;
  47.   CTAB_REPLACEPALETTE             = 4;
  48.   CREA_DEFAULT                    = 0;
  49.   CREA_REALIZE                    = 1;
  50.   CREA_NOREALIZE                  = 2;
  51.   CREA_DOREALIZE                  = 3;
  52.   DDEF_DEFAULT                    = 0;
  53.   DDEF_IGNORE                     = 1;
  54.   DDEF_LOADDISC                   = 3;
  55.   DOBJ_DEFAULT                    = 0;
  56.   DOBJ_NODELETE                   = 1;
  57.   DOBJ_DELETE                     = 2;
  58.   RSP_DEFAULT                     = 0;
  59.   RSP_NODISCARD                   = 1;
  60.  
  61.  
  62. (*** MetaFile functions *)
  63.  
  64. PROCEDURE GpiCopyMetaFile
  65. ( MetaFileHandle                  : HMF
  66. )                                 : HMF;
  67.  
  68. PROCEDURE GpiDeleteMetaFile
  69. ( MetaFileHandle                  : HMF
  70. )                                 : BOOLEAN;
  71.  
  72. PROCEDURE GpiLoadMetaFile
  73. ( AnchorBlockHandle               : HAB;
  74.   FileName                        : ARRAY OF CHAR
  75. )                                 : HMF;
  76.  
  77. PROCEDURE GpiPlayMetaFile
  78. ( PresSpaceHandle                 : HPS;
  79.   MetaFileHandle                  : HMF;
  80.   Count1                          : LONGINT;
  81.   VAR Options                     : ARRAY OF LONGINT;
  82.   VAR SegCount                    : LONGINT;
  83.   Count2                          : LONGINT;
  84.   VAR Desc                        : ARRAY OF CHAR
  85. )                                 : LONGINT;
  86.  
  87. PROCEDURE GpiQueryMetaFileBits
  88. ( MetaFileHandle                  : HMF;
  89.   Offset                          : LONGINT;
  90.   Length                          : LONGINT;
  91.   VAR Data                        : ARRAY OF SYSTEM.BYTE
  92. )                                 : BOOLEAN;
  93.  
  94. PROCEDURE GpiQueryMetaFileLength
  95. ( MetaFileHandle                  : HMF
  96. )                                 : LONGINT;
  97.  
  98. PROCEDURE GpiSaveMetaFile
  99. ( MetaFileHandle                  : HMF;
  100.   FileName                        : ARRAY OF CHAR
  101. )                                 : BOOLEAN;
  102.  
  103. PROCEDURE GpiSetMetaFileBits
  104. ( MetaFileHandle                  : HMF;
  105.   Offset                          : LONGINT;
  106.   Length                          : LONGINT;
  107.   VAR Data                        : ARRAY OF SYSTEM.BYTE
  108. )                                 : BOOLEAN;
  109.  
  110. END GPIMETAFILES.
  111.