home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SOURCE.DAT / SOURCE / WIN32 / WINGDI.PAS < prev    next >
Pascal/Delphi Source File  |  1997-05-09  |  149KB  |  3,485 lines
  1. UNIT WinGDI;
  2.  
  3. {***************************************************************************
  4.  *                                                                         *
  5.  * Win32 GDI imports and types                                             *
  6.  *                                                                         *
  7.  *                                                                         *
  8.  ***************************************************************************}
  9.  
  10. INTERFACE
  11.  
  12. USES WinDef,WinNT;
  13.  
  14. CONST
  15.        R2_BLACK           = 1;
  16.        R2_NOTMERGEPEN     = 2;
  17.        R2_MASKNOTPEN      = 3;
  18.        R2_NOTCOPYPEN      = 4;
  19.        R2_MASKPENNOT      = 5;
  20.        R2_NOT             = 6;
  21.        R2_XORPEN          = 7;
  22.        R2_NOTMASKPEN      = 8;
  23.        R2_MASKPEN         = 9;
  24.        R2_NOTXORPEN       = 10;
  25.        R2_NOP             = 11;
  26.        R2_MERGENOTPEN     = 12;
  27.        R2_COPYPEN         = 13;
  28.        R2_MERGEPENNOT     = 14;
  29.        R2_MERGEPEN        = 15;
  30.        R2_WHITE           = 16;
  31.        R2_LAST            = 16;
  32.  
  33.        SRCCOPY            = $00CC0020;
  34.        SRCPAINT           = $00EE0086;
  35.        SRCAND             = $008800C6;
  36.        SRCINVERT          = $00660046;
  37.        SRCERASE           = $00440328;
  38.        NOTSRCCOPY         = $00330008;
  39.        NOTSRCERASE        = $001100A6;
  40.        MERGECOPY          = $00C000CA;
  41.        MERGEPAINT         = $00BB0226;
  42.        PATCOPY            = $00F00021;
  43.        PATPAINT           = $00FB0A09;
  44.        PATINVERT          = $005A0049;
  45.        DSTINVERT          = $00550009;
  46.        BLACKNESS          = $00000042;
  47.        WHITENESS          = $00FF0062;
  48.  
  49. CONST
  50.        GDI_ERROR          = $FFFFFFFF;
  51.        HGDI_ERROR         = $FFFFFFFF;
  52.  
  53. CONST
  54.        ERROR              = 0;
  55.        NULLREGION         = 1;
  56.        SIMPLEREGION       = 2;
  57.        COMPLEXREGION      = 3;
  58.        RGN_ERROR          = ERROR;
  59.  
  60. CONST
  61.        RGN_AND            = 1;
  62.        RGN_OR             = 2;
  63.        RGN_XOR            = 3;
  64.        RGN_DIFF           = 4;
  65.        RGN_COPY           = 5;
  66.        RGN_MIN            = RGN_AND;
  67.        RGN_MAX            = RGN_COPY;
  68.  
  69. CONST
  70.        BLACKONWHITE               =  1;
  71.        WHITEONBLACK               =  2;
  72.        COLORONCOLOR               =  3;
  73.        HALFTONE                   =  4;
  74.        MAXSTRETCHBLTMODE          =  4;
  75.  
  76.        ALTERNATE                  =  1;
  77.        WINDING                    =  2;
  78.        POLYFILL_LAST              =  2;
  79.  
  80.        TA_NOUPDATECP              =  0;
  81.        TA_UPDATECP                =  1;
  82.        TA_LEFT                    =  0;
  83.        TA_RIGHT                   =  2;
  84.        TA_CENTER                  =  6;
  85.        TA_TOP                     =  0;
  86.        TA_BOTTOM                  =  8;
  87.        TA_BASELINE                =  24;
  88.        TA_MASK                    = TA_BASELINE+TA_CENTER+TA_UPDATECP;
  89.  
  90.        VTA_BASELINE =TA_BASELINE;
  91.        VTA_LEFT     =TA_BOTTOM;
  92.        VTA_RIGHT    =TA_TOP;
  93.        VTA_CENTER   =TA_CENTER;
  94.        VTA_BOTTOM   =TA_RIGHT;
  95.        VTA_TOP      =TA_LEFT;
  96.  
  97.        ETO_GRAYED                 =  $0001;
  98.        ETO_OPAQUE                 =  $0002;
  99.        ETO_CLIPPED                =  $0004;
  100.  
  101.        ASPECT_FILTERING           =  $0001;
  102.  
  103.        DCB_RESET       =$0001;
  104.        DCB_ACCUMULATE  =$0002;
  105.        DCB_DIRTY       =DCB_ACCUMULATE;
  106.        DCB_SET         =DCB_RESET OR DCB_ACCUMULATE;
  107.        DCB_ENABLE      =$0004;
  108.        DCB_DISABLE     =$0008;
  109.  
  110. CONST
  111.        META_SETBKCOLOR              =$0201;
  112.        META_SETBKMODE               =$0102;
  113.        META_SETMAPMODE              =$0103;
  114.        META_SETROP2                 =$0104;
  115.        META_SETRELABS               =$0105;
  116.        META_SETPOLYFILLMODE         =$0106;
  117.        META_SETSTRETCHBLTMODE       =$0107;
  118.        META_SETTEXTCHAREXTRA        =$0108;
  119.        META_SETTEXTCOLOR            =$0209;
  120.        META_SETTEXTJUSTIFICATION    =$020A;
  121.        META_SETWINDOWORG            =$020B;
  122.        META_SETWINDOWEXT            =$020C;
  123.        META_SETVIEWPORTORG          =$020D;
  124.        META_SETVIEWPORTEXT          =$020E;
  125.        META_OFFSETWINDOWORG         =$020F;
  126.        META_SCALEWINDOWEXT          =$0410;
  127.        META_OFFSETVIEWPORTORG       =$0211;
  128.        META_SCALEVIEWPORTEXT        =$0412;
  129.        META_LINETO                  =$0213;
  130.        META_MOVETO                  =$0214;
  131.        META_EXCLUDECLIPRECT         =$0415;
  132.        META_INTERSECTCLIPRECT       =$0416;
  133.        META_ARC                     =$0817;
  134.        META_ELLIPSE                 =$0418;
  135.        META_FLOODFILL               =$0419;
  136.        META_PIE                     =$081A;
  137.        META_RECTANGLE               =$041B;
  138.        META_ROUNDRECT               =$061C;
  139.        META_PATBLT                  =$061D;
  140.        META_SAVEDC                  =$001E;
  141.        META_SETPIXEL                =$041F;
  142.        META_OFFSETCLIPRGN           =$0220;
  143.        META_TEXTOUT                 =$0521;
  144.        META_BITBLT                  =$0922;
  145.        META_STRETCHBLT              =$0B23;
  146.        META_POLYGON                 =$0324;
  147.        META_POLYLINE                =$0325;
  148.        META_ESCAPE                  =$0626;
  149.        META_RESTOREDC               =$0127;
  150.        META_FILLREGION              =$0228;
  151.        META_FRAMEREGION             =$0429;
  152.        META_INVERTREGION            =$012A;
  153.        META_PAINTREGION             =$012B;
  154.        META_SELECTCLIPREGION        =$012C;
  155.        META_SELECTOBJECT            =$012D;
  156.        META_SETTEXTALIGN            =$012E;
  157.        META_CHORD                   =$0830;
  158.        META_SETMAPPERFLAGS          =$0231;
  159.        META_EXTTEXTOUT              =$0a32;
  160.        META_SETDIBTODEV             =$0d33;
  161.        META_SELECTPALETTE           =$0234;
  162.        META_REALIZEPALETTE          =$0035;
  163.        META_ANIMATEPALETTE          =$0436;
  164.        META_SETPALENTRIES           =$0037;
  165.        META_POLYPOLYGON             =$0538;
  166.        META_RESIZEPALETTE           =$0139;
  167.        META_DIBBITBLT               =$0940;
  168.        META_DIBSTRETCHBLT           =$0b41;
  169.        META_DIBCREATEPATTERNBRUSH   =$0142;
  170.        META_STRETCHDIB              =$0f43;
  171.        META_EXTFLOODFILL            =$0548;
  172.        META_DELETEOBJECT            =$01f0;
  173.        META_CREATEPALETTE           =$00f7;
  174.        META_CREATEPATTERNBRUSH      =$01F9;
  175.        META_CREATEPENINDIRECT       =$02FA;
  176.        META_CREATEFONTINDIRECT      =$02FB;
  177.        META_CREATEBRUSHINDIRECT     =$02FC;
  178.        META_CREATEREGION            =$06FF;
  179.  
  180. CONST
  181.        NEWFRAME                     =1;
  182.        ABORTDOC                     =2;
  183.        NEXTBAND                     =3;
  184.        SETCOLORTABLE                =4;
  185.        GETCOLORTABLE                =5;
  186.        FLUSHOUTPUT                  =6;
  187.        DRAFTMODE                    =7;
  188.        QUERYESCSUPPORT              =8;
  189.        SETABORTPROC                 =9;
  190.        STARTDOC                     =10;
  191.        ENDDOC                       =11;
  192.        GETPHYSPAGESIZE              =12;
  193.        GETPRINTINGOFFSET            =13;
  194.        GETSCALINGFACTOR             =14;
  195.        MFCOMMENT                    =15;
  196.        GETPENWIDTH                  =16;
  197.        SETCOPYCOUNT                 =17;
  198.        SELECTPAPERSOURCE            =18;
  199.        DEVICEDATA                   =19;
  200.        PASSTHROUGH                  =19;
  201.        GETTECHNOLGY                 =20;
  202.        GETTECHNOLOGY                =20;
  203.        SETLINECAP                   =21;
  204.        SETLINEJOIN                  =22;
  205.        SETMITERLIMIT                =23;
  206.        BANDINFO                     =24;
  207.        DRAWPATTERNRECT              =25;
  208.        GETVECTORPENSIZE             =26;
  209.        GETVECTORBRUSHSIZE           =27;
  210.        ENABLEDUPLEX                 =28;
  211.        GETSETPAPERBINS              =29;
  212.        GETSETPRINTORIENT            =30;
  213.        ENUMPAPERBINS                =31;
  214.        SETDIBSCALING                =32;
  215.        EPSPRINTING                  =33;
  216.        ENUMPAPERMETRICS             =34;
  217.        GETSETPAPERMETRICS           =35;
  218.        POSTSCRIPT_DATA              =37;
  219.        POSTSCRIPT_IGNORE            =38;
  220.        MOUSETRAILS                  =39;
  221.        GETDEVICEUNITS               =42;
  222.        GETEXTENDEDTEXTMETRICS       =256;
  223.        GETEXTENTTABLE               =257;
  224.        GETPAIRKERNTABLE             =258;
  225.        GETTRACKKERNTABLE            =259;
  226.        EXTTEXTOUT                   =512;
  227.        GETFACENAME                  =513;
  228.        DOWNLOADFACE                 =514;
  229.        ENABLERELATIVEWIDTHS         =768;
  230.        ENABLEPAIRKERNING            =769;
  231.        SETKERNTRACK                 =770;
  232.        SETALLJUSTVALUES             =771;
  233.        SETCHARSET                   =772;
  234.        _STRETCHBLT                  =2048;
  235.        GETSETSCREENPARAMS           =3072;
  236.        QUERYDIBSUPPORT              =3073;
  237.        BEGIN_PATH                   =4096;
  238.        CLIP_TO_PATH                 =4097;
  239.        END_PATH                     =4098;
  240.        EXT_DEVICE_CAPS              =4099;
  241.        RESTORE_CTM                  =4100;
  242.        SAVE_CTM                     =4101;
  243.        SET_ARC_DIRECTION            =4102;
  244.        SET_BACKGROUND_COLOR         =4103;
  245.        SET_POLY_MODE                =4104;
  246.        SET_SCREEN_ANGLE             =4105;
  247.        SET_SPREAD                   =4106;
  248.        TRANSFORM_CTM                =4107;
  249.        SET_CLIP_BOX                 =4108;
  250.        SET_BOUNDS                   =4109;
  251.        SET_MIRROR_MODE              =4110;
  252.        OPENCHANNEL                  =4110;
  253.        DOWNLOADHEADER               =4111;
  254.        CLOSECHANNEL                 =4112;
  255.        POSTSCRIPT_PASSTHROUGH       =4115;
  256.        ENCAPSULATED_POSTSCRIPT      =4116;
  257.  
  258. CONST
  259.        QDI_SETDIBITS                =1;
  260.        QDI_GETDIBITS                =2;
  261.        QDI_DIBTOSCREEN              =4;
  262.        QDI_STRETCHDIB               =8;
  263.  
  264.        SP_NOTREPORTED               =$4000;
  265.        SP_ERROR                     =-1;
  266.        SP_APPABORT                  =-2;
  267.        SP_USERABORT                 =-3;
  268.        SP_OUTOFDISK                 =-4;
  269.        SP_OUTOFMEMORY               =-5;
  270.  
  271.        PR_JOBSTATUS                 =$0000;
  272.  
  273. CONST
  274.        OBJ_PEN             =1;
  275.        OBJ_BRUSH           =2;
  276.        OBJ_DC              =3;
  277.        OBJ_METADC          =4;
  278.        OBJ_PAL             =5;
  279.        OBJ_FONT            =6;
  280.        OBJ_BITMAP          =7;
  281.        OBJ_REGION          =8;
  282.        OBJ_METAFILE        =9;
  283.        OBJ_MEMDC           =10;
  284.        OBJ_EXTPEN          =11;
  285.        OBJ_ENHMETADC       =12;
  286.        OBJ_ENHMETAFILE     =13;
  287.  
  288.        MWT_IDENTITY        =1;
  289.        MWT_LEFTMULTIPLY    =2;
  290.        MWT_RIGHTMULTIPLY   =3;
  291.  
  292.        MWT_MIN             =MWT_IDENTITY;
  293.        MWT_MAX             =MWT_RIGHTMULTIPLY;
  294.  
  295. TYPE
  296.     PXFORM=^XFORM;
  297.     XFORM=RECORD
  298.                 eM11:FLOAT;
  299.                 eM12:FLOAT;
  300.                 eM21:FLOAT;
  301.                 eM22:FLOAT;
  302.                 eDx:FLOAT;
  303.                 eDy:FLOAT;
  304.     END;
  305.     LPXFORM=PXFORM;
  306.  
  307.     PBITMAP=^BITMAP;
  308.     BITMAP=RECORD
  309.                  bmType:LONG;
  310.                  bmWidth:LONG;
  311.                  bmHeight:LONG;
  312.                  bmWidthBytes:LONG;
  313.                  bmPlanes:WORD;
  314.                  bmBitsPixel:WORD;
  315.                  bmBits:POINTER;
  316.     END;
  317.     LPBITMAP=PBITMAP;
  318.     NPBITMAP=PBITMAP;
  319.  
  320.     RGBTRIPLE=RECORD
  321.                     rgbtBlue:BYTE;
  322.                     rgbtGreen:BYTE;
  323.                     rgbtRed:BYTE;
  324.     END;
  325.  
  326.     PRGBQUAD=^RGBQUAD;
  327.     RGBQUAD=RECORD
  328.                   rgbBlue:BYTE;
  329.                   rgbGreen:BYTE;
  330.                   rgbRed:BYTE;
  331.                   rgbReserved:BYTE;
  332.     END;
  333.     LPRGBQUAD=PRGBQUAD;
  334.  
  335.     PBITMAPCOREHEADER=^BITMAPCOREHEADER;
  336.     BITMAPCOREHEADER=RECORD
  337.                            bcSize:ULONG;
  338.                            bcWidth:WORD;
  339.                            bcHeight:WORD;
  340.                            bcPlanes:WORD;
  341.                            bcBitCount:WORD;
  342.     END;
  343.     LPBITMAPCOREHEADER=PBITMAPCOREHEADER;
  344.  
  345.     PBITMAPINFOHEADER=^BITMAPINFOHEADER;
  346.     BITMAPINFOHEADER=RECORD
  347.                            biSize:ULONG;
  348.                            biWidth:LONG;
  349.                            biHeight:LONG;
  350.                            biPlanes:WORD;
  351.                            biBitCount:WORD;
  352.                            biCompression:ULONG;
  353.                            biSizeImage:ULONG;
  354.                            biXPelsPerMeter:LONG;
  355.                            biYPelsPerMeter:LONG;
  356.                            biClrUsed:ULONG;
  357.                            biClrImportant:ULONG;
  358.     END;
  359.     LPBITMAPINFOHEADER=PBITMAPINFOHEADER;
  360.  
  361. CONST
  362.        BI_RGB        =0;
  363.        BI_RLE8       =1;
  364.        BI_RLE4       =2;
  365.        BI_BITFIELDS  =3;
  366.  
  367. TYPE
  368.     PBITMAPINFO=^BITMAPINFO;
  369.     BITMAPINFO=RECORD
  370.                      bmiHeader:BITMAPINFOHEADER;
  371.                      bmiColors:ARRAY[0..0] OF RGBQUAD;
  372.     END;
  373.     LPBITMAPINFO=PBITMAPINFO;
  374.  
  375.     PBITMAPCOREINFO=^BITMAPCOREINFO;
  376.     BITMAPCOREINFO=RECORD
  377.                          bmciHeader:BITMAPCOREHEADER;
  378.                          bmciColors:ARRAY[0..0] OF RGBTRIPLE;
  379.     END;
  380.     LPBITMAPCOREINFO=PBITMAPCOREINFO;
  381.  
  382.     PBITMAPFILEHEADER=^BITMAPFILEHEADER;
  383.     BITMAPFILEHEADER=RECORD
  384.                            bfType:WORD;
  385.                            bfSize:ULONG;
  386.                            bfReserved1:WORD;
  387.                            bfReserved2:WORD;
  388.                            bfOffBits:ULONG;
  389.     END;
  390.     LPBITMAPFILEHEADER=PBITMAPFILEHEADER;
  391.  
  392.     PHANDLETABLE=^HANDLETABLE;
  393.     HANDLETABLE=RECORD
  394.                       objectHandle:ARRAY[0..0] OF HGDIOBJ;
  395.     END;
  396.     LPHANDLETABLE=PHANDLETABLE;
  397.  
  398.     PMETARECORD=^METARECORD;
  399.     METARECORD=RECORD
  400.                      rdSize:ULONG;
  401.                      rdFunction:WORD;
  402.                      rdParm:ARRAY[0..0] OF WORD;
  403.     END;
  404.     LPMETARECORD=PMETARECORD;
  405.  
  406.     PMETAFILEPICT=^METAFILEPICT;
  407.     METAFILEPICT=RECORD
  408.                        mm:LONG;
  409.                        xExt:LONG;
  410.                        yExt:LONG;
  411.                        hMF:HMETAFILE;
  412.     END;
  413.     LPMETAFILEPICT=PMETAFILEPICT;
  414.  
  415.     PMETAHEADER=^METAHEADER;
  416.     METAHEADER=RECORD
  417.                      mtType:WORD;
  418.                      mtHeaderSize:WORD;
  419.                      mtVersion:WORD;
  420.                      mtSize:ULONG;
  421.                      mtNoObjects:WORD;
  422.                      mtMaxRecord:ULONG;
  423.                      mtNoParameters:WORD;
  424.     END;
  425.     LPMETAHEADER=PMETAHEADER;
  426.  
  427.     PENHMETARECORD=^ENHMETARECORD;
  428.     ENHMETARECORD=RECORD
  429.                         iType:ULONG;
  430.                         nSize:ULONG;
  431.                         dParm:ARRAY[0..0] OF ULONG;
  432.     END;
  433.     LPENHMETARECORD=PENHMETARECORD;
  434.  
  435.     PENHMETAHEADER=^ENHMETAHEADER;
  436.     ENHMETAHEADER=RECORD
  437.                         iType:ULONG;
  438.                         nSize:ULONG;
  439.                         rclBounds:RECTL;
  440.                         rclFrame:RECTL;
  441.                         dSignature:ULONG;
  442.                         nVersion:ULONG;
  443.                         nBytes:ULONG;
  444.                         nRecords:ULONG;
  445.                         nHandles:WORD;
  446.                         sReserved:WORD;
  447.                         nDescription:ULONG;
  448.                         offDescription:ULONG;
  449.                         nPalEntries:ULONG;
  450.                         szlDevice:SIZEL;
  451.                         szlMillimeters:SIZEL;
  452.     END;
  453.     LPENHMETAHEADER=PENHMETAHEADER;
  454.  
  455. CONST
  456.        TMPF_FIXED_PITCH    =$01;
  457.        TMPF_VECTOR         =$02;
  458.        TMPF_DEVICE         =$08;
  459.        TMPF_TRUETYPE       =$04;
  460.  
  461. TYPE
  462.     PTEXTMETRIC=^TEXTMETRIC;
  463.     TEXTMETRIC=RECORD
  464.                      tmHeight:LONG;
  465.                      tmAscent:LONG;
  466.                      tmDescent:LONG;
  467.                      tmInternalLeading:LONG;
  468.                      tmExternalLeading:LONG;
  469.                      tmAveCharWidth:LONG;
  470.                      tmMaxCharWidth:LONG;
  471.                      tmWeight:LONG;
  472.                      tmOverhang:LONG;
  473.                      tmDigitizedAspectX:LONG;
  474.                      tmDigitizedAspectY:LONG;
  475.                      tmFirstChar:BYTE;
  476.                      tmLastChar:BYTE;
  477.                      tmDefaultChar:BYTE;
  478.                      tmBreakChar:BYTE;
  479.                      tmItalic:BYTE;
  480.                      tmUnderlined:BYTE;
  481.                      tmStruckOut:BYTE;
  482.                      tmPitchAndFamily:BYTE;
  483.                      tmCharSet:BYTE;
  484.     END;
  485.     NPTEXTMETRIC=PTEXTMETRIC;
  486.     LPTEXTMETRIC=PTEXTMETRIC;
  487.  
  488. CONST
  489.        NTM_REGULAR     =$00000040;
  490.        NTM_BOLD        =$00000020;
  491.        NTM_ITALIC      =$00000001;
  492.  
  493. TYPE
  494.     PNEWTEXTMETRIC=^NEWTEXTMETRIC;
  495.     NEWTEXTMETRIC=RECORD
  496.                         tmHeight:LONG;
  497.                         tmAscent:LONG;
  498.                         tmDescent:LONG;
  499.                         tmInternalLeading:LONG;
  500.                         tmExternalLeading:LONG;
  501.                         tmAveCharWidth:LONG;
  502.                         tmMaxCharWidth:LONG;
  503.                         tmWeight:LONG;
  504.                         tmOverhang:LONG;
  505.                         tmDigitizedAspectX:LONG;
  506.                         tmDigitizedAspectY:LONG;
  507.                         tmFirstChar:BYTE;
  508.                         tmLastChar:BYTE;
  509.                         tmDefaultChar:BYTE;
  510.                         tmBreakChar:BYTE;
  511.                         tmItalic:BYTE;
  512.                         tmUnderlined:BYTE;
  513.                         tmStruckOut:BYTE;
  514.                         tmPitchAndFamily:BYTE;
  515.                         tmCharSet:BYTE;
  516.                         ntmFlags:ULONG;
  517.                         ntmSizeEM:ULONG;
  518.                         ntmCellHeight:ULONG;
  519.                         ntmAvgWidth:ULONG;
  520.     END;
  521.     NPNEWTEXTMETRIC=PNEWTEXTMETRIC;
  522.     LPNEWTEXTMETRIC=PNEWTEXTMETRIC;
  523.  
  524.     PPELARRAY=^PELARRAY;
  525.     PELARRAY=RECORD
  526.                    paXCount:LONG;
  527.                    paYCount:LONG;
  528.                    paXExt:LONG;
  529.                    paYExt:LONG;
  530.                    paRGBs:BYTE;
  531.     END;
  532.     NPPELARRAY=PPELARRAY;
  533.     LPPELARRAY=PPELARRAY;
  534.  
  535.     PLOGBRUSH=^LOGBRUSH;
  536.     LOGBRUSH=RECORD
  537.                    lbStyle:ULONG;
  538.                    lbColor:COLORREF;
  539.                    lbHatch:LONG;
  540.     END;
  541.     NPLOGBRUSH=PLOGBRUSH;
  542.     LPLOGBRUSH=PLOGBRUSH;
  543.  
  544.     PPATTERN=^PATTERN;
  545.     PATTERN=LOGBRUSH;
  546.     NPPATTERN=PPATTERN;
  547.     LPPATTERN=PPATTERN;
  548.  
  549.     PLOGPEN=^LOGPEN;
  550.     LOGPEN=RECORD
  551.                  lopnStyle:ULONG;
  552.                  lopnWidth:POINT;
  553.                  lopnColor:COLORREF;
  554.     END;
  555.     NPLOGPEN=PLOGPEN;
  556.     LPLOGPEN=PLOGPEN;
  557.  
  558.     PEXTLOGPEN=^EXTLOGPEN;
  559.     EXTLOGPEN=RECORD
  560.                     elpPenStyle:ULONG;
  561.                     elpWidth:ULONG;
  562.                     elpBrushStyle:ULONG;
  563.                     elpColor:COLORREF;
  564.                     elpHatch:LONG;
  565.                     elpNumEntries:ULONG;
  566.                     elpStyleEntry:ARRAY[0..0] OF ULONG;
  567.     END;
  568.     NPEXTLOGPEN=PEXTLOGPEN;
  569.     LPEXTLOGPEN=PEXTLOGPEN;
  570.  
  571.     PPALETTEENTRY=^PALETTEENTRY;
  572.     PALETTEENTRY=RECORD
  573.                        peRed:BYTE;
  574.                        peGreen:BYTE;
  575.                        peBlue:BYTE;
  576.                        peFlags:BYTE;
  577.     END;
  578.     LPPALETTEENTRY=PPALETTEENTRY;
  579.  
  580.     PLOGPALETTE=^LOGPALETTE;
  581.     LOGPALETTE=RECORD
  582.                      palVersion:WORD;
  583.                      palNumEntries:WORD;
  584.                      palPalEntry:ARRAY[0..0] OF PALETTEENTRY;
  585.     END;
  586.     NPLOGPALETTE=PLOGPALETTE;
  587.     LPLOGPALETTE=PLOGPALETTE;
  588.  
  589. CONST
  590.      LF_FACESIZE         =32;
  591.  
  592. TYPE
  593.     PLOGFONT=^LOGFONT;
  594.     LOGFONT=RECORD
  595.                   lfHeight:LONG;
  596.                   lfWidth:LONG;
  597.                   lfEscapement:LONG;
  598.                   lfOrientation:LONG;
  599.                   lfWeight:LONG;
  600.                   lfItalic:BYTE;
  601.                   lfUnderline:BYTE;
  602.                   lfStrikeOut:BYTE;
  603.                   lfCharSet:BYTE;
  604.                   lfOutPrecision:BYTE;
  605.                   lfClipPrecision:BYTE;
  606.                   lfQuality:BYTE;
  607.                   lfPitchAndFamily:BYTE;
  608.                   lfFaceName:CSTRING[LF_FACESIZE-1];
  609.     END;
  610.     NPLOGFONT=PLOGFONT;
  611.     LPLOGFONT=PLOGFONT;
  612.  
  613. CONST
  614.        LF_FULLFACESIZE     =64;
  615.  
  616. TYPE
  617.     PENUMLOGFONT=^ENUMLOGFONT;
  618.     ENUMLOGFONT=RECORD
  619.                       elfLogFont:LOGFONT;
  620.                       elfFullName:ARRAY[0..LF_FULLFACESIZE-1] OF BYTE;
  621.                       elfStyle:ARRAY[0..LF_FACESIZE-1] OF BYTE;
  622.     END;
  623.     LPENUMLOGFONT=PENUMLOGFONT;
  624.  
  625. CONST
  626.        OUT_DEFAULT_PRECIS     = 0;
  627.        OUT_STRING_PRECIS      = 1;
  628.        OUT_CHARACTER_PRECIS   = 2;
  629.        OUT_STROKE_PRECIS      = 3;
  630.        OUT_TT_PRECIS          = 4;
  631.        OUT_DEVICE_PRECIS      = 5;
  632.        OUT_RASTER_PRECIS      = 6;
  633.        OUT_TT_ONLY_PRECIS     = 7;
  634.        OUT_OUTLINE_PRECIS     = 8;
  635.        CLIP_DEFAULT_PRECIS    = 0;
  636.        CLIP_CHARACTER_PRECIS  = 1;
  637.        CLIP_STROKE_PRECIS     = 2;
  638.        CLIP_MASK              = $f;
  639.        CLIP_LH_ANGLES         = 1 SHL 4;
  640.        CLIP_TT_ALWAYS         = 2 SHL 4;
  641.        CLIP_EMBEDDED          = 8 SHL 4;
  642.  
  643.        DEFAULT_QUALITY        = 0;
  644.        DRAFT_QUALITY          = 1;
  645.        PROOF_QUALITY          = 2;
  646.        DEFAULT_PITCH          = 0;
  647.        FIXED_PITCH            = 1;
  648.        VARIABLE_PITCH         = 2;
  649.        ANSI_CHARSET           = 0;
  650.        DEFAULT_CHARSET        = 1;
  651.        SYMBOL_CHARSET         = 2;
  652.        SHIFTJIS_CHARSET       = 128;
  653.        HANGEUL_CHARSET        = 129;
  654.        GB2312_CHARSET         = 134;
  655.        CHINESEBIG5_CHARSET    = 136;
  656.        OEM_CHARSET            = 255;
  657.  
  658. CONST
  659.        FF_DONTCARE         =0 SHL 4;
  660.        FF_ROMAN            =1 SHL 4;
  661.        FF_SWISS            =2 SHL 4;
  662.        FF_MODERN           =3 SHL 4;
  663.        FF_SCRIPT           =4 SHL 4;
  664.        FF_DECORATIVE       =5 SHL 4;
  665.        FW_DONTCARE         =0;
  666.        FW_THIN             =100;
  667.        FW_EXTRALIGHT       =200;
  668.        FW_LIGHT            =300;
  669.        FW_NORMAL           =400;
  670.        FW_MEDIUM           =500;
  671.        FW_SEMIBOLD         =600;
  672.        FW_BOLD             =700;
  673.        FW_EXTRABOLD        =800;
  674.        FW_HEAVY            =900;
  675.        FW_ULTRALIGHT       =FW_EXTRALIGHT;
  676.        FW_REGULAR          =FW_NORMAL;
  677.        FW_DEMIBOLD         =FW_SEMIBOLD;
  678.        FW_ULTRABOLD        =FW_EXTRABOLD;
  679.        FW_BLACK            =FW_HEAVY;
  680.  
  681.        PANOSE_COUNT               =10;
  682.        PAN_FAMILYTYPE_INDEX       = 0;
  683.        PAN_SERIFSTYLE_INDEX       = 1;
  684.        PAN_WEIGHT_INDEX           = 2;
  685.        PAN_PROPORTION_INDEX       = 3;
  686.        PAN_CONTRAST_INDEX         = 4;
  687.        PAN_STROKEVARIATION_INDEX  = 5;
  688.        PAN_ARMSTYLE_INDEX         = 6;
  689.        PAN_LETTERFORM_INDEX       = 7;
  690.        PAN_MIDLINE_INDEX          = 8;
  691.        PAN_XHEIGHT_INDEX          = 9;
  692.        PAN_CULTURE_LATIN          = 0;
  693.  
  694. TYPE
  695.     PPANOSE=^PANOSE;
  696.     PANOSE=RECORD
  697.                  bFamilyType:BYTE;
  698.                  bSerifStyle:BYTE;
  699.                  bWeight:BYTE;
  700.                  bProportion:BYTE;
  701.                  bContrast:BYTE;
  702.                  bStrokeVariation:BYTE;
  703.                  bArmStyle:BYTE;
  704.                  bLetterform:BYTE;
  705.                  bMidline:BYTE;
  706.                  bXHeight:BYTE;
  707.     END;
  708.     LPPANOSE=PPANOSE;
  709.  
  710. CONST
  711.        PAN_ANY                        = 0;
  712.        PAN_NO_FIT                     = 1;
  713.        PAN_FAMILY_TEXT_DISPLAY        = 2;
  714.        PAN_FAMILY_SCRIPT              = 3;
  715.        PAN_FAMILY_DECORATIVE          = 4;
  716.        PAN_FAMILY_PICTORIAL           = 5;
  717.        PAN_SERIF_COVE                 = 2;
  718.        PAN_SERIF_OBTUSE_COVE          = 3;
  719.        PAN_SERIF_SQUARE_COVE          = 4;
  720.        PAN_SERIF_OBTUSE_SQUARE_COVE   = 5;
  721.        PAN_SERIF_SQUARE               = 6;
  722.        PAN_SERIF_THIN                 = 7;
  723.        PAN_SERIF_BONE                 = 8;
  724.        PAN_SERIF_EXAGGERATED          = 9;
  725.        PAN_SERIF_TRIANGLE             =10;
  726.        PAN_SERIF_NORMAL_SANS          =11;
  727.        PAN_SERIF_OBTUSE_SANS          =12;
  728.        PAN_SERIF_PERP_SANS            =13;
  729.        PAN_SERIF_FLARED               =14;
  730.        PAN_SERIF_ROUNDED              =15;
  731.        PAN_WEIGHT_VERY_LIGHT          = 2;
  732.        PAN_WEIGHT_LIGHT               = 3;
  733.        PAN_WEIGHT_THIN                = 4;
  734.        PAN_WEIGHT_BOOK                = 5;
  735.        PAN_WEIGHT_MEDIUM              = 6;
  736.        PAN_WEIGHT_DEMI                = 7;
  737.        PAN_WEIGHT_BOLD                = 8;
  738.        PAN_WEIGHT_HEAVY               = 9;
  739.        PAN_WEIGHT_BLACK               =10;
  740.        PAN_WEIGHT_NORD                =11;
  741.        PAN_PROP_OLD_STYLE             = 2;
  742.        PAN_PROP_MODERN                = 3;
  743.        PAN_PROP_EVEN_WIDTH            = 4;
  744.        PAN_PROP_EXPANDED              = 5;
  745.        PAN_PROP_CONDENSED             = 6;
  746.        PAN_PROP_VERY_EXPANDED         = 7;
  747.        PAN_PROP_VERY_CONDENSED        = 8;
  748.        PAN_PROP_MONOSPACED            = 9;
  749.        PAN_CONTRAST_NONE              = 2;
  750.        PAN_CONTRAST_VERY_LOW          = 3;
  751.        PAN_CONTRAST_LOW               = 4;
  752.        PAN_CONTRAST_MEDIUM_LOW        = 5;
  753.        PAN_CONTRAST_MEDIUM            = 6;
  754.        PAN_CONTRAST_MEDIUM_HIGH       = 7;
  755.        PAN_CONTRAST_HIGH              = 8;
  756.        PAN_CONTRAST_VERY_HIGH         = 9;
  757.        PAN_STROKE_GRADUAL_DIAG        = 2;
  758.        PAN_STROKE_GRADUAL_TRAN        = 3;
  759.        PAN_STROKE_GRADUAL_VERT        = 4;
  760.        PAN_STROKE_GRADUAL_HORZ        = 5;
  761.        PAN_STROKE_RAPID_VERT          = 6;
  762.        PAN_STROKE_RAPID_HORZ          = 7;
  763.        PAN_STROKE_INSTANT_VERT        = 8;
  764.        PAN_STRAIGHT_ARMS_HORZ         = 2;
  765.        PAN_STRAIGHT_ARMS_WEDGE        = 3;
  766.        PAN_STRAIGHT_ARMS_VERT         = 4;
  767.        PAN_STRAIGHT_ARMS_SINGLE_SERIF = 5;
  768.        PAN_STRAIGHT_ARMS_DOUBLE_SERIF = 6;
  769.        PAN_BENT_ARMS_HORZ             = 7;
  770.        PAN_BENT_ARMS_WEDGE            = 8;
  771.        PAN_BENT_ARMS_VERT             = 9;
  772.        PAN_BENT_ARMS_SINGLE_SERIF     =10;
  773.        PAN_BENT_ARMS_DOUBLE_SERIF     =11;
  774.        PAN_LETT_NORMAL_CONTACT        = 2;
  775.        PAN_LETT_NORMAL_WEIGHTED       = 3;
  776.        PAN_LETT_NORMAL_BOXED          = 4;
  777.        PAN_LETT_NORMAL_FLATTENED      = 5;
  778.        PAN_LETT_NORMAL_ROUNDED        = 6;
  779.        PAN_LETT_NORMAL_OFF_CENTER     = 7;
  780.        PAN_LETT_NORMAL_SQUARE         = 8;
  781.        PAN_LETT_OBLIQUE_CONTACT       = 9;
  782.        PAN_LETT_OBLIQUE_WEIGHTED      =10;
  783.        PAN_LETT_OBLIQUE_BOXED         =11;
  784.        PAN_LETT_OBLIQUE_FLATTENED     =12;
  785.        PAN_LETT_OBLIQUE_ROUNDED       =13;
  786.        PAN_LETT_OBLIQUE_OFF_CENTER    =14;
  787.        PAN_LETT_OBLIQUE_SQUARE        =15;
  788.        PAN_MIDLINE_STANDARD_TRIMMED   = 2;
  789.        PAN_MIDLINE_STANDARD_POINTED   = 3;
  790.        PAN_MIDLINE_STANDARD_SERIFED   = 4;
  791.        PAN_MIDLINE_HIGH_TRIMMED       = 5;
  792.        PAN_MIDLINE_HIGH_POINTED       = 6;
  793.        PAN_MIDLINE_HIGH_SERIFED       = 7;
  794.        PAN_MIDLINE_CONSTANT_TRIMMED   = 8;
  795.        PAN_MIDLINE_CONSTANT_POINTED   = 9;
  796.        PAN_MIDLINE_CONSTANT_SERIFED   =10;
  797.        PAN_MIDLINE_LOW_TRIMMED        =11;
  798.        PAN_MIDLINE_LOW_POINTED        =12;
  799.        PAN_MIDLINE_LOW_SERIFED        =13;
  800.        PAN_XHEIGHT_CONSTANT_SMALL     = 2;
  801.        PAN_XHEIGHT_CONSTANT_STD       = 3;
  802.        PAN_XHEIGHT_CONSTANT_LARGE     = 4;
  803.        PAN_XHEIGHT_DUCKING_SMALL      = 5;
  804.        PAN_XHEIGHT_DUCKING_STD        = 6;
  805.        PAN_XHEIGHT_DUCKING_LARGE      = 7;
  806.        ELF_VENDOR_SIZE                = 4;
  807.  
  808. TYPE
  809.     PEXTLOGFONT=^EXTLOGFONT;
  810.     EXTLOGFONT=RECORD
  811.                      elfLogFont:LOGFONT;
  812.                      elfFullName:ARRAY[0..LF_FULLFACESIZE-1] OF BYTE;
  813.                      elfStyle:ARRAY[0..LF_FACESIZE-1] OF BYTE;
  814.                      elfVersion:ULONG;
  815.                      elfStyleSize:ULONG;
  816.                      elfMatch:ULONG;
  817.                      elfReserved:ULONG;
  818.                      elfVendorId:ARRAY[0..ELF_VENDOR_SIZE-1] OF BYTE;
  819.                      elfCulture:ULONG;
  820.                      elfPanose:PANOSE;
  821.     END;
  822.     NPEXTLOGFONT=PEXTLOGFONT;
  823.     LPEXTLOGFONTA=PEXTLOGFONT;
  824.  
  825. CONST
  826.        ELF_VERSION         =0;
  827.        ELF_CULTURE_LATIN   =0;
  828.  
  829.        RASTER_FONTTYPE     =$0001;
  830.        DEVICE_FONTTYPE     =$002;
  831.        TRUETYPE_FONTTYPE   =$004;
  832.  
  833. CONST
  834.        PC_RESERVED     =$01;
  835.        PC_EXPLICIT     =$02;
  836.        PC_NOCOLLAPSE   =$04;
  837.  
  838.       TRANSPARENT         =1;
  839.       OPAQUE              =2;
  840.       BKMODE_LAST         =2;
  841.  
  842.       GM_COMPATIBLE       =1;
  843.       GM_ADVANCED         =2;
  844.       GM_LAST             =2;
  845.  
  846.       PT_CLOSEFIGURE      =$01;
  847.       PT_LINETO           =$02;
  848.       PT_BEZIERTO         =$04;
  849.       PT_MOVETO           =$06;
  850.  
  851.       MM_TEXT             =1;
  852.       MM_LOMETRIC         =2;
  853.       MM_HIMETRIC         =3;
  854.       MM_LOENGLISH        =4;
  855.       MM_HIENGLISH        =5;
  856.       MM_TWIPS            =6;
  857.       MM_ISOTROPIC        =7;
  858.       MM_ANISOTROPIC      =8;
  859.       MM_MIN              =MM_TEXT;
  860.       MM_MAX              =MM_ANISOTROPIC;
  861.       MM_MAX_FIXEDSCALE   =MM_TWIPS;
  862.  
  863.       AABSOLUTE           =1;
  864.       RELATIVE            =2;
  865.  
  866.       WHITE_BRUSH         =0;
  867.       LTGRAY_BRUSH        =1;
  868.       GRAY_BRUSH          =2;
  869.       DKGRAY_BRUSH        =3;
  870.       BLACK_BRUSH         =4;
  871.       NULL_BRUSH          =5;
  872.       HOLLOW_BRUSH        =NULL_BRUSH;
  873.       WHITE_PEN           =6;
  874.       BLACK_PEN           =7;
  875.       NULL_PEN            =8;
  876.       OEM_FIXED_FONT      =10;
  877.       ANSI_FIXED_FONT     =11;
  878.       ANSI_VAR_FONT       =12;
  879.       SYSTEM_FONT         =13;
  880.       DEVICE_DEFAULT_FONT =14;
  881.       DEFAULT_PALETTE     =15;
  882.       SYSTEM_FIXED_FONT   =16;
  883.       STOCK_LAST          =16;
  884.  
  885.       CLR_INVALID         =$FFFFFFFF;
  886.  
  887.       BS_SOLID            =0;
  888.       BS_NULL             =1;
  889.       BS_HOLLOW           =BS_NULL;
  890.       BS_HATCHED          =2;
  891.       BS_PATTERN          =3;
  892.       BS_INDEXED          =4;
  893.       BS_DIBPATTERN       =5;
  894.       BS_DIBPATTERNPT     =6;
  895.       BS_PATTERN8X8       =7;
  896.       BS_DIBPATTERN8X8    =8;
  897.  
  898.       HS_HORIZONTAL       =0;
  899.       HS_VERTICAL         =1;
  900.       HS_FDIAGONAL        =2;
  901.       HS_BDIAGONAL        =3;
  902.       HS_CROSS            =4;
  903.       HS_DIAGCROSS        =5;
  904.       HS_SOLIDCLR         =6;
  905.       HS_DITHEREDCLR      =7;
  906.       HS_SOLIDTEXTCLR     =8;
  907.       HS_DITHEREDTEXTCLR  =9;
  908.       HS_SOLIDBKCLR       =10;
  909.       HS_DITHEREDBKCLR    =11;
  910.       HS_API_MAX          =12;
  911.  
  912.       PS_SOLID            =0;
  913.       PS_DASH             =1;
  914.       PS_DOT              =2;
  915.       PS_DASHDOT          =3;
  916.       PS_DASHDOTDOT       =4;
  917.       PS_NULL             =5;
  918.       PS_INSIDEFRAME      =6;
  919.       PS_USERSTYLE        =7;
  920.       PS_ALTERNATE        =8;
  921.       PS_STYLE_MASK       =$0000000F;
  922.  
  923.       PS_ENDCAP_ROUND     =$00000000;
  924.       PS_ENDCAP_SQUARE    =$00000100;
  925.       PS_ENDCAP_FLAT      =$00000200;
  926.       PS_ENDCAP_MASK      =$00000F00;
  927.       PS_JOIN_ROUND       =$00000000;
  928.       PS_JOIN_BEVEL       =$00001000;
  929.       PS_JOIN_MITER       =$00002000;
  930.       PS_JOIN_MASK        =$0000F000;
  931.       PS_COSMETIC         =$00000000;
  932.       PS_GEOMETRIC        =$00010000;
  933.       PS_TYPE_MASK        =$000F0000;
  934.  
  935.       AD_COUNTERCLOCKWISE =1;
  936.       AD_CLOCKWISE        =2;
  937.  
  938.       DRIVERVERSION =0;
  939.       TECHNOLOGY    =2;
  940.       HORZSIZE      =4;
  941.       VERTSIZE      =6;
  942.       HORZRES       =8;
  943.       VERTRES       =10;
  944.       BITSPIXEL     =12;
  945.       PLANES        =14;
  946.       NUMBRUSHES    =16;
  947.       NUMPENS       =18;
  948.       NUMMARKERS    =20;
  949.       NUMFONTS      =22;
  950.       NUMCOLORS     =24;
  951.       PDEVICESIZE   =26;
  952.       CURVECAPS     =28;
  953.       LINECAPS      =30;
  954.       POLYGONALCAPS =32;
  955.       TEXTCAPS      =34;
  956.       CLIPCAPS      =36;
  957.       RASTERCAPS    =38;
  958.       ASPECTX       =40;
  959.       ASPECTY       =42;
  960.       ASPECTXY      =44;
  961.       LOGPIXELSX    =88;
  962.       LOGPIXELSY    =90;
  963.       SIZEPALETTE  =104;
  964.       NUMRESERVED  =106;
  965.       COLORRES     =108;
  966.  
  967.       PHYSICALWIDTH   =110;
  968.       PHYSICALHEIGHT  =111;
  969.       PHYSICALOFFSETX =112;
  970.       PHYSICALOFFSETY =113;
  971.       SCALINGFACTORX  =114;
  972.       SCALINGFACTORY  =115;
  973.  
  974.       VREFRESH        =116;
  975.       DESKTOPVERTRES  =117;
  976.       DESKTOPHORZRES  =118;
  977.       BLTALIGNMENT    =119;
  978.  
  979.       DT_PLOTTER          =0;
  980.       DT_RASDISPLAY       =1;
  981.       DT_RASPRINTER       =2;
  982.       DT_RASCAMERA        =3;
  983.       DT_CHARSTREAM       =4;
  984.       DT_METAFILE         =5;
  985.       DT_DISPFILE         =6;
  986.  
  987.       CC_NONE             =0;
  988.       CC_CIRCLES          =1;
  989.       CC_PIE              =2;
  990.       CC_CHORD            =4;
  991.       CC_ELLIPSES         =8;
  992.       CC_WIDE             =16;
  993.       CC_STYLED           =32;
  994.       CC_WIDESTYLED       =64;
  995.       CC_INTERIORS        =128;
  996.       CC_ROUNDRECT        =256;
  997.  
  998.       LC_NONE             =0;
  999.       LC_POLYLINE         =2;
  1000.       LC_MARKER           =4;
  1001.       LC_POLYMARKER       =8;
  1002.       LC_WIDE             =16;
  1003.       LC_STYLED           =32;
  1004.       LC_WIDESTYLED       =64;
  1005.       LC_INTERIORS        =128;
  1006.  
  1007.       PC_NONE             =0;
  1008.       PC_POLYGON          =1;
  1009.       PC_RECTANGLE        =2;
  1010.       PC_WINDPOLYGON      =4;
  1011.       PC_TRAPEZOID        =4;
  1012.       PC_SCANLINE         =8;
  1013.       PC_WIDE             =16;
  1014.       PC_STYLED           =32;
  1015.       PC_WIDESTYLED       =64;
  1016.       PC_INTERIORS        =128;
  1017.  
  1018.       CP_NONE             =0;
  1019.       CP_RECTANGLE        =1;
  1020.       CP_REGION           =2;
  1021.  
  1022.       TC_OP_CHARACTER     =$00000001;
  1023.       TC_OP_STROKE        =$00000002;
  1024.       TC_CP_STROKE        =$00000004;
  1025.       TC_CR_90            =$00000008;
  1026.       TC_CR_ANY           =$00000010;
  1027.       TC_SF_X_YINDEP      =$00000020;
  1028.       TC_SA_DOUBLE        =$00000040;
  1029.       TC_SA_INTEGER       =$00000080;
  1030.       TC_SA_CONTIN        =$00000100;
  1031.       TC_EA_DOUBLE        =$00000200;
  1032.       TC_IA_ABLE          =$00000400;
  1033.       TC_UA_ABLE          =$00000800;
  1034.       TC_SO_ABLE          =$00001000;
  1035.       TC_RA_ABLE          =$00002000;
  1036.       TC_VA_ABLE          =$00004000;
  1037.       TC_RESERVED         =$00008000;
  1038.       TC_SCROLLBLT        =$00010000;
  1039.  
  1040.       RC_NONE             =0;
  1041.       RC_BITBLT           =1;
  1042.       RC_BANDING          =2;
  1043.       RC_SCALING          =4;
  1044.       RC_BITMAP64         =8;
  1045.       RC_GDI20_OUTPUT     =$0010;
  1046.       RC_GDI20_STATE      =$0020;
  1047.       RC_SAVEBITMAP       =$0040;
  1048.       RC_DI_BITMAP        =$0080;
  1049.       RC_PALETTE          =$0100;
  1050.       RC_DIBTODEV         =$0200;
  1051.       RC_BIGFONT          =$0400;
  1052.       RC_STRETCHBLT       =$0800;
  1053.       RC_FLOODFILL        =$1000;
  1054.       RC_STRETCHDIB       =$2000;
  1055.       RC_OP_DX_OUTPUT     =$4000;
  1056.       RC_DEVBITS          =$8000;
  1057.  
  1058.       DIB_RGB_COLORS      =0;
  1059.       DIB_PAL_COLORS      =1;
  1060.       DIB_PAL_INDICES     =2;
  1061.       DIB_PAL_PHYSINDICES =2;
  1062.       DIB_PAL_LOGINDICES  =4;
  1063.  
  1064.       SYSPAL_ERROR    =0;
  1065.       SYSPAL_STATIC   =1;
  1066.       SYSPAL_NOSTATIC =2;
  1067.  
  1068.       CBM_CREATEDIB   =$02;
  1069.       CBM_INIT        =$04;
  1070.  
  1071.       FLOODFILLBORDER   =0;
  1072.       FLOODFILLSURFACE  =1;
  1073.  
  1074.       CCHDEVICENAME =32;
  1075.       CCHFORMNAME   =32;
  1076.  
  1077. TYPE
  1078.     PDEVMODE=^DEVMODE;
  1079.     DEVMODE=RECORD
  1080.                   dmDeviceName:ARRAY[0..CCHDEVICENAME-1] OF BYTE;
  1081.                   dmSpecVersion:WORD;
  1082.                   dmDriverVersion:WORD;
  1083.                   dmSize:WORD;
  1084.                   dmDriverExtra:WORD;
  1085.                   dmFields:WORD;
  1086.                   dmOrientation:SHORT;
  1087.                   dmPaperSize:SHORT;
  1088.                   dmPaperLength:SHORT;
  1089.                   dmPaperWidth:SHORT;
  1090.                   dmScale:SHORT;
  1091.                   dmCopies:SHORT;
  1092.                   dmDefaultSource:SHORT;
  1093.                   dmPrintQuality:SHORT;
  1094.                   dmColor:SHORT;
  1095.                   dmDuplex:SHORT;
  1096.                   dmYResolution:SHORT;
  1097.                   dmTTOption:SHORT;
  1098.                   dmCollate:SHORT;
  1099.                   dmFormName:ARRAY[0..CCHFORMNAME-1] OF BYTE;
  1100.                   dmLogPixels:WORD;
  1101.                   dmBitsPerPel:ULONG;
  1102.                   dmPelsWidth:ULONG;
  1103.                   dmPelsHeight:ULONG;
  1104.                   dmDisplayFlags:ULONG;
  1105.                   dmDisplayFrequency:ULONG;
  1106.     END;
  1107.     NPDEVMODE=PDEVMODE;
  1108.     LPDEVMODE=PDEVMODE;
  1109.  
  1110. CONST
  1111.        DM_SPECVERSION      =$0320;
  1112.        DM_ORIENTATION      =$00000001;
  1113.        DM_PAPERSIZE        =$00000002;
  1114.        DM_PAPERLENGTH      =$00000004;
  1115.        DM_PAPERWIDTH       =$00000008;
  1116.        DM_SCALE            =$00000010;
  1117.        DM_COPIES           =$00000100;
  1118.        DM_DEFAULTSOURCE    =$00000200;
  1119.        DM_PRINTQUALITY     =$00000400;
  1120.        DM_COLOR            =$00000800;
  1121.        DM_DUPLEX           =$00001000;
  1122.        DM_YRESOLUTION      =$00002000;
  1123.        DM_TTOPTION         =$00004000;
  1124.        DM_COLLATE          =$00008000;
  1125.        DM_FORMNAME         =$00010000;
  1126.  
  1127.        DMORIENT_PORTRAIT   =1;
  1128.        DMORIENT_LANDSCAPE  =2;
  1129.        DMPAPER_LETTER      =1;
  1130.        DMPAPER_FIRST       =DMPAPER_LETTER;
  1131.        DMPAPER_LETTERSMALL =2;
  1132.        DMPAPER_TABLOID     =3;
  1133.        DMPAPER_LEDGER      =4;
  1134.        DMPAPER_LEGAL       =5;
  1135.        DMPAPER_STATEMENT   =6;
  1136.        DMPAPER_EXECUTIVE   =7;
  1137.        DMPAPER_A3          =8;
  1138.        DMPAPER_A4          =9;
  1139.        DMPAPER_A4SMALL     =10;
  1140.        DMPAPER_A5          =11;
  1141.        DMPAPER_B4          =12;
  1142.        DMPAPER_B5          =13;
  1143.        DMPAPER_FOLIO       =14;
  1144.        DMPAPER_QUARTO      =15;
  1145.        DMPAPER_10X14       =16;
  1146.        DMPAPER_11X17       =17;
  1147.        DMPAPER_NOTE        =18;
  1148.        DMPAPER_ENV_9       =19;
  1149.        DMPAPER_ENV_10      =20;
  1150.        DMPAPER_ENV_11      =21;
  1151.        DMPAPER_ENV_12      =22;
  1152.        DMPAPER_ENV_14      =23;
  1153.        DMPAPER_CSHEET      =24;
  1154.        DMPAPER_DSHEET      =25;
  1155.        DMPAPER_ESHEET      =26;
  1156.        DMPAPER_ENV_DL      =27;
  1157.        DMPAPER_ENV_C5      =28;
  1158.        DMPAPER_ENV_C3      =29;
  1159.        DMPAPER_ENV_C4      =30;
  1160.        DMPAPER_ENV_C6      =31;
  1161.        DMPAPER_ENV_C65     =32;
  1162.        DMPAPER_ENV_B4      =33;
  1163.        DMPAPER_ENV_B5      =34;
  1164.        DMPAPER_ENV_B6      =35;
  1165.        DMPAPER_ENV_ITALY   =36;
  1166.        DMPAPER_ENV_MONARCH =37;
  1167.        DMPAPER_ENV_PERSONAL= 38;
  1168.        DMPAPER_FANFOLD_US  =39;
  1169.        DMPAPER_FANFOLD_STD_GERMAN  =40;
  1170.        DMPAPER_FANFOLD_LGL_GERMAN  =41;
  1171.        DMPAPER_LAST        =DMPAPER_FANFOLD_LGL_GERMAN;
  1172.        DMPAPER_USER        =256;
  1173.  
  1174.        DMBIN_UPPER         =1;
  1175.        DMBIN_FIRST         =DMBIN_UPPER;
  1176.        DMBIN_ONLYONE       =1;
  1177.        DMBIN_LOWER         =2;
  1178.        DMBIN_MIDDLE        =3;
  1179.        DMBIN_MANUAL        =4;
  1180.        DMBIN_ENVELOPE      =5;
  1181.        DMBIN_ENVMANUAL     =6;
  1182.        DMBIN_AUTO          =7;
  1183.        DMBIN_TRACTOR       =8;
  1184.        DMBIN_SMALLFMT      =9;
  1185.        DMBIN_LARGEFMT      =10;
  1186.        DMBIN_LARGECAPACITY =11;
  1187.        DMBIN_CASSETTE      =14;
  1188.        DMBIN_FORMSOURCE    =15;
  1189.        DMBIN_LAST          =DMBIN_FORMSOURCE;
  1190.        DMBIN_USER          =256;
  1191.  
  1192.        DMRES_DRAFT         =-1;
  1193.        DMRES_LOW           =-2;
  1194.        DMRES_MEDIUM        =-3;
  1195.        DMRES_HIGH          =-4;
  1196.  
  1197.        DMCOLOR_MONOCHROME  =1;
  1198.        DMCOLOR_COLOR       =2;
  1199.  
  1200.        DMDUP_SIMPLEX    =1;
  1201.        DMDUP_VERTICAL   =2;
  1202.        DMDUP_HORIZONTAL =3;
  1203.  
  1204.        DMTT_BITMAP     =1;
  1205.        DMTT_DOWNLOAD   =2;
  1206.        DMTT_SUBDEV     =3;
  1207.  
  1208.        DMCOLLATE_FALSE =0;
  1209.        DMCOLLATE_TRUE  =1;
  1210.  
  1211.        DM_GRAYSCALE    =$00000001;
  1212.        DM_INTERLACED   =$00000002;
  1213.  
  1214.        RDH_RECTANGLES  =1;
  1215.  
  1216. TYPE
  1217.     PRGNDATAHEADER=^RGNDATAHEADER;
  1218.     RGNDATAHEADER=RECORD
  1219.                         dwSize:ULONG;
  1220.                         iType:ULONG;
  1221.                         nCount:ULONG;
  1222.                         nRgnSize:ULONG;
  1223.                         rcBound:RECT;
  1224.     END;
  1225.  
  1226.     PRGNDATA=^RGNDATA;
  1227.     RGNDATA=RECORD
  1228.                   rdh:RGNDATAHEADER;
  1229.                   Buffer:ARRAY[0..0] OF CHAR;
  1230.     END;
  1231.     NPRGNDATA=PRGNDATA;
  1232.     LPRGNDATA=PRGNDATA;
  1233.  
  1234.     PABC=^ABC;
  1235.     ABC=RECORD
  1236.               abcA:LONGINT;
  1237.               abcB:ULONG;
  1238.               abcC:LONGINT;
  1239.     END;
  1240.     NPABC=PABC;
  1241.     LPABC=PABC;
  1242.  
  1243.     PABCFLOAT=^ABCFLOAT;
  1244.     ABCFLOAT=RECORD
  1245.                    abcfA:FLOAT;
  1246.                    abcfB:FLOAT;
  1247.                    abcfC:FLOAT;
  1248.     END;
  1249.     NPABCFLOAT=PABCFLOAT;
  1250.     LPABCFLOAT=PABCFLOAT;
  1251.  
  1252.     POUTLINETEXTMETRIC=^OUTLINETEXTMETRIC;
  1253.     OUTLINETEXTMETRIC=RECORD
  1254.                             otmSize:ULONG;
  1255.                             otmTextMetrics:TEXTMETRIC;
  1256.                             otmFiller:BYTE;
  1257.                             otmPanoseNumber:PANOSE;
  1258.                             otmfsSelection:ULONG;
  1259.                             otmfsType:ULONG;
  1260.                             otmsCharSlopeRise:LONGINT;
  1261.                             otmsCharSlopeRun:LONGINT;
  1262.                             otmItalicAngle:LONGINT;
  1263.                             otmEMSquare:ULONG;
  1264.                             otmAscent:LONGINT;
  1265.                             otmDescent:LONGINT;
  1266.                             otmLineGap:ULONG;
  1267.                             otmsCapEmHeight:ULONG;
  1268.                             otmsXHeight:ULONG;
  1269.                             otmrcFontBox:RECT;
  1270.                             otmMacAscent:LONGINT;
  1271.                             otmMacDescent:LONGINT;
  1272.                             otmMacLineGap:ULONG;
  1273.                             otmusMinimumPPEM:ULONG;
  1274.                             otmptSubscriptSize:POINT;
  1275.                             otmptSubscriptOffset:POINT;
  1276.                             otmptSuperscriptSize:POINT;
  1277.                             otmptSuperscriptOffset:POINT;
  1278.                             otmsStrikeoutSize:ULONG;
  1279.                             otmsStrikeoutPosition:LONGINT;
  1280.                             otmsUnderscoreSize:LONGINT;
  1281.                             otmsUnderscorePosition:LONGINT;
  1282.                             otmpFamilyName:PChar;
  1283.                             otmpFaceName:PChar;
  1284.                             otmpStyleName:PChar;
  1285.                             otmpFullName:PChar;
  1286.     END;
  1287.     NPOUTLINETEXTMETRIC=POUTLINETEXTMETRIC;
  1288.     LPOUTLINETEXTMETRIC=POUTLINETEXTMETRIC;
  1289.  
  1290.     PPOLYTEXT=^POLYTEXT;
  1291.     POLYTEXT=RECORD
  1292.                    x:LONGINT;
  1293.                    y:LONGINT;
  1294.                    n:ULONG;
  1295.                    lpstr:PChar;
  1296.                    uiFlags:ULONG;
  1297.                    rcl:RECT;
  1298.                    pdx:^LONGINT;
  1299.     END;
  1300.     NPPOLYTEXT=PPOLYTEXT;
  1301.     LPPOLYTEXT=PPOLYTEXT;
  1302.  
  1303.     FIXED=RECORD
  1304.                 fract:WORD;
  1305.                 value:SHORT;
  1306.     END;
  1307.  
  1308.     PMAT2=^MAT2;
  1309.     MAT2=RECORD
  1310.                eM11:FIXED;
  1311.                eM12:FIXED;
  1312.                eM21:FIXED;
  1313.                eM22:FIXED;
  1314.     END;
  1315.     LPMAT2=PMAT2;
  1316.  
  1317.     PGLYPHMETRICS=^GLYPHMETRICS;
  1318.     GLYPHMETRICS=RECORD
  1319.                        gmBlackBoxX:ULONG;
  1320.                        gmBlackBoxY:ULONG;
  1321.                        gmptGlyphOrigin:POINT;
  1322.                        gmCellIncX:SHORT;
  1323.                        gmCellIncY:SHORT;
  1324.     END;
  1325.     LPGLYPHMETRICS=PGLYPHMETRICS;
  1326.  
  1327. CONST
  1328.        GGO_METRICS        =0;
  1329.        GGO_BITMAP         =1;
  1330.        GGO_NATIVE         =2;
  1331.  
  1332.  
  1333.        TT_POLYGON_TYPE   =24;
  1334.  
  1335.        TT_PRIM_LINE       =1;
  1336.        TT_PRIM_QSPLINE    =2;
  1337.  
  1338. TYPE
  1339.     PPOINTFX=^POINTFX;
  1340.     POINTFX=RECORD
  1341.                   x:FIXED;
  1342.                   y:FIXED;
  1343.     END;
  1344.     LPPOINTFX=PPOINTFX;
  1345.  
  1346.     PTTPOLYCURVE=^TTPOLYCURVE;
  1347.     TTPOLYCURVE=RECORD
  1348.                       wType:WORD;
  1349.                       cpfx:WORD;
  1350.                       apfx:ARRAY[0..0] OF POINTFX;
  1351.     END;
  1352.     LPTTPOLYCURVE=PTTPOLYCURVE;
  1353.  
  1354.     PTTPOLYGONHEADER=^TTPOLYGONHEADER;
  1355.     TTPOLYGONHEADER=RECORD
  1356.                           cb:ULONG;
  1357.                           dwType:ULONG;
  1358.                           pfxStart:POINTFX;
  1359.     END;
  1360.     LPTTPOLYGONHEADER=PTTPOLYGONHEADER;
  1361.  
  1362.     PRASTERIZER_STATUS=^RASTERIZER_STATUS;
  1363.     RASTERIZER_STATUS=RECORD
  1364.                             nSize:SHORT;
  1365.                             wFlags:SHORT;
  1366.                             nLanguageID:SHORT;
  1367.     END;
  1368.     LPRASTERIZER_STATUS=PRASTERIZER_STATUS;
  1369.  
  1370. CONST
  1371.        TT_AVAILABLE    =$0001;
  1372.        TT_ENABLED      =$0002;
  1373.  
  1374. TYPE
  1375.     PPIXELFORMATDESCRIPTOR=^PIXELFORMATDESCRIPTOR;
  1376.     PIXELFORMATDESCRIPTOR=RECORD
  1377.                                 nSize:WORD;
  1378.                                 nVersion:WORD;
  1379.                                 dwFlags:ULONG;
  1380.                                 iPixelType:BYTE;
  1381.                                 cColorBits:BYTE;
  1382.                                 cRedBits:BYTE;
  1383.                                 cRedShift:BYTE;
  1384.                                 cGreenBits:BYTE;
  1385.                                 cGreenShift:BYTE;
  1386.                                 cBlueBits:BYTE;
  1387.                                 cBlueShift:BYTE;
  1388.                                 cAlphaBits:BYTE;
  1389.                                 cAlphaShift:BYTE;
  1390.                                 cAccumBits:BYTE;
  1391.                                 cAccumRedBits:BYTE;
  1392.                                 cAccumGreenBits:BYTE;
  1393.                                 cAccumBlueBits:BYTE;
  1394.                                 cAccumAlphaBits:BYTE;
  1395.                                 cDepthBits:BYTE;
  1396.                                 cStencilBits:BYTE;
  1397.                                 cAuxBuffers:BYTE;
  1398.                                 iLayerType:BYTE;
  1399.                                 bReserved:BYTE;
  1400.                                 dwLayerMask:ULONG;
  1401.                                 dwVisibleMask:ULONG;
  1402.                                 dwDamageMask:ULONG;
  1403.     END;
  1404.     LPPIXELFORMATDESCRIPTOR=PPIXELFORMATDESCRIPTOR;
  1405.  
  1406. CONST
  1407.        PFD_TYPE_RGBA               =0;
  1408.        PFD_TYPE_COLORINDEX         =1;
  1409.        PFD_MAIN_PLANE              =0;
  1410.        PFD_OVERLAY_PLANE           =1;
  1411.        PFD_UNDERLAY_PLANE          =-1;
  1412.        PFD_DOUBLEBUFFER            =$00000001;
  1413.        PFD_STEREO                  =$00000002;
  1414.        PFD_DRAW_TO_WINDOW          =$00000004;
  1415.        PFD_DRAW_TO_BITMAP          =$00000008;
  1416.        PFD_SUPPORT_GDI             =$00000010;
  1417.        PFD_SUPPORT_OPENGL          =$00000020;
  1418.        PFD_GENERIC_FORMAT          =$00000040;
  1419.        PFD_NEED_PALETTE            =$00000080;
  1420.        PFD_NEED_SYSTEM_PALETTE     =$00000100;
  1421.        PFD_DOUBLEBUFFER_DONTCARE   =$40000000;
  1422.        PFD_STEREO_DONTCARE         =$80000000;
  1423.  
  1424. TYPE
  1425.     OLDFONTENUMPROC=FUNCTION(VAR lf:LOGFONT;VAR tm:TEXTMETRIC;para:ULONG;
  1426.                              alParam:LPARAM):LONGINT;APIENTRY;
  1427.     GOBJENUMPROC=FUNCTION(VAR Buf;alParam:LPARAM):LONGINT;APIENTRY;
  1428.     LINEDDAPROC=PROCEDURE(p1,p2:LONGINT;alParam:LPARAM);
  1429.     FONTENUMPROC=OLDFONTENUMPROC;
  1430.     LPFNDEVMODE=FUNCTION(ahwnd:HWND;ahModule:HMODULE;VAR dm:DEVMODE;
  1431.                          VAR apString1,apString2:CSTRING;
  1432.                          VAR dm1:DEVMODE;VAR apString3:CSTRING;ui:ULONG):ULONG;APIENTRY;
  1433.     LPFNDEVCAPS=FUNCTION(VAR apString1,apString2:CSTRING;ui:ULONG;
  1434.                          VAR apString3:CSTRING;VAR dm:DEVMODE):ULONG;
  1435.  
  1436. CONST
  1437.        DM_UPDATE           =1;
  1438.        DM_COPY             =2;
  1439.        DM_PROMPT           =4;
  1440.        DM_MODIFY           =8;
  1441.        DM_IN_BUFFER        =DM_MODIFY;
  1442.        DM_IN_PROMPT        =DM_PROMPT;
  1443.        DM_OUT_BUFFER       =DM_COPY;
  1444.        DM_OUT_DEFAULT      =DM_UPDATE;
  1445.  
  1446.        DC_FIELDS           =1;
  1447.        DC_PAPERS           =2;
  1448.        DC_PAPERSIZE        =3;
  1449.        DC_MINEXTENT        =4;
  1450.        DC_MAXEXTENT        =5;
  1451.        DC_BINS             =6;
  1452.        DC_DUPLEX           =7;
  1453.        DC_SIZE             =8;
  1454.        DC_EXTRA            =9;
  1455.        DC_VERSION          =10;
  1456.        DC_DRIVER           =11;
  1457.        DC_BINNAMES         =12;
  1458.        DC_ENUMRESOLUTIONS  =13;
  1459.        DC_FILEDEPENDENCIES =14;
  1460.        DC_TRUETYPE         =15;
  1461.        DC_PAPERNAMES       =16;
  1462.        DC_ORIENTATION      =17;
  1463.        DC_COPIES           =18;
  1464.  
  1465.        DCTT_BITMAP         =$0000001;
  1466.        DCTT_DOWNLOAD       =$0000002;
  1467.        DCTT_SUBDEV         =$0000004;
  1468.  
  1469. TYPE
  1470.     PDIBSECTION=^DIBSECTION;
  1471.     DIBSECTION=RECORD
  1472.                      dsBm:BITMAP;
  1473.                      dsBmih:BITMAPINFOHEADER;
  1474.                      dsBitfields:ARRAY[0..2] OF ULONG;
  1475.                      dshSection:HANDLE;
  1476.                      dsOffset:ULONG;
  1477.     END;
  1478.     LPDIBSECTION=PDIBSECTION;
  1479.  
  1480. CONST
  1481.        CA_NEGATIVE                 =$0001;
  1482.        CA_LOG_FILTER               =$0002;
  1483.  
  1484.        ILLUMINANT_DEVICE_DEFAULT   =0;
  1485.        ILLUMINANT_A                =1;
  1486.        ILLUMINANT_B                =2;
  1487.        ILLUMINANT_C                =3;
  1488.        ILLUMINANT_D50              =4;
  1489.        ILLUMINANT_D55              =5;
  1490.        ILLUMINANT_D65              =6;
  1491.        ILLUMINANT_D75              =7;
  1492.        ILLUMINANT_F2               =8;
  1493.        ILLUMINANT_MAX_INDEX        =ILLUMINANT_F2;
  1494.  
  1495.        ILLUMINANT_TUNGSTEN         =ILLUMINANT_A;
  1496.        ILLUMINANT_DAYLIGHT         =ILLUMINANT_C;
  1497.        ILLUMINANT_FLUORESCENT      =ILLUMINANT_F2;
  1498.        ILLUMINANT_NTSC             =ILLUMINANT_C;
  1499.  
  1500.        RGB_GAMMA_MIN               =2500;
  1501.        RGB_GAMMA_MAX               =65000;
  1502.  
  1503.        REFERENCE_WHITE_MIN         =6000;
  1504.        REFERENCE_WHITE_MAX         =10000;
  1505.        REFERENCE_BLACK_MIN         =0;
  1506.        REFERENCE_BLACK_MAX         =4000;
  1507.  
  1508.        COLOR_ADJ_MIN               =-100;
  1509.        COLOR_ADJ_MAX               =100;
  1510.  
  1511. TYPE
  1512.     PCOLORADJUSTMENT=^COLORADJUSTMENT;
  1513.     COLORADJUSTMENT=RECORD
  1514.                           caSize:WORD;
  1515.                           caFlags:WORD;
  1516.                           caIlluminantIndex:WORD;
  1517.                           caRedGamma:WORD;
  1518.                           caGreenGamma:WORD;
  1519.                           caBlueGamma:WORD;
  1520.                           caReferenceBlack:WORD;
  1521.                           caReferenceWhite:WORD;
  1522.                           caContrast:SHORT;
  1523.                           caBrightness:SHORT;
  1524.                           caColorfulness:SHORT;
  1525.                           caRedGreenTint:SHORT;
  1526.     END;
  1527.     LPCOLORADJUSTMENT=PCOLORADJUSTMENT;
  1528.  
  1529.     ABORTPROC=FUNCTION(ahDC:HDC;i:LONGINT):BOOL;APIENTRY;
  1530.  
  1531.     PDOCINFO=^DOCINFO;
  1532.     DOCINFO=RECORD
  1533.                   cbSize:LONGINT;
  1534.                   lpszDocName:PChar;
  1535.                   lpszOutput:PChar;
  1536.                   lpszDatatype:PChar;
  1537.                   fwType:DWORD;
  1538.     END;
  1539.     LPDOCINFO=PDOCINFO;
  1540.  
  1541. CONST
  1542.      FONTMAPPER_MAX =10;
  1543.  
  1544. TYPE
  1545.     PKERNINGPAIR=^KERNINGPAIR;
  1546.     KERNINGPAIR=RECORD
  1547.                       wFirst:WORD;
  1548.                       wSecond:WORD;
  1549.                       iKernAmount:LONGINT;
  1550.     END;
  1551.     LPKERNINGPAIR=PKERNINGPAIR;
  1552.  
  1553. CONST
  1554.      ENHMETA_SIGNATURE       =$464D4520;
  1555.      ENHMETA_STOCK_OBJECT    =$80000000;
  1556.  
  1557.      EMR_HEADER                      =1;
  1558.      EMR_POLYBEZIER                  =2;
  1559.      EMR_POLYGON                     =3;
  1560.      EMR_POLYLINE                    =4;
  1561.      EMR_POLYBEZIERTO                =5;
  1562.      EMR_POLYLINETO                  =6;
  1563.      EMR_POLYPOLYLINE                =7;
  1564.      EMR_POLYPOLYGON                 =8;
  1565.      EMR_SETWINDOWEXTEX              =9;
  1566.      EMR_SETWINDOWORGEX              =10;
  1567.      EMR_SETVIEWPORTEXTEX            =11;
  1568.      EMR_SETVIEWPORTORGEX            =12;
  1569.      EMR_SETBRUSHORGEX               =13;
  1570.      EMR_EOF                         =14;
  1571.      EMR_SETPIXELV                   =15;
  1572.      EMR_SETMAPPERFLAGS              =16;
  1573.      EMR_SETMAPMODE                  =17;
  1574.      EMR_SETBKMODE                   =18;
  1575.      EMR_SETPOLYFILLMODE             =19;
  1576.      EMR_SETROP2                     =20;
  1577.      EMR_SETSTRETCHBLTMODE           =21;
  1578.      EMR_SETTEXTALIGN                =22;
  1579.      EMR_SETCOLORADJUSTMENT          =23;
  1580.      EMR_SETTEXTCOLOR                =24;
  1581.      EMR_SETBKCOLOR                  =25;
  1582.      EMR_OFFSETCLIPRGN               =26;
  1583.      EMR_MOVETOEX                    =27;
  1584.      EMR_SETMETARGN                  =28;
  1585.      EMR_EXCLUDECLIPRECT             =29;
  1586.      EMR_INTERSECTCLIPRECT           =30;
  1587.      EMR_SCALEVIEWPORTEXTEX          =31;
  1588.      EMR_SCALEWINDOWEXTEX            =32;
  1589.      EMR_SAVEDC                      =33;
  1590.      EMR_RESTOREDC                   =34;
  1591.      EMR_SETWORLDTRANSFORM           =35;
  1592.      EMR_MODIFYWORLDTRANSFORM        =36;
  1593.      EMR_SELECTOBJECT                =37;
  1594.      EMR_CREATEPEN                   =38;
  1595.      EMR_CREATEBRUSHINDIRECT         =39;
  1596.      EMR_DELETEOBJECT                =40;
  1597.      EMR_ANGLEARC                    =41;
  1598.      EMR_ELLIPSE                     =42;
  1599.      EMR_RECTANGLE                   =43;
  1600.      EMR_ROUNDRECT                   =44;
  1601.      EMR_ARC                         =45;
  1602.      EMR_CHORD                       =46;
  1603.      EMR_PIE                         =47;
  1604.      EMR_SELECTPALETTE               =48;
  1605.      EMR_CREATEPALETTE               =49;
  1606.      EMR_SETPALETTEENTRIES           =50;
  1607.      EMR_RESIZEPALETTE               =51;
  1608.      EMR_REALIZEPALETTE              =52;
  1609.      EMR_EXTFLOODFILL                =53;
  1610.      EMR_LINETO                      =54;
  1611.      EMR_ARCTO                       =55;
  1612.      EMR_POLYDRAW                    =56;
  1613.      EMR_SETARCDIRECTION             =57;
  1614.      EMR_SETMITERLIMIT               =58;
  1615.      EMR_BEGINPATH                   =59;
  1616.      EMR_ENDPATH                     =60;
  1617.      EMR_CLOSEFIGURE                 =61;
  1618.      EMR_FILLPATH                    =62;
  1619.      EMR_STROKEANDFILLPATH           =63;
  1620.      EMR_STROKEPATH                  =64;
  1621.      EMR_FLATTENPATH                 =65;
  1622.      EMR_WIDENPATH                   =66;
  1623.      EMR_SELECTCLIPPATH              =67;
  1624.      EMR_ABORTPATH                   =68;
  1625.      EMR_GDICOMMENT                  =70;
  1626.      EMR_FILLRGN                     =71;
  1627.      EMR_FRAMERGN                    =72;
  1628.      EMR_INVERTRGN                   =73;
  1629.      EMR_PAINTRGN                    =74;
  1630.      EMR_EXTSELECTCLIPRGN            =75;
  1631.      EMR_BITBLT                      =76;
  1632.      EMR_STRETCHBLT                  =77;
  1633.      EMR_MASKBLT                     =78;
  1634.      EMR_PLGBLT                      =79;
  1635.      EMR_SETDIBITSTODEVICE           =80;
  1636.      EMR_STRETCHDIBITS               =81;
  1637.      EMR_EXTCREATEFONTINDIRECTW      =82;
  1638.      EMR_EXTTEXTOUTA                 =83;
  1639.      EMR_EXTTEXTOUTW                 =84;
  1640.      EMR_POLYBEZIER16                =85;
  1641.      EMR_POLYGON16                   =86;
  1642.      EMR_POLYLINE16                  =87;
  1643.      EMR_POLYBEZIERTO16              =88;
  1644.      EMR_POLYLINETO16                =89;
  1645.      EMR_POLYPOLYLINE16              =90;
  1646.      EMR_POLYPOLYGON16               =91;
  1647.      EMR_POLYDRAW16                  =92;
  1648.      EMR_CREATEMONOBRUSH             =93;
  1649.      EMR_CREATEDIBPATTERNBRUSHPT     =94;
  1650.      EMR_EXTCREATEPEN                =95;
  1651.      EMR_POLYTEXTOUTA                =96;
  1652.      EMR_POLYTEXTOUTW                =97;
  1653.      EMR_MIN                         =1;
  1654.      EMR_MAX                         =97;
  1655.  
  1656. TYPE
  1657.     PEMR=^EMR;
  1658.     EMR=RECORD
  1659.               iType:ULONG;
  1660.               nSize:ULONG;
  1661.     END;
  1662.  
  1663.     PEMRTEXT=^EMRTEXT;
  1664.     EMRTEXT=RECORD
  1665.                   ptlReference:POINTL;
  1666.                   nChars:ULONG;
  1667.                   offString:ULONG;
  1668.                   fOptions:ULONG;
  1669.                   rcl:RECTL;
  1670.                   offDx:ULONG;
  1671.     END;
  1672.  
  1673.     PEMRABORTPATH=^EMRABORTPATH;
  1674.     EMRABORTPATH=RECORD
  1675.                        emr:EMR;
  1676.                  END;
  1677.     EMRBEGINPATH=EMRABORTPATH;
  1678.     PEMRBEGINPATH=PEMRABORTPATH;
  1679.     EMRENDPATH=EMRABORTPATH;
  1680.     PEMRENDPATH=PEMRABORTPATH;
  1681.     EMRCLOSEFIGURE=EMRABORTPATH;
  1682.     PEMRCLOSEFIGURE=PEMRABORTPATH;
  1683.     EMRFLATTENPATH=EMRABORTPATH;
  1684.     PEMRFLATTENPATH=PEMRABORTPATH;
  1685.     EMRWIDENPATH=EMRABORTPATH;
  1686.     PEMRWIDENPATH=PEMRABORTPATH;
  1687.     EMRSETMETARGN=EMRABORTPATH;
  1688.     PEMRSETMETARGN=PEMRABORTPATH;
  1689.     EMRSAVEDC=EMRABORTPATH;
  1690.     PEMRSAVEDC=PEMRABORTPATH;
  1691.     EMRREALIZEPALETTE=EMRABORTPATH;
  1692.     PEMRREALIZEPALETTE=PEMRABORTPATH;
  1693.  
  1694. TYPE
  1695.     PEMRSELECTCLIPPATH=^EMRSELECTCLIPPATH;
  1696.     EMRSELECTCLIPPATH=RECORD
  1697.                             emr:EMR;
  1698.                             iMode:LONGWORD;
  1699.                       END;
  1700.  
  1701.     PEMRSETBKMODE=^EMRSETBKMODE;
  1702.     EMRSETBKMODE=EMRSELECTCLIPPATH;
  1703.  
  1704.     PEMRSETMAPMODE=^EMRSETMAPMODE;
  1705.     EMRSETMAPMODE=EMRSELECTCLIPPATH;
  1706.  
  1707.     PEMRSETPOLYFILLMODE=^EMRSETPOLYFILLMODE;
  1708.     EMRSETPOLYFILLMODE=EMRSELECTCLIPPATH;
  1709.  
  1710.     PEMRSETROP2=^EMRSETROP2;
  1711.     EMRSETROP2=EMRSELECTCLIPPATH;
  1712.  
  1713.     PEMRSETSTRETCHBLTMODE=^EMRSETSTRETCHBLTMODE;
  1714.     EMRSETSTRETCHBLTMODE=EMRSELECTCLIPPATH;
  1715.  
  1716.     PEMRSETTEXTALIGN=^EMRSETTEXTALIGN;
  1717.     EMRSETTEXTALIGN=EMRSELECTCLIPPATH;
  1718.  
  1719.     PEMRSETMITERLIMIT=^EMRSETMITERLIMIT;
  1720.     EMRSETMITERLIMIT=RECORD
  1721.                            emr:EMR;
  1722.                            eMiterLimit:FLOAT;
  1723.                      END;
  1724.  
  1725.     PEMRRESTOREDC=^EMRRESTOREDC;
  1726.     EMRRESTOREDC=RECORD
  1727.                        emr:EMR;
  1728.                        iRelative:LONGINT;
  1729.                  END;
  1730.  
  1731.     PEMRSETARCDIRECTION=^EMRSETARCDIRECTION;
  1732.     EMRSETARCDIRECTION=RECORD
  1733.                              emr:EMR;
  1734.                              iArcDirection:LONGWORD;
  1735.                        END;
  1736.  
  1737.     PEMRSETMAPPERFLAGS=^EMRSETMAPPERFLAGS;
  1738.     EMRSETMAPPERFLAGS=RECORD
  1739.                             emr:EMR;
  1740.                             dwFlags:LONGWORD;
  1741.                       END;
  1742.  
  1743.     PEMRSETBKCOLOR=^EMRSETBKCOLOR;
  1744.     EMRSETBKCOLOR=RECORD
  1745.                         emr:EMR;
  1746.                         crColor:COLORREF;
  1747.                   END;
  1748.  
  1749.     PEMRSETTEXTCOLOR=^EMRSETTEXTCOLOR;
  1750.     EMRSETTEXTCOLOR=EMRSETBKCOLOR;
  1751.  
  1752.     PEMRSELECTOBJECT=^EMRSELECTOBJECT;
  1753.     EMRSELECTOBJECT=RECORD
  1754.                           emr:EMR;
  1755.                           ihObject:LONGWORD;
  1756.                     END;
  1757.  
  1758.     PEMRDELETEOBJECT=^EMRDELETEOBJECT;
  1759.     EMRDELETEOBJECT=EMRSELECTOBJECT;
  1760.  
  1761.     PEMRSELECTPALETTE=^EMRSELECTPALETTE;
  1762.     EMRSELECTPALETTE=RECORD
  1763.                            emr:EMR;
  1764.                            ihPal:LONGWORD;
  1765.                      END;
  1766.  
  1767.     PEMRRESIZEPALETTE=^EMRRESIZEPALETTE;
  1768.     EMRRESIZEPALETTE=RECORD
  1769.                            emr:EMR;
  1770.                            ihPal:LONGWORD;
  1771.                            cEntries:LONGWORD;
  1772.                      END;
  1773.  
  1774.     PEMRSETPALETTEENTRIES=^EMRSETPALETTEENTRIES;
  1775.     EMRSETPALETTEENTRIES=RECORD
  1776.                                emr:EMR;
  1777.                                ihPal:LONGWORD;
  1778.                                iStart:LONGWORD;
  1779.                                cEntries:LONGWORD;
  1780.                                aPalEntries:ARRAY[0..0] OF PALETTEENTRY;
  1781.                          END;
  1782.  
  1783.     PEMRSETCOLORADJUSTMENT=^EMRSETCOLORADJUSTMENT;
  1784.     EMRSETCOLORADJUSTMENT=RECORD
  1785.                                 emr:EMR;
  1786.                                 ColorAdjustment:COLORADJUSTMENT;
  1787.                           END;
  1788.  
  1789.     PEMRGDICOMMENT=^EMRGDICOMMENT;
  1790.     EMRGDICOMMENT=RECORD
  1791.                         emr:EMR;
  1792.                         cbData:LONGWORD;
  1793.                         Data:ARRAY[0..0] OF BYTE;
  1794.                   END;
  1795.  
  1796.     PEMREOF=^EMREOF;
  1797.     EMREOF=RECORD
  1798.                  emr:EMR;
  1799.                  nPalEntries:LONGWORD;
  1800.                  offPalEntries:LONGWORD;
  1801.                  nSizeLast:LONGWORD;
  1802.            END;
  1803.  
  1804.     PEMRLINETO=^EMRLINETO;
  1805.     EMRLINETO=RECORD
  1806.                     emr:EMR;
  1807.                     ptl:POINTL;
  1808.               END;
  1809.  
  1810.     PEMRMOVETOEX=^EMRMOVETOEX;
  1811.     EMRMOVETOEX=EMRLINETO;
  1812.  
  1813.     PEMROFFSETCLIPRGN=^EMROFFSETCLIPRGN;
  1814.     EMROFFSETCLIPRGN=RECORD
  1815.                            emr:EMR;
  1816.                            ptlOffset:POINTL;
  1817.                      END;
  1818.  
  1819.     PEMRFILLPATH=^EMRFILLPATH;
  1820.     EMRFILLPATH=RECORD
  1821.                       emr:EMR;
  1822.                       rclBounds:RECTL;
  1823.                 END;
  1824.  
  1825.     PEMRSTROKEANDFILLPATH=^EMRSTROKEANDFILLPATH;
  1826.     EMRSTROKEANDFILLPATH=EMRFILLPATH;
  1827.  
  1828.     PEMRSTROKEPATH=^EMRSTROKEPATH;
  1829.     EMRSTROKEPATH=EMRFILLPATH;
  1830.  
  1831.     PEMREXCLUDECLIPRECT=^EMREXCLUDECLIPRECT;
  1832.     EMREXCLUDECLIPRECT=RECORD
  1833.                              emr:EMR;
  1834.                              rclClip:RECTL;
  1835.                        END;
  1836.  
  1837.     PEMRINTERSECTCLIPRECT=^EMRINTERSECTCLIPRECT;
  1838.     EMRINTERSECTCLIPRECT=EMREXCLUDECLIPRECT;
  1839.  
  1840.     PEMRSETVIEWPORTORGEX=^EMRSETVIEWPORTORGEX;
  1841.     EMRSETVIEWPORTORGEX=RECORD
  1842.                               emr:EMR;
  1843.                               ptlOrigin:POINTL;
  1844.                         END;
  1845.  
  1846.     PEMRSETWINDOWORGEX=^EMRSETWINDOWORGEX;
  1847.     EMRSETWINDOWORGEX=EMRSETVIEWPORTORGEX;
  1848.  
  1849.     PEMRSETBRUSHORGEX=^EMRSETBRUSHORGEX;
  1850.     EMRSETBRUSHORGEX=EMRSETVIEWPORTORGEX;
  1851.  
  1852.     PEMRSETVIEWPORTEXTEX=^EMRSETVIEWPORTEXTEX;
  1853.     EMRSETVIEWPORTEXTEX=RECORD
  1854.                               emr:EMR;
  1855.                               szlExtent:SIZEL;
  1856.                         END;
  1857.  
  1858.     PEMRSETWINDOWEXTEX=^EMRSETWINDOWEXTEX;
  1859.     EMRSETWINDOWEXTEX=EMRSETVIEWPORTEXTEX;
  1860.  
  1861.     PEMRSCALEVIEWPORTEXTEX=^EMRSCALEVIEWPORTEXTEX;
  1862.     EMRSCALEVIEWPORTEXTEX=RECORD
  1863.                                 emr:EMR;
  1864.                                 xNum:LONGINT;
  1865.                                 xDenom:LONGINT;
  1866.                                 yNum:LONGINT;
  1867.                                 yDenom:LONGINT;
  1868.                           END;
  1869.  
  1870.     PEMRSCALEWINDOWEXTEX=^EMRSCALEWINDOWEXTEX;
  1871.     EMRSCALEWINDOWEXTEX=EMRSCALEVIEWPORTEXTEX;
  1872.  
  1873.     PEMRSETWORLDTRANSFORM=^EMRSETWORLDTRANSFORM;
  1874.     EMRSETWORLDTRANSFORM=RECORD
  1875.                                emr:EMR;
  1876.                                xform:XFORM;
  1877.                          END;
  1878.  
  1879.     PEMRMODIFYWORLDTRANSFORM=^EMRMODIFYWORLDTRANSFORM;
  1880.     EMRMODIFYWORLDTRANSFORM=RECORD
  1881.                                   emr:EMR;
  1882.                                   xform:XFORM;
  1883.                                   iMode:LONGWORD;
  1884.                             END;
  1885.  
  1886.     PEMRSETPIXELV=^EMRSETPIXELV;
  1887.     EMRSETPIXELV=RECORD
  1888.                        emr:EMR;
  1889.                        ptlPixel:POINTL;
  1890.                        crColor:COLORREF;
  1891.                  END;
  1892.  
  1893.     PEMREXTFLOODFILL=^EMREXTFLOODFILL;
  1894.     EMREXTFLOODFILL=RECORD
  1895.                           emr:EMR;
  1896.                           ptlStart:POINTL;
  1897.                           crColor:COLORREF;
  1898.                           iMode:LONGWORD;
  1899.                     END;
  1900.  
  1901.     PEMRELLIPSE=^EMRELLIPSE;
  1902.     EMRELLIPSE=RECORD
  1903.                      emr:EMR;
  1904.                      rclBox:RECTL;
  1905.                END;
  1906.  
  1907.     PEMRRECTANGLE=^EMRRECTANGLE;
  1908.     EMRRECTANGLE=EMRELLIPSE;
  1909.  
  1910.     PEMRROUNDRECT=^EMRROUNDRECT;
  1911.     EMRROUNDRECT=RECORD
  1912.                        emr:EMR;
  1913.                        rclBox:RECTL;
  1914.                        szlCorner:SIZEL;
  1915.                  END;
  1916.  
  1917.     PEMRARC=^EMRARC;
  1918.     EMRARC=RECORD
  1919.                  emr:EMR;
  1920.                  rclBox:RECTL;
  1921.                  ptlStart:POINTL;
  1922.                  ptlEnd:POINTL;
  1923.           END;
  1924.  
  1925.     PEMRARCTO=^EMRARCTO;
  1926.     EMRARCTO=EMRARC;
  1927.  
  1928.     PEMRCHORD=^EMRCHORD;
  1929.     EMRCHORD=EMRARC;
  1930.  
  1931.     PEMRPIE=^EMRPIE;
  1932.     EMRPIE=EMRARC;
  1933.  
  1934.     PEMRANGLEARC=^EMRANGLEARC;
  1935.     EMRANGLEARC=RECORD
  1936.                       emr:EMR;
  1937.                       ptlCenter:POINTL;
  1938.                       nRadius:LONGWORD;
  1939.                       eStartAngle:FLOAT;
  1940.                       eSweepAngle:FLOAT;
  1941.                 END;
  1942.  
  1943.     PEMRPOLYLINE=^EMRPOLYLINE;
  1944.     EMRPOLYLINE=RECORD
  1945.                       emr:EMR;
  1946.                       rclBounds:RECTL;
  1947.                       cptl:LONGWORD;
  1948.                       aptl:ARRAY[0..0] OF POINTL;
  1949.                 END;
  1950.  
  1951.     PEMRPOLYBEZIER=^EMRPOLYBEZIER;
  1952.     EMRPOLYBEZIER=EMRPOLYLINE;
  1953.  
  1954.     PEMRPOLYGON=^EMRPOLYGON;
  1955.     EMRPOLYGON=EMRPOLYLINE;
  1956.  
  1957.     PEMRPOLYBEZIERTO=^EMRPOLYBEZIERTO;
  1958.     EMRPOLYBEZIERTO=EMRPOLYLINE;
  1959.  
  1960.     PEMRPOLYLINETO=^EMRPOLYLINETO;
  1961.     EMRPOLYLINETO=EMRPOLYLINE;
  1962.  
  1963.     PEMRPOLYLINE16=^EMRPOLYLINE16;
  1964.     EMRPOLYLINE16=RECORD
  1965.                         emr:EMR;
  1966.                         rclBounds:RECTL;
  1967.                         cpts:LONGWORD;
  1968.                         apts:ARRAY[0..0] OF POINTS;
  1969.                   END;
  1970.  
  1971.     PEMRPOLYBEZIER16=^EMRPOLYBEZIER16;
  1972.     EMRPOLYBEZIER16=EMRPOLYLINE16;
  1973.  
  1974.     PEMRPOLYGON16=^EMRPOLYGON16;
  1975.     EMRPOLYGON16=EMRPOLYLINE16;
  1976.  
  1977.     PEMRPOLYBEZIERTO16=^EMRPOLYBEZIERTO16;
  1978.     EMRPOLYBEZIERTO16=EMRPOLYLINE16;
  1979.  
  1980.     PEMRPOLYLINETO16=^EMRPOLYLINETO16;
  1981.     EMRPOLYLINETO16=EMRPOLYLINE16;
  1982.  
  1983.     PEMRPOLYDRAW=^EMRPOLYDRAW;
  1984.     EMRPOLYDRAW=RECORD
  1985.                       emr:EMR;
  1986.                       rclBounds:RECTL;
  1987.                       cptl:LONGWORD;
  1988.                       aptl:ARRAY[0..0] OF POINTL;
  1989.                       abTypes:ARRAY[0..0] OF BYTE;
  1990.                END;
  1991.  
  1992.     PEMRPOLYDRAW16=^EMRPOLYDRAW16;
  1993.     EMRPOLYDRAW16=RECORD
  1994.                         emr:EMR;
  1995.                         rclBounds:RECTL;
  1996.                         cpts:LONGWORD;
  1997.                         apts:ARRAY[0..0] OF POINTS;
  1998.                         abTypes:ARRAY[0..0] OF BYTE;
  1999.                   END;
  2000.  
  2001.     PEMRPOLYPOLYLINE=^EMRPOLYPOLYLINE;
  2002.     EMRPOLYPOLYLINE=RECORD
  2003.                           emr:EMR;
  2004.                           rclBounds:RECTL;
  2005.                           nPolys:LONGWORD;
  2006.                           cptl:LONGWORD;
  2007.                           aPolyCounts:ARRAY[0..0] OF LONGWORD;
  2008.                           aptl:ARRAY[0..0] OF POINTL;
  2009.                     END;
  2010.  
  2011.     PEMRPOLYPOLYGON=^EMRPOLYPOLYGON;
  2012.     EMRPOLYPOLYGON=EMRPOLYPOLYLINE;
  2013.  
  2014.     PEMRPOLYPOLYLINE16=^EMRPOLYPOLYLINE16;
  2015.     EMRPOLYPOLYLINE16=RECORD
  2016.                             emr:EMR;
  2017.                             rclBounds:RECTL;
  2018.                             nPolys:LONGWORD;
  2019.                             cpts:LONGWORD;
  2020.                             aPolyCounts:ARRAY[0..0] OF LONGWORD;
  2021.                             apts:ARRAY[0..0] OF POINTS;
  2022.                        END;
  2023.  
  2024.     PEMRPOLYPOLYGON16=^EMRPOLYPOLYGON16;
  2025.     EMRPOLYPOLYGON16=EMRPOLYPOLYLINE16;
  2026.  
  2027.     PEMRINVERTRGN=^EMRINVERTRGN;
  2028.     EMRINVERTRGN=RECORD
  2029.                        emr:EMR;
  2030.                        rclBounds:RECTL;
  2031.                        cbRgnData:LONGWORD;
  2032.                        RgnData:ARRAY[0..0] OF BYTE;
  2033.                  END;
  2034.  
  2035.     PEMRPAINTRGN=^EMRPAINTRGN;
  2036.     EMRPAINTRGN=EMRINVERTRGN;
  2037.  
  2038.     PEMRFILLRGN=^EMRFILLRGN;
  2039.     EMRFILLRGN=RECORD
  2040.                      emr:EMR;
  2041.                      rclBounds:RECTL;
  2042.                      cbRgnData:LONGWORD;
  2043.                      ihBrush:LONGWORD;
  2044.                      RgnData:ARRAY[0..0] OF BYTE;
  2045.                END;
  2046.  
  2047.     PEMRFRAMERGN=^EMRFRAMERGN;
  2048.     EMRFRAMERGN=RECORD
  2049.                       emr:EMR;
  2050.                       rclBounds:RECTL;
  2051.                       cbRgnData:LONGWORD;
  2052.                       ihBrush:LONGWORD;
  2053.                       szlStroke:SIZEL;
  2054.                       RgnData:ARRAY[0..0] OF BYTE;
  2055.                 END;
  2056.  
  2057.     PEMREXTSELECTCLIPRGN=^EMREXTSELECTCLIPRGN;
  2058.     EMREXTSELECTCLIPRGN=RECORD
  2059.                               emr:EMR;
  2060.                               cbRgnData:LONGWORD;
  2061.                               Mode:LONGWORD;
  2062.                               RgnData:ARRAY[0..0] OF BYTE;
  2063.                         END;
  2064.  
  2065.     PEMREXTTEXTOUTA=^EMREXTTEXTOUTA;
  2066.     EMREXTTEXTOUTA=RECORD
  2067.                          emr:EMR;
  2068.                          rclBounds:RECTL;
  2069.                          iGraphicsMode:LONGWORD;
  2070.                          exScale:FLOAT;
  2071.                          eyScale:FLOAT;
  2072.                          emrtext:EMRTEXT;
  2073.                    END;
  2074.  
  2075.     PEMREXTTEXTOUTW=^EMREXTTEXTOUTW;
  2076.     EMREXTTEXTOUTW=EMREXTTEXTOUTA;
  2077.  
  2078.     PEMRPOLYTEXTOUTA=^EMRPOLYTEXTOUTA;
  2079.     EMRPOLYTEXTOUTA=RECORD
  2080.                           emr:EMR;
  2081.                           rclBounds:RECTL;
  2082.                           iGraphicsMode:LONGWORD;
  2083.                           exScale:FLOAT;
  2084.                           eyScale:FLOAT;
  2085.                           cStrings:LONGWORD;
  2086.                           aemrtext:ARRAY[0..0] OF EMRTEXT;
  2087.                     END;
  2088.  
  2089.     PEMRPOLYTEXTOUTW=^EMRPOLYTEXTOUTW;
  2090.     EMRPOLYTEXTOUTW=EMRPOLYTEXTOUTA;
  2091.  
  2092.     PEMRBITBLT=^EMRBITBLT;
  2093.     EMRBITBLT=RECORD
  2094.                     emr:EMR;
  2095.                     rclBounds:RECTL;
  2096.                     xDest:LONGINT;
  2097.                     yDest:LONGINT;
  2098.                     cxDest:LONGINT;
  2099.                     cyDest:LONGINT;
  2100.                     dwRop:LONGWORD;
  2101.                     xSrc:LONGINT;
  2102.                     ySrc:LONGINT;
  2103.                     xformSrc:XFORM;
  2104.                     crBkColorSrc:COLORREF;
  2105.                     iUsageSrc:LONGWORD;
  2106.                     offBmiSrc:LONGWORD;
  2107.                     cbBmiSrc:LONGWORD;
  2108.                     offBitsSrc:LONGWORD;
  2109.                     cbBitsSrc:LONGWORD;
  2110.               END;
  2111.  
  2112.     PEMRSTRETCHBLT=^EMRSTRETCHBLT;
  2113.     EMRSTRETCHBLT=RECORD
  2114.                         emr:EMR;
  2115.                         rclBounds:RECTL;
  2116.                         xDest:LONGINT;
  2117.                         yDest:LONGINT;
  2118.                         cxDest:LONGINT;
  2119.                         cyDest:LONGINT;
  2120.                         dwRop:LONGWORD;
  2121.                         xSrc:LONGINT;
  2122.                         ySrc:LONGINT;
  2123.                         xformSrc:XFORM;
  2124.                         crBkColorSrc:COLORREF;
  2125.                         iUsageSrc:LONGWORD;
  2126.                         offBmiSrc:LONGWORD;
  2127.                         cbBmiSrc:LONGWORD;
  2128.                         offBitsSrc:LONGWORD;
  2129.                         cbBitsSrc:LONGWORD;
  2130.                         cxSrc:LONGINT;
  2131.                         cySrc:LONGINT;
  2132.                   END;
  2133.  
  2134.     PEMRMASKBLT=^EMRMASKBLT;
  2135.     EMRMASKBLT=RECORD
  2136.                      emr:EMR;
  2137.                      rclBounds:RECTL;
  2138.                      xDest:LONGINT;
  2139.                      yDest:LONGINT;
  2140.                      cxDest:LONGINT;
  2141.                      cyDest:LONGINT;
  2142.                      dwRop:LONGWORD;
  2143.                      xSrc:LONGINT;
  2144.                      ySrc:LONGINT;
  2145.                      xformSrc:XFORM;
  2146.                      crBkColorSrc:COLORREF;
  2147.                      iUsageSrc:LONGWORD;
  2148.                      offBmiSrc:LONGWORD;
  2149.                      cbBmiSrc:LONGWORD;
  2150.                      offBitsSrc:LONGWORD;
  2151.                      cbBitsSrc:LONGWORD;
  2152.                      xMask:LONGINT;
  2153.                      yMask:LONGINT;
  2154.                      iUsageMask:LONGWORD;
  2155.                      offBmiMask:LONGWORD;
  2156.                      cbBmiMask:LONGWORD;
  2157.                      offBitsMask:LONGWORD;
  2158.                      cbBitsMask:LONGWORD;
  2159.                END;
  2160.  
  2161.     PEMRPLGBLT=^EMRPLGBLT;
  2162.     EMRPLGBLT=RECORD
  2163.                     emr:EMR;
  2164.                     rclBounds:RECTL;
  2165.                     aptlDest:ARRAY[0..2] OF POINTL;
  2166.                     xSrc:LONGINT;
  2167.                     ySrc:LONGINT;
  2168.                     cxSrc:LONGINT;
  2169.                     cySrc:LONGINT;
  2170.                     xformSrc:XFORM;
  2171.                     crBkColorSrc:COLORREF;
  2172.                     iUsageSrc:LONGWORD;
  2173.                     offBmiSrc:LONGWORD;
  2174.                     cbBmiSrc:LONGWORD;
  2175.                     offBitsSrc:LONGWORD;
  2176.                     cbBitsSrc:LONGWORD;
  2177.                     xMask:LONGINT;
  2178.                     yMask:LONGINT;
  2179.                     iUsageMask:LONGWORD;
  2180.                     offBmiMask:LONGWORD;
  2181.                     cbBmiMask:LONGWORD;
  2182.                     offBitsMask:LONGWORD;
  2183.                     cbBitsMask:LONGWORD;
  2184.               END;
  2185.  
  2186.     PEMRSETDIBITSTODEVICE=^EMRSETDIBITSTODEVICE;
  2187.     EMRSETDIBITSTODEVICE=RECORD
  2188.                                emr:EMR;
  2189.                                rclBounds:RECTL;
  2190.                                xDest:LONGINT;
  2191.                                yDest:LONGINT;
  2192.                                xSrc:LONGINT;
  2193.                                ySrc:LONGINT;
  2194.                                cxSrc:LONGINT;
  2195.                                cySrc:LONGINT;
  2196.                                offBmiSrc:LONGWORD;
  2197.                                cbBmiSrc:LONGWORD;
  2198.                                offBitsSrc:LONGWORD;
  2199.                                cbBitsSrc:LONGWORD;
  2200.                                iUsageSrc:LONGWORD;
  2201.                                iStartScan:LONGWORD;
  2202.                                cScans:LONGWORD;
  2203.                          END;
  2204.  
  2205.     PEMRSTRETCHDIBITS=^EMRSTRETCHDIBITS;
  2206.     EMRSTRETCHDIBITS=RECORD
  2207.                            emr:EMR;
  2208.                            rclBounds:RECTL;
  2209.                            xDest:LONGINT;
  2210.                            yDest:LONGINT;
  2211.                            xSrc:LONGINT;
  2212.                            ySrc:LONGINT;
  2213.                            cxSrc:LONGINT;
  2214.                            cySrc:LONGINT;
  2215.                            offBmiSrc:LONGWORD;
  2216.                            cbBmiSrc:LONGWORD;
  2217.                            offBitsSrc:LONGWORD;
  2218.                            cbBitsSrc:LONGWORD;
  2219.                            iUsageSrc:LONGWORD;
  2220.                            dwRop:LONGWORD;
  2221.                            cxDest:LONGINT;
  2222.                            cyDest:LONGINT;
  2223.                      END;
  2224.  
  2225.     PEMREXTCREATEFONTINDIRECTW=^EMREXTCREATEFONTINDIRECTW;
  2226.     EMREXTCREATEFONTINDIRECTW=RECORD
  2227.                                     emr:EMR;
  2228.                                     ihFont:LONGWORD;
  2229.                                     elfw:EXTLOGFONT;
  2230.                               END;
  2231.  
  2232.     PEMRCREATEPALETTE=^EMRCREATEPALETTE;
  2233.     EMRCREATEPALETTE=RECORD
  2234.                            emr:EMR;
  2235.                            ihPal:LONGWORD;
  2236.                            lgpl:LOGPALETTE;
  2237.                      END;
  2238.  
  2239.     PEMRCREATEPEN=^EMRCREATEPEN;
  2240.     EMRCREATEPEN=RECORD
  2241.                        emr:EMR;
  2242.                        ihPen:LONGWORD;
  2243.                        lopn:LOGPEN;
  2244.                  END;
  2245.  
  2246.     PEMREXTCREATEPEN=^EMREXTCREATEPEN;
  2247.     EMREXTCREATEPEN=RECORD
  2248.                           emr:EMR;
  2249.                           ihPen:LONGWORD;
  2250.                           offBmi:LONGWORD;
  2251.                           cbBmi:LONGWORD;
  2252.                           offBits:LONGWORD;
  2253.                           cbBits:LONGWORD;
  2254.                           elp:EXTLOGPEN;
  2255.                     END;
  2256.  
  2257.     PEMRCREATEBRUSHINDIRECT=^EMRCREATEBRUSHINDIRECT;
  2258.     EMRCREATEBRUSHINDIRECT=RECORD
  2259.                                  emr:EMR;
  2260.                                  ihBrush:LONGWORD;
  2261.                                  lb:LOGBRUSH;
  2262.                            END;
  2263.  
  2264.     PEMRCREATEMONOBRUSH=^EMRCREATEMONOBRUSH;
  2265.     EMRCREATEMONOBRUSH=RECORD
  2266.                              emr:EMR;
  2267.                              ihBrush:LONGWORD;
  2268.                              iUsage:LONGWORD;
  2269.                              offBmi:LONGWORD;
  2270.                              cbBmi:LONGWORD;
  2271.                              offBits:LONGWORD;
  2272.                              cbBits:LONGWORD;
  2273.                        END;
  2274.  
  2275.     PEMRCREATEDIBPATTERNBRUSHPT=^EMRCREATEDIBPATTERNBRUSHPT;
  2276.     EMRCREATEDIBPATTERNBRUSHPT=RECORD
  2277.                                      emr:EMR;
  2278.                                      ihBrush:LONGWORD;
  2279.                                      iUsage:LONGWORD;
  2280.                                      offBmi:LONGWORD;
  2281.                                      cbBmi:LONGWORD;
  2282.                                      offBits:LONGWORD;
  2283.                                      cbBits:LONGWORD;
  2284.                                END;
  2285.  
  2286.     PEMRFORMAT=^EMRFORMAT;
  2287.     EMRFORMAT=RECORD
  2288.                     dSignature:LONGWORD;
  2289.                     nVersion:LONGWORD;
  2290.                     cbData:LONGWORD;
  2291.                     offData:LONGWORD;
  2292.               END;
  2293.  
  2294. CONST
  2295.        GDICOMMENT_IDENTIFIER           =$43494447;
  2296.        GDICOMMENT_WINDOWS_METAFILE     =$80000001;
  2297.        GDICOMMENT_BEGINGROUP           =$00000002;
  2298.        GDICOMMENT_ENDGROUP             =$00000003;
  2299.        GDICOMMENT_MULTIFORMATS         =$40000004;
  2300.        EPS_SIGNATURE                   =$46535045;
  2301.  
  2302. TYPE
  2303.     MFENUMPROC=FUNCTION(ahdc:HDC;VAR t:HANDLETABLE;VAR r:METARECORD;i:LONGINT;p:LPARAM):LONGINT;APIENTRY;
  2304.     ENHMFENUMPROC=FUNCTION(ahdc:HDC;VAR t:HANDLETABLE;VAR r:ENHMETARECORD;i:LONGINT;p:LPARAM):LONGINT;APIENTRY;
  2305.  
  2306.  
  2307. IMPORTS
  2308.        {$IFDEF Win95}
  2309.        FUNCTION AddFontResource(CONST s:CSTRING):LONGINT;
  2310.                      APIENTRY;    'GDI32' name 'AddFontResourceA';
  2311.        FUNCTION AnimatePalette(pal:HPALETTE;x,y:LONGWORD;VAR entry:PALETTEENTRY):BOOL;
  2312.                      APIENTRY;    'GDI32' name 'AnimatePalette';
  2313.        FUNCTION Arc(adc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2314.                      APIENTRY;    'GDI32' name 'Arc';
  2315.        FUNCTION BitBlt(Dest:HDC;x,y,w,h:LONGINT;Src:HDC;p1,p2:LONGINT;m:LONGWORD):BOOL;
  2316.                      APIENTRY;    'GDI32' name 'BitBlt';
  2317.        FUNCTION CancelDC(adc:HDC):BOOL;
  2318.                      APIENTRY;    'GDI32' name 'CancelDC';
  2319.        FUNCTION Chord(adc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2320.                      APIENTRY;    'GDI32' name 'Chord';
  2321.        FUNCTION ChoosePixelFormat(adc:HDC;VAR format:PIXELFORMATDESCRIPTOR):LONGINT;
  2322.                      APIENTRY;    'GDI32' name 'ChoosePixelFormat';
  2323.        FUNCTION CloseMetaFile(adc:HDC):HMETAFILE;
  2324.                      APIENTRY;    'GDI32' name 'CloseMetaFile';
  2325.        FUNCTION CombineRgn(rgn1,rgn2,rgn3:HRGN;x:LONGINT):LONGINT;
  2326.                      APIENTRY;    'GDI32' name 'CombineRgn';
  2327.        FUNCTION CopyMetaFile(meta:HMETAFILE;CONST s:CSTRING):HMETAFILE;
  2328.                      APIENTRY;    'GDI32' name 'CopyMetaFileA';
  2329.        FUNCTION CreateBitmap(W,H:LONGINT;p,c:LONGWORD;VAR Data):HBITMAP;
  2330.                      APIENTRY;    'GDI32' name 'CreateBitmap';
  2331.        FUNCTION CreateBitmapIndirect(VAR bm:BITMAP):HBITMAP;
  2332.                      APIENTRY;    'GDI32' name 'CreateBitmapIndirect';
  2333.        FUNCTION CreateBrushIndirect(VAR lb:LOGBRUSH):HBRUSH;
  2334.                      APIENTRY;    'GDI32' name 'CreateBrushIndirect';
  2335.        FUNCTION CreateCompatibleBitmap(Src:HDC;W,H:LONGINT):HBITMAP;
  2336.                      APIENTRY;    'GDI32' name 'CreateCompatibleBitmap';
  2337.        FUNCTION CreateDiscardableBitmap(adc:HDC;x,y:LONGINT):HBITMAP;
  2338.                      APIENTRY;    'GDI32' name 'CreateDiscardableBitmap';
  2339.        FUNCTION CreateCompatibleDC(ahdc:HDC):HDC;
  2340.                      APIENTRY;    'GDI32' name 'CreateCompatibleDC';
  2341.        FUNCTION CreateDC(CONST a,b,c:CSTRING;VAR mode:DEVMODE):HDC;
  2342.                      APIENTRY;    'GDI32' name 'CreateDCA';
  2343.        FUNCTION CreateDIBitmap(ahdc:HDC;VAR bih;
  2344.                                Flags:LONGWORD;VAR Buf;
  2345.                                VAR bi;Col:LONGWORD):HBITMAP;
  2346.                      APIENTRY;    'GDI32' name 'CreateDIBitmap';
  2347.        FUNCTION CreateDIBPatternBrush(ahGlobal:HGLOBAL;p:LONGWORD):HBRUSH;
  2348.                      APIENTRY;    'GDI32' name 'CreateDIBPatternBrush';
  2349.        FUNCTION CreateDIBPatternBrushPt(VAR Buf;p:LONGWORD):HBRUSH;
  2350.                      APIENTRY;    'GDI32' name 'CreateDIBPatternBrushPt';
  2351.        FUNCTION CreateEllipticRgn(i1,i2,i3,i4:LONGINT):HRGN;
  2352.                      APIENTRY;    'GDI32' name 'CreateEllipticRgn';
  2353.        FUNCTION CreateEllipticRgnIndirect(CONST rcl:RECT):HRGN;
  2354.                      APIENTRY;    'GDI32' name 'CreateEllipticRgnIndirect';
  2355.        FUNCTION CreateFontIndirect(VAR lf:LOGFONT):HFONT;
  2356.                      APIENTRY;    'GDI32' name 'CreateFontIndirectA';
  2357.        FUNCTION CreateFont(i1,i2,i3,i4,i5:LONGINT;dw1,dw2,dw3,dw4,dw5,dw6,
  2358.                             dw7,dw8:LONGWORD;CONST s:CSTRING):HFONT;
  2359.                      APIENTRY;    'GDI32' name 'CreateFontA';
  2360.        FUNCTION CreateHatchBrush(i:LONGINT;color:COLORREF):HBRUSH;
  2361.                      APIENTRY;    'GDI32' name 'CreateHatchBrush';
  2362.        FUNCTION CreateIC(CONST s1,s2,s3:CSTRING;CONST mode:DEVMODE):HDC;
  2363.                      APIENTRY;    'GDI32' name 'CreateICA';
  2364.        FUNCTION CreateMetaFile(CONST name:CSTRING):HDC;
  2365.                      APIENTRY;    'GDI32' name 'CreateMetaFileA';
  2366.        FUNCTION CreatePalette(VAR lp:LOGPALETTE):HPALETTE;
  2367.                      APIENTRY;    'GDI32' name 'CreatePalette';
  2368.        FUNCTION CreatePen(Style:LONGINT;LineWidth:LONGINT;Color:COLORREF):HPEN;
  2369.                      APIENTRY;    'GDI32' name 'CreatePen';
  2370.        FUNCTION CreatePenIndirect(VAR lp:LOGPEN):HPEN;
  2371.                      APIENTRY;    'GDI32' name 'CreatePenIndirect';
  2372.        FUNCTION CreatePolyPolygonRgn(CONST pt:POINT;VAR i:LONGINT;i1,i2:LONGINT):HRGN;
  2373.                      APIENTRY;    'GDI32' name 'CreatePolyPolygonRgn';
  2374.        FUNCTION CreatePatternBrush(bmp:HBITMAP):HBRUSH;
  2375.                      APIENTRY;    'GDI32' name 'CreatePatternBrush';
  2376.        FUNCTION CreateRectRgn(xLeft,yTop,xRight,yBottom:LONGINT):HRGN;
  2377.                      APIENTRY;    'GDI32' name 'CreateRectRgn';
  2378.        FUNCTION CreateRectRgnIndirect(VAR rec:RECT):HRGN;
  2379.                      APIENTRY;    'GDI32' name 'CreateRectRgnIndirect';
  2380.        FUNCTION CreateRoundRectRgn(i1,i2,i3,i4,i5,i6:LONGINT):HRGN;
  2381.                      APIENTRY;    'GDI32' name 'CreateRoundRectRgn';
  2382.        FUNCTION CreateScalableFontResource(dw:LONGWORD;CONST s1,s2,s3:CSTRING):BOOL;
  2383.                      APIENTRY;    'GDI32' name 'CreateScalableFontResourceA';
  2384.        FUNCTION CreateSolidBrush(color:COLORREF):HBRUSH;
  2385.                      APIENTRY;    'GDI32' name 'CreateSolidBrush';
  2386.        FUNCTION DeleteDC(ahdc:HDC):BOOL;
  2387.                      APIENTRY;    'GDI32' name 'DeleteDC';
  2388.        FUNCTION DeleteMetaFile(ahMeta:HMETAFILE):BOOL;
  2389.                      APIENTRY;    'GDI32' name 'DeleteMetaFile';
  2390.        FUNCTION DeleteObject(obj:HGDIOBJ):BOOL;
  2391.                      APIENTRY;    'GDI32' name 'DeleteObject';
  2392.        FUNCTION DescribePixelFormat(ahdc:HDC;i:LONGINT;ui:LONGWORD;VAR desc:PIXELFORMATDESCRIPTOR):LONGINT;
  2393.                      APIENTRY;    'GDI32' name 'DescribePixelFormat';
  2394.        FUNCTION DeviceCapabilities(CONST s1,s2:CSTRING;w:WORD;VAR s:STRING;
  2395.                                     VAR mode:DEVMODE):LONGINT;
  2396.                      APIENTRY;    'GDI32' name 'DeviceCapabilitiesA';
  2397.        FUNCTION DrawEscape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING):LONGINT;
  2398.                      APIENTRY;    'GDI32' name 'DrawEscape';
  2399.        FUNCTION Ellipse(ahdc:HDC;i1,i2,i3,i4:LONGINT):BOOL;
  2400.                      APIENTRY;    'GDI32' name 'Ellipse';
  2401.        FUNCTION EnumFontFamilies(ahdc:HDC;CONST name:CSTRING;proc:FONTENUMPROC;
  2402.                                  alParam:LPARAM):LONGINT;
  2403.                      APIENTRY;    'GDI32' name 'EnumFontFamiliesA';
  2404.        FUNCTION EnumFonts(ahdc:HDC;CONST FaceName:CSTRING;proc:FONTENUMPROC;
  2405.                           data:POINTER):LONGINT;
  2406.                      APIENTRY;    'GDI32' name 'EnumFontsA';
  2407.        FUNCTION EnumObjects(ahdc:HDC;i:LONGINT;proc:GOBJENUMPROC;alParam:LPARAM):LONGINT;
  2408.                      APIENTRY;    'GDI32' name 'EnumObjects';
  2409.        FUNCTION EqualRgn(ahrgn1,ahrgn2:HRGN):BOOL;
  2410.                      APIENTRY;    'GDI32' name 'EqualRgn';
  2411.        FUNCTION Escape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING;VAR Buf):LONGINT;
  2412.                      APIENTRY;    'GDI32' name 'Escape';
  2413.        FUNCTION ExtEscape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING;i3:LONGINT;
  2414.                           VAR s1:CSTRING):LONGINT;
  2415.                      APIENTRY;    'GDI32' name 'ExtEscape';
  2416.        FUNCTION ExcludeClipRect(ahdc:HDC;i1,i2,i3,i4:LONGINT):LONGINT;
  2417.                      APIENTRY;    'GDI32' name 'ExcludeClipRect';
  2418.        FUNCTION ExtCreateRegion(CONST form:XFORM;dw:LONGWORD;CONST data:RGNDATA):HRGN;
  2419.                      APIENTRY;    'GDI32' name 'ExtCreateRegion';
  2420.        FUNCTION ExtFloodFill(ahdc:HDC;x,y:LONGINT;color:COLORREF;p:LONGWORD):BOOL;
  2421.                      APIENTRY;    'GDI32' name 'ExtFloodFill';
  2422.        FUNCTION FillRgn(ahdc:HDC;ahrgn:HRGN;ahBrush:HBRUSH):BOOL;
  2423.                      APIENTRY;    'GDI32' name 'FillRgn';
  2424.        FUNCTION FloodFill(ahdc:HDC;X,Y:LONGINT;Color:COLORREF):BOOL;
  2425.                      APIENTRY;    'GDI32' name 'FloodFill';
  2426.        FUNCTION FrameRgn(ahdc:HDC;ahrgn:HRGN;ahbrush:HBRUSH;x,y:LONGINT):BOOL;
  2427.                      APIENTRY;    'GDI32' name 'FrameRgn';
  2428.        FUNCTION GetROP2(ahdc:HDC):LONGINT;
  2429.                      APIENTRY;    'GDI32' name 'GetROP2';
  2430.        FUNCTION GetAspectRatioFilterEx(ahdc:HDC;VAR asize:SIZE):BOOL;
  2431.                      APIENTRY;    'GDI32' name 'GetAspectRatioFilterEx';
  2432.        FUNCTION GetBkColor(ahdc:HDC):COLORREF;
  2433.                      APIENTRY;    'GDI32' name 'GetBkColor';
  2434.        FUNCTION GetBkMode(ahdc:HDC):LONGINT;
  2435.                      APIENTRY;    'GDI32' name 'GetBkMode';
  2436.        FUNCTION GetBitmapBits(ahBitmap:HBITMAP;count:LONG;VAR Buffer):LONG;
  2437.                      APIENTRY;    'GDI32' name 'GetBitmapBits';
  2438.        FUNCTION GetBitmapDimensionEx(ahBitmap:HBITMAP;VAR sSize:SIZE):BOOL;
  2439.                      APIENTRY;    'GDI32' name 'GetBitmapDimensionEx';
  2440.        FUNCTION GetBoundsRect(ahdc:HDC;VAR rc:RECT;f:LONGWORD):LONGWORD;
  2441.                      APIENTRY;    'GDI32' name 'GetBoundsRect';
  2442.        FUNCTION GetBrushOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  2443.                      APIENTRY;    'GDI32' name 'GetBrushOrgEx';
  2444.        FUNCTION GetCharWidth(ahdc:HDC;p1,p2:LONGWORD;VAR r:LONGINT):BOOL;
  2445.                      APIENTRY;    'GDI32' name 'GetCharWidthA';
  2446.        FUNCTION GetCharWidth32(ahdc:HDC;p1,p2:LONGWORD;VAR r:LONGINT):BOOL;
  2447.                      APIENTRY;    'GDI32' name 'GetCharWidth32A';
  2448.        FUNCTION GetCharWidthFloat(ahdc:HDC;p1,p2:LONGWORD;VAR r:FLOAT):BOOL;
  2449.                      APIENTRY;    'GDI32' name 'GetCharWidthFloatA';
  2450.        FUNCTION GetCharABCWidths(ahdc:HDC;p1,p2:LONGWORD;VAR r:ABC):BOOL;
  2451.                      APIENTRY;    'GDI32' name 'GetCharABCWidthsA';
  2452.        FUNCTION GetCharABCWidthsFloat(ahdc:HDC;p1,p2:LONGWORD;VAR r:ABCFLOAT):BOOL;
  2453.                      APIENTRY;    'GDI32' name 'GetCharABCWidthsFloatA';
  2454.        FUNCTION GetClipBox(ahdc:HDC;VAR rec:RECT):LONGINT;
  2455.                      APIENTRY;    'GDI32' name 'GetClipBox';
  2456.        FUNCTION GetClipRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  2457.                      APIENTRY;    'GDI32' name 'GetClipRgn';
  2458.        FUNCTION GetMetaRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  2459.                      APIENTRY;    'GDI32' name 'GetMetaRgn';
  2460.        FUNCTION GetCurrentObject(ahdc:HDC;o:LONGWORD):HGDIOBJ;
  2461.                      APIENTRY;    'GDI32' name 'GetCurrentObject';
  2462.        FUNCTION GetCurrentPositionEx(ahdc:HDC;VAR CurPos:POINT):BOOL;
  2463.                      APIENTRY;    'GDI32' name 'GetCurrentPositionEx';
  2464.        FUNCTION GetDeviceCaps(ahdc:HDC;t:LONGINT):LONGINT;
  2465.                      APIENTRY;    'GDI32' name 'GetDeviceCaps';
  2466.        FUNCTION GetDIBits(ahdc:HDC;ahbitmap:HBITMAP;p1,p2:LONGWORD;VAR Buf;VAR pi;l:LONGWORD):LONGINT;
  2467.                      APIENTRY;    'GDI32' name 'GetDIBits';
  2468.        FUNCTION GetFontData(ahdc:HDC;p1,p2:LONGWORD;VAR Buf;l:LONGWORD):LONGWORD;
  2469.                      APIENTRY;    'GDI32' name 'GetFontData';
  2470.        FUNCTION GetGlyphOutline(ahdc:HDC;p1,p2:LONGWORD;VAR gm:GLYPHMETRICS;p3:LONGWORD;
  2471.                                  VAR Buf;CONST ma2:MAT2):LONGWORD;
  2472.                      APIENTRY;    'GDI32' name 'GetGlyphOutlineA';
  2473.        FUNCTION GetGraphicsMode(ahdc:HDC):LONGINT;
  2474.                      APIENTRY;    'GDI32' name 'GetGraphicsMode';
  2475.        FUNCTION GetMapMode(ahdc:HDC):LONGINT;
  2476.                      APIENTRY;    'GDI32' name 'GetMapMode';
  2477.        FUNCTION GetMetaFileBitsEx(ahmeta:HMETAFILE;l:LONGWORD;VAR Buf):LONGWORD;
  2478.                      APIENTRY;    'GDI32' name 'GetMetaFileBitsEx';
  2479.        FUNCTION GetMetaFile(CONST Name:CSTRING):HMETAFILE;
  2480.                      APIENTRY;    'GDI32' name 'GetMetaFileA';
  2481.        FUNCTION GetNearestColor(ahdc:HDC;col:COLORREF):COLORREF;
  2482.                      APIENTRY;    'GDI32' name 'GetNearestColor';
  2483.        FUNCTION GetNearestPaletteIndex(ahpal:HPALETTE;cref:COLORREF):LONGWORD;
  2484.                      APIENTRY;    'GDI32' name 'GetNearestPaletteIndex';
  2485.        FUNCTION GetObjectType(h:HGDIOBJ):LONGWORD;
  2486.                      APIENTRY;    'GDI32' name 'GetObjectType';
  2487.        FUNCTION GetOutlineTextMetrics(ahdc:HDC;p1:LONGWORD;VAR tm:OUTLINETEXTMETRIC):LONGWORD;
  2488.                      APIENTRY;    'GDI32' name 'GetOutlineTextMetricsA';
  2489.        FUNCTION GetPaletteEntries(ahpal:HPALETTE;p1,p2:LONGWORD;VAR pe:PALETTEENTRY):LONGWORD;
  2490.                      APIENTRY;    'GDI32' name 'GetPaletteEntries';
  2491.        FUNCTION GetPixel(ahdc:HDC;x,y:LONGINT):COLORREF;
  2492.                      APIENTRY;    'GDI32' name 'GetPixel';
  2493.        FUNCTION GetPixelFormat(ahdc:HDC):LONGINT;
  2494.                      APIENTRY;    'GDI32' name 'GetPixelFormat';
  2495.        FUNCTION GetPolyFillMode(ahdc:HDC):LONGINT;
  2496.                      APIENTRY;    'GDI32' name 'GetPolyFillMode';
  2497.        FUNCTION GetRasterizerCaps(VAR rs:RASTERIZER_STATUS;p:LONGWORD):BOOL;
  2498.                      APIENTRY;    'GDI32' name 'GetRasterizerCaps';
  2499.        FUNCTION GetRegionData(ahrgn:HRGN;p:LONGWORD;VAR rgnd:RGNDATA):LONGWORD;
  2500.                      APIENTRY;    'GDI32' name 'GetRegionData';
  2501.        FUNCTION GetRgnBox(ahrn:HRGN;VAR rec:RECT):LONGINT;
  2502.                      APIENTRY;    'GDI32' name 'GetRgnBox';
  2503.        FUNCTION GetStockObject(o:LONGINT):HGDIOBJ;
  2504.                      APIENTRY;    'GDI32' name 'GetStockObject';
  2505.        FUNCTION GetStretchBltMode(ahdc:HDC):LONGINT;
  2506.                      APIENTRY;    'GDI32' name 'GetStretchBltMode';
  2507.        FUNCTION GetSystemPaletteEntries(ahdc:HDC;aStart,aEnd:LONGWORD;
  2508.                                         VAR Result:PALETTEENTRY):LONGWORD;
  2509.                      APIENTRY;    'GDI32' name 'GetSystemPaletteEntries';
  2510.        FUNCTION GetSystemPaletteUse(ahdc:HDC):LONGWORD;
  2511.                      APIENTRY;    'GDI32' name 'GetSystemPaletteUse';
  2512.        FUNCTION GetTextCharacterExtra(ahdc:HDC):LONGINT;
  2513.                      APIENTRY;    'GDI32' name 'GetTextCharacterExtra';
  2514.        FUNCTION GetTextAlign(ahdc:HDC):LONGWORD;
  2515.                      APIENTRY;    'GDI32' name 'GetTextAlign';
  2516.        FUNCTION GetTextColor(ahdc:HDC):COLORREF;
  2517.                      APIENTRY;    'GDI32' name 'GetTextColor';
  2518.        FUNCTION GetTextExtentPoint(ahdc:HDC;CONST s:CSTRING;i:LONGINT;VAR si:SIZE):BOOL;
  2519.                      APIENTRY;    'GDI32' name 'GetTextExtentPointA';
  2520.        FUNCTION GetTextExtentPoint32(ahdc:HDC;CONST str;strlen:LONGINT;
  2521.                                      VAR asize:SIZE):BOOL;
  2522.                      APIENTRY;    'GDI32' name 'GetTextExtentPoint32A';
  2523.        FUNCTION GetTextExtentExPoint(ahdc:HDC;CONST s:CSTRING;i1,i2:LONGINT;VAR r1,r2:LONGINT;VAR si:SIZE):BOOL;
  2524.                      APIENTRY;    'GDI32' name 'GetTextExtentExPointA';
  2525.        FUNCTION GetViewportExtEx(ahdc:HDC;VAR si:SIZE):BOOL;
  2526.                      APIENTRY;    'GDI32' name 'GetViewportExtEx';
  2527.        FUNCTION GetViewportOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  2528.                      APIENTRY;    'GDI32' name 'GetViewportOrgEx';
  2529.        FUNCTION GetWindowExtEx(ahdc:HDC;VAR si:SIZE):BOOL;
  2530.                      APIENTRY;    'GDI32' name 'GetWindowExtEx';
  2531.        FUNCTION GetWindowOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  2532.                      APIENTRY;    'GDI32' name 'GetWindowOrgEx';
  2533.        FUNCTION IntersectClipRect(ahdc:HDC;i1,i2,i3,i4:LONGINT):LONGINT;
  2534.                      APIENTRY;    'GDI32' name 'IntersectClipRect';
  2535.        FUNCTION InvertRgn(ahdc:HDC;ahrgn:HRGN):BOOL;
  2536.                      APIENTRY;    'GDI32' name 'InvertRgn';
  2537.        FUNCTION LineDDA(x,y,x1,y1:LONGINT;p:LINEDDAPROC;param:LPARAM):BOOL;
  2538.                      APIENTRY;    'GDI32' name 'LineDDA';
  2539.        FUNCTION LineTo(ahdc:HDC;X,Y:LONGINT):BOOL;
  2540.                      APIENTRY;    'GDI32' name 'LineTo';
  2541.        FUNCTION MaskBlt(ahdc:HDC;i1,i2,i3,i4:LONGINT;ahdc1:HDC;i5,i6:LONGINT;ahbitmap:HBITMAP;
  2542.                         i7,i8:LONGINT;m:LONGWORD):BOOL;
  2543.                      APIENTRY;    'GDI32' name 'MaskBlt';
  2544.        FUNCTION PlgBlt(ahdc:HDC;CONST pt:POINT;ahdc1:HDC;i1,i2,i3,i4:LONGINT;ahbitmap:HBITMAP;
  2545.                        i5,i6:LONGINT):BOOL;
  2546.                      APIENTRY;    'GDI32' name 'PlgBlt';
  2547.        FUNCTION OffsetClipRgn(ahdc:HDC;x,y:LONGINT):LONGINT;
  2548.                      APIENTRY;    'GDI32' name 'OffsetClipRgn';
  2549.        FUNCTION OffsetRgn(ahrgn:HRGN;x,y:LONGINT):LONGINT;
  2550.                      APIENTRY;    'GDI32' name 'OffsetRgn';
  2551.        FUNCTION PatBlt(ahdc:HDC;x,y,w,h:LONGINT;m:LONGWORD):BOOL;
  2552.                      APIENTRY;    'GDI32' name 'PatBlt';
  2553.        FUNCTION Pie(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2554.                      APIENTRY;    'GDI32' name 'Pie';
  2555.        FUNCTION PlayMetaFile(ahdc:HDC;hmeta:HMETAFILE):BOOL;
  2556.                      APIENTRY;    'GDI32' name 'PlayMetaFile';
  2557.        FUNCTION PaintRgn(ahdc:HDC;ahrgn:HRGN):BOOL;
  2558.                      APIENTRY;    'GDI32' name 'PaintRgn';
  2559.        FUNCTION PolyPolygon(ahdc:HDC;CONST pt:POINT;VAR i:LONGINT;ii:LONGINT):BOOL;
  2560.                      APIENTRY;    'GDI32' name 'PolyPolygon';
  2561.        FUNCTION PtInRegion(ahrgn:HRGN;x,y:LONGINT):BOOL;
  2562.                      APIENTRY;    'GDI32' name 'PtInRegion';
  2563.        FUNCTION PtVisible(ahdc:HDC;x,y:LONGINT):BOOL;
  2564.                      APIENTRY;    'GDI32' name 'PtVisible';
  2565.        FUNCTION RectInRegion(ahrgn:HRGN;CONST rc:RECT):BOOL;
  2566.                      APIENTRY;    'GDI32' name 'RectInRegion';
  2567.        FUNCTION RectVisible(ahdc:HDC;CONST rc:RECT):BOOL;
  2568.                      APIENTRY;    'GDI32' name 'RectVisible';
  2569.        FUNCTION Rectangle(ahdc:HDC;xLeft,yTop,xRight,yBottom:LONGINT):BOOL;
  2570.                      APIENTRY;    'GDI32' name 'Rectangle';
  2571.        FUNCTION RestoreDC(ahdc:HDC;m:LONGINT):BOOL;
  2572.                      APIENTRY;    'GDI32' name 'RestoreDC';
  2573.        FUNCTION ResetDC(ahdc:HDC;CONST dm:DEVMODE):HDC;
  2574.                      APIENTRY;    'GDI32' name 'ResetDCA';
  2575.        FUNCTION RealizePalette(ahdc:HDC):ULONG;
  2576.                      APIENTRY;    'GDI32' name 'RealizePalette';
  2577.        FUNCTION RemoveFontResource(CONST s:CSTRING):BOOL;
  2578.                      APIENTRY;    'GDI32' name 'RemoveFontResourceA';
  2579.        FUNCTION RoundRect(ahdc:HDC;i1,i2,i3,i4,i5,i6:LONGINT):BOOL;
  2580.                      APIENTRY;    'GDI32' name 'RoundRect';
  2581.        FUNCTION ResizePalette(ahpal:HPALETTE;m:LONGWORD):BOOL;
  2582.                      APIENTRY;    'GDI32' name 'ResizePalette';
  2583.        FUNCTION SaveDC(ahdc:HDC):LONGINT;
  2584.                      APIENTRY;    'GDI32' name 'SaveDC';
  2585.        FUNCTION SelectClipRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  2586.                      APIENTRY;    'GDI32' name 'SelectClipRgn';
  2587.        FUNCTION ExtSelectClipRgn(ahdc:HDC;ahrgn:HRGN;mode:LONGINT):LONGINT;
  2588.                      APIENTRY;    'GDI32' name 'ExtSelectClipRgn';
  2589.        FUNCTION SetMetaRgn(ahdc:HDC):LONGINT;
  2590.                      APIENTRY;    'GDI32' name 'SetMetaRgn';
  2591.        FUNCTION SelectObject(ahdc:HDC;obj:HGDIOBJ):HGDIOBJ;
  2592.                      APIENTRY;    'GDI32' name 'SelectObject';
  2593.        FUNCTION SelectPalette(ahdc:HDC;ahpal:HPALETTE;b:BOOL):HPALETTE;
  2594.                      APIENTRY;    'GDI32' name 'SelectPalette';
  2595.        FUNCTION SetBkColor(ahdc:HDC;NewColor:COLORREF):COLORREF;
  2596.                      APIENTRY;    'GDI32' name 'SetBkColor';
  2597.        FUNCTION SetBkMode(ahdc:HDC;NewMode:LONGINT):LONGINT;
  2598.                      APIENTRY;    'GDI32' name 'SetBkMode';
  2599.        FUNCTION SetBitmapBits(ahbitmap:HBITMAP;Len:LONGWORD;CONST Buf):LONGINT;
  2600.                      APIENTRY;    'GDI32' name 'SetBitmapBits';
  2601.        FUNCTION SetBoundsRect(ahdc:HDC;CONST rc:RECT;m:LONGWORD):LONGWORD;
  2602.                      APIENTRY;    'GDI32' name 'SetBoundsRect';
  2603.        FUNCTION SetDIBits(ahdc:HDC;ahbit:HBITMAP;u1,u2:LONGWORD;CONST Buf;VAR bi:BITMAPINFO;u3:LONGWORD):LONGINT;
  2604.                      APIENTRY;    'GDI32' name 'SetDIBits';
  2605.        FUNCTION SetDIBitsToDevice(ahdc:HDC;i1,i2:LONGINT;u1,u2:LONGWORD;i3,i4:LONGINT;u3,u4:LONGWORD;
  2606.                                   CONST Buf;VAR bi:BITMAPINFO;m:LONGWORD):LONGINT;
  2607.                      APIENTRY;    'GDI32' name 'SetDIBitsToDevice';
  2608.        FUNCTION SetMapperFlags(ahdc:HDC;f:LONGWORD):LONGWORD;
  2609.                      APIENTRY;    'GDI32' name 'SetMapperFlags';
  2610.        FUNCTION SetGraphicsMode(ahdc:HDC;iMode:LONGINT):LONGINT;
  2611.                      APIENTRY;    'GDI32' name 'SetGraphicsMode';
  2612.        FUNCTION SetMapMode(ahdc:HDC;mode:LONGINT):LONGINT;
  2613.                      APIENTRY;    'GDI32' name 'SetMapMode';
  2614.        FUNCTION SetMetaFileBitsEx(u1:LONGWORD;VAR Buf):HMETAFILE;
  2615.                      APIENTRY;    'GDI32' name 'SetMetaFileBitsEx';
  2616.        FUNCTION SetPaletteEntries(ahpal:HPALETTE;u1,u2:LONGWORD;VAR e:PALETTEENTRY):LONGWORD;
  2617.                      APIENTRY;    'GDI32' name 'SetPaletteEntries';
  2618.        FUNCTION SetPixel(ahdc:HDC;x,y:LONGINT;color:COLORREF):COLORREF;
  2619.                      APIENTRY;    'GDI32' name 'SetPixel';
  2620.        FUNCTION SetPixelV(ahdc:HDC;x,y:LONGINT;color:COLORREF):BOOL;
  2621.                      APIENTRY;    'GDI32' name 'SetPixelV';
  2622.        FUNCTION SetPixelFormat(ahdc:HDC;i:LONGINT;VAR pf:PIXELFORMATDESCRIPTOR):BOOL;
  2623.                      APIENTRY;    'GDI32' name 'SetPixelFormat';
  2624.        FUNCTION SetPolyFillMode(ahdc:HDC;mode:LONGINT):LONGINT;
  2625.                      APIENTRY;    'GDI32' name 'SetPolyFillMode';
  2626.        FUNCTION StretchBlt(Src:HDC;SrcX,SrcY,SrcW,SrcH:LONGINT;
  2627.                            Dest:HDC;DestX,DestY,DestW,DestH:LONGINT;
  2628.                            CopyMode:LONGWORD):BOOL;
  2629.                      APIENTRY;    'GDI32' name 'StretchBlt';
  2630.        FUNCTION SetRectRgn(ahrgn:HRGN;i1,i2,i3,i4:LONGINT):BOOL;
  2631.                      APIENTRY;    'GDI32' name 'SetRectRgn';
  2632.        FUNCTION StretchDIBits(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT;CONST Buf;VAR bi:BITMAPINFO;
  2633.                               u1,u2:LONGWORD):LONGINT;
  2634.                      APIENTRY;    'GDI32' name 'StretchDIBits';
  2635.        FUNCTION SetROP2(ahdc:HDC;Mode:LONGINT):LONGINT;
  2636.                      APIENTRY;    'GDI32' name 'SetROP2';
  2637.        FUNCTION SetStretchBltMode(ahdc:HDC;Mode:LONGINT):LONGINT;
  2638.                      APIENTRY;    'GDI32' name 'SetStretchBltMode';
  2639.        FUNCTION SetSystemPaletteUse(ahdc:HDC;u:LONGWORD):LONGWORD;
  2640.                      APIENTRY;    'GDI32' name 'SetSystemPaletteUse';
  2641.        FUNCTION SetTextCharacterExtra(ahdc:HDC;v:LONGINT):LONGINT;
  2642.                      APIENTRY;    'GDI32' name 'SetTextCharacterExtra';
  2643.        FUNCTION SetTextColor(ahdc:HDC;NewColor:COLORREF):COLORREF;
  2644.                      APIENTRY;    'GDI32' name 'SetTextColor';
  2645.        FUNCTION SetTextAlign(ahdc:HDC;Align:ULONG):ULONG;
  2646.                      APIENTRY;    'GDI32' name 'SetTextAlign';
  2647.        FUNCTION SetTextJustification(ahdc:HDC;x,y:LONGINT):BOOL;
  2648.                      APIENTRY;    'GDI32' name 'SetTextJustification';
  2649.        FUNCTION UpdateColors(ahdc:HDC):BOOL;
  2650.                      APIENTRY;    'GDI32' name 'UpdateColors';
  2651.        FUNCTION PlayMetaFileRecord(ahdc:HDC;VAR t:HANDLETABLE;VAR r:METARECORD;m:LONGWORD):BOOL;
  2652.                      APIENTRY;    'GDI32' name 'PlayMetaFileRecord';
  2653.        FUNCTION EnumMetaFile(ahdc:HDC;ahmeta:HMETAFILE;proc:MFENUMPROC;param:LPARAM):BOOL;
  2654.                      APIENTRY;    'GDI32' name 'EnumMetaFile';
  2655.        FUNCTION CloseEnhMetaFile(ahdc:HDC):HENHMETAFILE;
  2656.                      APIENTRY;    'GDI32' name 'CloseEnhMetaFile';
  2657.        FUNCTION CopyEnhMetaFile(handle:HENHMETAFILE;CONST Name:CSTRING):HENHMETAFILE;
  2658.                      APIENTRY;    'GDI32' name 'CopyEnhMetaFileA';
  2659.        FUNCTION CreateEnhMetaFile(ahdc:HDC;CONST Name:CSTRING;CONST rc:RECT;CONST n1:CSTRING):HDC;
  2660.                      APIENTRY;    'GDI32' name 'CreateEnhMetaFileA';
  2661.        FUNCTION DeleteEnhMetaFile(h:HENHMETAFILE):BOOL;
  2662.                      APIENTRY;    'GDI32' name 'DeleteEnhMetaFile';
  2663.        FUNCTION EnumEnhMetaFile(ahdc:HDC;h:HENHMETAFILE;proc:ENHMFENUMPROC;VAR Buf;CONST rc:RECT):BOOL;
  2664.                      APIENTRY;    'GDI32' name 'EnumEnhMetaFile';
  2665.        FUNCTION GetEnhMetaFile(CONST Name:CSTRING):HENHMETAFILE;
  2666.                      APIENTRY;    'GDI32' name 'GetEnhMetaFileA';
  2667.        FUNCTION GetEnhMetaFileBits(h:HENHMETAFILE;u:LONGWORD;VAR Buf):LONGWORD;
  2668.                      APIENTRY;    'GDI32' name 'GetEnhMetaFileBits';
  2669.        FUNCTION GetEnhMetaFileDescription(h:HENHMETAFILE;u:LONGWORD;VAR Name:CSTRING):LONGWORD;
  2670.                      APIENTRY;    'GDI32' name 'GetEnhMetaFileDescriptionA';
  2671.        FUNCTION GetEnhMetaFileHeader(h:HENHMETAFILE;u:LONGWORD;VAR header:ENHMETAHEADER ):LONGWORD;
  2672.                      APIENTRY;    'GDI32' name 'GetEnhMetaFileHeader';
  2673.        FUNCTION GetEnhMetaFilePaletteEntries(h:HENHMETAFILE;u:LONGWORD;VAR e:PALETTEENTRY ):LONGWORD;
  2674.                      APIENTRY;    'GDI32' name 'GetEnhMetaFilePaletteEntries';
  2675.        FUNCTION GetWinMetaFileBits(h:HENHMETAFILE;u:LONGWORD;VAR Buf;i:LONGINT;ahdc:HDC):LONGWORD;
  2676.                      APIENTRY;    'GDI32' name 'GetWinMetaFileBits';
  2677.        FUNCTION PlayEnhMetaFile(ahdc:HDC;h:HENHMETAFILE;CONST rc:RECT):BOOL;
  2678.                      APIENTRY;    'GDI32' name 'PlayEnhMetaFile';
  2679.        FUNCTION PlayEnhMetaFileRecord(ahdc:HDC;VAR t:HANDLETABLE;CONST r:ENHMETARECORD;u:LONGWORD):BOOL;
  2680.                      APIENTRY;    'GDI32' name 'PlayEnhMetaFileRecord';
  2681.        FUNCTION SetEnhMetaFileBits(u:LONGWORD;CONST Buf):HENHMETAFILE;
  2682.                      APIENTRY;    'GDI32' name 'SetEnhMetaFileBits';
  2683.        FUNCTION SetWinMetaFileBits(u:LONGWORD;CONST Buf;ahdc:HDC;CONST p:METAFILEPICT):HENHMETAFILE;
  2684.                      APIENTRY;    'GDI32' name 'SetWinMetaFileBits';
  2685.        FUNCTION GdiComment(ahdc:HDC;u:LONGWORD;CONST Buf):BOOL;
  2686.                      APIENTRY;    'GDI32' name 'GdiComment';
  2687.        FUNCTION GetTextMetrics(ahdc:HDC;VAR tm:TEXTMETRIC):BOOL;
  2688.                      APIENTRY;    'GDI32' name 'GetTextMetricsA';
  2689.        FUNCTION PolyPolyline(ahdc:HDC;CONST pt:POINT;CONST Buf;u:LONGWORD):BOOL;
  2690.                      APIENTRY;    'GDI32' name 'PolyPolyline';
  2691.        FUNCTION GetWorldTransform(ahdc:HDC;VAR f:XFORM):BOOL;
  2692.                      APIENTRY;    'GDI32' name 'GetWorldTransform';
  2693.        FUNCTION SetWorldTransform(ahdc:HDC;CONST xf:XFORM):BOOL;
  2694.                      APIENTRY;    'GDI32' name 'SetWorldTransform';
  2695.        FUNCTION ModifyWorldTransform(ahdc:HDC;CONST xf:XFORM;u:LONGWORD):BOOL;
  2696.                      APIENTRY;    'GDI32' name 'ModifyWorldTransform';
  2697.        FUNCTION CombineTransform(VAR xf:XFORM;CONST xf1,xf2:XFORM):BOOL;
  2698.                      APIENTRY;    'GDI32' name 'CombineTransform';
  2699.        FUNCTION CreateDIBSection(ahdc:HDC;CONST bi:BITMAPINFO;u:LONGWORD;VAR p:POINTER;h:HANDLE;u1:LONGWORD):HBITMAP;
  2700.                      APIENTRY;    'GDI32' name 'CreateDIBSection';
  2701.        FUNCTION GetDIBColorTable(ahdc:HDC;u1,u2:LONGWORD;VAR r:RGBQUAD):LONGWORD;
  2702.                      APIENTRY;    'GDI32' name 'GetDIBColorTable';
  2703.        FUNCTION SetDIBColorTable(ahdc:HDC;u1,u2:LONGWORD;CONST r:RGBQUAD):LONGWORD;
  2704.                      APIENTRY;    'GDI32' name 'SetDIBColorTable';
  2705.        FUNCTION SetColorAdjustment(ahdc:HDC;CONST a:COLORADJUSTMENT):BOOL;
  2706.                      APIENTRY;    'GDI32' name 'SetColorAdjustment';
  2707.        FUNCTION GetColorAdjustment(ahdc:HDC;VAR a:COLORADJUSTMENT):BOOL;
  2708.                      APIENTRY;    'GDI32' name 'GetColorAdjustment';
  2709.        FUNCTION CreateHalftonePalette(ahdc:HDC):HPALETTE;
  2710.                      APIENTRY;    'GDI32' name 'CreateHalftonePalette';
  2711.        FUNCTION StartDocAPI(ahdc:HDC;CONST i:DOCINFO):LONGINT;
  2712.                      APIENTRY;    'GDI32' name 'StartDocA';
  2713.        FUNCTION EndDocAPI(ahdc:HDC):LONGINT;
  2714.                      APIENTRY;    'GDI32' name 'EndDoc';
  2715.        FUNCTION StartPage(ahdc:HDC):LONGINT;
  2716.                      APIENTRY;    'GDI32' name 'StartPage';
  2717.        FUNCTION EndPage(ahdc:HDC):LONGINT;
  2718.                      APIENTRY;    'GDI32' name 'EndPage';
  2719.        FUNCTION AbortDocAPI(ahdc:HDC):LONGINT;
  2720.                      APIENTRY;    'GDI32' name 'AbortDoc';
  2721.        FUNCTION SetAbortProcAPI(ahdc:HDC;proc:ABORTPROC):LONGINT;
  2722.                      APIENTRY;    'GDI32' name 'SetAbortProc';
  2723.        FUNCTION AbortPath(ahdc:HDC):BOOL;
  2724.                      APIENTRY;    'GDI32' name 'AbortPath';
  2725.        FUNCTION ArcTo(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2726.                      APIENTRY;    'GDI32' name 'ArcTo';
  2727.        FUNCTION BeginPath(ahdc:HDC):BOOL;
  2728.                      APIENTRY;    'GDI32' name 'BeginPath';
  2729.        FUNCTION CloseFigure(ahdc:HDC):BOOL;
  2730.                      APIENTRY;    'GDI32' name 'CloseFigure';
  2731.        FUNCTION EndPath(ahdc:HDC):BOOL;
  2732.                      APIENTRY;    'GDI32' name 'EndPath';
  2733.        FUNCTION FillPath(ahdc:HDC):BOOL;
  2734.                      APIENTRY;    'GDI32' name 'FillPath';
  2735.        FUNCTION FlattenPath(ahdc:HDC):BOOL;
  2736.                      APIENTRY;    'GDI32' name 'FlattenPath';
  2737.        FUNCTION GetPath(ahdc:HDC;VAR pt:POINT;VAR b:BYTE;i:LONGINT):LONGINT;
  2738.                      APIENTRY;    'GDI32' name 'GetPath';
  2739.        FUNCTION PathToRegion(ahdc:HDC):HRGN;
  2740.                      APIENTRY;    'GDI32' name 'PathToRegion';
  2741.        FUNCTION PolyDraw(ahdc:HDC;CONST pt:POINT;CONST Buf;i:LONGINT):BOOL;
  2742.                      APIENTRY;    'GDI32' name 'PolyDraw';
  2743.        FUNCTION SelectClipPath(ahdc:HDC;i:LONGINT):BOOL;
  2744.                      APIENTRY;    'GDI32' name 'SelectClipPath';
  2745.        FUNCTION SetArcDirection(ahdc:HDC;d:LONGINT):LONGINT;
  2746.                      APIENTRY;    'GDI32' name 'SetArcDirection';
  2747.        FUNCTION SetMiterLimitAPI(ahdc:HDC;f:FLOAT;VAR f1:FLOAT):BOOL;
  2748.                      APIENTRY;    'GDI32' name 'SetMiterLimit';
  2749.        FUNCTION StrokeAndFillPath(ahdc:HDC):BOOL;
  2750.                      APIENTRY;    'GDI32' name 'StrokeAndFillPath';
  2751.        FUNCTION StrokePath(ahdc:HDC):BOOL;
  2752.                      APIENTRY;    'GDI32' name 'StrokePath';
  2753.        FUNCTION WidenPath(ahdc:HDC):BOOL;
  2754.                      APIENTRY;    'GDI32' name 'WidenPath';
  2755.        FUNCTION ExtCreatePen(u1,u2:LONGWORD;CONST lb:LOGBRUSH;u3:LONGWORD;CONST Buf):HPEN;
  2756.                      APIENTRY;    'GDI32' name 'ExtCreatePen';
  2757.        FUNCTION GetMiterLimit(ahdc:HDC;VAR f:FLOAT):BOOL;
  2758.                      APIENTRY;    'GDI32' name 'GetMiterLimit';
  2759.        FUNCTION GetArcDirection(ahdc:HDC):LONGINT;
  2760.                      APIENTRY;    'GDI32' name 'GetArcDirection';
  2761.        FUNCTION GetObject(aobj:HGDIOBJ;size:LONGINT;VAR Buffer):LONGINT;
  2762.                      APIENTRY;    'GDI32' name 'GetObjectA';
  2763.        FUNCTION MoveToEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldPos:POINT):BOOL;
  2764.                      APIENTRY;    'GDI32' name 'MoveToEx';
  2765.        FUNCTION TextOut(ahdc:HDC;x,y:LONGINT;CONST apString;len:LONGINT):BOOL;
  2766.                      APIENTRY;    'GDI32' name 'TextOutA';
  2767.        FUNCTION ExtTextOutAPI(ahdc:HDC;i1,i2:LONGINT;u:LONGWORD;CONST r:RECT;CONST s:CSTRING;
  2768.                            u1:LONGWORD;CONST Buf):BOOL;
  2769.                      APIENTRY;    'GDI32' name 'ExtTextOutA';
  2770.        FUNCTION PolyTextOut(ahdc:HDC;CONST pt:POLYTEXT;i:LONGINT):BOOL;
  2771.                      APIENTRY;    'GDI32' name 'PolyTextOutA';
  2772.        FUNCTION CreatePolygonRgn(CONST pt:POINT;x,y:LONGINT):HRGN;
  2773.                      APIENTRY;    'GDI32' name 'CreatePolygonRgn';
  2774.        FUNCTION DPtoLP(ahdc:HDC;VAR PointList:POINT;Count:LONGINT):BOOL;
  2775.                      APIENTRY;    'GDI32' name 'DPtoLP';
  2776.        FUNCTION LPtoDP(ahdc:HDC;VAR PointList:POINT;Count:LONGINT):BOOL;
  2777.                      APIENTRY;    'GDI32' name 'LPtoDP';
  2778.        FUNCTION Polygon(ahdc:HDC;CONST points:POINT;Count:LONGINT):BOOL;
  2779.                      APIENTRY;    'GDI32' name 'Polygon';
  2780.        FUNCTION Polyline(ahdc:HDC;CONST points:POINT;count:LONGINT):BOOL;
  2781.                      APIENTRY;    'GDI32' name 'Polyline';
  2782.        FUNCTION PolyBezier(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  2783.                      APIENTRY;    'GDI32' name 'PolyBezier';
  2784.        FUNCTION PolyBezierTo(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  2785.                      APIENTRY;    'GDI32' name 'PolyBezierTo';
  2786.        FUNCTION PolylineTo(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  2787.                      APIENTRY;    'GDI32' name 'PolylineTo';
  2788.        FUNCTION SetViewportExtEx(ahdc:HDC;NewWidth,NewHeight:LONGINT;VAR OldExt:SIZE):BOOL;
  2789.                      APIENTRY;    'GDI32' name 'SetViewportExtEx';
  2790.        FUNCTION SetViewportOrgEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldOrg:POINT):BOOL;
  2791.                      APIENTRY;    'GDI32' name 'SetViewportOrgEx';
  2792.        FUNCTION SetWindowExtEx(ahdc:HDC;NewWidth,NewHeight:LONGINT;VAR OldExt:SIZE):BOOL;
  2793.                      APIENTRY;    'GDI32' name 'SetWindowExtEx';
  2794.        FUNCTION SetWindowOrgEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldOrg:POINT):BOOL;
  2795.                      APIENTRY;    'GDI32' name 'SetWindowOrgEx';
  2796.        FUNCTION OffsetViewportOrgEx(ahdc:HDC;i1,i2:LONGINT;VAR pt:POINT):BOOL;
  2797.                      APIENTRY;    'GDI32' name 'OffsetViewportOrgEx';
  2798.        FUNCTION OffsetWindowOrgEx(ahdc:HDC;i1,i2:LONGINT;VAR pt:POINT):BOOL;
  2799.                      APIENTRY;    'GDI32' name 'OffsetWindowOrgEx';
  2800.        FUNCTION ScaleViewportExtEx(ahdc:HDC;i1,i2,i3,i4:LONGINT;VAR s:SIZE):BOOL;
  2801.                      APIENTRY;    'GDI32' name 'ScaleViewportExtEx';
  2802.        FUNCTION ScaleWindowExtEx(ahdc:HDC;i1,i2,i3,i4:LONGINT;VAR s:SIZE):BOOL;
  2803.                      APIENTRY;    'GDI32' name 'ScaleWindowExtEx';
  2804.        FUNCTION SetBitmapDimensionEx(ahbitmap:HBITMAP;x,y:LONGINT;VAR s:SIZE):BOOL;
  2805.                      APIENTRY;    'GDI32' name 'SetBitmapDimensionEx';
  2806.        FUNCTION SetBrushOrgEx(ahdc:HDC;x,y:LONGINT;VAR pt:POINT):BOOL;
  2807.                      APIENTRY;    'GDI32' name 'SetBrushOrgEx';
  2808.        FUNCTION GetTextFace(ahdc:HDC;i:LONGINT;VAR s:CSTRING):LONGINT;
  2809.                      APIENTRY;    'GDI32' name 'GetTextFaceA';
  2810.        FUNCTION GetKerningPairs(ahdc:HDC;u:LONGWORD;VAR kp:KERNINGPAIR):LONGWORD;
  2811.                      APIENTRY;    'GDI32' name 'GetKerningPairsA';
  2812.        FUNCTION GetDCOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  2813.                      APIENTRY;    'GDI32' name 'GetDCOrgEx';
  2814.        FUNCTION FixBrushOrgEx(ahdc:HDC;x,y:LONGINT;VAR pt:POINT):BOOL;
  2815.                      APIENTRY;    'GDI32' name 'FixBrushOrgEx';
  2816.        FUNCTION UnrealizeObject(o:HGDIOBJ):BOOL;
  2817.                      APIENTRY;    'GDI32' name 'UnrealizeObject';
  2818.        FUNCTION GdiFlush:BOOL;
  2819.                      APIENTRY;    'GDI32' name 'GdiFlush';
  2820.        FUNCTION GdiSetBatchLimit(u:LONGWORD):LONGWORD;
  2821.                      APIENTRY;    'GDI32' name 'GdiSetBatchLimit';
  2822.        FUNCTION GdiGetBatchLimit:LONGWORD;
  2823.                      APIENTRY;    'GDI32' name 'GdiGetBatchLimit';
  2824.        FUNCTION wglCreateContext(ahdc:HDC):HGLRC;
  2825.                      APIENTRY;    'GDI32' name 'wglCreateContext';
  2826.        FUNCTION wglDeleteContext(h:HGLRC):BOOL;
  2827.                      APIENTRY;    'GDI32' name 'wglDeleteContext';
  2828.        FUNCTION wglGetCurrentContext:HGLRC;
  2829.                      APIENTRY;    'GDI32' name 'wglGetCurrentContext';
  2830.        FUNCTION wglGetCurrentDC:HDC;
  2831.                      APIENTRY;    'GDI32' name 'wglGetCurrentDC';
  2832.        FUNCTION wglMakeCurrent(ahdc:HDC;h:HGLRC):BOOL;
  2833.                      APIENTRY;    'GDI32' name 'wglMakeCurrent';
  2834.        FUNCTION wglUseFontBitmaps(ahdc:HDC;u1,u2,u3:LONGWORD):BOOL;
  2835.                      APIENTRY;    'GDI32' name 'wglUseFontBitmapsA';
  2836.        FUNCTION SwapBuffers(ahdc:HDC):BOOL;
  2837.                      APIENTRY;    'GDI32' name 'SwapBuffers';
  2838.        {$ENDIF}
  2839.        {$IFDEF OS2}
  2840.        FUNCTION AddFontResource(CONST s:CSTRING):LONGINT;
  2841.                      APIENTRY;    'PMWINX' index 4;
  2842.        FUNCTION AnimatePalette(pal:HPALETTE;x,y:LONGWORD;VAR entry:PALETTEENTRY):BOOL;
  2843.                      APIENTRY;    'PMWINX' index 8;
  2844.        FUNCTION Arc(adc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2845.                      APIENTRY;    'PMWINX' index 10;
  2846.        FUNCTION BitBlt(Dest:HDC;x,y,w,h:LONGINT;Src:HDC;p1,p2:LONGINT;m:LONGWORD):BOOL;
  2847.                      APIENTRY;    'PMWINX' index 18;
  2848.        {FUNCTION CancelDC(adc:HDC):BOOL;
  2849.                      APIENTRY;    'PMWINX' index 'CancelDC'; not supported}
  2850.        FUNCTION Chord(adc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  2851.                      APIENTRY;    'PMWINX' index 38;
  2852.        {FUNCTION ChoosePixelFormat(adc:HDC;VAR format:PIXELFORMATDESCRIPTOR):LONGINT;
  2853.                      APIENTRY;    'PMWINX' index 'ChoosePixelFormat'; not supported}
  2854.        FUNCTION CloseMetaFile(adc:HDC):HMETAFILE;
  2855.                      APIENTRY;    'PMWINX' index 45;
  2856.        FUNCTION CombineRgn(rgn1,rgn2,rgn3:HRGN;x:LONGINT):LONGINT;
  2857.                      APIENTRY;    'PMWINX' index 47;
  2858.        FUNCTION CopyMetaFile(meta:HMETAFILE;CONST s:CSTRING):HMETAFILE;
  2859.                      APIENTRY;    'PMWINX' index 54;
  2860.        FUNCTION CreateBitmap(W,H:LONGINT;p,c:LONGWORD;VAR Data):HBITMAP;
  2861.                      APIENTRY;    'PMWINX' index 58;
  2862.        FUNCTION CreateBitmapIndirect(VAR bm:BITMAP):HBITMAP;
  2863.                      APIENTRY;    'PMWINX' index 5000;
  2864.        FUNCTION CreateBrushIndirect(VAR lb:LOGBRUSH):HBRUSH;
  2865.                      APIENTRY;    'PMWINX' index 59;
  2866.        FUNCTION CreateCompatibleBitmap(Src:HDC;W,H:LONGINT):HBITMAP;
  2867.                      APIENTRY;    'PMWINX' index 61;
  2868.        {FUNCTION CreateDiscardableBitmap(adc:HDC;x,y:LONGINT):HBITMAP;
  2869.                      APIENTRY;    'PMWINX' index 'CreateDiscardableBitmap'; not supported}
  2870.        FUNCTION CreateCompatibleDC(ahdc:HDC):HDC;
  2871.                      APIENTRY;    'PMWINX' index 62;
  2872.        FUNCTION CreateDC(CONST a,b,c:CSTRING;VAR mode:DEVMODE):HDC;
  2873.                      APIENTRY;    'PMWINX' index 64;
  2874.        FUNCTION CreateDIBitmap(ahdc:HDC;VAR bih:BITMAPINFOHEADER;
  2875.                                Flags:LONGWORD;VAR Buf;
  2876.                                VAR bi:BITMAPINFO;Col:LONGWORD):HBITMAP;
  2877.                      APIENTRY;    'PMWINX' index 66;
  2878.        {FUNCTION CreateDIBPatternBrush(ahGlobal:HGLOBAL;p:LONGWORD):HBRUSH;
  2879.                      APIENTRY;    'PMWINX' index 'CreateDIBPatternBrush'; not supported}
  2880.        FUNCTION CreateDIBPatternBrushPt(VAR Buf;p:LONGWORD):HBRUSH;
  2881.                      APIENTRY;    'PMWINX' index 65;
  2882.        FUNCTION CreateEllipticRgn(i1,i2,i3,i4:LONGINT):HRGN;
  2883.                      APIENTRY;    'PMWINX' index 70;
  2884.        FUNCTION CreateEllipticRgnIndirect(CONST rcl:RECT):HRGN;
  2885.                      APIENTRY;    'PMWINX' index 71;
  2886.        FUNCTION CreateFontIndirect(VAR lf:LOGFONT):HFONT;
  2887.                      APIENTRY;    'PMWINX' index 76;
  2888.        FUNCTION CreateFont(i1,i2,i3,i4,i5:LONGINT;dw1,dw2,dw3,dw4,dw5,dw6,
  2889.                             dw7,dw8:LONGWORD;CONST s:CSTRING):HFONT;
  2890.                      APIENTRY;    'PMWINX' index 75;
  2891.        FUNCTION CreateHatchBrush(i:LONGINT;color:COLORREF):HBRUSH;
  2892.                      APIENTRY;    'PMWINX' index 77;
  2893.        FUNCTION CreateIC(CONST s1,s2,s3:CSTRING;CONST mode:DEVMODE):HDC;
  2894.                      APIENTRY;    'PMWINX' index 78;
  2895.        FUNCTION CreateMetaFile(CONST name:CSTRING):HDC;
  2896.                      APIENTRY;    'PMWINX' index 83;
  2897.        FUNCTION CreatePalette(VAR lp:LOGPALETTE):HPALETTE;
  2898.                      APIENTRY;    'PMWINX' index 85;
  2899.        FUNCTION CreatePen(Style:LONGINT;LineWidth:LONGINT;Color:COLORREF):HPEN;
  2900.                      APIENTRY;    'PMWINX' index 87;
  2901.        FUNCTION CreatePenIndirect(VAR lp:LOGPEN):HPEN;
  2902.                      APIENTRY;    'PMWINX' index 88;
  2903.        FUNCTION CreatePolyPolygonRgn(CONST pt:POINT;VAR i:LONGINT;i1,i2:LONGINT):HRGN;
  2904.                      APIENTRY;    'PMWINX' index 89;
  2905.        FUNCTION CreatePatternBrush(bmp:HBITMAP):HBRUSH;
  2906.                      APIENTRY;    'PMWINX' index 86;
  2907.        FUNCTION CreateRectRgn(xLeft,yTop,xRight,yBottom:LONGINT):HRGN;
  2908.                      APIENTRY;    'PMWINX' index 93;
  2909.        FUNCTION CreateRectRgnIndirect(VAR rec:RECT):HRGN;
  2910.                      APIENTRY;    'PMWINX' index 94;
  2911.        FUNCTION CreateRoundRectRgn(i1,i2,i3,i4,i5,i6:LONGINT):HRGN;
  2912.                      APIENTRY;    'PMWINX' index 95;
  2913.        {FUNCTION CreateScalableFontResource(dw:LONGWORD;CONST s1,s2,s3:CSTRING):BOOL;
  2914.                      APIENTRY;    'PMWINX' index 'CreateScalableFontResourceA'; not supported}
  2915.        FUNCTION CreateSolidBrush(color:COLORREF):HBRUSH;
  2916.                      APIENTRY;    'PMWINX' index 97;
  2917.        FUNCTION DeleteDC(ahdc:HDC):BOOL;
  2918.                      APIENTRY;    'PMWINX' index 135;
  2919.        FUNCTION DeleteMetaFile(ahMeta:HMETAFILE):BOOL;
  2920.                      APIENTRY;    'PMWINX' index 139;
  2921.        FUNCTION DeleteObject(obj:HGDIOBJ):BOOL;
  2922.                      APIENTRY;    'PMWINX' index 140;
  2923.        {FUNCTION DescribePixelFormat(ahdc:HDC;i:LONGINT;ui:LONGWORD;VAR desc:PIXELFORMATDESCRIPTOR):LONGINT;
  2924.                      APIENTRY;    'PMWINX' index 'DescribePixelFormat'; not supported}
  2925.        FUNCTION DeviceCapabilities(CONST s1,s2:CSTRING;w:WORD;VAR s:STRING;
  2926.                                     VAR mode:DEVMODE):LONGINT;
  2927.                      APIENTRY;    'PMWINX' index 1004;
  2928.        {FUNCTION DrawEscape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING):LONGINT;
  2929.                      APIENTRY;    'PMWINX' index 'DrawEscape'; not supported}
  2930.        FUNCTION Ellipse(ahdc:HDC;i1,i2,i3,i4:LONGINT):BOOL;
  2931.                      APIENTRY;    'PMWINX' index 164;
  2932.        FUNCTION EnumFontFamilies(ahdc:HDC;CONST name:CSTRING;proc:FONTENUMPROC;
  2933.                                  alParam:LPARAM):LONGINT;
  2934.                      APIENTRY;    'PMWINX' index 179;
  2935.        FUNCTION EnumFonts(ahdc:HDC;CONST FaceName:CSTRING;proc:FONTENUMPROC;
  2936.                           data:POINTER):LONGINT;
  2937.                      APIENTRY;    'PMWINX' index 180;
  2938.        FUNCTION EnumObjects(ahdc:HDC;i:LONGINT;proc:GOBJENUMPROC;alParam:LPARAM):LONGINT;
  2939.                      APIENTRY;    'PMWINX' index 182;
  2940.        FUNCTION EqualRgn(ahrgn1,ahrgn2:HRGN):BOOL;
  2941.                      APIENTRY;    'PMWINX' index 188;
  2942.        FUNCTION Escape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING;VAR Buf):LONGINT;
  2943.                      APIENTRY;    'PMWINX' index 189;
  2944.        {FUNCTION ExtEscape(ahdc:HDC;i1,i2:LONGINT;CONST s:CSTRING;i3:LONGINT;
  2945.                           VAR s1:CSTRING):LONGINT;
  2946.                      APIENTRY;    'PMWINX' index 'ExtEscape'; not supported}
  2947.        FUNCTION ExcludeClipRect(ahdc:HDC;i1,i2,i3,i4:LONGINT):LONGINT;
  2948.                      APIENTRY;    'PMWINX' index 190;
  2949.        FUNCTION ExtCreateRegion(CONST form:XFORM;dw:LONGWORD;CONST data:RGNDATA):HRGN;
  2950.                      APIENTRY;    'PMWINX' index 197;
  2951.        FUNCTION ExtFloodFill(ahdc:HDC;x,y:LONGINT;color:COLORREF;p:LONGWORD):BOOL;
  2952.                      APIENTRY;    'PMWINX' index 198;
  2953.        FUNCTION FillRgn(ahdc:HDC;ahrgn:HRGN;ahBrush:HBRUSH):BOOL;
  2954.                      APIENTRY;    'PMWINX' index 208;
  2955.        FUNCTION FloodFill(ahdc:HDC;X,Y:LONGINT;Color:COLORREF):BOOL;
  2956.                      APIENTRY;    'PMWINX' index 218;
  2957.        FUNCTION FrameRgn(ahdc:HDC;ahrgn:HRGN;ahbrush:HBRUSH;x,y:LONGINT):BOOL;
  2958.                      APIENTRY;    'PMWINX' index 221;
  2959.        FUNCTION GetROP2(ahdc:HDC):LONGINT;
  2960.                      APIENTRY;    'PMWINX' index 346;
  2961.        FUNCTION GetAspectRatioFilterEx(ahdc:HDC;VAR asize:SIZE):BOOL;
  2962.                      APIENTRY;    'PMWINX' index 227;
  2963.        FUNCTION GetBkColor(ahdc:HDC):COLORREF;
  2964.                      APIENTRY;    'PMWINX' index 231;
  2965.        FUNCTION GetBkMode(ahdc:HDC):LONGINT;
  2966.                      APIENTRY;    'PMWINX' index 232;
  2967.        FUNCTION GetBitmapBits(ahBitmap:HBITMAP;count:LONG;VAR Buffer):LONG;
  2968.                      APIENTRY;    'PMWINX' index 229;
  2969.        FUNCTION GetBitmapDimensionEx(ahBitmap:HBITMAP;VAR sSize:SIZE):BOOL;
  2970.                      APIENTRY;    'PMWINX' index 230;
  2971.        FUNCTION GetBoundsRect(ahdc:HDC;VAR rc:RECT;f:LONGWORD):LONGWORD;
  2972.                      APIENTRY;    'PMWINX' index 233;
  2973.        FUNCTION GetBrushOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  2974.                      APIENTRY;    'PMWINX' index 234;
  2975.        FUNCTION GetCharWidth(ahdc:HDC;p1,p2:LONGWORD;VAR r:LONGINT):BOOL;
  2976.                      APIENTRY;    'PMWINX' index 239;
  2977.        {FUNCTION GetCharWidth32(ahdc:HDC;p1,p2:LONGWORD;VAR r:LONGINT):BOOL;
  2978.                      APIENTRY;    'PMWINX' index 'GetCharWidth32A'; not supported}
  2979.        {FUNCTION GetCharWidthFloat(ahdc:HDC;p1,p2:LONGWORD;VAR r:FLOAT):BOOL;
  2980.                      APIENTRY;    'PMWINX' index 'GetCharWidthFloatA'; not supported}
  2981.        FUNCTION GetCharABCWidths(ahdc:HDC;p1,p2:LONGWORD;VAR r:ABC):BOOL;
  2982.                      APIENTRY;    'PMWINX' index 238;
  2983.        {FUNCTION GetCharABCWidthsFloat(ahdc:HDC;p1,p2:LONGWORD;VAR r:ABCFLOAT):BOOL;
  2984.                      APIENTRY;    'PMWINX' index 'GetCharABCWidthsFloatA'; not supported}
  2985.        FUNCTION GetClipBox(ahdc:HDC;VAR rec:RECT):LONGINT;
  2986.                      APIENTRY;    'PMWINX' index 245;
  2987.        FUNCTION GetClipRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  2988.                      APIENTRY;    'PMWINX' index 247;
  2989.        {FUNCTION GetMetaRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  2990.                      APIENTRY;    'PMWINX' index 'GetMetaRgn'; not supported}
  2991.        FUNCTION GetCurrentObject(ahdc:HDC;o:LONGWORD):HGDIOBJ;
  2992.                      APIENTRY;    'PMWINX' index 254;
  2993.        FUNCTION GetCurrentPositionEx(ahdc:HDC;VAR CurPos:POINT):BOOL;
  2994.                      APIENTRY;    'PMWINX' index 255;
  2995.        FUNCTION GetDeviceCaps(ahdc:HDC;t:LONGINT):LONGINT;
  2996.                      APIENTRY;    'PMWINX' index 269;
  2997.        FUNCTION GetDIBits(ahdc:HDC;ahbitmap:HBITMAP;p1,p2:LONGWORD;VAR Buf;VAR pi:BITMAPINFO;l:LONGWORD):LONGINT;
  2998.                      APIENTRY;    'PMWINX' index 267;
  2999.        {FUNCTION GetFontData(ahdc:HDC;p1,p2:LONGWORD;VAR Buf;l:LONGWORD):LONGWORD;
  3000.                      APIENTRY;    'PMWINX' index 'GetFontData'; not supported}
  3001.        {FUNCTION GetGlyphOutline(ahdc:HDC;p1,p2:LONGWORD;VAR gm:GLYPHMETRICS;p2:LONGWORD;
  3002.                                  VAR Buf;CONST ma2:MAT2):LONGWORD;
  3003.                      APIENTRY;    'PMWINX' index 'GetGlyphOutlineA'; not supported}
  3004.        FUNCTION GetGraphicsMode(ahdc:HDC):LONGINT;
  3005.                      APIENTRY;    'PMWINX' index 293;
  3006.        FUNCTION GetMapMode(ahdc:HDC):LONGINT;
  3007.                      APIENTRY;    'PMWINX' index 304;
  3008.        FUNCTION GetMetaFileBitsEx(ahmeta:HMETAFILE;l:LONGWORD;VAR Buf):LONGWORD;
  3009.                      APIENTRY;    'PMWINX' index 316;
  3010.        FUNCTION GetMetaFile(CONST Name:CSTRING):HMETAFILE;
  3011.                      APIENTRY;    'PMWINX' index 315;
  3012.        FUNCTION GetNearestColor(ahdc:HDC;col:COLORREF):COLORREF;
  3013.                      APIENTRY;    'PMWINX' index 320;
  3014.        FUNCTION GetNearestPaletteIndex(ahpal:HPALETTE;cref:COLORREF):LONGWORD;
  3015.                      APIENTRY;    'PMWINX' index 321;
  3016.        FUNCTION GetObjectType(h:HGDIOBJ):LONGWORD;
  3017.                      APIENTRY;    'PMWINX' index 327;
  3018.        FUNCTION GetOutlineTextMetrics(ahdc:HDC;p1:LONGWORD;VAR tm:OUTLINETEXTMETRIC):LONGWORD;
  3019.                      APIENTRY;    'PMWINX' index 330;
  3020.        FUNCTION GetPaletteEntries(ahpal:HPALETTE;p1,p2:LONGWORD;VAR pe:PALETTEENTRY):LONGWORD;
  3021.                      APIENTRY;    'PMWINX' index 332;
  3022.        FUNCTION GetPixel(ahdc:HDC;x,y:LONGINT):COLORREF;
  3023.                      APIENTRY;    'PMWINX' index 335;
  3024.        {FUNCTION GetPixelFormat(ahdc:HDC):LONGINT;
  3025.                      APIENTRY;    'PMWINX' index 'GetPixelFormat'; not supported}
  3026.        FUNCTION GetPolyFillMode(ahdc:HDC):LONGINT;
  3027.                      APIENTRY;    'PMWINX' index 336;
  3028.        FUNCTION GetRasterizerCaps(VAR rs:RASTERIZER_STATUS;p:LONGWORD):BOOL;
  3029.                      APIENTRY;    'PMWINX' index 347;
  3030.        FUNCTION GetRegionData(ahrgn:HRGN;p:LONGWORD;VAR rgnd:RGNDATA):LONGWORD;
  3031.                      APIENTRY;    'PMWINX' index 348;
  3032.        FUNCTION GetRgnBox(ahrn:HRGN;VAR rec:RECT):LONGINT;
  3033.                      APIENTRY;    'PMWINX' index 349;
  3034.        FUNCTION GetStockObject(o:LONGINT):HGDIOBJ;
  3035.                      APIENTRY;    'PMWINX' index 353;
  3036.        FUNCTION GetStretchBltMode(ahdc:HDC):LONGINT;
  3037.                      APIENTRY;    'PMWINX' index 354;
  3038.        FUNCTION GetSystemPaletteEntries(ahdc:HDC;aStart,aEnd:LONGWORD;
  3039.                                         VAR Result:PALETTEENTRY):LONGWORD;
  3040.                      APIENTRY;    'PMWINX' index 360;
  3041.        {FUNCTION GetSystemPaletteUse(ahdc:HDC):LONGWORD;
  3042.                      APIENTRY;    'PMWINX' index 'GetSystemPaletteUse'; not supported}
  3043.        FUNCTION GetTextCharacterExtra(ahdc:HDC):LONGINT;
  3044.                      APIENTRY;    'PMWINX' index 366;
  3045.        FUNCTION GetTextAlign(ahdc:HDC):LONGWORD;
  3046.                      APIENTRY;    'PMWINX' index 365;
  3047.        FUNCTION GetTextColor(ahdc:HDC):COLORREF;
  3048.                      APIENTRY;    'PMWINX' index 367;
  3049.        FUNCTION GetTextExtentPoint(ahdc:HDC;CONST s:CSTRING;i:LONGINT;VAR si:SIZE):BOOL;
  3050.                      APIENTRY;    'PMWINX' index 368;
  3051.        FUNCTION GetTextExtentPoint32(ahdc:HDC;CONST str;strlen:LONGINT;
  3052.                                      VAR asize:SIZE):BOOL;
  3053.                      APIENTRY;    'PMWINX' index 369;
  3054.        {FUNCTION GetTextExtentExPoint(ahdc:HDC;CONST s:CSTRING;i1,i2:LONGINT;VAR r1,r2:LONGINT;VAR si:SIZE):BOOL;
  3055.                      APIENTRY;    'PMWINX' index 'GetTextExtentExPointA'; not supported}
  3056.        FUNCTION GetViewportExtEx(ahdc:HDC;VAR si:SIZE):BOOL;
  3057.                      APIENTRY;    'PMWINX' index 378;
  3058.        FUNCTION GetViewportOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  3059.                      APIENTRY;    'PMWINX' index 379;
  3060.        FUNCTION GetWindowExtEx(ahdc:HDC;VAR si:SIZE):BOOL;
  3061.                      APIENTRY;    'PMWINX' index 384;
  3062.        FUNCTION GetWindowOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  3063.                      APIENTRY;    'PMWINX' index 386;
  3064.        FUNCTION IntersectClipRect(ahdc:HDC;i1,i2,i3,i4:LONGINT):LONGINT;
  3065.                      APIENTRY;    'PMWINX' index 424;
  3066.        FUNCTION InvertRgn(ahdc:HDC;ahrgn:HRGN):BOOL;
  3067.                      APIENTRY;    'PMWINX' index 429;
  3068.        FUNCTION LineDDA(x,y,x1,y1:LONGINT;p:LINEDDAPROC;param:LPARAM):BOOL;
  3069.                      APIENTRY;    'PMWINX' index 455;
  3070.        FUNCTION LineTo(ahdc:HDC;X,Y:LONGINT):BOOL;
  3071.                      APIENTRY;    'PMWINX' index 456;
  3072.        FUNCTION MaskBlt(ahdc:HDC;i1,i2,i3,i4:LONGINT;ahdc1:HDC;i5,i6:LONGINT;ahbitmap:HBITMAP;
  3073.                         i7,i8:LONGINT;m:LONGWORD):BOOL;
  3074.                      APIENTRY;    'PMWINX' index 485;
  3075.        {FUNCTION PlgBlt(ahdc:HDC;CONST pt:POINT;ahdc1:HDC;i1,i2,i3,i4:LONGINT;ahbitmap:HBITMAP;
  3076.                        i5,i6:LONGINT):BOOL;
  3077.                      APIENTRY;    'PMWINX' index 'PlgBlt'; not supported}
  3078.        FUNCTION OffsetClipRgn(ahdc:HDC;x,y:LONGINT):LONGINT;
  3079.                      APIENTRY;    'PMWINX' index 497;
  3080.        FUNCTION OffsetRgn(ahrgn:HRGN;x,y:LONGINT):LONGINT;
  3081.                      APIENTRY;    'PMWINX' index 499;
  3082.        FUNCTION PatBlt(ahdc:HDC;x,y,w,h:LONGINT;m:LONGWORD):BOOL;
  3083.                      APIENTRY;    'PMWINX' index 511;
  3084.        FUNCTION Pie(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  3085.                      APIENTRY;    'PMWINX' index 514;
  3086.        FUNCTION PlayMetaFile(ahdc:HDC;hmeta:HMETAFILE):BOOL;
  3087.                      APIENTRY;    'PMWINX' index 517;
  3088.        FUNCTION PaintRgn(ahdc:HDC;ahrgn:HRGN):BOOL;
  3089.                      APIENTRY;    'PMWINX' index 510;
  3090.        FUNCTION PolyPolygon(ahdc:HDC;CONST pt:POINT;VAR i:LONGINT;ii:LONGINT):BOOL;
  3091.                      APIENTRY;    'PMWINX' index 522;
  3092.        FUNCTION PtInRegion(ahrgn:HRGN;x,y:LONGINT):BOOL;
  3093.                      APIENTRY;    'PMWINX' index 532;
  3094.        FUNCTION PtVisible(ahdc:HDC;x,y:LONGINT):BOOL;
  3095.                      APIENTRY;    'PMWINX' index 533;
  3096.        FUNCTION RectInRegion(ahrgn:HRGN;CONST rc:RECT):BOOL;
  3097.                      APIENTRY;    'PMWINX' index 537;
  3098.        FUNCTION RectVisible(ahdc:HDC;CONST rc:RECT):BOOL;
  3099.                      APIENTRY;    'PMWINX' index 538;
  3100.        FUNCTION Rectangle(ahdc:HDC;xLeft,yTop,xRight,yBottom:LONGINT):BOOL;
  3101.                      APIENTRY;    'PMWINX' index 539;
  3102.        FUNCTION RestoreDC(ahdc:HDC;m:LONGINT):BOOL;
  3103.                      APIENTRY;    'PMWINX' index 572;
  3104.        {FUNCTION ResetDC(ahdc:HDC;CONST dm:DEVMODE):HDC;
  3105.                      APIENTRY;    'PMWINX' index 'ResetDCA'; not supported}
  3106.        FUNCTION RealizePalette(ahdc:HDC):ULONG;
  3107.                      APIENTRY;    'PMWINX' index 536;
  3108.        FUNCTION RemoveFontResource(CONST s:CSTRING):BOOL;
  3109.                      APIENTRY;    'PMWINX' index 564;
  3110.        FUNCTION RoundRect(ahdc:HDC;i1,i2,i3,i4,i5,i6:LONGINT):BOOL;
  3111.                      APIENTRY;    'PMWINX' index 575;
  3112.        FUNCTION ResizePalette(ahpal:HPALETTE;m:LONGWORD):BOOL;
  3113.                      APIENTRY;    'PMWINX' index 571;
  3114.        FUNCTION SaveDC(ahdc:HDC):LONGINT;
  3115.                      APIENTRY;    'PMWINX' index 576;
  3116.        FUNCTION SelectClipRgn(ahdc:HDC;ahrgn:HRGN):LONGINT;
  3117.                      APIENTRY;    'PMWINX' index 584;
  3118.        FUNCTION ExtSelectClipRgn(ahdc:HDC;ahrgn:HRGN;mode:LONGINT):LONGINT;
  3119.                      APIENTRY;    'PMWINX' index 199;
  3120.        {FUNCTION SetMetaRgn(ahdc:HDC):LONGINT;
  3121.                      APIENTRY;    'PMWINX' index 'SetMetaRgn'; not supported}
  3122.        FUNCTION SelectObject(ahdc:HDC;obj:HGDIOBJ):HGDIOBJ;
  3123.                      APIENTRY;    'PMWINX' index 585;
  3124.        FUNCTION SelectPalette(ahdc:HDC;ahpal:HPALETTE;b:BOOL):HPALETTE;
  3125.                      APIENTRY;    'PMWINX' index 586;
  3126.        FUNCTION SetBkColor(ahdc:HDC;NewColor:COLORREF):COLORREF;
  3127.                      APIENTRY;    'PMWINX' index 593;
  3128.        FUNCTION SetBkMode(ahdc:HDC;NewMode:LONGINT):LONGINT;
  3129.                      APIENTRY;    'PMWINX' index 594;
  3130.        FUNCTION SetBitmapBits(ahbitmap:HBITMAP;Len:LONGWORD;CONST Buf):LONGINT;
  3131.                      APIENTRY;    'PMWINX' index 591;
  3132.        FUNCTION SetBoundsRect(ahdc:HDC;CONST rc:RECT;m:LONGWORD):LONGWORD;
  3133.                      APIENTRY;    'PMWINX' index 595;
  3134.        FUNCTION SetDIBits(ahdc:HDC;ahbit:HBITMAP;u1,u2:LONGWORD;CONST Buf;VAR bi:BITMAPINFO;u3:LONGWORD):LONGINT;
  3135.                      APIENTRY;    'PMWINX' index 608;
  3136.        FUNCTION SetDIBitsToDevice(ahdc:HDC;i1,i2:LONGINT;u1,u2:LONGWORD;i3,i4:LONGINT;u3,u4:LONGWORD;
  3137.                                   CONST Buf;VAR bi:BITMAPINFO;m:LONGWORD):LONGINT;
  3138.                      APIENTRY;    'PMWINX' index 609;
  3139.        FUNCTION SetMapperFlags(ahdc:HDC;f:LONGWORD):LONGWORD;
  3140.                      APIENTRY;    'PMWINX' index 627;
  3141.        FUNCTION SetGraphicsMode(ahdc:HDC;iMode:LONGINT):LONGINT;
  3142.                      APIENTRY;    'PMWINX' index 622;
  3143.        FUNCTION SetMapMode(ahdc:HDC;mode:LONGINT):LONGINT;
  3144.                      APIENTRY;    'PMWINX' index 626;
  3145.        FUNCTION SetMetaFileBitsEx(u1:LONGWORD;VAR Buf):HMETAFILE;
  3146.                      APIENTRY;    'PMWINX' index 630;
  3147.        FUNCTION SetPaletteEntries(ahpal:HPALETTE;u1,u2:LONGWORD;VAR e:PALETTEENTRY):LONGWORD;
  3148.                      APIENTRY;    'PMWINX' index 632;
  3149.        FUNCTION SetPixel(ahdc:HDC;x,y:LONGINT;color:COLORREF):COLORREF;
  3150.                      APIENTRY;    'PMWINX' index 634;
  3151.        {FUNCTION SetPixelV(ahdc:HDC;x,y:LONGINT;color:COLORREF):BOOL;
  3152.                      APIENTRY;    'PMWINX' index 'SetPixelV'; not supported}
  3153.        {FUNCTION SetPixelFormat(ahdc:HDC;i:LONGINT;VAR pf:PIXELFORMATDESCRIPTOR):BOOL;
  3154.                      APIENTRY;    'PMWINX' index 'SetPixelFormat'; not supported}
  3155.        FUNCTION SetPolyFillMode(ahdc:HDC;mode:LONGINT):LONGINT;
  3156.                      APIENTRY;    'PMWINX' index 635;
  3157.        FUNCTION StretchBlt(Src:HDC;SrcX,SrcY,SrcW,SrcH:LONGINT;
  3158.                            Dest:HDC;DestX,DestY,DestW,DestH:LONGINT;
  3159.                            CopyMode:LONGWORD):BOOL;
  3160.                      APIENTRY;    'PMWINX' index 676;
  3161.        FUNCTION SetRectRgn(ahrgn:HRGN;i1,i2,i3,i4:LONGINT):BOOL;
  3162.                      APIENTRY;    'PMWINX' index 641;
  3163.        FUNCTION StretchDIBits(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT;CONST Buf;VAR bi:BITMAPINFO;
  3164.                               u1,u2:LONGWORD):LONGINT;
  3165.                      APIENTRY;    'PMWINX' index 677;
  3166.        FUNCTION SetROP2(ahdc:HDC;Mode:LONGINT):LONGINT;
  3167.                      APIENTRY;    'PMWINX' index 638;
  3168.        FUNCTION SetStretchBltMode(ahdc:HDC;Mode:LONGINT):LONGINT;
  3169.                      APIENTRY;    'PMWINX' index 644;
  3170.        {FUNCTION SetSystemPaletteUse(ahdc:HDC;u:LONGWORD):LONGWORD;
  3171.                      APIENTRY;    'PMWINX' index 'SetSystemPaletteUse'; not supported}
  3172.        FUNCTION SetTextCharacterExtra(ahdc:HDC;v:LONGINT):LONGINT;
  3173.                      APIENTRY;    'PMWINX' index 648;
  3174.        FUNCTION SetTextColor(ahdc:HDC;NewColor:COLORREF):COLORREF;
  3175.                      APIENTRY;    'PMWINX' index 649;
  3176.        FUNCTION SetTextAlign(ahdc:HDC;Align:ULONG):ULONG;
  3177.                      APIENTRY;    'PMWINX' index 647;
  3178.        FUNCTION SetTextJustification(ahdc:HDC;x,y:LONGINT):BOOL;
  3179.                      APIENTRY;    'PMWINX' index 650;
  3180.        {FUNCTION UpdateColors(ahdc:HDC):BOOL;
  3181.                      APIENTRY;    'PMWINX' index 'UpdateColors'; not supported}
  3182.        FUNCTION PlayMetaFileRecord(ahdc:HDC;VAR t:HANDLETABLE;VAR r:METARECORD;m:LONGWORD):BOOL;
  3183.                      APIENTRY;    'PMWINX' index 518;
  3184.        FUNCTION EnumMetaFile(ahdc:HDC;ahmeta:HMETAFILE;proc:MFENUMPROC;param:LPARAM):BOOL;
  3185.                      APIENTRY;    'PMWINX' index 181;
  3186.        FUNCTION CloseEnhMetaFile(ahdc:HDC):HENHMETAFILE;
  3187.                      APIENTRY;    'PMWINX' index 42;
  3188.        FUNCTION CopyEnhMetaFile(handle:HENHMETAFILE;CONST Name:CSTRING):HENHMETAFILE;
  3189.                      APIENTRY;    'PMWINX' index 51;
  3190.        FUNCTION CreateEnhMetaFile(ahdc:HDC;CONST Name:CSTRING;CONST rc:RECT;CONST n1:CSTRING):HDC;
  3191.                      APIENTRY;    'PMWINX' index 72;
  3192.        FUNCTION DeleteEnhMetaFile(h:HENHMETAFILE):BOOL;
  3193.                      APIENTRY;    'PMWINX' index 136;
  3194.        FUNCTION EnumEnhMetaFile(ahdc:HDC;h:HENHMETAFILE;proc:ENHMFENUMPROC;VAR Buf;CONST rc:RECT):BOOL;
  3195.                      APIENTRY;    'PMWINX' index 178;
  3196.        FUNCTION GetEnhMetaFile(CONST Name:CSTRING):HENHMETAFILE;
  3197.                      APIENTRY;    'PMWINX' index 278;
  3198.        FUNCTION GetEnhMetaFileBits(h:HENHMETAFILE;u:LONGWORD;VAR Buf):LONGWORD;
  3199.                      APIENTRY;    'PMWINX' index 279;
  3200.        {FUNCTION GetEnhMetaFileDescription(h:HENHMETAFILE;u:LONGWORD;VAR Name:CSTRING):LONGWORD;
  3201.                      APIENTRY;    'PMWINX' index 'GetEnhMetaFileDescriptionA'; not supported}
  3202.        FUNCTION GetEnhMetaFileHeader(h:HENHMETAFILE;u:LONGWORD;VAR header:ENHMETAHEADER ):LONGWORD;
  3203.                      APIENTRY;    'PMWINX' index 280;
  3204.        FUNCTION GetEnhMetaFilePaletteEntries(h:HENHMETAFILE;u:LONGWORD;VAR e:PALETTEENTRY ):LONGWORD;
  3205.                      APIENTRY;    'PMWINX' index 281;
  3206.        FUNCTION GetWinMetaFileBits(h:HENHMETAFILE;u:LONGWORD;VAR Buf;i:LONGINT;ahdc:HDC):LONGWORD;
  3207.                      APIENTRY;    'PMWINX' index 381;
  3208.        FUNCTION PlayEnhMetaFile(ahdc:HDC;h:HENHMETAFILE;CONST rc:RECT):BOOL;
  3209.                      APIENTRY;    'PMWINX' index 515;
  3210.        FUNCTION PlayEnhMetaFileRecord(ahdc:HDC;VAR t:HANDLETABLE;CONST r:ENHMETARECORD;u:LONGWORD):BOOL;
  3211.                      APIENTRY;    'PMWINX' index 516;
  3212.        FUNCTION SetEnhMetaFileBits(u:LONGWORD;CONST Buf):HENHMETAFILE;
  3213.                      APIENTRY;    'PMWINX' index 614;
  3214.        FUNCTION SetWinMetaFileBits(u:LONGWORD;CONST Buf;ahdc:HDC;CONST p:METAFILEPICT):HENHMETAFILE;
  3215.                      APIENTRY;    'PMWINX' index 657;
  3216.        {FUNCTION GdiComment(ahdc:HDC;u:LONGWORD;CONST Buf):BOOL;
  3217.                      APIENTRY;    'PMWINX' index 'GdiComment'; not supported}
  3218.        FUNCTION GetTextMetrics(ahdc:HDC;VAR tm:TEXTMETRIC):BOOL;
  3219.                      APIENTRY;    'PMWINX' index 371;
  3220.        FUNCTION PolyPolyline(ahdc:HDC;CONST pt:POINT;CONST Buf;u:LONGWORD):BOOL;
  3221.                      APIENTRY;    'PMWINX' index 523;
  3222.        FUNCTION GetWorldTransform(ahdc:HDC;VAR f:XFORM):BOOL;
  3223.                      APIENTRY;    'PMWINX' index 394;
  3224.        FUNCTION SetWorldTransform(ahdc:HDC;CONST xf:XFORM):BOOL;
  3225.                      APIENTRY;    'PMWINX' index 666;
  3226.        FUNCTION ModifyWorldTransform(ahdc:HDC;CONST xf:XFORM;u:LONGWORD):BOOL;
  3227.                      APIENTRY;    'PMWINX' index 489;
  3228.        {FUNCTION CombineTransform(VAR xf:XFORM;CONST xf1,xf2:XFORM):BOOL;
  3229.                      APIENTRY;    'PMWINX' index 'CombineTransform'; not supported}
  3230.        {FUNCTION CreateDIBSection(ahdc:HDC;CONST bi:BITMAPINFO;u:LONGWORD;VAR p:POINTER;h:HANDLE;u1:LONGWORD):HBITMAP;
  3231.                      APIENTRY;    'PMWINX' index 'CreateDIBSection'; not supported}
  3232.        FUNCTION GetDIBColorTable(ahdc:HDC;u1,u2:LONGWORD;VAR r:RGBQUAD):LONGWORD;
  3233.                      APIENTRY;    'PMWINX' index 266;
  3234.        FUNCTION SetDIBColorTable(ahdc:HDC;u1,u2:LONGWORD;CONST r:RGBQUAD):LONGWORD;
  3235.                      APIENTRY;    'PMWINX' index 607;
  3236.        {FUNCTION SetColorAdjustment(ahdc:HDC;CONST a:COLORADJUSTMENT):BOOL;
  3237.                      APIENTRY;    'PMWINX' index 'SetColorAdjustment'; not supported}
  3238.        {FUNCTION GetColorAdjustment(ahdc:HDC;VAR a:COLORADJUSTMENT):BOOL;
  3239.                      APIENTRY;    'PMWINX' index 'GetColorAdjustment'; not supported}
  3240.        {FUNCTION CreateHalftonePalette(ahdc:HDC):HPALETTE;
  3241.                      APIENTRY;    'PMWINX' index 'CreateHalftonePalette'; not supported}
  3242.        FUNCTION StartDocAPI(ahdc:HDC;CONST i:DOCINFO):LONGINT;
  3243.                      APIENTRY;    'PMWINX' index 674;
  3244.        FUNCTION EndDocAPI(ahdc:HDC):LONGINT;
  3245.                      APIENTRY;    'PMWINX' index 171;
  3246.        FUNCTION StartPage(ahdc:HDC):LONGINT;
  3247.                      APIENTRY;    'PMWINX' index 675;
  3248.        FUNCTION EndPage(ahdc:HDC):LONGINT;
  3249.                      APIENTRY;    'PMWINX' index 172;
  3250.        FUNCTION AbortDocAPI(ahdc:HDC):LONGINT;
  3251.                      APIENTRY;    'PMWINX' index 1;
  3252.        {FUNCTION SetAbortProc(ahdc:HDC;proc:ABORTPROC):LONGINT;
  3253.                      APIENTRY;    'PMWINX' index 'SetAbortProc'; not supported}
  3254.        FUNCTION AbortPath(ahdc:HDC):BOOL;
  3255.                      APIENTRY;    'PMWINX' index 2;
  3256.        FUNCTION ArcTo(ahdc:HDC;i1,i2,i3,i4,i5,i6,i7,i8:LONGINT):BOOL;
  3257.                      APIENTRY;    'PMWINX' index 11;
  3258.        FUNCTION BeginPath(ahdc:HDC):BOOL;
  3259.                      APIENTRY;    'PMWINX' index 17;
  3260.        FUNCTION CloseFigure(ahdc:HDC):BOOL;
  3261.                      APIENTRY;    'PMWINX' index 43;
  3262.        FUNCTION EndPath(ahdc:HDC):BOOL;
  3263.                      APIENTRY;    'PMWINX' index 174;
  3264.        FUNCTION FillPath(ahdc:HDC):BOOL;
  3265.                      APIENTRY;    'PMWINX' index 206;
  3266.        FUNCTION FlattenPath(ahdc:HDC):BOOL;
  3267.                      APIENTRY;    'PMWINX' index 217;
  3268.        FUNCTION GetPath(ahdc:HDC;VAR pt:POINT;VAR b:BYTE;i:LONGINT):LONGINT;
  3269.                      APIENTRY;    'PMWINX' index 334;
  3270.        FUNCTION PathToRegion(ahdc:HDC):HRGN;
  3271.                      APIENTRY;    'PMWINX' index 512;
  3272.        FUNCTION PolyDraw(ahdc:HDC;CONST pt:POINT;CONST Buf;i:LONGINT):BOOL;
  3273.                      APIENTRY;    'PMWINX' index 521;
  3274.        {FUNCTION SelectClipPath(ahdc:HDC;i:LONGINT):BOOL;
  3275.                      APIENTRY;    'PMWINX' index 'SelectClipPath'; not supported}
  3276.        FUNCTION SetArcDirection(ahdc:HDC;d:LONGINT):LONGINT;
  3277.                      APIENTRY;    'PMWINX' index 590;
  3278.        FUNCTION SetMiterLimitAPI(ahdc:HDC;f:FLOAT;VAR f1:FLOAT):BOOL;
  3279.                      APIENTRY;    'PMWINX' index 631;
  3280.        FUNCTION StrokeAndFillPath(ahdc:HDC):BOOL;
  3281.                      APIENTRY;    'PMWINX' index 678;
  3282.        FUNCTION StrokePath(ahdc:HDC):BOOL;
  3283.                      APIENTRY;    'PMWINX' index 679;
  3284.        FUNCTION WidenPath(ahdc:HDC):BOOL;
  3285.                      APIENTRY;    'PMWINX' index 713;
  3286.        FUNCTION ExtCreatePen(u1,u2:LONGWORD;CONST lb:LOGBRUSH;u3:LONGWORD;CONST Buf):HPEN;
  3287.                      APIENTRY;    'PMWINX' index 196;
  3288.        FUNCTION GetMiterLimit(ahdc:HDC;VAR f:FLOAT):BOOL;
  3289.                      APIENTRY;    'PMWINX' index 317;
  3290.        FUNCTION GetArcDirection(ahdc:HDC):LONGINT;
  3291.                      APIENTRY;    'PMWINX' index 226;
  3292.        FUNCTION GetObject(aobj:HGDIOBJ;size:LONGINT;VAR Buffer):LONGINT;
  3293.                      APIENTRY;    'PMWINX' index 326;
  3294.        FUNCTION MoveToEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldPos:POINT):BOOL;
  3295.                      APIENTRY;    'PMWINX' index 491;
  3296.        FUNCTION TextOut(ahdc:HDC;x,y:LONGINT;CONST apString;len:LONGINT):BOOL;
  3297.                      APIENTRY;    'PMWINX' index 689;
  3298.        FUNCTION ExtTextOutAPI(ahdc:HDC;i1,i2:LONGINT;u:LONGWORD;CONST r:RECT;CONST s:CSTRING;
  3299.                            u1:LONGWORD;CONST Buf):BOOL;
  3300.                      APIENTRY;    'PMWINX' index 200;
  3301.        {FUNCTION PolyTextOut(ahdc:HDC;CONST pt:POLYTEXT;i:LONGINT):BOOL;
  3302.                      APIENTRY;    'PMWINX' index 'PolyTextOutA'; not supported}
  3303.        FUNCTION CreatePolygonRgn(CONST pt:POINT;x,y:LONGINT):HRGN;
  3304.                      APIENTRY;    'PMWINX' index 90;
  3305.        FUNCTION DPtoLP(ahdc:HDC;VAR PointList:POINT;Count:LONGINT):BOOL;
  3306.                      APIENTRY;    'PMWINX' index 100;
  3307.        FUNCTION LPtoDP(ahdc:HDC;VAR PointList:POINT;Count:LONGINT):BOOL;
  3308.                      APIENTRY;    'PMWINX' index 453;
  3309.        FUNCTION Polygon(ahdc:HDC;CONST points:POINT;Count:LONGINT):BOOL;
  3310.                      APIENTRY;    'PMWINX' index 524;
  3311.        FUNCTION Polyline(ahdc:HDC;CONST points:POINT;count:LONGINT):BOOL;
  3312.                      APIENTRY;    'PMWINX' index 525;
  3313.        FUNCTION PolyBezier(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  3314.                      APIENTRY;    'PMWINX' index 519;
  3315.        FUNCTION PolyBezierTo(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  3316.                      APIENTRY;    'PMWINX' index 520;
  3317.        FUNCTION PolylineTo(ahdc:HDC;CONST aptl;count:LONGWORD):BOOL;
  3318.                      APIENTRY;    'PMWINX' index 526;
  3319.        FUNCTION SetViewportExtEx(ahdc:HDC;NewWidth,NewHeight:LONGINT;VAR OldExt:SIZE):BOOL;
  3320.                      APIENTRY;    'PMWINX' index 654;
  3321.        FUNCTION SetViewportOrgEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldOrg:POINT):BOOL;
  3322.                      APIENTRY;    'PMWINX' index 655;
  3323.        FUNCTION SetWindowExtEx(ahdc:HDC;NewWidth,NewHeight:LONGINT;VAR OldExt:SIZE):BOOL;
  3324.                      APIENTRY;    'PMWINX' index 658;
  3325.        FUNCTION SetWindowOrgEx(ahdc:HDC;NewX,NewY:LONGINT;VAR OldOrg:POINT):BOOL;
  3326.                      APIENTRY;    'PMWINX' index 660;
  3327.        FUNCTION OffsetViewportOrgEx(ahdc:HDC;i1,i2:LONGINT;VAR pt:POINT):BOOL;
  3328.                      APIENTRY;    'PMWINX' index 500;
  3329.        FUNCTION OffsetWindowOrgEx(ahdc:HDC;i1,i2:LONGINT;VAR pt:POINT):BOOL;
  3330.                      APIENTRY;    'PMWINX' index 501;
  3331.        FUNCTION ScaleViewportExtEx(ahdc:HDC;i1,i2,i3,i4:LONGINT;VAR s:SIZE):BOOL;
  3332.                      APIENTRY;    'PMWINX' index 577;
  3333.        FUNCTION ScaleWindowExtEx(ahdc:HDC;i1,i2,i3,i4:LONGINT;VAR s:SIZE):BOOL;
  3334.                      APIENTRY;    'PMWINX' index 578;
  3335.        FUNCTION SetBitmapDimensionEx(ahbitmap:HBITMAP;x,y:LONGINT;VAR s:SIZE):BOOL;
  3336.                      APIENTRY;    'PMWINX' index 592;
  3337.        FUNCTION SetBrushOrgEx(ahdc:HDC;x,y:LONGINT;VAR pt:POINT):BOOL;
  3338.                      APIENTRY;    'PMWINX' index 596;
  3339.        FUNCTION GetTextFace(ahdc:HDC;i:LONGINT;VAR s:CSTRING):LONGINT;
  3340.                      APIENTRY;    'PMWINX' index 370;
  3341.        FUNCTION GetKerningPairs(ahdc:HDC;u:LONGWORD;VAR kp:KERNINGPAIR):LONGWORD;
  3342.                      APIENTRY;    'PMWINX' index 295;
  3343.        FUNCTION GetDCOrgEx(ahdc:HDC;VAR pt:POINT):BOOL;
  3344.                      APIENTRY;    'PMWINX' index 265;
  3345.        {FUNCTION FixBrushOrgEx(ahdc:HDC;x,y:LONGINT;VAR pt:POINT):BOOL;
  3346.                      APIENTRY;    'PMWINX' index 'FixBrushOrgEx'; not supported}
  3347.        FUNCTION UnrealizeObject(o:HGDIOBJ):BOOL;
  3348.                      APIENTRY;    'PMWINX' index 704;
  3349.        {FUNCTION GdiFlush:BOOL;
  3350.                      APIENTRY;    'PMWINX' index 'GdiFlush'; not supported}
  3351.        {FUNCTION GdiSetBatchLimit(u:LONGWORD):LONGWORD;
  3352.                      APIENTRY;    'PMWINX' index 'GdiSetBatchLimit'; not supported}
  3353.        {FUNCTION GdiGetBatchLimit:LONGWORD;
  3354.                      APIENTRY;    'PMWINX' index 'GdiGetBatchLimit'; not supported}
  3355.        {FUNCTION wglCreateContext(ahdc:HDC):HGLRC;
  3356.                      APIENTRY;    'PMWINX' index 'wglCreateContext'; not supported}
  3357.        {FUNCTION wglDeleteContext(h:HGLRC):BOOL;
  3358.                      APIENTRY;    'PMWINX' index 'wglDeleteContext'; not supported}
  3359.        {FUNCTION wglGetCurrentContext:HGLRC;
  3360.                      APIENTRY;    'PMWINX' index 'wglGetCurrentContext'; not supported}
  3361.        {FUNCTION wglGetCurrentDC:HDC;
  3362.                      APIENTRY;    'PMWINX' index 'wglGetCurrentDC'; not supported}
  3363.        {FUNCTION wglMakeCurrent(ahdc:HDC;h:HGLRC):BOOL;
  3364.                      APIENTRY;    'PMWINX' index 'wglMakeCurrent'; not supported}
  3365.        {FUNCTION wglUseFontBitmaps(ahdc:HDC;u1,u2,u3:LONGWORD):BOOL;
  3366.                      APIENTRY;    'PMWINX' index 'wglUseFontBitmapsA'; not supported}
  3367.        {FUNCTION SwapBuffers(ahdc:HDC):BOOL;
  3368.                      APIENTRY;    'PMWINX' index 'SwapBuffers'; not supported}
  3369.        {$ENDIF}
  3370. END;
  3371.  
  3372. FUNCTION AngleArc(ahdc:HDC;x,y:LONGINT;Radius:LONGWORD;
  3373.                   StartAngle,SweepAngle:SINGLE):BOOL;
  3374. FUNCTION MAKEROP4(fore,back:LONGWORD):LONGWORD;
  3375. FUNCTION RGB(r,g,b:LONGWORD):COLORREF;
  3376. FUNCTION PALETTERGB(r,g,b:LONGWORD):LONGWORD;
  3377. FUNCTION PALETTEINDEX(i:LONGWORD):COLORREF;
  3378. FUNCTION GetRValue(rgb:LONGWORD):BYTE;
  3379. FUNCTION GetGValue(rgb:LONGWORD):BYTE;
  3380. FUNCTION GetBValue(rgb:LONGWORD):BYTE;
  3381.  
  3382. IMPLEMENTATION
  3383.  
  3384. FUNCTION AngleArc(ahdc:HDC;x,y:LONGINT;Radius:LONGWORD;
  3385.                   StartAngle,SweepAngle:SINGLE):BOOL;
  3386. BEGIN
  3387.      {$IFDEF VER30}
  3388.      {$IFDEF Win95}
  3389. ASM
  3390.         LEA EAX,SweepAngle
  3391.         PUSH DWORD PTR [EAX]
  3392.         LEA EAX,StartAngle
  3393.         PUSH DWORD PTR [EAX]
  3394.         PUSH DWORD PTR Radius
  3395.         PUSH DWORD PTR y
  3396.         PUSH DWORD PTR x
  3397.         PUSH DWORD PTR ahdc
  3398.         CALLDLL GDI32,'AngleArc'
  3399.         MOV result,EAX
  3400.      END;
  3401.      {$ENDIF}
  3402.      {$IFDEF OS2}
  3403.      ASM
  3404.         LEA EAX,SweepAngle
  3405.         PUSH DWORD PTR [EAX]
  3406.         LEA EAX,StartAngle
  3407.         PUSH DWORD PTR [EAX]
  3408.         PUSH DWORD PTR Radius
  3409.         PUSH DWORD PTR y
  3410.         PUSH DWORD PTR x
  3411.         PUSH DWORD PTR ahdc
  3412.         CALLDLL PMWINX,7
  3413.         MOV result,EAX
  3414.      END;
  3415.      {$ENDIF}
  3416.      {$ELSE}
  3417.      {$IFDEF Win95}
  3418.      ASM
  3419.         LEA EAX,SweepAngle
  3420.         PUSH DWORD PTR [EAX]
  3421.         LEA EAX,StartAngle
  3422.         PUSH DWORD PTR [EAX]
  3423.         PUSH DWORD PTR Radius
  3424.         PUSH DWORD PTR y
  3425.         PUSH DWORD PTR x
  3426.         PUSH DWORD PTR ahdc
  3427.         CALLDLL GDI32,'AngleArc'
  3428.         MOV [EBP-4],EAX
  3429.      END;
  3430.      {$ENDIF}
  3431.      {$IFDEF OS2}
  3432.      ASM
  3433.         LEA EAX,SweepAngle
  3434.         PUSH DWORD PTR [EAX]
  3435.         LEA EAX,StartAngle
  3436.         PUSH DWORD PTR [EAX]
  3437.         PUSH DWORD PTR Radius
  3438.         PUSH DWORD PTR y
  3439.         PUSH DWORD PTR x
  3440.         PUSH DWORD PTR ahdc
  3441.         CALLDLL PMWINX,7
  3442.         MOV [EBP-4],EAX
  3443.      END;
  3444.      {$ENDIF}
  3445.      {$ENDIF}
  3446. END;
  3447.  
  3448. FUNCTION MAKEROP4(fore,back:LONGWORD):LONGWORD;
  3449. BEGIN
  3450.      result:=((back SHL 8)AND $FF000000) OR fore;
  3451. END;
  3452.  
  3453. FUNCTION RGB(r,g,b:LONGWORD):COLORREF;
  3454. BEGIN
  3455.      result:=(r AND 255) OR ((g AND 255) SHL 8) OR ((b AND 255) SHL 16);
  3456. END;
  3457.  
  3458. FUNCTION PALETTERGB(r,g,b:LONGWORD):LONGWORD;
  3459. BEGIN
  3460.      result:=$02000000 OR RGB(r,g,b);
  3461. END;
  3462.  
  3463. FUNCTION PALETTEINDEX(i:LONGWORD):COLORREF;
  3464. BEGIN
  3465.      result:=$01000000 OR i;
  3466. END;
  3467.  
  3468. FUNCTION GetRValue(rgb:LONGWORD):BYTE;
  3469. BEGIN
  3470.       result:=rgb AND 255;
  3471. END;
  3472.  
  3473. FUNCTION GetGValue(rgb:LONGWORD):BYTE;
  3474. BEGIN
  3475.       result:=(rgb SHR 8) AND 255;
  3476. END;
  3477.  
  3478. FUNCTION GetBValue(rgb:LONGWORD):BYTE;
  3479. BEGIN
  3480.       result:=(rgb SHR 16) AND 255;
  3481. END;
  3482.  
  3483.  
  3484. END.
  3485.