freepascal.compiler/rtl/os2/pmgpi.pas

{****************************************************************************

    $Id$

                   Copyright (c) 1993,94,99 by FK, RB
                  
 ****************************************************************************}
unit pmgpi;

  interface
  
    uses
       os2def,pmbitmap;

    const
       GPI_ERROR = 0;
       GPI_OK = 1;
       GPI_ALTERROR = (-1);

       CLR_NOINDEX = (-254);
       PU_ARBITRARY = $0004;
       PU_PELS = $0008;
       PU_LOMETRIC = $000C;
       PU_HIMETRIC = $0010;
       PU_LOENGLISH = $0014;
       PU_HIENGLISH = $0018;
       PU_TWIPS = $001C;
       GPIF_DEFAULT = 0;
       GPIF_SHORT = $0100;
       GPIF_LONG = $0200;
       GPIT_NORMAL = 0;
       GPIT_MICRO = $1000;
       GPIA_NOASSOC = 0;
       GPIA_ASSOC = $4000;
       HDC_ERROR = -1;

       GRES_ATTRS = $0001;
       GRES_SEGMENTS = $0002;
       GRES_ALL = $0004;
       PS_UNITS = $00FC;
       PS_FORMAT = $0F00;
       PS_TYPE = $1000;
       PS_MODE = $2000;
       PS_ASSOCIATE = $4000;
       PS_NORESET = $8000;
       GPIE_SEGMENT = 0;
       GPIE_ELEMENT = 1;
       GPIE_DATA = 2;
       DCTL_ERASE = 1;
       DCTL_DISPLAY = 2;
       DCTL_BOUNDARY = 3;
       DCTL_DYNAMIC = 4;
       DCTL_CORRELATE = 5;
       DCTL_ERROR = -1;
       DCTL_OFF = 0;
       DCTL_ON = 1;
       SDW_ERROR = -1;
       SDW_OFF = 0;
       SDW_ON = 1;
       DM_ERROR = 0;
       DM_DRAW = 1;
       DM_RETAIN = 2;
       DM_DRAWANDRETAIN = 3;

       PICKAP_DEFAULT = 0;
       PICKAP_REC = 2;
       PICKSEL_VISIBLE = 0;
       PICKSEL_ALL = 1;
       GPI_HITS = 2;

       DFORM_NOCONV = 0;
       DFORM_S370SHORT = 1;
       DFORM_PCSHORT = 2;
       DFORM_PCLONG = 4;
       ATTR_ERROR = (-1);
       ATTR_DETECTABLE = 1;
       ATTR_VISIBLE = 2;
       ATTR_CHAINED = 6;
       ATTR_DYNAMIC = 8;
       ATTR_FASTCHAIN = 9;
       ATTR_PROP_DETECTABLE = 10;
       ATTR_PROP_VISIBLE = 11;
       ATTR_OFF = 0;
       ATTR_ON = 1;
       LOWER_PRI = (-1);
       HIGHER_PRI = 1;

       SEGEM_ERROR = 0;
       SEGEM_INSERT = 1;
       SEGEM_REPLACE = 2;

       CVTC_WORLD = 1;
       CVTC_MODEL = 2;
       CVTC_DEFAULTPAGE = 3;
       CVTC_PAGE = 4;
       CVTC_DEVICE = 5;
       TRANSFORM_REPLACE = 0;
       TRANSFORM_ADD = 1;
       TRANSFORM_PREEMPT = 2;

       MPATH_STROKE = 6;
       FPATH_ALTERNATE = 0;
       FPATH_WINDING = 2;
       FPATH_EXCL = 0;
       FPATH_INCL = 8;
       SCP_ALTERNATE = 0;
       SCP_WINDING = 2;
       SCP_AND = 4;
       SCP_RESET = 0;
       SCP_EXCL = 0;
       SCP_INCL = 8;

       LCOL_RESET = $0001;
       LCOL_REALIZABLE = $0002;
       LCOL_PURECOLOR = $0004;
       LCOL_OVERRIDE_DEFAULT_COLORS = $0008;
       LCOL_REALIZED = $0010;
       LCOLF_DEFAULT = 0;
       LCOLF_INDRGB = 1;
       LCOLF_CONSECRGB = 2;
       LCOLF_RGB = 3;
       LCOLF_PALETTE = 4;
       LCOLOPT_REALIZED = $0001;
       LCOLOPT_INDEX = $0002;
       QLCT_ERROR = (-1);
       QLCT_RGB = (-2);
       QLCT_NOTLOADED = (-1);
       QCD_LCT_FORMAT = 0;
       QCD_LCT_LOINDEX = 1;
       QCD_LCT_HIINDEX = 2;
       QCD_LCT_OPTIONS = 3;
       PAL_ERROR = (-1);
       PC_RESERVED = $01;
       PC_EXPLICIT = $02;
       PC_NOCOLLAPSE = $04;

       CLR_FALSE = (-5);
       CLR_TRUE = (-4);
       CLR_ERROR = (-255);
       CLR_DEFAULT = (-3);
       CLR_WHITE = (-2);
       CLR_BLACK = (-1);
       CLR_BACKGROUND = 0;
       CLR_BLUE = 1;
       CLR_RED = 2;
       CLR_PINK = 3;
       CLR_GREEN = 4;
       CLR_CYAN = 5;
       CLR_YELLOW = 6;
       CLR_NEUTRAL = 7;
       CLR_DARKGRAY = 8;
       CLR_DARKBLUE = 9;
       CLR_DARKRED = 10;
       CLR_DARKPINK = 11;
       CLR_DARKGREEN = 12;
       CLR_DARKCYAN = 13;
       CLR_BROWN = 14;
       CLR_PALEGRAY = 15;
       RGB_ERROR = (-255);
       RGB_BLACK = $00000000;
       RGB_BLUE = $000000FF;
       RGB_GREEN = $0000FF00;
       RGB_CYAN = $0000FFFF;
       RGB_RED = $00FF0000;
       RGB_PINK = $00FF00FF;
       RGB_YELLOW = $00FFFF00;
       RGB_WHITE = $00FFFFFF;
       BA_NOBOUNDARY = 0;
       BA_BOUNDARY = $0001;
       BA_ALTERNATE = 0;
       BA_WINDING = $0002;
       BA_EXCL = 0;
       BA_INCL = 8;
       DRO_FILL = 1;
       DRO_OUTLINE = 2;
       DRO_OUTLINEFILL = 3;
       PATSYM_ERROR = (-1);
       PATSYM_DEFAULT = 0;
       PATSYM_DENSE1 = 1;
       PATSYM_DENSE2 = 2;
       PATSYM_DENSE3 = 3;
       PATSYM_DENSE4 = 4;
       PATSYM_DENSE5 = 5;
       PATSYM_DENSE6 = 6;
       PATSYM_DENSE7 = 7;
       PATSYM_DENSE8 = 8;
       PATSYM_VERT = 9;
       PATSYM_HORIZ = 10;
       PATSYM_DIAG1 = 11;
       PATSYM_DIAG2 = 12;
       PATSYM_DIAG3 = 13;
       PATSYM_DIAG4 = 14;
       PATSYM_NOSHADE = 15;
       PATSYM_SOLID = 16;
       PATSYM_HALFTONE = 17;
       PATSYM_HATCH = 18;
       PATSYM_DIAGHATCH = 19;
       PATSYM_BLANK = 64;
       LCID_ERROR = (-1);
       LCID_DEFAULT = 0;

       AM_ERROR = (-1);
       AM_PRESERVE = 0;
       AM_NOPRESERVE = 1;
       FM_ERROR = (-1);
       FM_DEFAULT = 0;
       FM_OR = 1;
       FM_OVERPAINT = 2;
       FM_LEAVEALONE = 5;
       FM_XOR = 4;
       FM_AND = 6;
       FM_SUBTRACT = 7;
       FM_MASKSRCNOT = 8;
       FM_ZERO = 9;
       FM_NOTMERGESRC = 10;
       FM_NOTXORSRC = 11;
       FM_INVERT = 12;
       FM_MERGESRCNOT = 13;
       FM_NOTCOPYSRC = 14;
       FM_MERGENOTSRC = 15;
       FM_NOTMASKSRC = 16;
       FM_ONE = 17;
       BM_ERROR = (-1);
       BM_DEFAULT = 0;
       BM_OR = 1;
       BM_OVERPAINT = 2;
       BM_LEAVEALONE = 5;
       BM_XOR = 4;
       BM_AND = 6;
       BM_SUBTRACT = 7;
       BM_MASKSRCNOT = 8;
       BM_ZERO = 9;
       BM_NOTMERGESRC = 10;
       BM_NOTXORSRC = 11;
       BM_INVERT = 12;
       BM_MERGESRCNOT = 13;
       BM_NOTCOPYSRC = 14;
       BM_MERGENOTSRC = 15;
       BM_NOTMASKSRC = 16;
       BM_ONE = 17;
       BM_SRCTRANSPARENT = 18;
       BM_DESTTRANSPARENT = 19;
       LINETYPE_ERROR = (-1);
       LINETYPE_DEFAULT = 0;
       LINETYPE_DOT = 1;
       LINETYPE_SHORTDASH = 2;
       LINETYPE_DASHDOT = 3;
       LINETYPE_DOUBLEDOT = 4;
       LINETYPE_LONGDASH = 5;
       LINETYPE_DASHDOUBLEDOT = 6;
       LINETYPE_SOLID = 7;
       LINETYPE_INVISIBLE = 8;
       LINETYPE_ALTERNATE = 9;
       LINEWIDTH_ERROR = (-1);
       LINEWIDTH_DEFAULT = 0;
       LINEWIDTH_NORMAL = $00010000;
       LINEWIDTH_THICK = $00020000;
       LINEWIDTHGEOM_ERROR = (-1);
       LINEEND_ERROR = (-1);
       LINEEND_DEFAULT = 0;
       LINEEND_FLAT = 1;
       LINEEND_SQUARE = 2;
       LINEEND_ROUND = 3;
       LINEJOIN_ERROR = (-1);
       LINEJOIN_DEFAULT = 0;
       LINEJOIN_BEVEL = 1;
       LINEJOIN_ROUND = 2;
       LINEJOIN_MITRE = 3;
       CHDIRN_ERROR = (-1);
       CHDIRN_DEFAULT = 0;
       CHDIRN_LEFTRIGHT = 1;
       CHDIRN_TOPBOTTOM = 2;
       CHDIRN_RIGHTLEFT = 3;
       CHDIRN_BOTTOMTOP = 4;
       TA_NORMAL_HORIZ = $0001;
       TA_LEFT = $0002;
       TA_CENTER = $0003;
       TA_RIGHT = $0004;
       TA_STANDARD_HORIZ = $0005;
       TA_NORMAL_VERT = $0100;
       TA_TOP = $0200;
       TA_HALF = $0300;
       TA_BASE = $0400;
       TA_BOTTOM = $0500;
       TA_STANDARD_VERT = $0600;
       CM_ERROR = (-1);
       CM_DEFAULT = 0;
       CM_MODE1 = 1;
       CM_MODE2 = 2;
       CM_MODE3 = 3;
       MARKSYM_ERROR = (-1);
       MARKSYM_DEFAULT = 0;
       MARKSYM_CROSS = 1;
       MARKSYM_PLUS = 2;
       MARKSYM_DIAMOND = 3;
       MARKSYM_SQUARE = 4;
       MARKSYM_SIXPOINTSTAR = 5;
       MARKSYM_EIGHTPOINTSTAR = 6;
       MARKSYM_SOLIDDIAMOND = 7;
       MARKSYM_SOLIDSQUARE = 8;
       MARKSYM_DOT = 9;
       MARKSYM_SMALLCIRCLE = 10;
       MARKSYM_BLANK = 64;
       CHS_OPAQUE = $0001;
       CHS_VECTOR = $0002;
       CHS_LEAVEPOS = $0008;
       CHS_CLIP = $0010;
       CHS_UNDERSCORE = $0200;
       CHS_STRIKEOUT = $0400;
       PRIM_LINE = 1;
       PRIM_CHAR = 2;
       PRIM_MARKER = 3;
       PRIM_AREA = 4;
       PRIM_IMAGE = 5;
       LBB_COLOR = $0001;
       LBB_BACK_COLOR = $0002;
       LBB_MIX_MODE = $0004;
       LBB_BACK_MIX_MODE = $0008;
       LBB_WIDTH = $0010;
       LBB_GEOM_WIDTH = $0020;
       LBB_TYPE = $0040;
       LBB_END = $0080;
       LBB_JOIN = $0100;
       CBB_COLOR = $0001;
       CBB_BACK_COLOR = $0002;
       CBB_MIX_MODE = $0004;
       CBB_BACK_MIX_MODE = $0008;
       CBB_SET = $0010;
       CBB_MODE = $0020;
       CBB_BOX = $0040;
       CBB_ANGLE = $0080;
       CBB_SHEAR = $0100;
       CBB_DIRECTION = $0200;
       CBB_TEXT_ALIGN = $0400;
       CBB_EXTRA = $0800;
       CBB_BREAK_EXTRA = $1000;
       MBB_COLOR = $0001;
       MBB_BACK_COLOR = $0002;
       MBB_MIX_MODE = $0004;
       MBB_BACK_MIX_MODE = $0008;
       MBB_SET = $0010;
       MBB_SYMBOL = $0020;
       MBB_BOX = $0040;
       ABB_COLOR = $0001;
       ABB_BACK_COLOR = $0002;
       ABB_MIX_MODE = $0004;
       ABB_BACK_MIX_MODE = $0008;
       ABB_SET = $0010;
       ABB_SYMBOL = $0020;
       ABB_REF_POINT = $0040;
       IBB_COLOR = $0001;
       IBB_BACK_COLOR = $0002;
       IBB_MIX_MODE = $0004;
       IBB_BACK_MIX_MODE = $0008;

       TXTBOX_TOPLEFT = 0;
       TXTBOX_BOTTOMLEFT = 1;
       TXTBOX_TOPRIGHT = 2;
       TXTBOX_BOTTOMRIGHT = 3;
       TXTBOX_CONCAT = 4;
       TXTBOX_COUNT = 5;
       PVIS_ERROR = 0;
       PVIS_INVISIBLE = 1;
       PVIS_VISIBLE = 2;
       RVIS_ERROR = 0;
       RVIS_INVISIBLE = 1;
       RVIS_PARTIAL = 2;
       RVIS_VISIBLE = 3;

       FONT_DEFAULT = 1;
       FONT_MATCH = 2;
       LCIDT_FONT = 6;
       LCIDT_BITMAP = 7;
       LCID_ALL = (-1);

       FWEIGHT_DONT_CARE = 0;
       FWEIGHT_ULTRA_LIGHT = 1;
       FWEIGHT_EXTRA_LIGHT = 2;
       FWEIGHT_LIGHT = 3;
       FWEIGHT_SEMI_LIGHT = 4;
       FWEIGHT_NORMAL = 5;
       FWEIGHT_SEMI_BOLD = 6;
       FWEIGHT_BOLD = 7;
       FWEIGHT_EXTRA_BOLD = 8;
       FWEIGHT_ULTRA_BOLD = 9;
       FWIDTH_DONT_CARE = 0;
       FWIDTH_ULTRA_CONDENSED = 1;
       FWIDTH_EXTRA_CONDENSED = 2;
       FWIDTH_CONDENSED = 3;
       FWIDTH_SEMI_CONDENSED = 4;
       FWIDTH_NORMAL = 5;
       FWIDTH_SEMI_EXPANDED = 6;
       FWIDTH_EXPANDED = 7;
       FWIDTH_EXTRA_EXPANDED = 8;
       FWIDTH_ULTRA_EXPANDED = 9;
       FTYPE_ITALIC = $0001;
       FTYPE_ITALIC_DONT_CARE = $0002;
       FTYPE_OBLIQUE = $0004;
       FTYPE_OBLIQUE_DONT_CARE = $0008;
       FTYPE_ROUNDED = $0010;
       FTYPE_ROUNDED_DONT_CARE = $0020;
       QFA_PUBLIC = 1;
       QFA_PRIVATE = 2;
       QFA_ERROR = GPI_ALTERROR;
       QF_PUBLIC = $0001;
       QF_PRIVATE = $0002;
       QF_NO_GENERIC = $0004;
       QF_NO_DEVICE = $0008;

       ROP_SRCCOPY = $00CC;
       ROP_SRCPAINT = $00EE;
       ROP_SRCAND = $0088;
       ROP_SRCINVERT = $0066;
       ROP_SRCERASE = $0044;
       ROP_NOTSRCCOPY = $0033;
       ROP_NOTSRCERASE = $0011;
       ROP_MERGECOPY = $00C0;
       ROP_MERGEPAINT = $00BB;
       ROP_PATCOPY = $00F0;
       ROP_PATPAINT = $00FB;
       ROP_PATINVERT = $005A;
       ROP_DSTINVERT = $0055;
       ROP_ZERO = $0000;
       ROP_ONE = $00FF;
       BBO_OR = 0;
       BBO_AND = 1;
       BBO_IGNORE = 2;
       BBO_PAL_COLORS = 4;
       BBO_NO_COLOR_INFO = 8;
       FF_BOUNDARY = 0;
       FF_SURFACE = 1;
       HBM_ERROR = -1;

       {Bitmaps}
       CBM_INIT = $0004;
       BMB_ERROR = (-1);

       {Regions}                                                                                                                                          
       CRGN_OR = 1;
       CRGN_COPY = 2;
       CRGN_XOR = 4;
       CRGN_AND = 6;
       CRGN_DIFF = 7;
       RECTDIR_LFRT_TOPBOT = 1;
       RECTDIR_RTLF_TOPBOT = 2;
       RECTDIR_LFRT_BOTTOP = 3;
       RECTDIR_RTLF_BOTTOP = 4;
       RGN_ERROR = 0;
       RGN_NULL = 1;
       RGN_RECT = 2;
       RGN_COMPLEX = 3;
       PRGN_ERROR = 0;
       PRGN_OUTSIDE = 1;
       PRGN_INSIDE = 2;
       RRGN_ERROR = 0;
       RRGN_OUTSIDE = 1;
       RRGN_PARTIAL = 2;
       RRGN_INSIDE = 3;
       EQRGN_ERROR = 0;
       EQRGN_NOTEQUAL = 1;
       EQRGN_EQUAL = 2;
       HRGN_ERROR = -1;
       
       {Metafiles}
       PMF_SEGBASE = 0;
       PMF_LOADTYPE = 1;
       PMF_RESOLVE = 2;
       PMF_LCIDS = 3;
       PMF_RESET = 4;
       PMF_SUPPRESS = 5;
       PMF_COLORTABLES = 6;
       PMF_COLORREALIZABLE = 7;
       PMF_DEFAULTS = 8;
       PMF_DELETEOBJECTS = 9;
       RS_DEFAULT = 0;
       RS_NODISCARD = 1;
       LC_DEFAULT = 0;
       LC_NOLOAD = 1;
       LC_LOADDISC = 3;
       LT_DEFAULT = 0;
       LT_NOMODIFY = 1;
       LT_ORIGINALVIEW = 4;
       RES_DEFAULT = 0;
       RES_NORESET = 1;
       RES_RESET = 2;
       SUP_DEFAULT = 0;
       SUP_NOSUPPRESS = 1;
       SUP_SUPPRESS = 2;
       CTAB_DEFAULT = 0;
       CTAB_NOMODIFY = 1;
       CTAB_REPLACE = 3;
       CTAB_REPLACEPALETTE = 4;
       CREA_DEFAULT = 0;
       CREA_REALIZE = 1;
       CREA_NOREALIZE = 2;
       CREA_DOREALIZE = 3;
       DDEF_DEFAULT = 0;
       DDEF_IGNORE = 1;
       DDEF_LOADDISC = 3;
       DOBJ_DEFAULT = 0;
       DOBJ_NODELETE = 1;
       DOBJ_DELETE = 2;
       RSP_DEFAULT = 0;
       RSP_NODISCARD = 1;
       
       {Polygons}
       POLYGON_NOBOUNDARY = 0;
       POLYGON_BOUNDARY = $0001;
       POLYGON_ALTERNATE = 0;
       POLYGON_WINDING = $0002;
       POLYGON_EXCL = 0;
       POLYGON_INCL = $0008;
       
    type
       SIZEL = record
          cx : longint;
          cy : longint;
       end;             
       PSIZEL = ^SIZEL;

       MATRIXLF = record
          fxM11 : longint;
          fxM12 : longint;
          lM13 : longint;
          fxM21 : longint;
          fxM22 : longint;
          lM23 : longint;
          lM31 : longint;
          lM32 : longint;
          lM33 : longint;
       end;

       PMATRIXLF = ^MATRIXLF;

       ARCPARAMS = record
          lP : longint;
          lQ : longint;
          lR : longint;
          lS : longint;
       end;

       PARCPARAMS = ^ARCPARAMS;

       SIZEF = record
          cx : longint;
          cy : longint;
       end;

       PSIZEF = ^SIZEF;

       GRADIENTL = record
          x : longint;
          y : longint;
       end;

       PGRADIENTL = ^GRADIENTL;

       LINEBUNDLE = record
          lColor : longint;
          lBackColor : longint;
          usMixMode : word;
          usBackMixMode : word;
          fxWidth : longint;
          lGeomWidth : longint;
          usType : word;
          usEnd : word;
          usJoin : word;
          usReserved : word;
       end;

       PLINEBUNDLE = ^LINEBUNDLE;

       CHARBUNDLE = record
          lColor : longint;
          lBackColor : longint;
          usMixMode : word;
          usBackMixMode : word;
          usSet : word;
          usPrecision : word;
          sizfxCell : SIZEF;
          ptlAngle : POINTL;
          ptlShear : POINTL;
          usDirection : word;
          usTextAlign : word;
          fxExtra : longint;
          fxBreakExtra : longint;
       end;

       PCHARBUNDLE = ^CHARBUNDLE;

       MARKERBUNDLE = record
          lColor : longint;
          lBackColor : longint;
          usMixMode : word;
          usBackMixMode : word;
          usSet : word;
          usSymbol : word;
          sizfxCell : SIZEF;
       end;

       PMARKERBUNDLE = ^MARKERBUNDLE;

       AREABUNDLE = record
          lColor : longint;
          lBackColor : longint;
          usMixMode : word;
          usBackMixMode : word;
          usSet : word;
          usSymbol : word;
          ptlRefPoint : POINTL;
       end;

       PAREABUNDLE = ^AREABUNDLE;

       IMAGEBUNDLE = record
          lColor : longint;
          lBackColor : longint;
          usMixMode : word;
          usBackMixMode : word;
       end;

       PIMAGEBUNDLE = ^IMAGEBUNDLE;

       KERNINGPAIRS = record
          sFirstChar : integer;
          sSecondChar : integer;
          lKerningAmount : longint;
       end;

       PKERNINGPAIRS = ^KERNINGPAIRS;

       FACENAMEDESC = record
          usSize : word;
          usWeightClass : word;
          usWidthClass : word;
          usReserved : word;
          flOptions : cardinal;
       end;

       PFACENAMEDESC = ^FACENAMEDESC;

       FFDESCS = array[0..1,0..FACESIZE-1] of char;
    
       PFFDESCS = ^FFDESCS;

       FFDESCS2 = record
          cbLength : cardinal;
          cbFacenameOffset : cardinal;
          abFamilyName : array[0..1-1] of BYTE;
       end;

       PFFDESCS2 = ^FFDESCS2;

       RGNRECT = record
          ircStart : cardinal;
          crc : cardinal;
          crcReturned : cardinal;
          ulDirection : cardinal;
       end;

       PRGNRECT = ^RGNRECT;
       
          POLYGON = record
          ulPoints : cardinal;
          aPointl : PPOINTL;
       end;

       PPOLYGON = ^POLYGON;

       POLYSET = record
          ulPolys : cardinal;
          aPolygon : array[0..1-1] of POLYGON;
       end;

       PPOLYSET = ^POLYSET;
       
    function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;          
    function GpiDestroyPS(hps : cardinal) : longbool;cdecl;
    function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;
    function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;
    function GpiSavePS(hps : cardinal) : longint;cdecl;                
    function GpiErase(hps : cardinal) : longbool;cdecl;                 
    function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;                
    function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl; 
    function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;      
    function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;                 
    function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint; cdecl;
    function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;                     
    function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;         
    function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;                                     
    function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;
    function GpiQueryStopDraw(hps : cardinal) : longint;cdecl;              
    function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool;cdecl;                                      
    function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var pl2 : longint) : longint;cdecl;     
    function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool;cdecl;             
    function GpiSetTag(hps : cardinal;lTag : longint) : longbool;cdecl;                 
    function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;                       
    function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl;         
    function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;                  
    function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl;                     
    function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl;                        
    function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl;                                              
    function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl;                
    function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl;                             
    function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;     
    function GpiCloseSegment(hps : cardinal) : longbool; cdecl;                    
    function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl;     
    function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl;      
    function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl;          
    function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl;               
    function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl;   
    function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl;             
    function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl; 
    function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;         
    function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl;        
    function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl;        
    function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl;  
    function GpiDrawChain(hps : cardinal) : longbool; cdecl; 
    function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;
    function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;                      
    function GpiDrawDynamics(hps : cardinal) : longbool; cdecl;                                     
    function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl;
    function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : pchar) : longbool; cdecl;  
    function GpiEndElement(hps : cardinal) : longbool; cdecl;                               
    function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;                      
    function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;var pbData : BYTE) : longint; cdecl;  
    function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl;         
    function GpiDeleteElement(hps : cardinal) : longbool; cdecl;                                                     
    function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl;       
    function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl;  
    function GpiQueryEditMode(hps : cardinal) : longint; cdecl;                                                    
    function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl;                                         
    function GpiQueryElementPointer(hps : cardinal) : longint; cdecl;                                              
    function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl;                                
    function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl;                              
    function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : pchar) : longint; cdecl;
    function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;
    function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;  
    function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;        
    function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl;                                  
    function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;          
    function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;                                      
    function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;                        
    function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl;              
    function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;                                         
    function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;                           
    function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;
    function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;  
    function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; 
    function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;   
    function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl;                     
    function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl;                           
    function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl;                            
    function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;                                               
    function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;                                             
    function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;                                              
    function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;                                            
    function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl;
    function GpiEndPath(hps : cardinal) : longbool; cdecl;               
    function GpiCloseFigure(hps : cardinal) : longbool; cdecl;           
    function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl; 
    function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl;
    function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl; 
    function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; 
    function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl;
    function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl; 
    function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl; 
    function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;                                                     
    function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl;                 
    function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl;                   
    function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl;                                                
    function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl;                                               
    function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl;                                               
    function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable : cardinal) : cardinal; cdecl;      
    function GpiDeletePalette(hpal : cardinal) : longbool; cdecl;                                                                         
    function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl;                                                               
    function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longint; cdecl;     
    function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longbool; cdecl;  
    function GpiQueryPalette(hps : cardinal) : cardinal; cdecl;        
    function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray : cardinal) : longint; cdecl;
    function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl;  
    function GpiQueryColor(hps : cardinal) : longint; cdecl;              
    function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl;
    function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;                                             
    function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl;                                          
    function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;                          
    function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;                  
    function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl;                                     
    function GpiQueryPattern(hps : cardinal) : longint;  cdecl;                                                        
    function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl;                                          
    function GpiEndArea(hps : cardinal) : longint; cdecl;                                                              
    function GpiCharString(hps : cardinal;lCount : longint;pchString : pchar) : longint; cdecl;                             
    function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : pchar) : longint; cdecl;      
    function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl; 
    function GpiQueryAttrMode(hps : cardinal) : longint; cdecl;            
    function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;
    function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl;                
    function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl;                                                         
    function GpiQueryBackColor(hps : cardinal) : longint; cdecl;                                                                     
    function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;                                                             
    function GpiQueryMix(hps : cardinal) : longint; cdecl;                                                                           
    function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;  
    function GpiQueryBackMix(hps : cardinal) : longint; cdecl;                
    function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl; 
    function GpiQueryLineType(hps : cardinal) : longint; cdecl;                
    function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl;
    function GpiQueryLineWidth(hps : cardinal) : longint; cdecl;                 
    function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl; 
    function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl;                 
    function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl;         
    function GpiQueryLineEnd(hps : cardinal) : longint; cdecl;                       
    function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl;       
    function GpiQueryLineJoin(hps : cardinal) : longint; cdecl;                      
    function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; 
    function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
    function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
    function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; 
    function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl;                   
    function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl;  
    function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl;
    function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;                                                 
    function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;                                                 
    function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl;                         
    function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl;   
    function GpiQueryPatternSet(hps : cardinal) : longint; cdecl;             
    function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl;   
    function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; 
    function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl;     
    function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; 
    function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pchar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl;                                                        
    function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;                                                                                                     
    function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl;                                                                                                                
    function GpiQueryCharSet(hps : cardinal) : longint; cdecl;                                    
    function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl;                   
    function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;                
    function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;           
    function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;         
    function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl;                
    function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl;              
    function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl;              
    function GpiQueryCharDirection(hps : cardinal) : longint; cdecl;                              
    function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl;                        
    function GpiQueryCharMode(hps : cardinal) : longint; cdecl;                                   
    function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl;     
    function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl; 
    function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl;      
    function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl;       
    function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool;  cdecl;                 
    function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl;        
    function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl;               
    function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl;     
    function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;                  
    function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
    function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl;                     
    function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;             
    function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl;                     
    function GpiQueryMarker(hps : cardinal) : longint; cdecl;                                  
    function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;           
    function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl;                               
    function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl;     
    function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl;                                                              
    function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;                                                  
    function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;                                             
    function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl;
    function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl;   
    function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl;                                       
    function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl;                                    
    function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl;                                  
    function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl;        
    function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl;                                                         
    function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl;                                                               
    function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl;                                                           
    function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl;     
    function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl;  
    function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl;
    function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl; 
    function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl;                                    
    function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar):longbool; cdecl;                                                
    function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl;                                              
    function GpiSetCp(hps,ulCodePage : cardinal) : longbool;  cdecl;                                              
    function GpiQueryCp(hps : cardinal) : cardinal; cdecl;                                                               
    function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;var plCount : longint;var affdescsNames : FFDESCS) : longint;  cdecl; 
    function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl;  
    function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;             
    function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl;                                                                                          
    function GpiLoadBitmap(hps,Resource,idBitmap : cardinal;lWidth,lHeight : longint) : cardinal; cdecl;                            
    function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl; 
    function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
    function GpiCreateBitmap(hps : cardinal;var pbmpNew : BITMAPINFOHEADER2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable : BITMAPINFO2) : cardinal; cdecl;
    function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : BITMAPINFO2) : longint; cdecl;                   
    function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;                                                          
    function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl;                                                                        
    function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : BITMAPINFO2) : longint; cdecl;                 
    function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;                                                        
    function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal;  cdecl;                                                                            
    function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData : BITMAPINFOHEADER) : longbool; cdecl;                                                        
    function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData : BITMAPINFOHEADER2) : longbool; cdecl;                                                       
    function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;                                                        
    function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;                                                                                    
    function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;                                                                                  
    function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl;                                                                       
    function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable : BITMAPINFO2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; 
    function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint;  cdecl;
    function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal;  cdecl;                        
    function GpiDestroyRegion(hps,hrgn : cardinal) : longbool;  cdecl;                                                 
    function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl;                                
    function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl;                              
    function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl;                                                    
    function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl;                                 
    function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl;                                 
    function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl;                              
    function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl;     
    function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl;                                                     
    function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool;cdecl;  
    function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl;                  
    function GpiQueryClipRegion(hps : cardinal) : cardinal;  cdecl;                                            
    function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl;                             
    function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;                 
    function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;               
    function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;                        
    function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl;                       
    function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl;                    
    function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl;     
    function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : pchar) : longint;  cdecl;  
    function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool;  cdecl;                                            
    function GpiQueryMetaFileLength(hmf : cardinal) : longint;  cdecl;                                                                                       
    function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl;                                                                             
    function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl;                                             
    function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;                                                              
    function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;                                     
    function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl;                                                                                  
    function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;                                                                  
    function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;                                                                
    function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool;cdecl;                                        
    function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl;                                                                                      
    function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;                                          
    function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl;

  implementation

    function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;external 'pmgpi' index 369;
    function GpiDestroyPS(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 379;
    function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;external 'pmgpi' index 351;
    function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;external 'pmgpi' index 499;
    function GpiSavePS(hps : cardinal) : longint;cdecl;external 'pmgpi' index 501;
    function GpiErase(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 389;
    function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;external 'pmgpi' index 444;
    function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 498;
    function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 539;
    function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;external 'pmgpi' index 471;
    function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint;cdecl;external 'pmgpi' index 390;
    function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;external 'pmgpi' index 446;
    function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;external 'pmgpi' index 521;
    function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;external 'pmgpi' index 447;
    function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;external 'pmgpi' index 522;
    function GpiQueryStopDraw(hps : cardinal) : longint;cdecl; external 'pmgpi' index 487;
    function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool; cdecl; external 'pmgpi' index 550;
    function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits : longint;lMaxDepth : longint;var pl2 : longint) : longint; cdecl; external 'pmgpi' index 366;
    function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 488;
    function GpiSetTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 551;
    function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 478;
    function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 589;
    function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 477;
    function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl; external 'pmgpi' index 545;
    function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl; external 'pmgpi' index 428;
    function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 497;
    function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl; external 'pmgpi' index 367;
    function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl; external 'pmgpi' index 582;
    function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 408;
    function GpiCloseSegment(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 361;
    function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl; external 'pmgpi' index 376;
    function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl; external 'pmgpi' index 455;
    function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 527;
    function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl; external 'pmgpi' index 482;
    function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 547;
    function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl; external 'pmgpi' index 484;
    function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl; external 'pmgpi' index 548;
    function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 377;
    function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl; external 'pmgpi' index 483;
    function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 394;
    function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 421;
    function GpiDrawChain(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 380;
    function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 382;
    function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 383;
    function GpiDrawDynamics(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 381;
    function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl; external 'pmgpi' index 496;
    function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : pchar) : longbool; cdecl; external 'pmgpi' index 353;
    function GpiEndElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 386;
    function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 397;
    function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 384;
    function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 449;
    function GpiDeleteElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 372;
    function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl; external 'pmgpi' index 373;
    function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl; external 'pmgpi' index 374;
    function GpiQueryEditMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 448;
    function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 523;
    function GpiQueryElementPointer(hps : cardinal) : longint; cdecl; external 'pmgpi' index 450;
    function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl; external 'pmgpi' index 524;
    function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl; external 'pmgpi' index 406;
    function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : pchar) : longint; cdecl; external 'pmgpi' index 451;
    function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 525;
    function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 485;
    function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 549;
    function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 364;
    function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 618;
    function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 468;
    function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 538;
    function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl; external 'pmgpi' index 357;
    function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 443;
    function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 520;
    function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 472;
    function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 540;
    function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 491;
    function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 553;
    function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl; external 'pmgpi' index 564;
    function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl; external 'pmgpi' index 565;
    function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl; external 'pmgpi' index 566;
    function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 526;
    function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 454;
    function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 552;
    function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 490;
    function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl; external 'pmgpi' index 354;
    function GpiEndPath(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 387;
    function GpiCloseFigure(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 360;
    function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl; external 'pmgpi' index 403;
    function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 392;
    function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl; external 'pmgpi' index 515;
    function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 563;
    function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl; external 'pmgpi' index 559;
    function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 554;
    function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl; external 'pmgpi' index 592;
    function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 438;
    function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl; external 'pmgpi' index 593;
    function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl; external 'pmgpi' index 480;
    function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl; external 'pmgpi' index 469;
    function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl; external 'pmgpi' index 439;
    function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl; external 'pmgpi' index 479;
    function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable : cardinal) : cardinal; cdecl; external 'pmgpi' index 594;
    function GpiDeletePalette(hpal : cardinal) : longbool; cdecl; external 'pmgpi' index 577;
    function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl; external 'pmgpi' index 578;
    function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longint; cdecl; external 'pmgpi' index 595;
    function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longbool; cdecl; external 'pmgpi' index 596;
    function GpiQueryPalette(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 579;
    function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray : cardinal) : longint; cdecl; external 'pmgpi' index 597;
    function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 517;
    function GpiQueryColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 437;
    function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl; external 'pmgpi' index 356;
    function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 404;
    function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl; external 'pmgpi' index 398;
    function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 415;
    function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 558;
    function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl; external 'pmgpi' index 541;
    function GpiQueryPattern(hps : cardinal) : longint; cdecl; external 'pmgpi' index 473;
    function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl; external 'pmgpi' index 352;
    function GpiEndArea(hps : cardinal) : longint; cdecl; external 'pmgpi' index 385;
    function GpiCharString(hps : cardinal;lCount : longint;pchString : pchar) : longint; cdecl; external 'pmgpi' index 358;
    function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : pchar) : longint; cdecl; external 'pmgpi' index 359;
    function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 503;
    function GpiQueryAttrMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 423;
    function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 588;
    function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl; external 'pmgpi' index 583;
    function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 504;
    function GpiQueryBackColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 424;
    function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 537;
    function GpiQueryMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 467;
    function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 505;
    function GpiQueryBackMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 425;
    function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl; external 'pmgpi' index 530;
    function GpiQueryLineType(hps : cardinal) : longint; cdecl; external 'pmgpi' index 459;
    function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 531;
    function GpiQueryLineWidth(hps : cardinal) : longint; cdecl; external 'pmgpi' index 460;
    function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 532;
    function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl; external 'pmgpi' index 461;
    function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl; external 'pmgpi' index 528;
    function GpiQueryLineEnd(hps : cardinal) : longint; cdecl; external 'pmgpi' index 457;
    function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl; external 'pmgpi' index 529;
    function GpiQueryLineJoin(hps : cardinal) : longint; cdecl; external 'pmgpi' index 458;
    function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 519;
    function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 441;
    function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 502;
    function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 422;
    function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl; external 'pmgpi' index 412;
    function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl; external 'pmgpi' index 393;
    function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl; external 'pmgpi' index 612;
    function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 413;
    function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 417;
    function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl; external 'pmgpi' index 414;
    function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 543;
    function GpiQueryPatternSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 475;
    function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 542;
    function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 474;
    function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 584;
    function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 585;
    function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pchar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 489;
    function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 442;
    function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl; external 'pmgpi' index 513;
    function GpiQueryCharSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 433;
    function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl; external 'pmgpi' index 510;
    function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 430;
    function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 509;
    function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 429;
    function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl; external 'pmgpi' index 514;
    function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl; external 'pmgpi' index 434;
    function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl; external 'pmgpi' index 511;
    function GpiQueryCharDirection(hps : cardinal) : longint; cdecl; external 'pmgpi' index 431;
    function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 512;
    function GpiQueryCharMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 432;
    function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl; external 'pmgpi' index 649;
    function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl; external 'pmgpi' index 648;
    function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 580;
    function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 581;
    function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl; external 'pmgpi' index 614;
    function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 616;
    function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl; external 'pmgpi' index 613;
    function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 615;
    function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 402;
    function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 416;
    function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl; external 'pmgpi' index 533;
    function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 534;
    function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 535;
    function GpiQueryMarker(hps : cardinal) : longint; cdecl; external 'pmgpi' index 462;
    function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 463;
    function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 464;
    function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 395;
    function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl; external 'pmgpi' index 418;
    function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 420;
    function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 495;
    function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 363;
    function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl; external 'pmgpi' index 368;
    function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 378;
    function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 400;
    function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 555;
    function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl; external 'pmgpi' index 586;
    function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl; external 'pmgpi' index 453;
    function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl; external 'pmgpi' index 456;
    function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl; external 'pmgpi' index 492;
    function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl; external 'pmgpi' index 470;
    function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl; external 'pmgpi' index 486;
    function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl; external 'pmgpi' index 575;
    function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl; external 'pmgpi' index 574;
    function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl; external 'pmgpi' index 576;
    function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external 'pmgpi' index 622;
    function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external 'pmgpi' index 623;
    function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl; external 'pmgpi' index 518;
    function GpiQueryCp(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 440;
    function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;var plCount : longint;var affdescsNames : FFDESCS) : longint; cdecl; external 'pmgpi' index 452;
    function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl; external 'pmgpi' index 657;
    function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 355;
    function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl; external 'pmgpi' index 371;
    function GpiLoadBitmap(hps,Resource,idBitmap:cardinal;lWidth,lHeight : longint) : cardinal; cdecl; external 'pmgpi' index 399;
    function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl; external 'pmgpi' index 506;
    function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 557;
    function GpiCreateBitmap(hps : cardinal;var pbmpNew : BITMAPINFOHEADER2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable : BITMAPINFO2) : cardinal; cdecl; external 'pmgpi' index 598;
    function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : BITMAPINFO2) : longint; cdecl; external 'pmgpi' index 602;
    function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 507;
    function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 508;
    function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : BITMAPINFO2) : longint; cdecl; external 'pmgpi' index 599;
    function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 426;
    function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl; external 'pmgpi' index 427;
    function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData : BITMAPINFOHEADER) : longbool; cdecl; external 'pmgpi' index 573;
    function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData : BITMAPINFOHEADER2) : longbool; cdecl; external 'pmgpi' index 601;
    function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 445;
    function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 544;
    function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 476;
    function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl; external 'pmgpi' index 560;
    function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable : BITMAPINFO2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 603;
    function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl; external 'pmgpi' index 362;
    function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal; cdecl; external 'pmgpi' index 370;
    function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl; external 'pmgpi' index 611;
    function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl; external 'pmgpi' index 388;
    function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl; external 'pmgpi' index 407;
    function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl; external 'pmgpi' index 409;
    function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl; external 'pmgpi' index 617;
    function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 419;
    function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 481;
    function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl; external 'pmgpi' index 587;
    function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl; external 'pmgpi' index 494;
    function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool; cdecl; external 'pmgpi' index 546;
    function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl; external 'pmgpi' index 516;
    function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 436;
    function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 435;
    function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 391;
    function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 396;
    function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 405;
    function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl; external 'pmgpi' index 365;
    function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl; external 'pmgpi' index 375;
    function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl; external 'pmgpi' index 401;
    function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : pchar) : longint; cdecl; external 'pmgpi' index 411;
    function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 465;
    function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl; external 'pmgpi' index 466;
    function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 500;
    function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl; external 'pmgpi' index 536;
    function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 567;
    function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 590;
    function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 568;
    function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 569;
    function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 570;
    function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 591;
    function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 571;
    function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 572;
    function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl; external 'pmgpi' index 650;

end.
{
  $Log$
  Revision 1.4  1999-06-02 16:01:33  hajny
    * changes by Ramon Bosque

}