开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWinGDI.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：424k
源码类别：

Windows编程

开发平台：

Delphi

JwaWinGDI.pas：源码内容
  1.   TOutlineTextMetricA = _OUTLINETEXTMETRICA;
  3.   POutlineTextMetricW = ^TOutlineTextMetricW;
  4.   _OUTLINETEXTMETRICW = record
  5.     otmSize: UINT;
  6.     otmTextMetrics: TEXTMETRICW;
  7.     otmFiller: BYTE;
  8.     otmPanoseNumber: PANOSE;
  9.     otmfsSelection: UINT;
  10.     otmfsType: UINT;
  11.     otmsCharSlopeRise: Integer;
  12.     otmsCharSlopeRun: Integer;
  13.     otmItalicAngle: Integer;
  14.     otmEMSquare: UINT;
  15.     otmAscent: Integer;
  16.     otmDescent: Integer;
  17.     otmLineGap: UINT;
  18.     otmsCapEmHeight: UINT;
  19.     otmsXHeight: UINT;
  20.     otmrcFontBox: RECT;
  21.     otmMacAscent: Integer;
  22.     otmMacDescent: Integer;
  23.     otmMacLineGap: UINT;
  24.     otmusMinimumPPEM: UINT;
  25.     otmptSubscriptSize: POINT;
  26.     otmptSubscriptOffset: POINT;
  27.     otmptSuperscriptSize: POINT;
  28.     otmptSuperscriptOffset: POINT;
  29.     otmsStrikeoutSize: UINT;
  30.     otmsStrikeoutPosition: Integer;
  31.     otmsUnderscoreSize: Integer;
  32.     otmsUnderscorePosition: Integer;
  33.     otmpFamilyName: PSTR;
  34.     otmpFaceName: PSTR;
  35.     otmpStyleName: PSTR;
  36.     otmpFullName: PSTR;
  37.   end;
  38.   {$EXTERNALSYM _OUTLINETEXTMETRICW}
  39.   OUTLINETEXTMETRICW = _OUTLINETEXTMETRICW;
  40.   {$EXTERNALSYM OUTLINETEXTMETRICW}
  41.   LPOUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW;
  42.   {$EXTERNALSYM LPOUTLINETEXTMETRICW}
  43.   NPOUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW;
  44.   {$EXTERNALSYM NPOUTLINETEXTMETRICW}
  45.   TOutlineTextMetricW = _OUTLINETEXTMETRICW;
  47. {$IFDEF UNICODE}
  48.   OUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
  49.   {$EXTERNALSYM OUTLINETEXTMETRIC}
  50.   POUTLINETEXTMETRIC = POUTLINETEXTMETRICW;
  51.   {$EXTERNALSYM POUTLINETEXTMETRIC}
  52.   NPOUTLINETEXTMETRIC = NPOUTLINETEXTMETRICW;
  53.   {$EXTERNALSYM NPOUTLINETEXTMETRIC}
  54.   LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICW;
  55.   {$EXTERNALSYM LPOUTLINETEXTMETRIC}
  56.   TOutlineTextMetric = TOutlineTextMetricW;
  57. {$ELSE}
  58.   OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  59.   {$EXTERNALSYM OUTLINETEXTMETRIC}
  60.   POUTLINETEXTMETRIC = POUTLINETEXTMETRICA;
  61.   {$EXTERNALSYM POUTLINETEXTMETRIC}
  62.   NPOUTLINETEXTMETRIC = NPOUTLINETEXTMETRICA;
  63.   {$EXTERNALSYM NPOUTLINETEXTMETRIC}
  64.   LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICA;
  65.   {$EXTERNALSYM LPOUTLINETEXTMETRIC}
  66.   TOutlineTextMetric = TOutlineTextMetricA;
  67. {$ENDIF}
  69.   PPolytextA = ^TPolytextA;
  70.   tagPOLYTEXTA = record
  71.     x: Integer;
  72.     y: Integer;
  73.     n: UINT;
  74.     lpstr: LPCSTR;
  75.     uiFlags: UINT;
  76.     rcl: RECT;
  77.     pdx: PINT;
  78.   end;
  79.   {$EXTERNALSYM tagPOLYTEXTA}
  80.   POLYTEXTA = tagPOLYTEXTA;
  81.   {$EXTERNALSYM POLYTEXTA}
  82.   LPPOLYTEXTA = ^POLYTEXTA;
  83.   {$EXTERNALSYM LPPOLYTEXTA}
  84.   NPPOLYTEXTA = ^POLYTEXTA;
  85.   {$EXTERNALSYM NPPOLYTEXTA}
  86.   TPolytextA = POLYTEXTA;
  88.   PPolytextW = ^TPolytextW;
  89.   tagPOLYTEXTW = record
  90.     x: Integer;
  91.     y: Integer;
  92.     n: UINT;
  93.     lpstr: LPCWSTR;
  94.     uiFlags: UINT;
  95.     rcl: RECT;
  96.     pdx: PINT;
  97.   end;
  98.   {$EXTERNALSYM tagPOLYTEXTW}
  99.   POLYTEXTW = tagPOLYTEXTW;
  100.   {$EXTERNALSYM POLYTEXTW}
  101.   LPPOLYTEXTW = ^POLYTEXTW;
  102.   {$EXTERNALSYM LPPOLYTEXTW}
  103.   NPPOLYTEXTW = ^POLYTEXTW;
  104.   {$EXTERNALSYM NPPOLYTEXTW}
  105.   TPolytextW = POLYTEXTW;
  107. {$IFDEF UNICODE}
  108.   POLYTEXT = POLYTEXTW;
  109.   {$EXTERNALSYM POLYTEXT}
  110.   PPOLYTEXT = PPOLYTEXTW;
  111.   {$EXTERNALSYM PPOLYTEXT}
  112.   NPPOLYTEXT = NPPOLYTEXTW;
  113.   {$EXTERNALSYM NPPOLYTEXT}
  114.   LPPOLYTEXT = LPPOLYTEXTW;
  115.   {$EXTERNALSYM LPPOLYTEXT}
  116.   TPolyText = TPolyTextW;
  117. {$ELSE}
  118.   POLYTEXT = POLYTEXTA;
  119.   {$EXTERNALSYM POLYTEXT}
  120.   PPOLYTEXT = PPOLYTEXTA;
  121.   {$EXTERNALSYM PPOLYTEXT}
  122.   NPPOLYTEXT = NPPOLYTEXTA;
  123.   {$EXTERNALSYM NPPOLYTEXT}
  124.   LPPOLYTEXT = LPPOLYTEXTA;
  125.   {$EXTERNALSYM LPPOLYTEXT}
  126.   TPolyText = TPolyTextA;
  127. {$ENDIF}
  129.   PFixed = ^TFixed;
  130.   _FIXED = record
  131.     fract: WORD;
  132.     value: short;
  133.   end;
  134.   {$EXTERNALSYM _FIXED}
  135.   FIXED = _FIXED;
  136.   {$EXTERNALSYM FIXED}
  137.   TFixed = _FIXED;
  139.   PMat2 = ^TMat2;
  140.   _MAT2 = record
  141.     eM11: FIXED;
  142.     eM12: FIXED;
  143.     eM21: FIXED;
  144.     eM22: FIXED;
  145.   end;
  146.   {$EXTERNALSYM _MAT2}
  147.   MAT2 = _MAT2;
  148.   {$EXTERNALSYM MAT2}
  149.   LPMAT2 = ^MAT2;
  150.   {$EXTERNALSYM LPMAT2}
  151.   TMat2 = _MAT2;
  153.   PGlyphMetrics = ^TGlyphMetrics;
  154.   _GLYPHMETRICS = record
  155.     gmBlackBoxX: UINT;
  156.     gmBlackBoxY: UINT;
  157.     gmptGlyphOrigin: POINT;
  158.     gmCellIncX: short;
  159.     gmCellIncY: short;
  160.   end;
  161.   {$EXTERNALSYM _GLYPHMETRICS}
  162.   GLYPHMETRICS = _GLYPHMETRICS;
  163.   {$EXTERNALSYM GLYPHMETRICS}
  164.   LPGLYPHMETRICS = ^GLYPHMETRICS;
  165.   {$EXTERNALSYM LPGLYPHMETRICS}
  166.   TGlyphMetrics = _GLYPHMETRICS;
  168. //  GetGlyphOutline constants
  170. const
  171.   GGO_METRICS = 0;
  172.   {$EXTERNALSYM GGO_METRICS}
  173.   GGO_BITMAP  = 1;
  174.   {$EXTERNALSYM GGO_BITMAP}
  175.   GGO_NATIVE  = 2;
  176.   {$EXTERNALSYM GGO_NATIVE}
  177.   GGO_BEZIER  = 3;
  178.   {$EXTERNALSYM GGO_BEZIER}
  180.   GGO_GRAY2_BITMAP = 4;
  181.   {$EXTERNALSYM GGO_GRAY2_BITMAP}
  182.   GGO_GRAY4_BITMAP = 5;
  183.   {$EXTERNALSYM GGO_GRAY4_BITMAP}
  184.   GGO_GRAY8_BITMAP = 6;
  185.   {$EXTERNALSYM GGO_GRAY8_BITMAP}
  186.   GGO_GLYPH_INDEX  = $0080;
  187.   {$EXTERNALSYM GGO_GLYPH_INDEX}
  189.   GGO_UNHINTED = $0100;
  190.   {$EXTERNALSYM GGO_UNHINTED}
  192.   TT_POLYGON_TYPE = 24;
  193.   {$EXTERNALSYM TT_POLYGON_TYPE}
  195.   TT_PRIM_LINE    = 1;
  196.   {$EXTERNALSYM TT_PRIM_LINE}
  197.   TT_PRIM_QSPLINE = 2;
  198.   {$EXTERNALSYM TT_PRIM_QSPLINE}
  199.   TT_PRIM_CSPLINE = 3;
  200.   {$EXTERNALSYM TT_PRIM_CSPLINE}
  202. type
  203.   PPointFx = ^TPointFx;
  204.   tagPOINTFX = record
  205.     x: FIXED;
  206.     y: FIXED;
  207.   end;
  208.   {$EXTERNALSYM tagPOINTFX}
  209.   POINTFX = tagPOINTFX;
  210.   {$EXTERNALSYM POINTFX}
  211.   LPPOINTFX = ^POINTFX;
  212.   {$EXTERNALSYM LPPOINTFX}
  213.   TPointFx = POINTFX;
  215.   PTtPolyCurve = ^TTtPolyCurve;
  216.   tagTTPOLYCURVE = record
  217.     wType: WORD;
  218.     cpfx: WORD;
  219.     apfx: array [0..0] of POINTFX;
  220.   end;
  221.   {$EXTERNALSYM tagTTPOLYCURVE}
  222.   TTPOLYCURVE = tagTTPOLYCURVE;
  223.   {$EXTERNALSYM TTPOLYCURVE}
  224.   LPTTPOLYCURVE = ^TTPOLYCURVE;
  225.   {$EXTERNALSYM LPTTPOLYCURVE}
  226.   TTtPolyCurve = TTPOLYCURVE;
  228.   PTtPolygonHeader = ^TTtPolygonHeader;
  229.   tagTTPOLYGONHEADER = record
  230.     cb: DWORD;
  231.     dwType: DWORD;
  232.     pfxStart: POINTFX;
  233.   end;
  234.   {$EXTERNALSYM tagTTPOLYGONHEADER}
  235.   TTPOLYGONHEADER = tagTTPOLYGONHEADER;
  236.   {$EXTERNALSYM TTPOLYGONHEADER}
  237.   LPTTPOLYGONHEADER = ^TTPOLYGONHEADER;
  238.   {$EXTERNALSYM LPTTPOLYGONHEADER}
  239.   TTtPolygonHeader = TTPOLYGONHEADER;
  241. const
  242.   GCP_DBCS       = $0001;
  243.   {$EXTERNALSYM GCP_DBCS}
  244.   GCP_REORDER    = $0002;
  245.   {$EXTERNALSYM GCP_REORDER}
  246.   GCP_USEKERNING = $0008;
  247.   {$EXTERNALSYM GCP_USEKERNING}
  248.   GCP_GLYPHSHAPE = $0010;
  249.   {$EXTERNALSYM GCP_GLYPHSHAPE}
  250.   GCP_LIGATE     = $0020;
  251.   {$EXTERNALSYM GCP_LIGATE}
  252. ////#define GCP_GLYPHINDEXING  0x0080
  253.   GCP_DIACRITIC = $0100;
  254.   {$EXTERNALSYM GCP_DIACRITIC}
  255.   GCP_KASHIDA   = $0400;
  256.   {$EXTERNALSYM GCP_KASHIDA}
  257.   GCP_ERROR     = $8000;
  258.   {$EXTERNALSYM GCP_ERROR}
  259.   FLI_MASK      = $103B;
  260.   {$EXTERNALSYM FLI_MASK}
  262.   GCP_JUSTIFY = $00010000;
  263.   {$EXTERNALSYM GCP_JUSTIFY}
  264. ////#define GCP_NODIACRITICS   0x00020000L
  265.   FLI_GLYPHS          = $00040000;
  266.   {$EXTERNALSYM FLI_GLYPHS}
  267.   GCP_CLASSIN         = $00080000;
  268.   {$EXTERNALSYM GCP_CLASSIN}
  269.   GCP_MAXEXTENT       = $00100000;
  270.   {$EXTERNALSYM GCP_MAXEXTENT}
  271.   GCP_JUSTIFYIN       = $00200000;
  272.   {$EXTERNALSYM GCP_JUSTIFYIN}
  273.   GCP_DISPLAYZWG      = $00400000;
  274.   {$EXTERNALSYM GCP_DISPLAYZWG}
  275.   GCP_SYMSWAPOFF      = $00800000;
  276.   {$EXTERNALSYM GCP_SYMSWAPOFF}
  277.   GCP_NUMERICOVERRIDE = $01000000;
  278.   {$EXTERNALSYM GCP_NUMERICOVERRIDE}
  279.   GCP_NEUTRALOVERRIDE = $02000000;
  280.   {$EXTERNALSYM GCP_NEUTRALOVERRIDE}
  281.   GCP_NUMERICSLATIN   = $04000000;
  282.   {$EXTERNALSYM GCP_NUMERICSLATIN}
  283.   GCP_NUMERICSLOCAL   = $08000000;
  284.   {$EXTERNALSYM GCP_NUMERICSLOCAL}
  286.   GCPCLASS_LATIN                  = 1;
  287.   {$EXTERNALSYM GCPCLASS_LATIN}
  288.   GCPCLASS_HEBREW                 = 2;
  289.   {$EXTERNALSYM GCPCLASS_HEBREW}
  290.   GCPCLASS_ARABIC                 = 2;
  291.   {$EXTERNALSYM GCPCLASS_ARABIC}
  292.   GCPCLASS_NEUTRAL                = 3;
  293.   {$EXTERNALSYM GCPCLASS_NEUTRAL}
  294.   GCPCLASS_LOCALNUMBER            = 4;
  295.   {$EXTERNALSYM GCPCLASS_LOCALNUMBER}
  296.   GCPCLASS_LATINNUMBER            = 5;
  297.   {$EXTERNALSYM GCPCLASS_LATINNUMBER}
  298.   GCPCLASS_LATINNUMERICTERMINATOR = 6;
  299.   {$EXTERNALSYM GCPCLASS_LATINNUMERICTERMINATOR}
  300.   GCPCLASS_LATINNUMERICSEPARATOR  = 7;
  301.   {$EXTERNALSYM GCPCLASS_LATINNUMERICSEPARATOR}
  302.   GCPCLASS_NUMERICSEPARATOR       = 8;
  303.   {$EXTERNALSYM GCPCLASS_NUMERICSEPARATOR}
  304.   GCPCLASS_PREBOUNDLTR            = $80;
  305.   {$EXTERNALSYM GCPCLASS_PREBOUNDLTR}
  306.   GCPCLASS_PREBOUNDRTL            = $40;
  307.   {$EXTERNALSYM GCPCLASS_PREBOUNDRTL}
  308.   GCPCLASS_POSTBOUNDLTR           = $20;
  309.   {$EXTERNALSYM GCPCLASS_POSTBOUNDLTR}
  310.   GCPCLASS_POSTBOUNDRTL           = $10;
  311.   {$EXTERNALSYM GCPCLASS_POSTBOUNDRTL}
  313.   GCPGLYPH_LINKBEFORE = $8000;
  314.   {$EXTERNALSYM GCPGLYPH_LINKBEFORE}
  315.   GCPGLYPH_LINKAFTER  = $4000;
  316.   {$EXTERNALSYM GCPGLYPH_LINKAFTER}
  318. type
  319.   PGcpResultsA = ^TGcpResultsA;
  320.   tagGCP_RESULTSA = record
  321.     lStructSize: DWORD;
  322.     lpOutString: LPSTR;
  323.     lpOrder: LPUINT;
  324.     lpDx: PINT;
  325.     lpCaretPos: PINT;
  326.     lpClass: LPSTR;
  327.     lpGlyphs: LPWSTR;
  328.     nGlyphs: UINT;
  329.     nMaxFit: Integer;
  330.   end;
  331.   {$EXTERNALSYM tagGCP_RESULTSA}
  332.   GCP_RESULTSA = tagGCP_RESULTSA;
  333.   {$EXTERNALSYM GCP_RESULTSA}
  334.   LPGCP_RESULTSA = ^GCP_RESULTSA;
  335.   {$EXTERNALSYM LPGCP_RESULTSA}
  336.   TGcpResultsA = GCP_RESULTSA;
  338.   PGcpResultsW = ^TGcpResultsW;
  339.   tagGCP_RESULTSW = record
  340.     lStructSize: DWORD;
  341.     lpOutString: LPWSTR;
  342.     lpOrder: LPUINT;
  343.     lpDx: PINT;
  344.     lpCaretPos: PINT;
  345.     lpClass: LPSTR;
  346.     lpGlyphs: LPWSTR;
  347.     nGlyphs: UINT;
  348.     nMaxFit: Integer;
  349.   end;
  350.   {$EXTERNALSYM tagGCP_RESULTSW}
  351.   GCP_RESULTSW = tagGCP_RESULTSW;
  352.   {$EXTERNALSYM GCP_RESULTSW}
  353.   LPGCP_RESULTSW = ^GCP_RESULTSW;
  354.   {$EXTERNALSYM LPGCP_RESULTSW}
  355.   TGcpResultsW = GCP_RESULTSW;
  357. {$IFDEF UNICODE}
  358.   GCP_RESULTS = GCP_RESULTSW;
  359.   {$EXTERNALSYM GCP_RESULTS}
  360.   LPGCP_RESULTS = LPGCP_RESULTSW;
  361.   {$EXTERNALSYM LPGCP_RESULTS}
  362.   TGcpResults = TGcpResultsW;
  363.   PGcpResults = PGcpResultsW;
  364. {$ELSE}
  365.   GCP_RESULTS = GCP_RESULTSA;
  366.   {$EXTERNALSYM GCP_RESULTS}
  367.   LPGCP_RESULTS = LPGCP_RESULTSA;
  368.   {$EXTERNALSYM LPGCP_RESULTS}
  369.   TGcpResults = TGcpResultsA;
  370.   PGcpResults = PGcpResultsA;
  371. {$ENDIF}
  373.   PRasterizerStatus = ^TRasterizerStatus;
  374.   _RASTERIZER_STATUS = record
  375.     nSize: short;
  376.     wFlags: short;
  377.     nLanguageID: short;
  378.   end;
  379.   {$EXTERNALSYM _RASTERIZER_STATUS}
  380.   RASTERIZER_STATUS = _RASTERIZER_STATUS;
  381.   {$EXTERNALSYM RASTERIZER_STATUS}
  382.   LPRASTERIZER_STATUS = ^RASTERIZER_STATUS;
  383.   {$EXTERNALSYM LPRASTERIZER_STATUS}
  384.   TRasterizerStatus = _RASTERIZER_STATUS;
  386. // bits defined in wFlags of RASTERIZER_STATUS
  388. const
  389.   TT_AVAILABLE = $0001;
  390.   {$EXTERNALSYM TT_AVAILABLE}
  391.   TT_ENABLED   = $0002;
  392.   {$EXTERNALSYM TT_ENABLED}
  394. // Pixel format descriptor
  396. type
  397.   PPixelFormatDescriptor = ^TPixelFormatDescriptor;
  398.   tagPIXELFORMATDESCRIPTOR = record
  399.     nSize: WORD;
  400.     nVersion: WORD;
  401.     dwFlags: DWORD;
  402.     iPixelType: BYTE;
  403.     cColorBits: BYTE;
  404.     cRedBits: BYTE;
  405.     cRedShift: BYTE;
  406.     cGreenBits: BYTE;
  407.     cGreenShift: BYTE;
  408.     cBlueBits: BYTE;
  409.     cBlueShift: BYTE;
  410.     cAlphaBits: BYTE;
  411.     cAlphaShift: BYTE;
  412.     cAccumBits: BYTE;
  413.     cAccumRedBits: BYTE;
  414.     cAccumGreenBits: BYTE;
  415.     cAccumBlueBits: BYTE;
  416.     cAccumAlphaBits: BYTE;
  417.     cDepthBits: BYTE;
  418.     cStencilBits: BYTE;
  419.     cAuxBuffers: BYTE;
  420.     iLayerType: BYTE;
  421.     bReserved: BYTE;
  422.     dwLayerMask: DWORD;
  423.     dwVisibleMask: DWORD;
  424.     dwDamageMask: DWORD;
  425.   end;
  426.   {$EXTERNALSYM tagPIXELFORMATDESCRIPTOR}
  427.   PIXELFORMATDESCRIPTOR = tagPIXELFORMATDESCRIPTOR;
  428.   {$EXTERNALSYM PIXELFORMATDESCRIPTOR}
  429.   LPPIXELFORMATDESCRIPTOR = ^PIXELFORMATDESCRIPTOR;
  430.   {$EXTERNALSYM LPPIXELFORMATDESCRIPTOR}
  431.   TPixelFormatDescriptor = PIXELFORMATDESCRIPTOR;
  433. // pixel types
  435. const
  436.   PFD_TYPE_RGBA       = 0;
  437.   {$EXTERNALSYM PFD_TYPE_RGBA}
  438.   PFD_TYPE_COLORINDEX = 1;
  439.   {$EXTERNALSYM PFD_TYPE_COLORINDEX}
  441. // layer types
  443.   PFD_MAIN_PLANE     = 0;
  444.   {$EXTERNALSYM PFD_MAIN_PLANE}
  445.   PFD_OVERLAY_PLANE  = 1;
  446.   {$EXTERNALSYM PFD_OVERLAY_PLANE}
  447.   PFD_UNDERLAY_PLANE = DWORD(-1);
  448.   {$EXTERNALSYM PFD_UNDERLAY_PLANE}
  450. // PIXELFORMATDESCRIPTOR flags
  452.   PFD_DOUBLEBUFFER        = $00000001;
  453.   {$EXTERNALSYM PFD_DOUBLEBUFFER}
  454.   PFD_STEREO              = $00000002;
  455.   {$EXTERNALSYM PFD_STEREO}
  456.   PFD_DRAW_TO_WINDOW      = $00000004;
  457.   {$EXTERNALSYM PFD_DRAW_TO_WINDOW}
  458.   PFD_DRAW_TO_BITMAP      = $00000008;
  459.   {$EXTERNALSYM PFD_DRAW_TO_BITMAP}
  460.   PFD_SUPPORT_GDI         = $00000010;
  461.   {$EXTERNALSYM PFD_SUPPORT_GDI}
  462.   PFD_SUPPORT_OPENGL      = $00000020;
  463.   {$EXTERNALSYM PFD_SUPPORT_OPENGL}
  464.   PFD_GENERIC_FORMAT      = $00000040;
  465.   {$EXTERNALSYM PFD_GENERIC_FORMAT}
  466.   PFD_NEED_PALETTE        = $00000080;
  467.   {$EXTERNALSYM PFD_NEED_PALETTE}
  468.   PFD_NEED_SYSTEM_PALETTE = $00000100;
  469.   {$EXTERNALSYM PFD_NEED_SYSTEM_PALETTE}
  470.   PFD_SWAP_EXCHANGE       = $00000200;
  471.   {$EXTERNALSYM PFD_SWAP_EXCHANGE}
  472.   PFD_SWAP_COPY           = $00000400;
  473.   {$EXTERNALSYM PFD_SWAP_COPY}
  474.   PFD_SWAP_LAYER_BUFFERS  = $00000800;
  475.   {$EXTERNALSYM PFD_SWAP_LAYER_BUFFERS}
  476.   PFD_GENERIC_ACCELERATED = $00001000;
  477.   {$EXTERNALSYM PFD_GENERIC_ACCELERATED}
  478.   PFD_SUPPORT_DIRECTDRAW  = $00002000;
  479.   {$EXTERNALSYM PFD_SUPPORT_DIRECTDRAW}
  481. // PIXELFORMATDESCRIPTOR flags for use in ChoosePixelFormat only
  483.   PFD_DEPTH_DONTCARE        = DWORD($20000000);
  484.   {$EXTERNALSYM PFD_DEPTH_DONTCARE}
  485.   PFD_DOUBLEBUFFER_DONTCARE = DWORD($40000000);
  486.   {$EXTERNALSYM PFD_DOUBLEBUFFER_DONTCARE}
  487.   PFD_STEREO_DONTCARE       = DWORD($80000000);
  488.   {$EXTERNALSYM PFD_STEREO_DONTCARE}
  490. type
  491.   OLDFONTENUMPROCA = function (lpelf: LPLOGFONTA; lpntm: LPTEXTMETRICA; FontType: DWORD; lParam: LPARAM): Integer; stdcall;
  492.   {$EXTERNALSYM OLDFONTENUMPROCA}
  493.   OLDFONTENUMPROCW = function (lpelf: LPLOGFONTW; lpntm: LPTEXTMETRICW; FontType: DWORD; lParam: LPARAM): Integer; stdcall;
  494.   {$EXTERNALSYM OLDFONTENUMPROCW}
  495.   {$IFDEF UNICODE}
  496.   OLDFONTENUMPROC = function (lpelf: LPLOGFONTW; lpntm: LPTEXTMETRICW; FontType: DWORD; lParam: LPARAM): Integer; stdcall;
  497.   {$EXTERNALSYM OLDFONTENUMPROC}
  498.   {$ELSE}
  499.   OLDFONTENUMPROC = function (lpelf: LPLOGFONTA; lpntm: LPTEXTMETRICA; FontType: DWORD; lParam: LPARAM): Integer; stdcall;
  500.   {$EXTERNALSYM OLDFONTENUMPROC}
  501.   {$ENDIF}
  503.   FONTENUMPROCA = OLDFONTENUMPROCA;
  504.   {$EXTERNALSYM FONTENUMPROCA}
  505.   FONTENUMPROCW = OLDFONTENUMPROCW;
  506.   {$EXTERNALSYM FONTENUMPROCW}
  507.   {$IFDEF UNICODE}
  508.   FONTENUMPROC = FONTENUMPROCW;
  509.   {$EXTERNALSYM FONTENUMPROC}
  510.   {$ELSE}
  511.   FONTENUMPROC = FONTENUMPROCA;
  512.   {$EXTERNALSYM FONTENUMPROC}
  513.   {$ENDIF}
  515.   GOBJENUMPROC = function(lpLogObject: LPVOID; lpData: LPARAM): Integer; stdcall;
  516.   {$EXTERNALSYM GOBJENUMPROC}
  517.   LINEDDAPROC = procedure (X, Y: Integer; lpData: LPARAM); stdcall;
  518.   {$EXTERNALSYM LINEDDAPROC}
  520. function AddFontResourceA(lpszFileName: LPCSTR): Integer; stdcall;
  521. {$EXTERNALSYM AddFontResourceA}
  522. function AddFontResourceW(lpszFileName: LPCWSTR): Integer; stdcall;
  523. {$EXTERNALSYM AddFontResourceW}
  525. {$IFDEF UNICODE}
  526. function AddFontResource(lpszFileName: LPCWSTR): Integer; stdcall;
  527. {$EXTERNALSYM AddFontResource}
  528. {$ELSE}
  529. function AddFontResource(lpszFileName: LPCSTR): Integer; stdcall;
  530. {$EXTERNALSYM AddFontResource}
  531. {$ENDIF}
  533. function AnimatePalette(hPal: HPALETTE; iStartIndex: UINT; cEntries: UINT; ppe: PPALETTEENTRY): BOOL; stdcall;
  534. {$EXTERNALSYM AnimatePalette}
  535. function Arc(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect, nxStartArc, nyStartArc, nXEndArc, nYEndArc: Integer): BOOL; stdcall;
  536. {$EXTERNALSYM Arc}
  537. function BitBlt(hdcDEst: HDC; nXDest, nYDest, nWidth, nHeight: Integer; hdcSrc: HDC; nXSrc, nYSrc: Integer; dwRop: DWORD): BOOL; stdcall;
  538. {$EXTERNALSYM BitBlt}
  539. function CancelDC(hdc: HDC): BOOL; stdcall;
  540. {$EXTERNALSYM CancelDC}
  541. function Chord(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect, nXRadial1, nYRadial1, nXRadial2, nYRadial2: Integer): BOOL; stdcall;
  542. {$EXTERNALSYM Chord}
  543. function ChoosePixelFormat(hdc: HDC; const ppfd: PIXELFORMATDESCRIPTOR): Integer; stdcall;
  544. {$EXTERNALSYM ChoosePixelFormat}
  545. function CloseMetaFile(hdc: HDC): HMETAFILE; stdcall;
  546. {$EXTERNALSYM CloseMetaFile}
  547. function CombineRgn(hrgnDest, hrgnSrc1, hrgnSrc2: HRGN; fnCombineMode: Integer): Integer; stdcall;
  548. {$EXTERNALSYM CombineRgn}
  549. function CopyMetaFileA(hmfSrc: HMETAFILE; lpszFile: LPCSTR): HMETAFILE; stdcall;
  550. {$EXTERNALSYM CopyMetaFileA}
  551. function CopyMetaFileW(hmfSrc: HMETAFILE; lpszFile: LPCWSTR): HMETAFILE; stdcall;
  552. {$EXTERNALSYM CopyMetaFileW}
  553. {$IFDEF UNICODE}
  554. function CopyMetaFile(hmfSrc: HMETAFILE; lpszFile: LPCWSTR): HMETAFILE; stdcall;
  555. {$EXTERNALSYM CopyMetaFile}
  556. {$ELSE}
  557. function CopyMetaFile(hmfSrc: HMETAFILE; lpszFile: LPCSTR): HMETAFILE; stdcall;
  558. {$EXTERNALSYM CopyMetaFile}
  559. {$ENDIF}
  560. function CreateBitmap(nWidth, nHeight: Integer; Cplanes, cBitsPerPel: UINT; lpvBits: PVOID): HBITMAP; stdcall;
  561. {$EXTERNALSYM CreateBitmap}
  562. function CreateBitmapIndirect(const lpbm: BITMAP): HBITMAP; stdcall;
  563. {$EXTERNALSYM CreateBitmapIndirect}
  564. function CreateBrushIndirect(const lplb: LOGBRUSH): HBRUSH; stdcall;
  565. {$EXTERNALSYM CreateBrushIndirect}
  566. function CreateCompatibleBitmap(hdc: HDC; nWidth, nHeight: Integer): HBITMAP; stdcall;
  567. {$EXTERNALSYM CreateCompatibleBitmap}
  568. function CreateDiscardableBitmap(hdc: HDC; nWidth, nHeight: Integer): HBITMAP; stdcall;
  569. {$EXTERNALSYM CreateDiscardableBitmap}
  570. function CreateCompatibleDC(hdc: HDC): HDC; stdcall;
  571. {$EXTERNALSYM CreateCompatibleDC}
  572. function CreateDCA(lpszDriver, lpszDevice, lpszOutput: LPCSTR; lpInitData: LPDEVMODEA): HDC; stdcall;
  573. {$EXTERNALSYM CreateDCA}
  574. function CreateDCW(lpszDriver, lpszDevice, lpszOutput: LPCWSTR; lpInitData: LPDEVMODEW): HDC; stdcall;
  575. {$EXTERNALSYM CreateDCW}
  576. {$IFDEF UNICODE}
  577. function CreateDC(lpszDriver, lpszDevice, lpszOutput: LPCWSTR; lpInitData: LPDEVMODEW): HDC; stdcall;
  578. {$EXTERNALSYM CreateDC}
  579. {$ELSE}
  580. function CreateDC(lpszDriver, lpszDevice, lpszOutput: LPCSTR; lpInitData: LPDEVMODEA): HDC; stdcall;
  581. {$EXTERNALSYM CreateDC}
  582. {$ENDIF}
  583. function CreateDIBitmap(hdc: HDC; const lpbmih: BITMAPINFOHEADER; fdwInit: DWORD; lpbInit: PVOID; const lpbmi: BITMAPINFO; fuUsage: UINT): HBITMAP; stdcall;
  584. {$EXTERNALSYM CreateDIBitmap}
  585. function CreateDIBPatternBrush(hglbDIBPacked: HGLOBAL; fuColorSpec: UINT): HBRUSH; stdcall;
  586. {$EXTERNALSYM CreateDIBPatternBrush}
  587. function CreateDIBPatternBrushPt(lpPackedDIB: PVOID; iUsage: UINT): HBRUSH; stdcall;
  588. {$EXTERNALSYM CreateDIBPatternBrushPt}
  589. function CreateEllipticRgn(nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): HRGN; stdcall;
  590. {$EXTERNALSYM CreateEllipticRgn}
  591. function CreateEllipticRgnIndirect(const lprc: RECT): HRGN; stdcall;
  592. {$EXTERNALSYM CreateEllipticRgnIndirect}
  593. function CreateFontIndirectA(const lplf: LOGFONTA): HFONT; stdcall;
  594. {$EXTERNALSYM CreateFontIndirectA}
  595. function CreateFontIndirectW(const lplf: LOGFONTW): HFONT; stdcall;
  596. {$EXTERNALSYM CreateFontIndirectW}
  597. {$IFDEF UNICODE}
  598. function CreateFontIndirect(const lplf: LOGFONTW): HFONT; stdcall;
  599. {$EXTERNALSYM CreateFontIndirect}
  600. {$ELSE}
  601. function CreateFontIndirect(const lplf: LOGFONTA): HFONT; stdcall;
  602. {$EXTERNALSYM CreateFontIndirect}
  603. {$ENDIF}
  604. function CreateFontA(nHeight, nWidth, nEscapement, nOrientation, fnWeight: Integer; fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision, fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: LPCSTR): HFONT; stdcall;
  605. {$EXTERNALSYM CreateFontA}
  606. function CreateFontW(nHeight, nWidth, nEscapement, nOrientation, fnWeight: Integer; fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision, fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: LPCWSTR): HFONT; stdcall;
  607. {$EXTERNALSYM CreateFontW}
  608. {$IFDEF UNICODE}
  609. function CreateFont(nHeight, nWidth, nEscapement, nOrientation, fnWeight: Integer; fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision, fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: LPCWSTR): HFONT; stdcall;
  610. {$EXTERNALSYM CreateFont}
  611. {$ELSE}
  612. function CreateFont(nHeight, nWidth, nEscapement, nOrientation, fnWeight: Integer; fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision, fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: LPCSTR): HFONT; stdcall;
  613. {$EXTERNALSYM CreateFont}
  614. {$ENDIF}
  615. function CreateHatchBrush(fnStyle: Integer; clrref: COLORREF): HBRUSH; stdcall;
  616. {$EXTERNALSYM CreateHatchBrush}
  617. function CreateICA(lpszDriver, lpszDevice, lpszOutput: LPCSTR; lpdvmInit: LPDEVMODEA): HDC; stdcall;
  618. {$EXTERNALSYM CreateICA}
  619. function CreateICW(lpszDriver, lpszDevice, lpszOutput: LPCWSTR; lpdvmInit: LPDEVMODEW): HDC; stdcall;
  620. {$EXTERNALSYM CreateICW}
  621. {$IFDEF UNICODE}
  622. function CreateIC(lpszDriver, lpszDevice, lpszOutput: LPCWSTR; lpdvmInit: LPDEVMODEW): HDC; stdcall;
  623. {$EXTERNALSYM CreateIC}
  624. {$ELSE}
  625. function CreateIC(lpszDriver, lpszDevice, lpszOutput: LPCSTR; lpdvmInit: LPDEVMODEA): HDC; stdcall;
  626. {$EXTERNALSYM CreateIC}
  627. {$ENDIF}
  628. function CreateMetaFileA(lpszFile: LPCSTR): HDC; stdcall;
  629. {$EXTERNALSYM CreateMetaFileA}
  630. function CreateMetaFileW(lpszFile: LPCWSTR): HDC; stdcall;
  631. {$EXTERNALSYM CreateMetaFileW}
  632. {$IFDEF UNICODE}
  633. function CreateMetaFile(lpszFile: LPCWSTR): HDC; stdcall;
  634. {$EXTERNALSYM CreateMetaFile}
  635. {$ELSE}
  636. function CreateMetaFile(lpszFile: LPCSTR): HDC; stdcall;
  637. {$EXTERNALSYM CreateMetaFile}
  638. {$ENDIF}
  639. function CreatePalette(const lplgpl: LOGPALETTE): HPALETTE; stdcall;
  640. {$EXTERNALSYM CreatePalette}
  641. function CreatePen(fnPenStyle, nWidth: Integer; crColor: COLORREF): HPEN; stdcall;
  642. {$EXTERNALSYM CreatePen}
  643. function CreatePenIndirect(const lplgpn: LOGPEN): HPEN; stdcall;
  644. {$EXTERNALSYM CreatePenIndirect}
  645. function CreatePolyPolygonRgn(lppt: LPPOINT; lpPolyCounts: LPINT; nCount, fnPolyFillMode: Integer): HRGN; stdcall;
  646. {$EXTERNALSYM CreatePolyPolygonRgn}
  647. function CreatePatternBrush(hbmp: HBITMAP): HBRUSH; stdcall;
  648. {$EXTERNALSYM CreatePatternBrush}
  649. function CreateRectRgn(nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): HRGN; stdcall;
  650. {$EXTERNALSYM CreateRectRgn}
  651. function CreateRectRgnIndirect(const lprc: RECT): HRGN; stdcall;
  652. {$EXTERNALSYM CreateRectRgnIndirect}
  653. function CreateRoundRectRgn(nLeftRect, nTopRect, nRightRect, nBottomRect, nWidthEllipse, nHeightEllipse: Integer): HRGN; stdcall;
  654. {$EXTERNALSYM CreateRoundRectRgn}
  655. function CreateScalableFontResourceA(fdwHidden: DWORD; lpszFontRes, lpszFontFile, lpszCurrentPath: LPCSTR): BOOL; stdcall;
  656. {$EXTERNALSYM CreateScalableFontResourceA}
  657. function CreateScalableFontResourceW(fdwHidden: DWORD; lpszFontRes, lpszFontFile, lpszCurrentPath: LPCWSTR): BOOL; stdcall;
  658. {$EXTERNALSYM CreateScalableFontResourceW}
  659. {$IFDEF UNICODE}
  660. function CreateScalableFontResource(fdwHidden: DWORD; lpszFontRes, lpszFontFile, lpszCurrentPath: LPCWSTR): BOOL; stdcall;
  661. {$EXTERNALSYM CreateScalableFontResource}
  662. {$ELSE}
  663. function CreateScalableFontResource(fdwHidden: DWORD; lpszFontRes, lpszFontFile, lpszCurrentPath: LPCSTR): BOOL; stdcall;
  664. {$EXTERNALSYM CreateScalableFontResource}
  665. {$ENDIF}
  666. function CreateSolidBrush(crColor: COLORREF): HBRUSH; stdcall;
  667. {$EXTERNALSYM CreateSolidBrush}
  668. function DeleteDC(hdc: HDC): BOOL; stdcall;
  669. {$EXTERNALSYM DeleteDC}
  670. function DeleteMetaFile(hmf: HMETAFILE): BOOL; stdcall;
  671. {$EXTERNALSYM DeleteMetaFile}
  672. function DeleteObject(hObject: HGDIOBJ): BOOL; stdcall;
  673. {$EXTERNALSYM DeleteObject}
  674. function DescribePixelFormat(hdc: HDC; iPixelFormat: Integer; nBytes: UINT; ppfd: LPPIXELFORMATDESCRIPTOR): Integer; stdcall;
  675. {$EXTERNALSYM DescribePixelFormat}
  677. // mode selections for the device mode function
  679. const
  680.   DM_UPDATE = 1;
  681.   {$EXTERNALSYM DM_UPDATE}
  682.   DM_COPY   = 2;
  683.   {$EXTERNALSYM DM_COPY}
  684.   DM_PROMPT = 4;
  685.   {$EXTERNALSYM DM_PROMPT}
  686.   DM_MODIFY = 8;
  687.   {$EXTERNALSYM DM_MODIFY}
  689.   DM_IN_BUFFER   = DM_MODIFY;
  690.   {$EXTERNALSYM DM_IN_BUFFER}
  691.   DM_IN_PROMPT   = DM_PROMPT;
  692.   {$EXTERNALSYM DM_IN_PROMPT}
  693.   DM_OUT_BUFFER  = DM_COPY;
  694.   {$EXTERNALSYM DM_OUT_BUFFER}
  695.   DM_OUT_DEFAULT = DM_UPDATE;
  696.   {$EXTERNALSYM DM_OUT_DEFAULT}
  698. // device capabilities indices
  700.   DC_FIELDS            = 1;
  701.   {$EXTERNALSYM DC_FIELDS}
  702.   DC_PAPERS            = 2;
  703.   {$EXTERNALSYM DC_PAPERS}
  704.   DC_PAPERSIZE         = 3;
  705.   {$EXTERNALSYM DC_PAPERSIZE}
  706.   DC_MINEXTENT         = 4;
  707.   {$EXTERNALSYM DC_MINEXTENT}
  708.   DC_MAXEXTENT         = 5;
  709.   {$EXTERNALSYM DC_MAXEXTENT}
  710.   DC_BINS              = 6;
  711.   {$EXTERNALSYM DC_BINS}
  712.   DC_DUPLEX            = 7;
  713.   {$EXTERNALSYM DC_DUPLEX}
  714.   DC_SIZE              = 8;
  715.   {$EXTERNALSYM DC_SIZE}
  716.   DC_EXTRA             = 9;
  717.   {$EXTERNALSYM DC_EXTRA}
  718.   DC_VERSION           = 10;
  719.   {$EXTERNALSYM DC_VERSION}
  720.   DC_DRIVER            = 11;
  721.   {$EXTERNALSYM DC_DRIVER}
  722.   DC_BINNAMES          = 12;
  723.   {$EXTERNALSYM DC_BINNAMES}
  724.   DC_ENUMRESOLUTIONS   = 13;
  725.   {$EXTERNALSYM DC_ENUMRESOLUTIONS}
  726.   DC_FILEDEPENDENCIES  = 14;
  727.   {$EXTERNALSYM DC_FILEDEPENDENCIES}
  728.   DC_TRUETYPE          = 15;
  729.   {$EXTERNALSYM DC_TRUETYPE}
  730.   DC_PAPERNAMES        = 16;
  731.   {$EXTERNALSYM DC_PAPERNAMES}
  732.   DC_ORIENTATION       = 17;
  733.   {$EXTERNALSYM DC_ORIENTATION}
  734.   DC_COPIES            = 18;
  735.   {$EXTERNALSYM DC_COPIES}
  736.   DC_BINADJUST         = 19;
  737.   {$EXTERNALSYM DC_BINADJUST}
  738.   DC_EMF_COMPLIANT     = 20;
  739.   {$EXTERNALSYM DC_EMF_COMPLIANT}
  740.   DC_DATATYPE_PRODUCED = 21;
  741.   {$EXTERNALSYM DC_DATATYPE_PRODUCED}
  742.   DC_COLLATE           = 22;
  743.   {$EXTERNALSYM DC_COLLATE}
  744.   DC_MANUFACTURER      = 23;
  745.   {$EXTERNALSYM DC_MANUFACTURER}
  746.   DC_MODEL             = 24;
  747.   {$EXTERNALSYM DC_MODEL}
  749.   DC_PERSONALITY    = 25;
  750.   {$EXTERNALSYM DC_PERSONALITY}
  751.   DC_PRINTRATE      = 26;
  752.   {$EXTERNALSYM DC_PRINTRATE}
  753.   DC_PRINTRATEUNIT  = 27;
  754.   {$EXTERNALSYM DC_PRINTRATEUNIT}
  755.   PRINTRATEUNIT_PPM = 1;
  756.   {$EXTERNALSYM PRINTRATEUNIT_PPM}
  757.   PRINTRATEUNIT_CPS = 2;
  758.   {$EXTERNALSYM PRINTRATEUNIT_CPS}
  759.   PRINTRATEUNIT_LPM = 3;
  760.   {$EXTERNALSYM PRINTRATEUNIT_LPM}
  761.   PRINTRATEUNIT_IPM = 4;
  762.   {$EXTERNALSYM PRINTRATEUNIT_IPM}
  763.   DC_PRINTERMEM     = 28;
  764.   {$EXTERNALSYM DC_PRINTERMEM}
  765.   DC_MEDIAREADY     = 29;
  766.   {$EXTERNALSYM DC_MEDIAREADY}
  767.   DC_STAPLE         = 30;
  768.   {$EXTERNALSYM DC_STAPLE}
  769.   DC_PRINTRATEPPM   = 31;
  770.   {$EXTERNALSYM DC_PRINTRATEPPM}
  771.   DC_COLORDEVICE    = 32;
  772.   {$EXTERNALSYM DC_COLORDEVICE}
  773.   DC_NUP            = 33;
  774.   {$EXTERNALSYM DC_NUP}
  775.   DC_MEDIATYPENAMES = 34;
  776.   {$EXTERNALSYM DC_MEDIATYPENAMES}
  777.   DC_MEDIATYPES     = 35;
  778.   {$EXTERNALSYM DC_MEDIATYPES}
  780. // bit fields of the return value (DWORD) for DC_TRUETYPE
  782.   DCTT_BITMAP           = $0000001;
  783.   {$EXTERNALSYM DCTT_BITMAP}
  784.   DCTT_DOWNLOAD         = $0000002;
  785.   {$EXTERNALSYM DCTT_DOWNLOAD}
  786.   DCTT_SUBDEV           = $0000004;
  787.   {$EXTERNALSYM DCTT_SUBDEV}
  788.   DCTT_DOWNLOAD_OUTLINE = $0000008;
  789.   {$EXTERNALSYM DCTT_DOWNLOAD_OUTLINE}
  791. // return values for DC_BINADJUST
  793.   DCBA_FACEUPNONE     = $0000;
  794.   {$EXTERNALSYM DCBA_FACEUPNONE}
  795.   DCBA_FACEUPCENTER   = $0001;
  796.   {$EXTERNALSYM DCBA_FACEUPCENTER}
  797.   DCBA_FACEUPLEFT     = $0002;
  798.   {$EXTERNALSYM DCBA_FACEUPLEFT}
  799.   DCBA_FACEUPRIGHT    = $0003;
  800.   {$EXTERNALSYM DCBA_FACEUPRIGHT}
  801.   DCBA_FACEDOWNNONE   = $0100;
  802.   {$EXTERNALSYM DCBA_FACEDOWNNONE}
  803.   DCBA_FACEDOWNCENTER = $0101;
  804.   {$EXTERNALSYM DCBA_FACEDOWNCENTER}
  805.   DCBA_FACEDOWNLEFT   = $0102;
  806.   {$EXTERNALSYM DCBA_FACEDOWNLEFT}
  807.   DCBA_FACEDOWNRIGHT  = $0103;
  808.   {$EXTERNALSYM DCBA_FACEDOWNRIGHT}
  810. function DeviceCapabilitiesA(pDevice, pPort: LPCSTR; fwCapability: WORD; pOutput: LPSTR; pDevMode: LPDEVMODEA): Integer; stdcall;
  811. {$EXTERNALSYM DeviceCapabilitiesA}
  812. function DeviceCapabilitiesW(pDevice, pPort: LPCWSTR; fwCapability: WORD; pOutput: LPWSTR; pDevMode: LPDEVMODEW): Integer; stdcall;
  813. {$EXTERNALSYM DeviceCapabilitiesW}
  814. {$IFDEF UNICODE}
  815. function DeviceCapabilities(pDevice, pPort: LPCWSTR; fwCapability: WORD; pOutput: LPWSTR; pDevMode: LPDEVMODEW): Integer; stdcall;
  816. {$EXTERNALSYM DeviceCapabilities}
  817. {$ELSE}
  818. function DeviceCapabilities(pDevice, pPort: LPCSTR; fwCapability: WORD; pOutput: LPSTR; pDevMode: LPDEVMODEA): Integer; stdcall;
  819. {$EXTERNALSYM DeviceCapabilities}
  820. {$ENDIF}
  821. function DrawEscape(hdc: HDC; nEscape, cbInput: Integer; lpszInData: LPCSTR): Integer; stdcall;
  822. {$EXTERNALSYM DrawEscape}
  823. function Ellipse(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): BOOL; stdcall;
  824. {$EXTERNALSYM Ellipse}
  825. function EnumFontFamiliesExA(hdc: HDC; lpLogFont: LPLOGFONTA; lpEnumFontFamExProc: FONTENUMPROCA; lParam: LPARAM; dwFlags: DWORD): Integer; stdcall;
  826. {$EXTERNALSYM EnumFontFamiliesExA}
  827. function EnumFontFamiliesExW(hdc: HDC; lpLogFont: LPLOGFONTW; lpEnumFontFamExProc: FONTENUMPROCW; lParam: LPARAM; dwFlags: DWORD): Integer; stdcall;
  828. {$EXTERNALSYM EnumFontFamiliesExW}
  829. {$IFDEF UNICODE}
  830. function EnumFontFamiliesEx(hdc: HDC; lpLogFont: LPLOGFONTW; lpEnumFontFamExProc: FONTENUMPROCW; lParam: LPARAM; dwFlags: DWORD): Integer; stdcall;
  831. {$EXTERNALSYM EnumFontFamiliesEx}
  832. {$ELSE}
  833. function EnumFontFamiliesEx(hdc: HDC; lpLogFont: LPLOGFONTA; lpEnumFontFamExProc: FONTENUMPROCA; lParam: LPARAM; dwFlags: DWORD): Integer; stdcall;
  834. {$EXTERNALSYM EnumFontFamiliesEx}
  835. {$ENDIF}
  837. function EnumFontFamiliesA(hdc: HDC; lpszFamily: LPCSTR; lpEnumFontFamProc: FONTENUMPROCA; lParam: LPARAM): Integer; stdcall;
  838. {$EXTERNALSYM EnumFontFamiliesA}
  839. function EnumFontFamiliesW(hdc: HDC; lpszFamily: LPCWSTR; lpEnumFontFamProc: FONTENUMPROCW; lParam: LPARAM): Integer; stdcall;
  840. {$EXTERNALSYM EnumFontFamiliesW}
  841. {$IFDEF UNICODE}
  842. function EnumFontFamilies(hdc: HDC; lpszFamily: LPCWSTR; lpEnumFontFamProc: FONTENUMPROCW; lParam: LPARAM): Integer; stdcall;
  843. {$EXTERNALSYM EnumFontFamilies}
  844. {$ELSE}
  845. function EnumFontFamilies(hdc: HDC; lpszFamily: LPCSTR; lpEnumFontFamProc: FONTENUMPROCA; lParam: LPARAM): Integer; stdcall;
  846. {$EXTERNALSYM EnumFontFamilies}
  847. {$ENDIF}
  849. function EnumFontsA(hdc: HDC; lpFaceName: LPCSTR; lpFontFunc: FONTENUMPROCA; lParam: LPARAM): Integer; stdcall;
  850. {$EXTERNALSYM EnumFontsA}
  851. function EnumFontsW(hdc: HDC; lpFaceName: LPCWSTR; lpFontFunc: FONTENUMPROCW; lParam: LPARAM): Integer; stdcall;
  852. {$EXTERNALSYM EnumFontsW}
  853. {$IFDEF UNICODE}
  854. function EnumFonts(hdc: HDC; lpFaceName: LPCWSTR; lpFontFunc: FONTENUMPROCW; lParam: LPARAM): Integer; stdcall;
  855. {$EXTERNALSYM EnumFonts}
  856. {$ELSE}
  857. function EnumFonts(hdc: HDC; lpFaceName: LPCSTR; lpFontFunc: FONTENUMPROCA; lParam: LPARAM): Integer; stdcall;
  858. {$EXTERNALSYM EnumFonts}
  859. {$ENDIF}
  861. function EnumObjects(hdc: HDC; mObjectType: Integer; lpObjectFunc: GOBJENUMPROC; lParam: LPARAM): Integer; stdcall;
  862. {$EXTERNALSYM EnumObjects}
  864. function EqualRgn(hSrcRgn1, hSrcRgn2: HRGN): BOOL; stdcall;
  865. {$EXTERNALSYM EqualRgn}
  866. function Escape(hdc: HDC; nEscape, cbInput: Integer; lpvInData: LPCSTR; lpvOutData: LPVOID): Integer; stdcall;
  867. {$EXTERNALSYM Escape}
  868. function ExtEscape(hdc: HDC; nEscape, cbInput: Integer; lpszInData: LPCSTR; cbOutput: Integer; lpszOutData: LPSTR): Integer; stdcall;
  869. {$EXTERNALSYM ExtEscape}
  870. function ExcludeClipRect(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): Integer; stdcall;
  871. {$EXTERNALSYM ExcludeClipRect}
  872. function ExtCreateRegion(lpXForm: LPXFORM; nCount: DWORD; lpRgnData: LPRGNDATA): HRGN; stdcall;
  873. {$EXTERNALSYM ExtCreateRegion}
  874. function ExtFloodFill(hdc: HDC; nXStart, nYStart: Integer; crColor: COLORREF; fuFillType: UINT): BOOL; stdcall;
  875. {$EXTERNALSYM ExtFloodFill}
  876. function FillRgn(hdc: HDC; hrgn: HRGN; hbr: HBRUSH): BOOL; stdcall;
  877. {$EXTERNALSYM FillRgn}
  878. function FloodFill(hdc: HDC; nXStart, nYStart: Integer; crFill: COLORREF): BOOL; stdcall;
  879. {$EXTERNALSYM FloodFill}
  880. function FrameRgn(hdc: HDC; hrgn: HRGN; hbr: HBRUSH; nWidth, nHeight: Integer): BOOL; stdcall;
  881. {$EXTERNALSYM FrameRgn}
  882. function GetROP2(hdc: HDC): Integer; stdcall;
  883. {$EXTERNALSYM GetROP2}
  884. function GetAspectRatioFilterEx(hdc: HDC; var lpAspectRatio: TSize): BOOL; stdcall;
  885. {$EXTERNALSYM GetAspectRatioFilterEx}
  886. function GetBkColor(hdc: HDC): COLORREF; stdcall;
  887. {$EXTERNALSYM GetBkColor}
  889. function GetDCBrushColor(hdc: HDC): COLORREF; stdcall;
  890. {$EXTERNALSYM GetDCBrushColor}
  891. function GetDCPenColor(hdc: HDC): COLORREF; stdcall;
  892. {$EXTERNALSYM GetDCPenColor}
  894. function GetBkMode(hdc: HDC): Integer; stdcall;
  895. {$EXTERNALSYM GetBkMode}
  896. function GetBitmapBits(hbmp: HBITMAP; cbBuffer: LONG; lpvBits: LPVOID): LONG; stdcall;
  897. {$EXTERNALSYM GetBitmapBits}
  898. function GetBitmapDimensionEx(hBitmap: HBITMAP; var lpDimension: TSize): BOOL; stdcall;
  899. {$EXTERNALSYM GetBitmapDimensionEx}
  900. function GetBoundsRect(hdc: HDC; var lprcBounds: RECT; flags: UINT): UINT; stdcall;
  901. {$EXTERNALSYM GetBoundsRect}
  903. function GetBrushOrgEx(hdc: HDC; var lppt: POINT): BOOL; stdcall;
  904. {$EXTERNALSYM GetBrushOrgEx}
  906. function GetCharWidthA(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  907. {$EXTERNALSYM GetCharWidthA}
  908. function GetCharWidthW(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  909. {$EXTERNALSYM GetCharWidthW}
  910. {$IFDEF UNICODE}
  911. function GetCharWidth(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  912. {$EXTERNALSYM GetCharWidth}
  913. {$ELSE}
  914. function GetCharWidth(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  915. {$EXTERNALSYM GetCharWidth}
  916. {$ENDIF}
  917. function GetCharWidth32A(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  918. {$EXTERNALSYM GetCharWidth32A}
  919. function GetCharWidth32W(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  920. {$EXTERNALSYM GetCharWidth32W}
  921. {$IFDEF UNICODE}
  922. function GetCharWidth32(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  923. {$EXTERNALSYM GetCharWidth32}
  924. {$ELSE}
  925. function GetCharWidth32(hdc: HDC; iFirstChar, iLastChar: UINT; lpBuffer: LPINT): BOOL; stdcall;
  926. {$EXTERNALSYM GetCharWidth32}
  927. {$ENDIF}
  928. function GetCharWidthFloatA(hdc: HDC; iFirstChar, iLastChar: UINT; pxBuffer: PFLOAT): BOOL; stdcall;
  929. {$EXTERNALSYM GetCharWidthFloatA}
  930. function GetCharWidthFloatW(hdc: HDC; iFirstChar, iLastChar: UINT; pxBuffer: PFLOAT): BOOL; stdcall;
  931. {$EXTERNALSYM GetCharWidthFloatW}
  932. {$IFDEF UNICODE}
  933. function GetCharWidthFloat(hdc: HDC; iFirstChar, iLastChar: UINT; pxBuffer: PFLOAT): BOOL; stdcall;
  934. {$EXTERNALSYM GetCharWidthFloat}
  935. {$ELSE}
  936. function GetCharWidthFloat(hdc: HDC; iFirstChar, iLastChar: UINT; pxBuffer: PFLOAT): BOOL; stdcall;
  937. {$EXTERNALSYM GetCharWidthFloat}
  938. {$ENDIF}
  939. function GetCharABCWidthsA(hdc: HDC; uFirstChar, uLastChar: UINT; lpAbc: LPABC): BOOL; stdcall;
  940. {$EXTERNALSYM GetCharABCWidthsA}
  941. function GetCharABCWidthsW(hdc: HDC; uFirstChar, uLastChar: UINT; lpAbc: LPABC): BOOL; stdcall;
  942. {$EXTERNALSYM GetCharABCWidthsW}
  943. {$IFDEF UNICODE}
  944. function GetCharABCWidths(hdc: HDC; uFirstChar, uLastChar: UINT; lpAbc: LPABC): BOOL; stdcall;
  945. {$EXTERNALSYM GetCharABCWidths}
  946. {$ELSE}
  947. function GetCharABCWidths(hdc: HDC; uFirstChar, uLastChar: UINT; lpAbc: LPABC): BOOL; stdcall;
  948. {$EXTERNALSYM GetCharABCWidths}
  949. {$ENDIF}
  950. function GetCharABCWidthsFloatA(hdc: HDC; iFirstChar, iLastChar: UINT; lpAbcF: LPABCFLOAT): BOOL; stdcall;
  951. {$EXTERNALSYM GetCharABCWidthsFloatA}
  952. function GetCharABCWidthsFloatW(hdc: HDC; iFirstChar, iLastChar: UINT; lpAbcF: LPABCFLOAT): BOOL; stdcall;
  953. {$EXTERNALSYM GetCharABCWidthsFloatW}
  954. {$IFDEF UNICODE}
  955. function GetCharABCWidthsFloat(hdc: HDC; iFirstChar, iLastChar: UINT; lpAbcF: LPABCFLOAT): BOOL; stdcall;
  956. {$EXTERNALSYM GetCharABCWidthsFloat}
  957. {$ELSE}
  958. function GetCharABCWidthsFloat(hdc: HDC; iFirstChar, iLastChar: UINT; lpAbcF: LPABCFLOAT): BOOL; stdcall;
  959. {$EXTERNALSYM GetCharABCWidthsFloat}
  960. {$ENDIF}
  962. function GetClipBox(hdc: HDC; var lprc: RECT): Integer; stdcall;
  963. {$EXTERNALSYM GetClipBox}
  964. function GetClipRgn(hdc: HDC; hrgn: HRGN): Integer; stdcall;
  965. {$EXTERNALSYM GetClipRgn}
  966. function GetMetaRgn(hdc: HDC; hrgn: HRGN): Integer; stdcall;
  967. {$EXTERNALSYM GetMetaRgn}
  968. function GetCurrentObject(hdc: HDC; uObjectType: UINT): HGDIOBJ; stdcall;
  969. {$EXTERNALSYM GetCurrentObject}
  970. function GetCurrentPositionEx(hdc: HDC; var lpPoint: POINT): BOOL; stdcall;
  971. {$EXTERNALSYM GetCurrentPositionEx}
  972. function GetDeviceCaps(hdc: HDC; nIndex: Integer): Integer; stdcall;
  973. {$EXTERNALSYM GetDeviceCaps}
  974. function GetDIBits(hdc: HDC; hbmp: HBITMAP; uStartScan, cScanLines: UINT; lpvBits: LPVOID; var lpbi: BITMAPINFO; uUsage: UINT): Integer; stdcall;
  975. {$EXTERNALSYM GetDIBits}
  976. function GetFontData(hdc: HDC; dwTable, dwOffset: DWORD; lpvBuffer: LPVOID; cbData: DWORD): DWORD; stdcall;
  977. {$EXTERNALSYM GetFontData}
  978. function GetGlyphOutlineA(hdc: HDC; uChar, uFormat: UINT; var lpgm: GLYPHMETRICS; cbBuffer: DWORD; lpvBuffer: LPVOID; const lpMat2: MAT2): DWORD; stdcall;
  979. {$EXTERNALSYM GetGlyphOutlineA}
  980. function GetGlyphOutlineW(hdc: HDC; uChar, uFormat: UINT; var lpgm: GLYPHMETRICS; cbBuffer: DWORD; lpvBuffer: LPVOID; const lpMat2: MAT2): DWORD; stdcall;
  981. {$EXTERNALSYM GetGlyphOutlineW}
  982. {$IFDEF UNICODE}
  983. function GetGlyphOutline(hdc: HDC; uChar, uFormat: UINT; var lpgm: GLYPHMETRICS; cbBuffer: DWORD; lpvBuffer: LPVOID; const lpMat2: MAT2): DWORD; stdcall;
  984. {$EXTERNALSYM GetGlyphOutline}
  985. {$ELSE}
  986. function GetGlyphOutline(hdc: HDC; uChar, uFormat: UINT; var lpgm: GLYPHMETRICS; cbBuffer: DWORD; lpvBuffer: LPVOID; const lpMat2: MAT2): DWORD; stdcall;
  987. {$EXTERNALSYM GetGlyphOutline}
  988. {$ENDIF}
  989. function GetGraphicsMode(hdc: HDC): Integer; stdcall;
  990. {$EXTERNALSYM GetGraphicsMode}
  991. function GetMapMode(hdc: HDC): Integer; stdcall;
  992. {$EXTERNALSYM GetMapMode}
  993. function GetMetaFileBitsEx(hmf: HMETAFILE; nSize: UINT; lpvData: LPVOID): UINT; stdcall;
  994. {$EXTERNALSYM GetMetaFileBitsEx}
  995. function GetMetaFileA(lpszMetaFile: LPCSTR): HMETAFILE; stdcall;
  996. {$EXTERNALSYM GetMetaFileA}
  997. function GetMetaFileW(lpszMetaFile: LPCWSTR): HMETAFILE; stdcall;
  998. {$EXTERNALSYM GetMetaFileW}
  999. {$IFDEF UNICODE}
  1000. function GetMetaFile(lpszMetaFile: LPCWSTR): HMETAFILE; stdcall;
  1001. {$EXTERNALSYM GetMetaFile}
  1002. {$ELSE}
  1003. function GetMetaFile(lpszMetaFile: LPCSTR): HMETAFILE; stdcall;
  1004. {$EXTERNALSYM GetMetaFile}
  1005. {$ENDIF}
  1006. function GetNearestColor(hdc: HDC; crColor: COLORREF): COLORREF; stdcall;
  1007. {$EXTERNALSYM GetNearestColor}
  1008. function GetNearestPaletteIndex(hPal: HPALETTE; crColor: COLORREF): UINT; stdcall;
  1009. {$EXTERNALSYM GetNearestPaletteIndex}
  1010. function GetObjectType(h: HGDIOBJ): DWORD; stdcall;
  1011. {$EXTERNALSYM GetObjectType}
  1013. function GetOutlineTextMetricsA(hdc: HDC; cbData: UINT; lpOTM: LPOUTLINETEXTMETRICA): UINT; stdcall;
  1014. {$EXTERNALSYM GetOutlineTextMetricsA}
  1015. function GetOutlineTextMetricsW(hdc: HDC; cbData: UINT; lpOTM: LPOUTLINETEXTMETRICW): UINT; stdcall;
  1016. {$EXTERNALSYM GetOutlineTextMetricsW}
  1017. {$IFDEF UNICODE}
  1018. function GetOutlineTextMetrics(hdc: HDC; cbData: UINT; lpOTM: LPOUTLINETEXTMETRICW): UINT; stdcall;
  1019. {$EXTERNALSYM GetOutlineTextMetrics}
  1020. {$ELSE}
  1021. function GetOutlineTextMetrics(hdc: HDC; cbData: UINT; lpOTM: LPOUTLINETEXTMETRICA): UINT; stdcall;
  1022. {$EXTERNALSYM GetOutlineTextMetrics}
  1023. {$ENDIF}
  1024. function GetPaletteEntries(hPal: HPALETTE; iStartIndex, nEntries: UINT; lppe: LPPALETTEENTRY): UINT; stdcall;
  1025. {$EXTERNALSYM GetPaletteEntries}
  1026. function GetPixel(hdc: HDC; nXPos, nYPos: Integer): COLORREF; stdcall;
  1027. {$EXTERNALSYM GetPixel}
  1028. function GetPixelFormat(hdc: HDC): Integer; stdcall;
  1029. {$EXTERNALSYM GetPixelFormat}
  1030. function GetPolyFillMode(hdc: HDC): Integer; stdcall;
  1031. {$EXTERNALSYM GetPolyFillMode}
  1032. function GetRasterizerCaps(var lprs: RASTERIZER_STATUS; cb: UINT): BOOL; stdcall;
  1033. {$EXTERNALSYM GetRasterizerCaps}
  1034. function GetRandomRgn(hdc: HDC; hrgn: HRGN; iNum: Integer): Integer; stdcall;
  1035. {$EXTERNALSYM GetRandomRgn}
  1036. function GetRegionData(hrgn: HRGN; dwCount: DWORD; lpRgnData: LPRGNDATA): DWORD; stdcall;
  1037. {$EXTERNALSYM GetRegionData}
  1038. function GetRgnBox(hrgn: HRGN; var lprc: RECT): Integer; stdcall;
  1039. {$EXTERNALSYM GetRgnBox}
  1040. function GetStockObject(fnObject: Integer): HGDIOBJ; stdcall;
  1041. {$EXTERNALSYM GetStockObject}
  1042. function GetStretchBltMode(hdc: HDC): Integer; stdcall;
  1043. {$EXTERNALSYM GetStretchBltMode}
  1044. function GetSystemPaletteEntries(hdc: HDC; iStartIndex, nEntries: UINT; lppe: LPPALETTEENTRY): UINT; stdcall;
  1045. {$EXTERNALSYM GetSystemPaletteEntries}
  1046. function GetSystemPaletteUse(hdc: HDC): UINT; stdcall;
  1047. {$EXTERNALSYM GetSystemPaletteUse}
  1048. function GetTextCharacterExtra(hdc: HDC): Integer; stdcall;
  1049. {$EXTERNALSYM GetTextCharacterExtra}
  1050. function GetTextAlign(hdc: HDC): UINT; stdcall;
  1051. {$EXTERNALSYM GetTextAlign}
  1052. function GetTextColor(hdc: HDC): COLORREF; stdcall;
  1053. {$EXTERNALSYM GetTextColor}
  1055. function GetTextExtentPointA(hdc: HDC; lpString: LPCSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1056. {$EXTERNALSYM GetTextExtentPointA}
  1057. function GetTextExtentPointW(hdc: HDC; lpString: LPCWSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1058. {$EXTERNALSYM GetTextExtentPointW}
  1059. {$IFDEF UNICODE}
  1060. function GetTextExtentPoint(hdc: HDC; lpString: LPCWSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1061. {$EXTERNALSYM GetTextExtentPoint}
  1062. {$ELSE}
  1063. function GetTextExtentPoint(hdc: HDC; lpString: LPCSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1064. {$EXTERNALSYM GetTextExtentPoint}
  1065. {$ENDIF}
  1066. function GetTextExtentPoint32A(hdc: HDC; lpString: LPCSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1067. {$EXTERNALSYM GetTextExtentPoint32A}
  1068. function GetTextExtentPoint32W(hdc: HDC; lpString: LPCWSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1069. {$EXTERNALSYM GetTextExtentPoint32W}
  1070. {$IFDEF UNICODE}
  1071. function GetTextExtentPoint32(hdc: HDC; lpString: LPCWSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1072. {$EXTERNALSYM GetTextExtentPoint32}
  1073. {$ELSE}
  1074. function GetTextExtentPoint32(hdc: HDC; lpString: LPCSTR; cbString: Integer; var Size: TSize): BOOL; stdcall;
  1075. {$EXTERNALSYM GetTextExtentPoint32}
  1076. {$ENDIF}
  1077. function GetTextExtentExPointA(hdc: HDC; lpszStr: LPCSTR; cchString, nMaxExtend: Integer; lpnFit, alpDx: LPINT; var lpSize: TSize): BOOL; stdcall;
  1078. {$EXTERNALSYM GetTextExtentExPointA}
  1079. function GetTextExtentExPointW(hdc: HDC; lpszStr: LPCWSTR; cchString, nMaxExtend: Integer; lpnFit, alpDx: LPINT; var lpSize: TSize): BOOL; stdcall;
  1080. {$EXTERNALSYM GetTextExtentExPointW}
  1081. {$IFDEF UNICODE}
  1082. function GetTextExtentExPoint(hdc: HDC; lpszStr: LPCWSTR; cchString, nMaxExtend: Integer; lpnFit, alpDx: LPINT; var lpSize: TSize): BOOL; stdcall;
  1083. {$EXTERNALSYM GetTextExtentExPoint}
  1084. {$ELSE}
  1085. function GetTextExtentExPoint(hdc: HDC; lpszStr: LPCSTR; cchString, nMaxExtend: Integer; lpnFit, alpDx: LPINT; var lpSize: TSize): BOOL; stdcall;
  1086. {$EXTERNALSYM GetTextExtentExPoint}
  1087. {$ENDIF}
  1088. function GetTextCharset(hdc: HDC): Integer; stdcall;
  1089. {$EXTERNALSYM GetTextCharset}
  1090. function GetTextCharsetInfo(hdc: HDC; lpSig: LPFONTSIGNATURE; dwFlags: DWORD): Integer; stdcall;
  1091. {$EXTERNALSYM GetTextCharsetInfo}
  1092. function TranslateCharsetInfo(lpSrc: LPDWORD; lpCs: LPCHARSETINFO; dwFlags: DWORD): BOOL; stdcall;
  1093. {$EXTERNALSYM TranslateCharsetInfo}
  1094. function GetFontLanguageInfo(hdc: HDC): DWORD; stdcall;
  1095. {$EXTERNALSYM GetFontLanguageInfo}
  1096. function GetCharacterPlacementA(hdc: HDC; lpString: LPCSTR; nCount, nMaxExtend: Integer; var lpResults: GCP_RESULTSA; dwFlags: DWORD): DWORD; stdcall;
  1097. {$EXTERNALSYM GetCharacterPlacementA}
  1098. function GetCharacterPlacementW(hdc: HDC; lpString: LPCWSTR; nCount, nMaxExtend: Integer; var lpResults: GCP_RESULTSW; dwFlags: DWORD): DWORD; stdcall;
  1099. {$EXTERNALSYM GetCharacterPlacementW}
  1100. {$IFDEF UNICODE}
  1101. function GetCharacterPlacement(hdc: HDC; lpString: LPCWSTR; nCount, nMaxExtend: Integer; var lpResults: GCP_RESULTSW; dwFlags: DWORD): DWORD; stdcall;
  1102. {$EXTERNALSYM GetCharacterPlacement}
  1103. {$ELSE}
  1104. function GetCharacterPlacement(hdc: HDC; lpString: LPCSTR; nCount, nMaxExtend: Integer; var lpResults: GCP_RESULTSA; dwFlags: DWORD): DWORD; stdcall;
  1105. {$EXTERNALSYM GetCharacterPlacement}
  1106. {$ENDIF}
  1108. type
  1109.   PWcRange = ^TWcRange;
  1110.   tagWCRANGE = record
  1111.     wcLow: WCHAR;
  1112.     cGlyphs: USHORT;
  1113.   end;
  1114.   {$EXTERNALSYM tagWCRANGE}
  1115.   WCRANGE = tagWCRANGE;
  1116.   {$EXTERNALSYM WCRANGE}
  1117.   LPWCRANGE = ^WCRANGE;
  1118.   {$EXTERNALSYM LPWCRANGE}
  1119.   TWcRange = WCRANGE;
  1121.   PGlyphSet = ^TGlyphSet;
  1122.   tagGLYPHSET = record
  1123.     cbThis: DWORD;
  1124.     flAccel: DWORD;
  1125.     cGlyphsSupported: DWORD;
  1126.     cRanges: DWORD;
  1127.     ranges: array [0..0] of WCRANGE;
  1128.   end;
  1129.   {$EXTERNALSYM tagGLYPHSET}
  1130.   GLYPHSET = tagGLYPHSET;
  1131.   {$EXTERNALSYM GLYPHSET}
  1132.   LPGLYPHSET = ^GLYPHSET;
  1133.   {$EXTERNALSYM LPGLYPHSET}
  1134.   TGlyphSet = GLYPHSET;
  1136. // flAccel flags for the GLYPHSET structure above
  1138. const
  1139.   GS_8BIT_INDICES = $00000001;
  1140.   {$EXTERNALSYM GS_8BIT_INDICES}
  1142. // flags for GetGlyphIndices
  1144.   GGI_MARK_NONEXISTING_GLYPHS = $0001;
  1145.   {$EXTERNALSYM GGI_MARK_NONEXISTING_GLYPHS}
  1147. function GetFontUnicodeRanges(hdc: HDC; lpgs: LPGLYPHSET): DWORD; stdcall;
  1148. {$EXTERNALSYM GetFontUnicodeRanges}
  1150. function GetGlyphIndicesA(hdc: HDC; lpstr: LPCSTR; c: Integer; pgi: LPWORD; fl: DWORD): DWORD; stdcall;
  1151. {$EXTERNALSYM GetGlyphIndicesA}
  1152. function GetGlyphIndicesW(hdc: HDC; lpstr: LPCWSTR; c: Integer; pgi: LPWORD; fl: DWORD): DWORD; stdcall;
  1153. {$EXTERNALSYM GetGlyphIndicesW}
  1155. {$IFDEF UNICODE}
  1156. function GetGlyphIndices(hdc: HDC; lpstr: LPCWSTR; c: Integer; pgi: LPWORD; fl: DWORD): DWORD; stdcall;
  1157. {$EXTERNALSYM GetGlyphIndices}
  1158. {$ELSE}
  1159. function GetGlyphIndices(hdc: HDC; lpstr: LPCSTR; c: Integer; pgi: LPWORD; fl: DWORD): DWORD; stdcall;
  1160. {$EXTERNALSYM GetGlyphIndices}
  1161. {$ENDIF}
  1163. function GetTextExtentPointI(hdc: HDC; pgiIn: LPWORD; cgi: Integer; lpSize: LPSIZE): BOOL; stdcall;
  1164. {$EXTERNALSYM GetTextExtentPointI}
  1165. function GetTextExtentExPointI(hdc: HDC; pgiIn: LPWORD; cgi, nMaxExtend: Integer;
  1166.   lpnFit, alpDx: LPINT; lpSize: LPSIZE): BOOL; stdcall;
  1167. {$EXTERNALSYM GetTextExtentExPointI}
  1168. function GetCharWidthI(hdc: HDC; giFirst, cgi: UINT; pgi: LPWORD; lpBuffer: LPINT): BOOL; stdcall;
  1169. {$EXTERNALSYM GetCharWidthI}
  1170. function GetCharABCWidthsI(hdc: HDC; giFirst, cgi: UINT; pgi: LPWORD; lpAbc: LPABC): BOOL; stdcall;
  1171. {$EXTERNALSYM GetCharABCWidthsI}
  1173. const
  1174.   STAMP_DESIGNVECTOR = ($8000000 + Ord('d') + (Ord('v') shl 8));
  1175.   {$EXTERNALSYM STAMP_DESIGNVECTOR}
  1176.   STAMP_AXESLIST     = ($8000000 + Ord('a') + (Ord('l') shl 8));
  1177.   {$EXTERNALSYM STAMP_AXESLIST}
  1178.   MM_MAX_NUMAXES     = 16;
  1179.   {$EXTERNALSYM MM_MAX_NUMAXES}
  1181. type
  1182.   PDesignVector = ^TDesignVector;
  1183.   tagDESIGNVECTOR = record
  1184.     dvReserved: DWORD;
  1185.     dvNumAxes: DWORD;
  1186.     dvValues: array [0..MM_MAX_NUMAXES - 1] of LONG;
  1187.   end;
  1188.   {$EXTERNALSYM tagDESIGNVECTOR}
  1189.   DESIGNVECTOR = tagDESIGNVECTOR;
  1190.   {$EXTERNALSYM DESIGNVECTOR}
  1191.   LPDESIGNVECTOR = ^DESIGNVECTOR;
  1192.   {$EXTERNALSYM LPDESIGNVECTOR}
  1193.   TDesignVector = DESIGNVECTOR;
  1195. function AddFontResourceExA(lpszFilename: LPCSTR; fl: DWORD; pdv: PVOID): Integer; stdcall;
  1196. {$EXTERNALSYM AddFontResourceExA}
  1197. function AddFontResourceExW(lpszFilename: LPCWSTR; fl: DWORD; pdv: PVOID): Integer; stdcall;
  1198. {$EXTERNALSYM AddFontResourceExW}
  1200. {$IFDEF UNICODE}
  1201. function AddFontResourceEx(lpszFilename: LPCWSTR; fl: DWORD; pdv: PVOID): Integer; stdcall;
  1202. {$EXTERNALSYM AddFontResourceEx}
  1203. {$ELSE}
  1204. function AddFontResourceEx(lpszFilename: LPCSTR; fl: DWORD; pdv: PVOID): Integer; stdcall;
  1205. {$EXTERNALSYM AddFontResourceEx}
  1206. {$ENDIF}
  1208. function RemoveFontResourceExA(lpFilename: LPCSTR; fl: DWORD; pdv: PVOID): BOOL; stdcall;
  1209. {$EXTERNALSYM RemoveFontResourceExA}
  1210. function RemoveFontResourceExW(lpFilename: LPCWSTR; fl: DWORD; pdv: PVOID): BOOL; stdcall;
  1211. {$EXTERNALSYM RemoveFontResourceExW}
  1213. {$IFDEF UNICODE}
  1214. function RemoveFontResourceEx(lpFilename: LPCWSTR; fl: DWORD; pdv: PVOID): BOOL; stdcall;
  1215. {$EXTERNALSYM RemoveFontResourceEx}
  1216. {$ELSE}
  1217. function RemoveFontResourceEx(lpFilename: LPCSTR; fl: DWORD; pdv: PVOID): BOOL; stdcall;
  1218. {$EXTERNALSYM RemoveFontResourceEx}
  1219. {$ENDIF}
  1221. function AddFontMemResourceEx(pbFont: PVOID; cbFont: DWORD; pdv: PVOID; pcFonts: LPDWORD): HANDLE; stdcall;
  1222. {$EXTERNALSYM AddFontMemResourceEx}
  1223. function RemoveFontMemResourceEx(fh: HANDLE): BOOL; stdcall;
  1224. {$EXTERNALSYM RemoveFontMemResourceEx}
  1226. const
  1227.   FR_PRIVATE    = $10;
  1228.   {$EXTERNALSYM FR_PRIVATE}
  1229.   FR_NOT_ENUM   = $20;
  1230.   {$EXTERNALSYM FR_NOT_ENUM}
  1232. // The actual size of the DESIGNVECTOR and ENUMLOGFONTEXDV structures
  1233. // is determined by dvNumAxes,
  1234. // MM_MAX_NUMAXES only detemines the maximal size allowed
  1236. const
  1237.   MM_MAX_AXES_NAMELEN = 16;
  1238.   {$EXTERNALSYM MM_MAX_AXES_NAMELEN}
  1240. type
  1241.   PAxisInfoA = ^TAxisInfoA;
  1242.   tagAXISINFOA = record
  1243.     axMinValue: LONG;
  1244.     axMaxValue: LONG;
  1245.     axAxisName: array [0..MM_MAX_AXES_NAMELEN - 1] of BYTE;
  1246.   end;
  1247.   {$EXTERNALSYM tagAXISINFOA}
  1248.   AXISINFOA = tagAXISINFOA;
  1249.   {$EXTERNALSYM AXISINFOA}
  1250.   LPAXISINFOA = ^AXISINFOA;
  1251.   {$EXTERNALSYM LPAXISINFOA}
  1252.   TAxisInfoA = AXISINFOA;
  1254.   PAxisInfoW = ^TAxisInfoW;
  1255.   tagAXISINFOW = record
  1256.     axMinValue: LONG;
  1257.     axMaxValue: LONG;
  1258.     axAxisName: array [0..MM_MAX_AXES_NAMELEN - 1] of WCHAR;
  1259.   end;
  1260.   {$EXTERNALSYM tagAXISINFOW}
  1261.   AXISINFOW = tagAXISINFOW;
  1262.   {$EXTERNALSYM AXISINFOW}
  1263.   LPAXISINFOW = ^AXISINFOW;
  1264.   {$EXTERNALSYM LPAXISINFOW}
  1265.   TAxisInfoW = AXISINFOW;
  1267. {$IFDEF UNICODE}
  1268.   AXISINFO = AXISINFOW;
  1269.   {$EXTERNALSYM AXISINFO}
  1270.   PAXISINFO = PAXISINFOW;
  1271.   {$EXTERNALSYM PAXISINFO}
  1272.   LPAXISINFO = LPAXISINFOW;
  1273.   {$EXTERNALSYM LPAXISINFO}
  1274.   TAxisInfo = TAxisInfoW;
  1275. {$ELSE}
  1276.   AXISINFO = AXISINFOA;
  1277.   {$EXTERNALSYM AXISINFO}
  1278.   PAXISINFO = PAXISINFOA;
  1279.   {$EXTERNALSYM PAXISINFO}
  1280.   LPAXISINFO = LPAXISINFOA;
  1281.   {$EXTERNALSYM LPAXISINFO}
  1282.   TAxisInfo = TAxisInfoA;
  1283. {$ENDIF}
  1285.   PAxesListA = ^TAxesListA;
  1286.   tagAXESLISTA = record
  1287.     axlReserved: DWORD;
  1288.     axlNumAxes: DWORD;
  1289.     axlAxisInfo: array [0..MM_MAX_NUMAXES - 1] of AXISINFOA;
  1290.   end;
  1291.   {$EXTERNALSYM tagAXESLISTA}
  1292.   AXESLISTA = tagAXESLISTA;
  1293.   {$EXTERNALSYM AXESLISTA}
  1294.   LPAXESLISTA = ^AXESLISTA;
  1295.   {$EXTERNALSYM LPAXESLISTA}
  1296.   TAxesListA = tagAXESLISTA;
  1298.   PAxesListW = ^TAxesListW;
  1299.   tagAXESLISTW = record
  1300.     axlReserved: DWORD;
  1301.     axlNumAxes: DWORD;
  1302.     axlAxisInfo: array [0..MM_MAX_NUMAXES - 1] of AXISINFOW;
  1303.   end;
  1304.   {$EXTERNALSYM tagAXESLISTW}
  1305.   AXESLISTW = tagAXESLISTW;
  1306.   {$EXTERNALSYM AXESLISTW}
  1307.   LPAXESLISTW = ^AXESLISTW;
  1308.   {$EXTERNALSYM LPAXESLISTW}
  1309.   TAxesListW = tagAXESLISTW;
  1311. {$IFDEF UNICODE}
  1312.   AXESLIST = AXESLISTW;
  1313.   {$EXTERNALSYM AXESLIST}
  1314.   PAXESLIST = PAXESLISTW;
  1315.   {$EXTERNALSYM PAXESLIST}
  1316.   LPAXESLIST = LPAXESLISTW;
  1317.   {$EXTERNALSYM LPAXESLIST}
  1318.   TAxesList = TAxesListW;
  1319. {$ELSE}
  1320.   AXESLIST = AXESLISTA;
  1321.   {$EXTERNALSYM AXESLIST}
  1322.   PAXESLIST = PAXESLISTA;
  1323.   {$EXTERNALSYM PAXESLIST}
  1324.   LPAXESLIST = LPAXESLISTA;
  1325.   {$EXTERNALSYM LPAXESLIST}
  1326.   TAxesList = TAxesListA;
  1327. {$ENDIF}
  1329. // The actual size of the AXESLIST and ENUMTEXTMETRIC structure is
  1330. // determined by axlNumAxes,
  1331. // MM_MAX_NUMAXES only detemines the maximal size allowed
  1333.   PEnumLogFontExDVA = ^TEnumLogFontExDVA;
  1334.   tagENUMLOGFONTEXDVA = record
  1335.     elfEnumLogfontEx: ENUMLOGFONTEXA;
  1336.     elfDesignVector: DESIGNVECTOR;
  1337.   end;
  1338.   {$EXTERNALSYM tagENUMLOGFONTEXDVA}
  1339.   ENUMLOGFONTEXDVA = tagENUMLOGFONTEXDVA;
  1340.   {$EXTERNALSYM ENUMLOGFONTEXDVA}
  1341.   LPENUMLOGFONTEXDVA = ^ENUMLOGFONTEXDVA;
  1342.   {$EXTERNALSYM LPENUMLOGFONTEXDVA}
  1343.   TEnumLogFontExDVA = tagENUMLOGFONTEXDVA;
  1345.   PEnumLogFontExDVW = ^TEnumLogFontExDVW;
  1346.   tagENUMLOGFONTEXDVW = record
  1347.     elfEnumLogfontEx: ENUMLOGFONTEXW;
  1348.     elfDesignVector: DESIGNVECTOR;
  1349.   end;
  1350.   {$EXTERNALSYM tagENUMLOGFONTEXDVw}
  1351.   ENUMLOGFONTEXDVW = tagENUMLOGFONTEXDVW;
  1352.   {$EXTERNALSYM ENUMLOGFONTEXDVW}
  1353.   LPENUMLOGFONTEXDVW = ^ENUMLOGFONTEXDVW;
  1354.   {$EXTERNALSYM LPENUMLOGFONTEXDVW}
  1355.   TEnumLogFontExDVW = tagENUMLOGFONTEXDVW;
  1357. {$IFDEF UNICODE}
  1358.   ENUMLOGFONTEXDV = ENUMLOGFONTEXDVW;
  1359.   {$EXTERNALSYM ENUMLOGFONTEXDV}
  1360.   PENUMLOGFONTEXDV = PENUMLOGFONTEXDVW;
  1361.   {$EXTERNALSYM PENUMLOGFONTEXDV}
  1362.   LPENUMLOGFONTEXDV = LPENUMLOGFONTEXDVW;
  1363.   {$EXTERNALSYM LPENUMLOGFONTEXDV}
  1364.   TEnumLogFontExDV = TEnumLogFontExDVW;
  1365. {$ELSE}
  1366.   ENUMLOGFONTEXDV = ENUMLOGFONTEXDVA;
  1367.   {$EXTERNALSYM ENUMLOGFONTEXDV}
  1368.   PENUMLOGFONTEXDV = PENUMLOGFONTEXDVA;
  1369.   {$EXTERNALSYM PENUMLOGFONTEXDV}
  1370.   LPENUMLOGFONTEXDV = LPENUMLOGFONTEXDVA;
  1371.   {$EXTERNALSYM LPENUMLOGFONTEXDV}
  1372.   TEnumLogFontExDV = TEnumLogFontExDVA;
  1373. {$ENDIF}
  1375. function CreateFontIndirectExA(penumlfex: LPENUMLOGFONTEXDVA): HFONT; stdcall;
  1376. {$EXTERNALSYM CreateFontIndirectExA}
  1377. function CreateFontIndirectExW(penumlfex: LPENUMLOGFONTEXDVW): HFONT; stdcall;
  1378. {$EXTERNALSYM CreateFontIndirectExW}
  1380. {$IFDEF UNICODE}
  1381. function CreateFontIndirectEx(penumlfex: LPENUMLOGFONTEXDVW): HFONT; stdcall;
  1382. {$EXTERNALSYM CreateFontIndirectEx}
  1383. {$ELSE}
  1384. function CreateFontIndirectEx(penumlfex: LPENUMLOGFONTEXDVA): HFONT; stdcall;
  1385. {$EXTERNALSYM CreateFontIndirectEx}
  1386. {$ENDIF}
  1388. type
  1389.   PEnumTextMetricA = ^TEnumTextMetricA;
  1390.   tagENUMTEXTMETRICA = record
  1391.     etmNewTextMetricEx: NEWTEXTMETRICEXA;
  1392.     etmAxesList: AXESLISTA;
  1393.   end;
  1394.   {$EXTERNALSYM tagENUMTEXTMETRICA}
  1395.   ENUMTEXTMETRICA = tagENUMTEXTMETRICA;
  1396.   {$EXTERNALSYM ENUMTEXTMETRICA}
  1397.   LPENUMTEXTMETRICA = ^ENUMTEXTMETRICA;
  1398.   {$EXTERNALSYM LPENUMTEXTMETRICA}
  1399.   TEnumTextMetricA = tagENUMTEXTMETRICA;
  1401.   PEnumTextMetricW = ^TEnumTextMetricW;
  1402.   tagENUMTEXTMETRICW = record
  1403.     etmNewTextMetricEx: NEWTEXTMETRICEXW;
  1404.     etmAxesList: AXESLISTW;
  1405.   end;
  1406.   {$EXTERNALSYM tagENUMTEXTMETRICW}
  1407.   ENUMTEXTMETRICW = tagENUMTEXTMETRICW;
  1408.   {$EXTERNALSYM ENUMTEXTMETRICW}
  1409.   LPENUMTEXTMETRICW = ^ENUMTEXTMETRICW;
  1410.   {$EXTERNALSYM LPENUMTEXTMETRICW}
  1411.   TEnumTextMetricW = tagENUMTEXTMETRICW;
  1413. {$IFDEF UNICODE}
  1414.   ENUMTEXTMETRIC = ENUMTEXTMETRICW;
  1415.   {$EXTERNALSYM ENUMTEXTMETRIC}
  1416.   PENUMTEXTMETRIC = PENUMTEXTMETRICW;
  1417.   {$EXTERNALSYM PENUMTEXTMETRIC}
  1418.   LPENUMTEXTMETRIC = LPENUMTEXTMETRICW;
  1419.   {$EXTERNALSYM LPENUMTEXTMETRIC}
  1420.   TEnumTextMetric = TEnumTextMetricW;
  1421. {$ELSE}
  1422.   ENUMTEXTMETRIC = ENUMTEXTMETRICA;
  1423.   {$EXTERNALSYM ENUMTEXTMETRIC}
  1424.   PENUMTEXTMETRIC = PENUMTEXTMETRICA;
  1425.   {$EXTERNALSYM PENUMTEXTMETRIC}
  1426.   LPENUMTEXTMETRIC = LPENUMTEXTMETRICA;
  1427.   {$EXTERNALSYM LPENUMTEXTMETRIC}
  1428.   TEnumTextMetric = TEnumTextMetricA;
  1429. {$ENDIF}
  1431. function GetViewportExtEx(hdc: HDC; var lpSize: TSize): BOOL; stdcall;
  1432. {$EXTERNALSYM GetViewportExtEx}
  1433. function GetViewportOrgEx(hdc: HDC; var lpPoint: POINT): BOOL; stdcall;
  1434. {$EXTERNALSYM GetViewportOrgEx}
  1435. function GetWindowExtEx(hdc: HDC; var lpSize: TSize): BOOL; stdcall;
  1436. {$EXTERNALSYM GetWindowExtEx}
  1437. function GetWindowOrgEx(hdc: HDC; var lpPoint: POINT): BOOL; stdcall;
  1438. {$EXTERNALSYM GetWindowOrgEx}
  1440. function IntersectClipRect(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): Integer; stdcall;
  1441. {$EXTERNALSYM IntersectClipRect}
  1442. function InvertRgn(hdc: HDC; hrgn: HRGN): BOOL; stdcall;
  1443. {$EXTERNALSYM InvertRgn}
  1444. function LineDDA(nXStart, nYStart, nXEnd, nYEnd: Integer; lpLineFunc: LINEDDAPROC; lpData: LPARAM): BOOL; stdcall;
  1445. {$EXTERNALSYM LineDDA}
  1446. function LineTo(hdc: HDC; nXEnd, nYEnd: Integer): BOOL; stdcall;
  1447. {$EXTERNALSYM LineTo}
  1448. function MaskBlt(hdc: HDC; nXDest, nYDest, nWidth, nHeight: Integer; hdcSrc: HDC; nXSrc, nYSrc: Integer; hbmMask: HBITMAP; xMask, yMask: Integer; dwRop: DWORD): BOOL; stdcall;
  1449. {$EXTERNALSYM MaskBlt}
  1450. function PlgBlt(hdc: HDC; lpPoint: LPPOINT; hdcSrc: HDC; nXSrc, nYSrc, nWidth, nHeight: Integer; hbmMask: HBITMAP; xMask, yMask: Integer): BOOL; stdcall;
  1451. {$EXTERNALSYM PlgBlt}
  1453. function OffsetClipRgn(hdc: HDC; nXOffset, nYOffset: Integer): Integer; stdcall;
  1454. {$EXTERNALSYM OffsetClipRgn}
  1455. function OffsetRgn(hrgn: HRGN; nXOffset, nYOffset: Integer): Integer; stdcall;
  1456. {$EXTERNALSYM OffsetRgn}
  1457. function PatBlt(hdc: HDC; nXLeft, nYLeft, nWidth, nHeight: Integer; dwRop: DWORD): BOOL; stdcall;
  1458. {$EXTERNALSYM PatBlt}
  1459. function Pie(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect, nXRadial1, nYRadial1, nXRadial2, nYRadial2: Integer): BOOL; stdcall;
  1460. {$EXTERNALSYM Pie}
  1461. function PlayMetaFile(hdc: HDC; hmf: HMETAFILE): BOOL; stdcall;
  1462. {$EXTERNALSYM PlayMetaFile}
  1463. function PaintRgn(hdc: HDC; hrgn: HRGN): BOOL; stdcall;
  1464. {$EXTERNALSYM PaintRgn}
  1465. function PolyPolygon(hdc: HDC; lpPoints: LPPOINT; lpPolyCounts: LPINT; nCount: Integer): BOOL; stdcall;
  1466. {$EXTERNALSYM PolyPolygon}
  1467. function PtInRegion(hrgn: HRGN; X, Y: Integer): BOOL; stdcall;
  1468. {$EXTERNALSYM PtInRegion}
  1469. function PtVisible(hdc: HDC; X, Y: Integer): BOOL; stdcall;
  1470. {$EXTERNALSYM PtVisible}
  1471. function RectInRegion(hrgn: HRGN; const lprc: RECT): BOOL; stdcall;
  1472. {$EXTERNALSYM RectInRegion}
  1473. function RectVisible(hdc: HDC; const lprc: RECT): BOOL; stdcall;
  1474. {$EXTERNALSYM RectVisible}
  1475. function Rectangle(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): BOOL; stdcall;
  1476. {$EXTERNALSYM Rectangle}
  1477. function RestoreDC(hdc: HDC; nSavedDc: Integer): BOOL; stdcall;
  1478. {$EXTERNALSYM RestoreDC}
  1479. function ResetDCA(hdc: HDC; const lpInitData: DEVMODEA): HDC; stdcall;
  1480. {$EXTERNALSYM ResetDCA}
  1481. function ResetDCW(hdc: HDC; const lpInitData: DEVMODEW): HDC; stdcall;
  1482. {$EXTERNALSYM ResetDCW}
  1483. {$IFDEF UNICODE}
  1484. function ResetDC(hdc: HDC; const lpInitData: DEVMODEW): HDC; stdcall;
  1485. {$EXTERNALSYM ResetDC}
  1486. {$ELSE}
  1487. function ResetDC(hdc: HDC; const lpInitData: DEVMODEA): HDC; stdcall;
  1488. {$EXTERNALSYM ResetDC}
  1489. {$ENDIF}
  1490. function RealizePalette(hdc: HDC): UINT; stdcall;
  1491. {$EXTERNALSYM RealizePalette}
  1492. function RemoveFontResourceA(lpFileName: LPCSTR): BOOL; stdcall;
  1493. {$EXTERNALSYM RemoveFontResourceA}
  1494. function RemoveFontResourceW(lpFileName: LPCWSTR): BOOL; stdcall;
  1495. {$EXTERNALSYM RemoveFontResourceW}
  1496. {$IFDEF UNICODE}
  1497. function RemoveFontResource(lpFileName: LPCWSTR): BOOL; stdcall;
  1498. {$EXTERNALSYM RemoveFontResource}
  1499. {$ELSE}
  1500. function RemoveFontResource(lpFileName: LPCSTR): BOOL; stdcall;
  1501. {$EXTERNALSYM RemoveFontResource}
  1502. {$ENDIF}
  1503. function RoundRect(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect, nWidth, nHeight: Integer): BOOL; stdcall;
  1504. {$EXTERNALSYM RoundRect}
  1505. function ResizePalette(hPal: HPALETTE; nEntries: UINT): BOOL; stdcall;
  1506. {$EXTERNALSYM ResizePalette}
  1507. function SaveDC(hdc: HDC): Integer; stdcall;
  1508. {$EXTERNALSYM SaveDC}
  1509. function SelectClipRgn(hdc: HDC; hrgn: HRGN): Integer; stdcall;
  1510. {$EXTERNALSYM SelectClipRgn}
  1511. function ExtSelectClipRgn(hdc: HDC; hrgn: HRGN; fnMode: Integer): Integer; stdcall;
  1512. {$EXTERNALSYM ExtSelectClipRgn}
  1513. function SetMetaRgn(hdc: HDC): Integer; stdcall;
  1514. {$EXTERNALSYM SetMetaRgn}
  1515. function SelectObject(hdc: HDC; hgdiobj: HGDIOBJ): HGDIOBJ; stdcall;
  1516. {$EXTERNALSYM SelectObject}
  1517. function SelectPalette(hdc: HDC; hpal: HPALETTE; nForceBackground: BOOL): HPALETTE; stdcall;
  1518. {$EXTERNALSYM SelectPalette}
  1519. function SetBkColor(hdc: HDC; crColor: COLORREF): COLORREF; stdcall;
  1520. {$EXTERNALSYM SetBkColor}
  1522. function SetDCBrushColor(hdc: HDC; crColor: COLORREF): COLORREF; stdcall;
  1523. {$EXTERNALSYM SetDCBrushColor}
  1524. function SetDCPenColor(hdc: HDC; crColor: COLORREF): COLORREF; stdcall;
  1525. {$EXTERNALSYM SetDCPenColor}
  1527. function SetBkMode(hdc: HDC; iBlMode: Integer): Integer; stdcall;
  1528. {$EXTERNALSYM SetBkMode}
  1529. function SetBitmapBits(hbmp: HBITMAP; cBytes: DWORD; lpBits: LPVOID): LONG; stdcall;
  1530. {$EXTERNALSYM SetBitmapBits}
  1532. function SetBoundsRect(hdc: HDC; lprcBounds: LPRECT; flags: UINT): UINT; stdcall;
  1533. {$EXTERNALSYM SetBoundsRect}
  1534. function SetDIBits(hdc: HDC; hbmp: HBITMAP; uStartScan, cScanLines: UINT; lpvBits: LPVOID; const lpbmi: BITMAPINFO; fuColorUse: UINT): Integer; stdcall;
  1535. {$EXTERNALSYM SetDIBits}
  1536. function SetDIBitsToDevice(hdc: HDC; xDest, yDest: Integer; dwWidth, dwHeight: DWORD; XSrc, YSrc: Integer; uStartScan, cScanLines: UINT; lpvBits: LPVOID; const lpbmi: BITMAPINFO; fuColorUse: UINT): Integer; stdcall;
  1537. {$EXTERNALSYM SetDIBitsToDevice}
  1538. function SetMapperFlags(hdc: HDC; dwFlag: DWORD): DWORD; stdcall;
  1539. {$EXTERNALSYM SetMapperFlags}
  1540. function SetGraphicsMode(hdc: HDC; iMode: Integer): Integer; stdcall;
  1541. {$EXTERNALSYM SetGraphicsMode}
  1542. function SetMapMode(hdc: HDC; fnMapMode: Integer): Integer; stdcall;
  1543. {$EXTERNALSYM SetMapMode}
  1545. function SetLayout(hdc: HDC; dwLayOut: DWORD): DWORD; stdcall;
  1546. {$EXTERNALSYM SetLayout}
  1547. function GetLayout(hdc: HDC): DWORD; stdcall;
  1548. {$EXTERNALSYM GetLayout}
  1550. function SetMetaFileBitsEx(nSize: UINT; lpData: LPBYTE): HMETAFILE; stdcall;
  1551. {$EXTERNALSYM SetMetaFileBitsEx}
  1552. function SetPaletteEntries(hPal: HPALETTE; cStart, nEntries: UINT; lppe: LPPALETTEENTRY): UINT; stdcall;
  1553. {$EXTERNALSYM SetPaletteEntries}
  1554. function SetPixel(hdc: HDC; X, Y: Integer; crColor: COLORREF): COLORREF; stdcall;
  1555. {$EXTERNALSYM SetPixel}
  1556. function SetPixelV(hdc: HDC; X, Y: Integer; crColor: COLORREF): BOOL; stdcall;
  1557. {$EXTERNALSYM SetPixelV}
  1558. function SetPixelFormat(hdc: HDC; iPixelFormat: Integer; const ppfd: PIXELFORMATDESCRIPTOR): BOOL; stdcall;
  1559. {$EXTERNALSYM SetPixelFormat}
  1560. function SetPolyFillMode(hdc: HDC; iPolyFillMode: Integer): Integer; stdcall;
  1561. {$EXTERNALSYM SetPolyFillMode}
  1562. function StretchBlt(hdc: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; dwRop: DWORD): BOOL; stdcall;
  1563. {$EXTERNALSYM StretchBlt}
  1564. function SetRectRgn(hrgn: HRGN; nLeftRect, nTopRect, nRightRect, nBottomRect: Integer): BOOL; stdcall;
  1565. {$EXTERNALSYM SetRectRgn}
  1566. function StretchDIBits(hdc: HDC; XDest, YDest, nDestWidth, nYDestHeight, XSrc, YSrc, nSrcWidth, nSrcHeight: Integer; lpBits: LPVOID; const lpBitsInfo: BITMAPINFO; iUsage: UINT; dwRop: DWORD): Integer; stdcall;
  1567. {$EXTERNALSYM StretchDIBits}
  1568. function SetROP2(hdc: HDC; fnDrawMode: Integer): Integer; stdcall;
  1569. {$EXTERNALSYM SetROP2}
  1570. function SetStretchBltMode(hdc: HDC; iStretchMode: Integer): Integer; stdcall;
  1571. {$EXTERNALSYM SetStretchBltMode}
  1572. function SetSystemPaletteUse(hdc: HDC; uUsage: UINT): UINT; stdcall;
  1573. {$EXTERNALSYM SetSystemPaletteUse}
  1574. function SetTextCharacterExtra(hdc: HDC; nCharExtra: Integer): Integer; stdcall;
  1575. {$EXTERNALSYM SetTextCharacterExtra}
  1576. function SetTextColor(hdc: HDC; crColor: COLORREF): COLORREF; stdcall;
  1577. {$EXTERNALSYM SetTextColor}
  1578. function SetTextAlign(hdc: HDC; fMode: UINT): UINT; stdcall;
  1579. {$EXTERNALSYM SetTextAlign}
  1580. function SetTextJustification(hdc: HDC; nBreakExtra, nBreakCount: Integer): BOOL; stdcall;
  1581. {$EXTERNALSYM SetTextJustification}
  1582. function UpdateColors(hdc: HDC): BOOL; stdcall;
  1583. {$EXTERNALSYM UpdateColors}
  1585. //
  1586. // image blt
  1587. //
  1589. type
  1590.   COLOR16 = USHORT;
  1591.   {$EXTERNALSYM COLOR16}
  1593.   PTriVertex = ^TTriVertex;
  1594.   _TRIVERTEX = record
  1595.     x: LONG;
  1596.     y: LONG;
  1597.     Red: COLOR16;
  1598.     Green: COLOR16;
  1599.     Blue: COLOR16;
  1600.     Alpha: COLOR16;
  1601.   end;
  1602.   {$EXTERNALSYM _TRIVERTEX}
  1603.   TRIVERTEX = _TRIVERTEX;
  1604.   {$EXTERNALSYM TRIVERTEX}
  1605.   LPTRIVERTEX = ^TRIVERTEX;
  1606.   {$EXTERNALSYM LPTRIVERTEX}
  1607.   TTriVertex = _TRIVERTEX;
  1609.   PGradientTriangle = ^TGradientTriangle;
  1610.   _GRADIENT_TRIANGLE = record
  1611.     Vertex1: ULONG;
  1612.     Vertex2: ULONG;
  1613.     Vertex3: ULONG;
  1614.   end;
  1615.   {$EXTERNALSYM _GRADIENT_TRIANGLE}
  1616.   GRADIENT_TRIANGLE = _GRADIENT_TRIANGLE;
  1617.   {$EXTERNALSYM GRADIENT_TRIANGLE}
  1618.   LPGRADIENT_TRIANGLE = ^GRADIENT_TRIANGLE;
  1619.   {$EXTERNALSYM LPGRADIENT_TRIANGLE}
  1620.   PGRADIENT_TRIANGLE = ^GRADIENT_TRIANGLE;
  1621.   {$EXTERNALSYM PGRADIENT_TRIANGLE}
  1622.   TGradientTriangle = _GRADIENT_TRIANGLE;
  1624.   PGradientRect = ^TGradientRect;
  1625.   _GRADIENT_RECT = record
  1626.     UpperLeft: ULONG;
  1627.     LowerRight: ULONG;
  1628.   end;
  1629.   {$EXTERNALSYM _GRADIENT_RECT}
  1630.   GRADIENT_RECT = _GRADIENT_RECT;
  1631.   {$EXTERNALSYM GRADIENT_RECT}
  1632.   LPGRADIENT_RECT = ^GRADIENT_RECT;
  1633.   {$EXTERNALSYM LPGRADIENT_RECT}
  1634.   PGRADIENT_RECT = ^GRADIENT_RECT;
  1635.   {$EXTERNALSYM PGRADIENT_RECT}
  1636.   TGradientRect = _GRADIENT_RECT;
  1638.   PBlendFunction = ^TBlendFunction;
  1639.   _BLENDFUNCTION = record
  1640.     BlendOp: BYTE;
  1641.     BlendFlags: BYTE;
  1642.     SourceConstantAlpha: BYTE;
  1643.     AlphaFormat: BYTE;
  1644.   end;
  1645.   {$EXTERNALSYM _BLENDFUNCTION}
  1646.   BLENDFUNCTION = _BLENDFUNCTION;
  1647.   {$EXTERNALSYM BLENDFUNCTION}
  1648.   LPBLENDFUNCTION = ^BLENDFUNCTION;
  1649.   {$EXTERNALSYM LPBLENDFUNCTION}
  1650.   TBlendFunction = _BLENDFUNCTION;
  1652. //
  1653. // currentlly defined blend function
  1654. //
  1656. const
  1657.   AC_SRC_OVER = $00;
  1658.   {$EXTERNALSYM AC_SRC_OVER}
  1660. //
  1661. // alpha format flags
  1662. //
  1664.   AC_SRC_ALPHA = $01;
  1665.   {$EXTERNALSYM AC_SRC_ALPHA}
  1667. function AlphaBlend(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest,
  1668.   nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc,
  1669.   nHeightSrc: Integer; blendFunction: BLENDFUNCTION): BOOL; stdcall;
  1670. {$EXTERNALSYM AlphaBlend}
  1672. function TransparentBlt(hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc,
  1673.   nHeightSrc: Integer; hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest,
  1674.   nHeightDest: Integer; blendFunction: BLENDFUNCTION): BOOL; stdcall;
  1675. {$EXTERNALSYM TransparentBlt}
  1677. //
  1678. // gradient drawing modes
  1679. //
  1681. const
  1682.   GRADIENT_FILL_RECT_H   = $00000000;
  1683.   {$EXTERNALSYM GRADIENT_FILL_RECT_H}
  1684.   GRADIENT_FILL_RECT_V   = $00000001;
  1685.   {$EXTERNALSYM GRADIENT_FILL_RECT_V}
  1686.   GRADIENT_FILL_TRIANGLE = $00000002;
  1687.   {$EXTERNALSYM GRADIENT_FILL_TRIANGLE}
  1688.   GRADIENT_FILL_OP_FLAG  = $000000ff;
  1689.   {$EXTERNALSYM GRADIENT_FILL_OP_FLAG}
  1691. function GradientFill(hdc: HDC; pVertex: PTRIVERTEX; dwNumVertex: ULONG; pMesh: PVOID; dwNumMesh, dwMode: ULONG): BOOL; stdcall;
  1692. {$EXTERNALSYM GradientFill}
  1693. function PlayMetaFileRecord(hdc: HDC; lpHandleTable: LPHANDLETABLE; lpMetaRecord: LPMETARECORD; nHandles: UINT): BOOL; stdcall;
  1694. {$EXTERNALSYM PlayMetaFileRecord}
  1696. type
  1697.   MFENUMPROC = function (hdc: HDC; lpHTable: LPHANDLETABLE; lpMFR: LPMETARECORD; nObj: Integer; lpClientData: LPARAM): Integer; stdcall;
  1698.   {$EXTERNALSYM MFENUMPROC}
  1700. function EnumMetaFile(hdc: HDC; hemf: HMETAFILE; lpMetaFunc: MFENUMPROC; lParam: LPARAM): BOOL; stdcall;
  1701. {$EXTERNALSYM EnumMetaFile}
  1703. type
  1704.   ENHMFENUMPROC = function (hdc: HDC; lpHTable: LPHANDLETABLE; lpEMFR: LPENHMETARECORD; nObj: Integer; lpData: LPARAM): Integer; stdcall;
  1705.   {$EXTERNALSYM ENHMFENUMPROC}
  1707. // Enhanced Metafile Function Declarations
  1709. function CloseEnhMetaFile(hdc: HDC): HENHMETAFILE; stdcall;
  1710. {$EXTERNALSYM CloseEnhMetaFile}
  1711. function CopyEnhMetaFileA(hemfSrc: HENHMETAFILE; lpszFile: LPCSTR): HENHMETAFILE; stdcall;
  1712. {$EXTERNALSYM CopyEnhMetaFileA}
  1713. function CopyEnhMetaFileW(hemfSrc: HENHMETAFILE; lpszFile: LPCWSTR): HENHMETAFILE; stdcall;
  1714. {$EXTERNALSYM CopyEnhMetaFileW}
  1715. {$IFDEF UNICODE}
  1716. function CopyEnhMetaFile(hemfSrc: HENHMETAFILE; lpszFile: LPCWSTR): HENHMETAFILE; stdcall;
  1717. {$EXTERNALSYM CopyEnhMetaFile}
  1718. {$ELSE}
  1719. function CopyEnhMetaFile(hemfSrc: HENHMETAFILE; lpszFile: LPCSTR): HENHMETAFILE; stdcall;
  1720. {$EXTERNALSYM CopyEnhMetaFile}
  1721. {$ENDIF}
  1722. function CreateEnhMetaFileA(hdcRef: HDC; lpFileName: LPCSTR; const lpRect: RECT; lpDescription: LPCSTR): HDC; stdcall;
  1723. {$EXTERNALSYM CreateEnhMetaFileA}
  1724. function CreateEnhMetaFileW(hdcRef: HDC; lpFileName: LPCWSTR; const lpRect: RECT; lpDescription: LPCWSTR): HDC; stdcall;
  1725. {$EXTERNALSYM CreateEnhMetaFileW}
  1726. {$IFDEF UNICODE}
  1727. function CreateEnhMetaFile(hdcRef: HDC; lpFileName: LPCWSTR; const lpRect: RECT; lpDescription: LPCWSTR): HDC; stdcall;
  1728. {$EXTERNALSYM CreateEnhMetaFile}
  1729. {$ELSE}
  1730. function CreateEnhMetaFile(hdcRef: HDC; lpFileName: LPCSTR; const lpRect: RECT; lpDescription: LPCSTR): HDC; stdcall;
  1731. {$EXTERNALSYM CreateEnhMetaFile}
  1732. {$ENDIF}
  1734. function DeleteEnhMetaFile(hemf: HENHMETAFILE): BOOL; stdcall;
  1735. {$EXTERNALSYM DeleteEnhMetaFile}
  1736. function EnumEnhMetaFile(hdc: HDC; hemf: HENHMETAFILE; lpEnhMetaFunc: ENHMFENUMPROC; lpData: LPVOID; const lpRect: RECT): BOOL; stdcall;
  1737. {$EXTERNALSYM EnumEnhMetaFile}
  1738. function GetEnhMetaFileA(lpszMetaFile: LPCSTR): HENHMETAFILE; stdcall;
  1739. {$EXTERNALSYM GetEnhMetaFileA}
  1740. function GetEnhMetaFileW(lpszMetaFile: LPCWSTR): HENHMETAFILE; stdcall;
  1741. {$EXTERNALSYM GetEnhMetaFileW}
  1742. {$IFDEF UNICODE}
  1743. function GetEnhMetaFile(lpszMetaFile: LPCWSTR): HENHMETAFILE; stdcall;
  1744. {$EXTERNALSYM GetEnhMetaFile}
  1745. {$ELSE}
  1746. function GetEnhMetaFile(lpszMetaFile: LPCSTR): HENHMETAFILE; stdcall;
  1747. {$EXTERNALSYM GetEnhMetaFile}
  1748. {$ENDIF}
  1749. function GetEnhMetaFileBits(hemf: HENHMETAFILE; cbBuffer: UINT; lpBuffer: LPBYTE): UINT; stdcall;
  1750. {$EXTERNALSYM GetEnhMetaFileBits}
  1751. function GetEnhMetaFileDescriptionA(hemf: HENHMETAFILE; cchBuffer: UINT; lpszDescription: LPSTR): UINT; stdcall;
  1752. {$EXTERNALSYM GetEnhMetaFileDescriptionA}
  1753. function GetEnhMetaFileDescriptionW(hemf: HENHMETAFILE; cchBuffer: UINT; lpszDescription: LPWSTR): UINT; stdcall;
  1754. {$EXTERNALSYM GetEnhMetaFileDescriptionW}
  1755. {$IFDEF UNICODE}
  1756. function GetEnhMetaFileDescription(hemf: HENHMETAFILE; cchBuffer: UINT; lpszDescription: LPWSTR): UINT; stdcall;
  1757. {$EXTERNALSYM GetEnhMetaFileDescription}
  1758. {$ELSE}
  1759. function GetEnhMetaFileDescription(hemf: HENHMETAFILE; cchBuffer: UINT; lpszDescription: LPSTR): UINT; stdcall;
  1760. {$EXTERNALSYM GetEnhMetaFileDescription}
  1761. {$ENDIF}
  1762. function GetEnhMetaFileHeader(hemf: HENHMETAFILE; cbBuffer: UINT; lpemh: LPENHMETAHEADER ): UINT; stdcall;
  1763. {$EXTERNALSYM GetEnhMetaFileHeader}
  1764. function GetEnhMetaFilePaletteEntries(hemf: HENHMETAFILE; cEntries: UINT; lppe: LPPALETTEENTRY ): UINT; stdcall;
  1765. {$EXTERNALSYM GetEnhMetaFilePaletteEntries}
  1766. function GetEnhMetaFilePixelFormat(hemf: HENHMETAFILE; cbBuffer: UINT; var ppfd: PIXELFORMATDESCRIPTOR): UINT; stdcall;
  1767. {$EXTERNALSYM GetEnhMetaFilePixelFormat}
  1768. function GetWinMetaFileBits(hemf: HENHMETAFILE; cbBuffer: UINT; lpbBuffer: LPBYTE; fnMapMode: Integer; hdcRef: HDC): UINT; stdcall;
  1769. {$EXTERNALSYM GetWinMetaFileBits}
  1770. function PlayEnhMetaFile(hdc: HDC; hemf: HENHMETAFILE; const lpRect: RECT): BOOL; stdcall;
  1771. {$EXTERNALSYM PlayEnhMetaFile}
  1772. function PlayEnhMetaFileRecord(hdc: HDC; lpHandleTable: LPHANDLETABLE; lpEnhMetaRecord: LPENHMETARECORD; nHandles: UINT): BOOL; stdcall;
  1773. {$EXTERNALSYM PlayEnhMetaFileRecord}
  1774. function SetEnhMetaFileBits(cbBuffer: UINT; lpData: LPBYTE): HENHMETAFILE; stdcall;
  1775. {$EXTERNALSYM SetEnhMetaFileBits}
  1776. function SetWinMetaFileBits(cbBuffer: UINT; lpbBuffer: LPBYTE; hdcRef: HDC; const lpmfp: METAFILEPICT): HENHMETAFILE; stdcall;
  1777. {$EXTERNALSYM SetWinMetaFileBits}
  1778. function GdiComment(hdc: HDC; cbSize: UINT; lpData: LPBYTE): BOOL; stdcall;
  1779. {$EXTERNALSYM GdiComment}
  1781. function GetTextMetricsA(hdc: HDC; var lptm: TEXTMETRICA): BOOL; stdcall;
  1782. {$EXTERNALSYM GetTextMetricsA}
  1783. function GetTextMetricsW(hdc: HDC; var lptm: TEXTMETRICW): BOOL; stdcall;
  1784. {$EXTERNALSYM GetTextMetricsW}
  1785. {$IFDEF UNICODE}
  1786. function GetTextMetrics(hdc: HDC; var lptm: TEXTMETRICW): BOOL; stdcall;
  1787. {$EXTERNALSYM GetTextMetrics}
  1788. {$ELSE}
  1789. function GetTextMetrics(hdc: HDC; var lptm: TEXTMETRICA): BOOL; stdcall;
  1790. {$EXTERNALSYM GetTextMetrics}
  1791. {$ENDIF}
  1793. // new GDI
  1795. type
  1796.   PDibSection = ^TDibSection;
  1797.   tagDIBSECTION = record
  1798.     dsBm: BITMAP;
  1799.     dsBmih: BITMAPINFOHEADER;
  1800.     dsBitfields: array [0..2] of DWORD;
  1801.     dshSection: HANDLE;
  1802.     dsOffset: DWORD;
  1803.   end;
  1804.   {$EXTERNALSYM tagDIBSECTION}
  1805.   DIBSECTION = tagDIBSECTION;
  1806.   {$EXTERNALSYM DIBSECTION}
  1807.   LPDIBSECTION = ^DIBSECTION;
  1808.   {$EXTERNALSYM LPDIBSECTION}
  1809.   TDibSection = DIBSECTION;
  1811. function AngleArc(hdc: HDC; X, Y: Integer; dwRadius: DWORD; eStartAngle, eSweepAngle: FLOAT): BOOL; stdcall;
  1812. {$EXTERNALSYM AngleArc}
  1813. function PolyPolyline(hdc: HDC; lppt: LPPOINT; lpdwPolyPoints: LPDWORD; cCount: DWORD): BOOL; stdcall;
  1814. {$EXTERNALSYM PolyPolyline}
  1815. function GetWorldTransform(hdc: HDC; lpXform: LPXFORM): BOOL; stdcall;
  1816. {$EXTERNALSYM GetWorldTransform}
  1817. function SetWorldTransform(hdc: HDC; lpXform: LPXFORM): BOOL; stdcall;
  1818. {$EXTERNALSYM SetWorldTransform}
  1819. function ModifyWorldTransform(hdc: HDC; lpXform: LPXFORM; iMode: DWORD): BOOL; stdcall;
  1820. {$EXTERNALSYM ModifyWorldTransform}
  1821. function CombineTransform(lpxformResult, lpXform1, lpXform2: LPXFORM): BOOL; stdcall;
  1822. {$EXTERNALSYM CombineTransform}
  1823. function CreateDIBSection(hdc: HDC; pbmi: LPBITMAPINFO; iUsage: UINT;
  1824.   ppvBits: PPVOID; hSection: HANDLE; dwOffset: DWORD): HBITMAP; stdcall;
  1825. {$EXTERNALSYM CreateDIBSection}
  1826. function GetDIBColorTable(hdc: HDC; uStartIndex, cEntries: UINT; pColors: PRGBQUAD): UINT; stdcall;
  1827. {$EXTERNALSYM GetDIBColorTable}
  1828. function SetDIBColorTable(hdc: HDC; uStartIndex, cEntries: UINT; pColors: PRGBQUAD): UINT; stdcall;
  1829. {$EXTERNALSYM SetDIBColorTable}
  1831. // Flags value for COLORADJUSTMENT
  1833. const
  1834.   CA_NEGATIVE   = $0001;
  1835.   {$EXTERNALSYM CA_NEGATIVE}
  1836.   CA_LOG_FILTER = $0002;
  1837.   {$EXTERNALSYM CA_LOG_FILTER}
  1839. // IlluminantIndex values
  1841.   ILLUMINANT_DEVICE_DEFAULT = 0;
  1842.   {$EXTERNALSYM ILLUMINANT_DEVICE_DEFAULT}
  1843.   ILLUMINANT_A              = 1;
  1844.   {$EXTERNALSYM ILLUMINANT_A}
  1845.   ILLUMINANT_B              = 2;
  1846.   {$EXTERNALSYM ILLUMINANT_B}
  1847.   ILLUMINANT_C              = 3;
  1848.   {$EXTERNALSYM ILLUMINANT_C}
  1849.   ILLUMINANT_D50            = 4;
  1850.   {$EXTERNALSYM ILLUMINANT_D50}
  1851.   ILLUMINANT_D55            = 5;
  1852.   {$EXTERNALSYM ILLUMINANT_D55}
  1853.   ILLUMINANT_D65            = 6;
  1854.   {$EXTERNALSYM ILLUMINANT_D65}
  1855.   ILLUMINANT_D75            = 7;
  1856.   {$EXTERNALSYM ILLUMINANT_D75}
  1857.   ILLUMINANT_F2             = 8;
  1858.   {$EXTERNALSYM ILLUMINANT_F2}
  1859.   ILLUMINANT_MAX_INDEX      = ILLUMINANT_F2;
  1860.   {$EXTERNALSYM ILLUMINANT_MAX_INDEX}
  1862.   ILLUMINANT_TUNGSTEN    = ILLUMINANT_A;
  1863.   {$EXTERNALSYM ILLUMINANT_TUNGSTEN}
  1864.   ILLUMINANT_DAYLIGHT    = ILLUMINANT_C;
  1865.   {$EXTERNALSYM ILLUMINANT_DAYLIGHT}
  1866.   ILLUMINANT_FLUORESCENT = ILLUMINANT_F2;
  1867.   {$EXTERNALSYM ILLUMINANT_FLUORESCENT}
  1868.   ILLUMINANT_NTSC        = ILLUMINANT_C;
  1869.   {$EXTERNALSYM ILLUMINANT_NTSC}
  1871. // Min and max for RedGamma, GreenGamma, BlueGamma
  1873.   RGB_GAMMA_MIN = WORD(02500);
  1874.   {$EXTERNALSYM RGB_GAMMA_MIN}
  1875.   RGB_GAMMA_MAX = WORD(65000);
  1876.   {$EXTERNALSYM RGB_GAMMA_MAX}
  1878. // Min and max for ReferenceBlack and ReferenceWhite
  1880.   REFERENCE_WHITE_MIN = WORD(6000);
  1881.   {$EXTERNALSYM REFERENCE_WHITE_MIN}
  1882.   REFERENCE_WHITE_MAX = WORD(10000);
  1883.   {$EXTERNALSYM REFERENCE_WHITE_MAX}
  1884.   REFERENCE_BLACK_MIN = WORD(0);
  1885.   {$EXTERNALSYM REFERENCE_BLACK_MIN}
  1886.   REFERENCE_BLACK_MAX = WORD(4000);
  1887.   {$EXTERNALSYM REFERENCE_BLACK_MAX}
  1889. // Min and max for Contrast, Brightness, Colorfulness, RedGreenTint
  1891.   COLOR_ADJ_MIN = SHORT(-100);
  1892.   {$EXTERNALSYM COLOR_ADJ_MIN}
  1893.   COLOR_ADJ_MAX = SHORT(100);
  1894.   {$EXTERNALSYM COLOR_ADJ_MAX}
  1896. type
  1897.   PColorAdjustment = ^TColorAdjustment;
  1898.   tagCOLORADJUSTMENT = record
  1899.     caSize: WORD;
  1900.     caFlags: WORD;
  1901.     caIlluminantIndex: WORD;
  1902.     caRedGamma: WORD;
  1903.     caGreenGamma: WORD;
  1904.     caBlueGamma: WORD;
  1905.     caReferenceBlack: WORD;
  1906.     caReferenceWhite: WORD;
  1907.     caContrast: SHORT;
  1908.     caBrightness: SHORT;
  1909.     caColorfulness: SHORT;
  1910.     caRedGreenTint: SHORT;
  1911.   end;
  1912.   {$EXTERNALSYM tagCOLORADJUSTMENT}
  1913.   COLORADJUSTMENT = tagCOLORADJUSTMENT;
  1914.   {$EXTERNALSYM COLORADJUSTMENT}
  1915.   LPCOLORADJUSTMENT = ^COLORADJUSTMENT;
  1916.   {$EXTERNALSYM LPCOLORADJUSTMENT}
  1917.   TColorAdjustment = COLORADJUSTMENT;
  1919. function SetColorAdjustment(hdc: HDC; lpca: LPCOLORADJUSTMENT): BOOL; stdcall;
  1920. {$EXTERNALSYM SetColorAdjustment}
  1921. function GetColorAdjustment(hdc: HDC; lpca: LPCOLORADJUSTMENT): BOOL; stdcall;
  1922. {$EXTERNALSYM GetColorAdjustment}
  1923. function CreateHalftonePalette(hdc: HDC): HPALETTE; stdcall;
  1924. {$EXTERNALSYM CreateHalftonePalette}
  1926. type
  1927.   ABORTPROC = function (hdc: HDC; iError: Integer): BOOL; stdcall;
  1928.   {$EXTERNALSYM ABORTPROC}
  1930.   PDocInfoA = ^TDocInfoA;
  1931.   _DOCINFOA = record
  1932.     cbSize: Integer;
  1933.     lpszDocName: LPCSTR;
  1934.     lpszOutput: LPCSTR;
  1935.     {$IFDEF WINVER_0400_GREATER}
  1936.     lpszDatatype: LPCSTR;
  1937.     fwType: DWORD;
  1938.     {$ENDIF}
  1939.   end;
  1940.   {$EXTERNALSYM _DOCINFOA}
  1941.   DOCINFOA = _DOCINFOA;
  1942.   {$EXTERNALSYM DOCINFOA}
  1943.   LPDOCINFOA = ^DOCINFOA;
  1944.   {$EXTERNALSYM LPDOCINFOA}
  1945.   TDocInfoA = _DOCINFOA;
  1947.   PDocInfoW = ^TDocInfoW;
  1948.   _DOCINFOW = record
  1949.     cbSize: Integer;
  1950.     lpszDocName: LPCWSTR;
  1951.     lpszOutput: LPCWSTR;
  1952.     {$IFDEF WINVER_0400_GREATER}
  1953.     lpszDatatype: LPCWSTR;
  1954.     fwType: DWORD;
  1955.     {$ENDIF}
  1956.   end;
  1957.   {$EXTERNALSYM _DOCINFOW}
  1958.   DOCINFOW = _DOCINFOW;
  1959.   {$EXTERNALSYM DOCINFOW}
  1960.   LPDOCINFOW = ^DOCINFOW;
  1961.   {$EXTERNALSYM LPDOCINFOW}
  1962.   TDocInfoW = _DOCINFOW;
  1964. {$IFDEF UNICODE}
  1965.   DOCINFO = DOCINFOW;
  1966.   {$EXTERNALSYM DOCINFO}
  1967.   LPDOCINFO = LPDOCINFOW;
  1968.   {$EXTERNALSYM LPDOCINFO}
  1969.   TDocInfo = TDocInfoW;
  1970.   PDocInfo = PDocInfoW;
  1971. {$ELSE}
  1972.   DOCINFO = DOCINFOA;
  1973.   {$EXTERNALSYM DOCINFO}
  1974.   LPDOCINFO = LPDOCINFOA;
  1975.   {$EXTERNALSYM LPDOCINFO}
  1976.   TDocInfo = TDocInfoA;
  1977.   PDocInfo = PDocInfoA;
  1978. {$ENDIF}
  1980. const
  1981.   DI_APPBANDING            = $00000001;
  1982.   {$EXTERNALSYM DI_APPBANDING}
  1983.   DI_ROPS_READ_DESTINATION = $00000002;
  1984.   {$EXTERNALSYM DI_ROPS_READ_DESTINATION}
  1986. function StartDocA(hdc: HDC; const lpdi: DOCINFOA): Integer; stdcall;
  1987. {$EXTERNALSYM StartDocA}
  1988. function StartDocW(hdc: HDC; const lpdi: DOCINFOW): Integer; stdcall;
  1989. {$EXTERNALSYM StartDocW}
  1990. {$IFDEF UNICODE}
  1991. function StartDoc(hdc: HDC; const lpdi: DOCINFOW): Integer; stdcall;
  1992. {$EXTERNALSYM StartDoc}
  1993. {$ELSE}
  1994. function StartDoc(hdc: HDC; const lpdi: DOCINFOA): Integer; stdcall;
  1995. {$EXTERNALSYM StartDoc}
  1996. {$ENDIF}
  1997. function EndDoc(dc: HDC): Integer; stdcall;
  1998. {$EXTERNALSYM EndDoc}
  1999. function StartPage(dc: HDC): Integer; stdcall;
  2000. {$EXTERNALSYM StartPage}
  2001. function EndPage(dc: HDC): Integer; stdcall;
  2002. {$EXTERNALSYM EndPage}
  2003. function AbortDoc(dc: HDC): Integer; stdcall;
  2004. {$EXTERNALSYM AbortDoc}
  2005. function SetAbortProc(dc: HDC; lpAbortProc: ABORTPROC): Integer; stdcall;
  2006. {$EXTERNALSYM SetAbortProc}
  2008. function AbortPath(hdc: HDC): BOOL; stdcall;
  2009. {$EXTERNALSYM AbortPath}
  2010. function ArcTo(hdc: HDC; nLeftRect, nTopRect, nRightRect, nBottomRect, nXRadial1, nYRadial1, nXRadial2, nYRadial2: Integer): BOOL; stdcall;
  2011. {$EXTERNALSYM ArcTo}
  2012. function BeginPath(hdc: HDC): BOOL; stdcall;
  2013. {$EXTERNALSYM BeginPath}
  2014. function CloseFigure(hdc: HDC): BOOL; stdcall;
  2015. {$EXTERNALSYM CloseFigure}
  2016. function EndPath(hdc: HDC): BOOL; stdcall;
  2017. {$EXTERNALSYM EndPath}
  2018. function FillPath(hdc: HDC): BOOL; stdcall;
  2019. {$EXTERNALSYM FillPath}
  2020. function FlattenPath(hdc: HDC): BOOL; stdcall;
  2021. {$EXTERNALSYM FlattenPath}
  2022. function GetPath(hdc: HDC; lpPoints: LPPOINT; lpTypes: LPBYTE; nSize: Integer): Integer; stdcall;
  2023. {$EXTERNALSYM GetPath}
  2024. function PathToRegion(hdc: HDC): HRGN; stdcall;
  2025. {$EXTERNALSYM PathToRegion}
  2026. function PolyDraw(hdc: HDC; lppt: LPPOINT; lpbTypes: LPBYTE; cCount: Integer): BOOL; stdcall;
  2027. {$EXTERNALSYM PolyDraw}
  2028. function SelectClipPath(hdc: HDC; iMode: Integer): BOOL; stdcall;
  2029. {$EXTERNALSYM SelectClipPath}
  2030. function SetArcDirection(hdc: HDC; ArcDirection: Integer): Integer; stdcall;
  2031. {$EXTERNALSYM SetArcDirection}
  2032. function SetMiterLimit(hdc: HDC; eNewLimit: FLOAT; peOldLimit: PFLOAT): BOOL; stdcall;
  2033. {$EXTERNALSYM SetMiterLimit}
  2034. function StrokeAndFillPath(hdc: HDC): BOOL; stdcall;
  2035. {$EXTERNALSYM StrokeAndFillPath}
  2036. function StrokePath(hdc: HDC): BOOL; stdcall;
  2037. {$EXTERNALSYM StrokePath}
  2038. function WidenPath(hdc: HDC): BOOL; stdcall;
  2039. {$EXTERNALSYM WidenPath}
  2040. function ExtCreatePen(dwPenStyle, dwWidth: DWORD; const lplb: LOGBRUSH; dwStyleCount: DWORD; lpStyle: DWORD): HPEN; stdcall;
  2041. {$EXTERNALSYM ExtCreatePen}
  2042. function GetMiterLimit(hdc: HDC; var peLimit: FLOAT): BOOL; stdcall;
  2043. {$EXTERNALSYM GetMiterLimit}
  2044. function GetArcDirection(hdc: HDC): Integer; stdcall;
  2045. {$EXTERNALSYM GetArcDirection}
  2047. function GetObjectA(hgdiobj: HGDIOBJ; cbBuffer: Integer; lpvObject: LPVOID): Integer; stdcall;
  2048. {$EXTERNALSYM GetObjectA}
  2049. function GetObjectW(hgdiobj: HGDIOBJ; cbBuffer: Integer; lpvObject: LPVOID): Integer; stdcall;
  2050. {$EXTERNALSYM GetObjectW}
  2051. {$IFDEF UNICODE}
  2052. function GetObject(hgdiobj: HGDIOBJ; cbBuffer: Integer; lpvObject: LPVOID): Integer; stdcall;
  2053. {$EXTERNALSYM GetObject}
  2054. {$ELSE}
  2055. function GetObject(hgdiobj: HGDIOBJ; cbBuffer: Integer; lpvObject: LPVOID): Integer; stdcall;
  2056. {$EXTERNALSYM GetObject}
  2057. {$ENDIF}
  2058. function MoveToEx(hdc: HDC; X, Y: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2059. {$EXTERNALSYM MoveToEx}
  2060. function TextOutA(hdc: HDC; nXStart, nYStart: Integer; lpString: LPCSTR; cbString: Integer): BOOL; stdcall;
  2061. {$EXTERNALSYM TextOutA}
  2062. function TextOutW(hdc: HDC; nXStart, nYStart: Integer; lpString: LPCWSTR; cbString: Integer): BOOL; stdcall;
  2063. {$EXTERNALSYM TextOutW}
  2064. {$IFDEF UNICODE}
  2065. function TextOut(hdc: HDC; nXStart, nYStart: Integer; lpString: LPCWSTR; cbString: Integer): BOOL; stdcall;
  2066. {$EXTERNALSYM TextOut}
  2067. {$ELSE}
  2068. function TextOut(hdc: HDC; nXStart, nYStart: Integer; lpString: LPCSTR; cbString: Integer): BOOL; stdcall;
  2069. {$EXTERNALSYM TextOut}
  2070. {$ENDIF}
  2071. function ExtTextOutA(hdc: HDC; X, Y: Integer; fuOptions: UINT; lprc: LPRECT; lpString: LPCSTR; cbCount: UINT; lpDx: LPINT): BOOL; stdcall;
  2072. {$EXTERNALSYM ExtTextOutA}
  2073. function ExtTextOutW(hdc: HDC; X, Y: Integer; fuOptions: UINT; lprc: LPRECT; lpString: LPCWSTR; cbCount: UINT; lpDx: LPINT): BOOL; stdcall;
  2074. {$EXTERNALSYM ExtTextOutW}
  2075. {$IFDEF UNICODE}
  2076. function ExtTextOut(hdc: HDC; X, Y: Integer; fuOptions: UINT; lprc: LPRECT; lpString: LPCWSTR; cbCount: UINT; lpDx: LPINT): BOOL; stdcall;
  2077. {$EXTERNALSYM ExtTextOut}
  2078. {$ELSE}
  2079. function ExtTextOut(hdc: HDC; X, Y: Integer; fuOptions: UINT; lprc: LPRECT; lpString: LPCSTR; cbCount: UINT; lpDx: LPINT): BOOL; stdcall;
  2080. {$EXTERNALSYM ExtTextOut}
  2081. {$ENDIF}
  2082. function PolyTextOutA(hdc: HDC; pptxt: LPPOLYTEXTA; cStrings: Integer): BOOL; stdcall;
  2083. {$EXTERNALSYM PolyTextOutA}
  2084. function PolyTextOutW(hdc: HDC; pptxt: LPPOLYTEXTW; cStrings: Integer): BOOL; stdcall;
  2085. {$EXTERNALSYM PolyTextOutW}
  2086. {$IFDEF UNICODE}
  2087. function PolyTextOut(hdc: HDC; pptxt: LPPOLYTEXTW; cStrings: Integer): BOOL; stdcall;
  2088. {$EXTERNALSYM PolyTextOut}
  2089. {$ELSE}
  2090. function PolyTextOut(hdc: HDC; pptxt: LPPOLYTEXTA; cStrings: Integer): BOOL; stdcall;
  2091. {$EXTERNALSYM PolyTextOut}
  2092. {$ENDIF}
  2094. function CreatePolygonRgn(lppt: LPPOINT; cPoints, fnPolyFillMode: Integer): HRGN; stdcall;
  2095. {$EXTERNALSYM CreatePolygonRgn}
  2096. function DPtoLP(hdc: HDC; lpPoints: LPPOINT; nCount: Integer): BOOL; stdcall;
  2097. {$EXTERNALSYM DPtoLP}
  2098. function LPtoDP(hdc: HDC; lpPoints: LPPOINT; nCount: Integer): BOOL; stdcall;
  2099. {$EXTERNALSYM LPtoDP}
  2100. function Polygon(hdc: HDC; lpPoints: LPPOINT; nCount: Integer): BOOL; stdcall;
  2101. {$EXTERNALSYM Polygon}
  2102. function Polyline(hdc: HDC; lppt: LPPOINT; nCount: Integer): BOOL; stdcall;
  2103. {$EXTERNALSYM Polyline}
  2105. function PolyBezier(hdc: HDC; lppt: LPPOINT; cPoints: DWORD): BOOL; stdcall;
  2106. {$EXTERNALSYM PolyBezier}
  2107. function PolyBezierTo(hdc: HDC; lppt: LPPOINT; cCount: DWORD): BOOL; stdcall;
  2108. {$EXTERNALSYM PolyBezierTo}
  2109. function PolylineTo(hdc: HDC; lppt: LPPOINT; cCount: DWORD): BOOL; stdcall;
  2110. {$EXTERNALSYM PolylineTo}
  2112. function SetViewportExtEx(hdc: HDC; nXExtend, nYExtend: Integer; lpSize: LPSIZE): BOOL; stdcall;
  2113. {$EXTERNALSYM SetViewportExtEx}
  2114. function SetViewportOrgEx(hdc: HDC; X, Y: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2115. {$EXTERNALSYM SetViewportOrgEx}
  2116. function SetWindowExtEx(hdc: HDC; nXExtend, nYExtend: Integer; lpSize: LPSIZE): BOOL; stdcall;
  2117. {$EXTERNALSYM SetWindowExtEx}
  2118. function SetWindowOrgEx(hdc: HDC; X, Y: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2119. {$EXTERNALSYM SetWindowOrgEx}
  2121. function OffsetViewportOrgEx(hdc: HDC; nXOffset, nYOffset: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2122. {$EXTERNALSYM OffsetViewportOrgEx}
  2123. function OffsetWindowOrgEx(hdc: HDC; nXOffset, nYOffset: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2124. {$EXTERNALSYM OffsetWindowOrgEx}
  2125. function ScaleViewportExtEx(hdc: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer; lpSize: LPSIZE): BOOL; stdcall;
  2126. {$EXTERNALSYM ScaleViewportExtEx}
  2127. function ScaleWindowExtEx(hdc: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer; lpSize: LPSIZE): BOOL; stdcall;
  2128. {$EXTERNALSYM ScaleWindowExtEx}
  2129. function SetBitmapDimensionEx(hBitmap: HBITMAP; nWidth, nHeight: Integer; lpSize: LPSIZE): BOOL; stdcall;
  2130. {$EXTERNALSYM SetBitmapDimensionEx}
  2131. function SetBrushOrgEx(hdc: HDC; nXOrg, nYOrg: Integer; lppt: LPPOINT): BOOL; stdcall;
  2132. {$EXTERNALSYM SetBrushOrgEx}
  2134. function GetTextFaceA(hdc: HDC; nCount: Integer; lpFaceName: LPSTR): Integer; stdcall;
  2135. {$EXTERNALSYM GetTextFaceA}
  2136. function GetTextFaceW(hdc: HDC; nCount: Integer; lpFaceName: LPWSTR): Integer; stdcall;
  2137. {$EXTERNALSYM GetTextFaceW}
  2138. {$IFDEF UNICODE}
  2139. function GetTextFace(hdc: HDC; nCount: Integer; lpFaceName: LPWSTR): Integer; stdcall;
  2140. {$EXTERNALSYM GetTextFace}
  2141. {$ELSE}
  2142. function GetTextFace(hdc: HDC; nCount: Integer; lpFaceName: LPSTR): Integer; stdcall;
  2143. {$EXTERNALSYM GetTextFace}
  2144. {$ENDIF}
  2146. const
  2147.   FONTMAPPER_MAX = 10;
  2148.   {$EXTERNALSYM FONTMAPPER_MAX}
  2150. type
  2151.   PKerningPair = ^TKerningPair;
  2152.   tagKERNINGPAIR = record
  2153.     wFirst: WORD;
  2154.     wSecond: WORD;
  2155.     iKernAmount: Integer;
  2156.   end;
  2157.   {$EXTERNALSYM tagKERNINGPAIR}
  2158.   KERNINGPAIR = tagKERNINGPAIR;
  2159.   {$EXTERNALSYM KERNINGPAIR}
  2160.   LPKERNINGPAIR = ^KERNINGPAIR;
  2161.   {$EXTERNALSYM LPKERNINGPAIR}
  2162.   TKerningPair = KERNINGPAIR;
  2164. function GetKerningPairsA(hDc: HDC; nNumPairs: DWORD; lpkrnpair: LPKERNINGPAIR): DWORD; stdcall;
  2165. {$EXTERNALSYM GetKerningPairsA}
  2166. function GetKerningPairsW(hDc: HDC; nNumPairs: DWORD; lpkrnpair: LPKERNINGPAIR): DWORD; stdcall;
  2167. {$EXTERNALSYM GetKerningPairsW}
  2169. {$IFDEF UNICODE}
  2170. function GetKerningPairs(hDc: HDC; nNumPairs: DWORD; lpkrnpair: LPKERNINGPAIR): DWORD; stdcall;
  2171. {$EXTERNALSYM GetKerningPairs}
  2172. {$ELSE}
  2173. function GetKerningPairs(hDc: HDC; nNumPairs: DWORD; lpkrnpair: LPKERNINGPAIR): DWORD; stdcall;
  2174. {$EXTERNALSYM GetKerningPairs}
  2175. {$ENDIF}
  2177. function GetDCOrgEx(hdc: HDC; lpPoint: LPPOINT): BOOL; stdcall;
  2178. {$EXTERNALSYM GetDCOrgEx}
  2179. function FixBrushOrgEx(hDc: HDC; I1, I2: Integer; lpPoint: LPPOINT): BOOL; stdcall;
  2180. {$EXTERNALSYM FixBrushOrgEx}
  2181. function UnrealizeObject(hgdiobj: HGDIOBJ): BOOL; stdcall;
  2182. {$EXTERNALSYM UnrealizeObject}
  2184. function GdiFlush: BOOL; stdcall;
  2185. {$EXTERNALSYM GdiFlush}
  2186. function GdiSetBatchLimit(dwLimit: DWORD): DWORD; stdcall;
  2187. {$EXTERNALSYM GdiSetBatchLimit}
  2188. function GdiGetBatchLimit: DWORD; stdcall;
  2189. {$EXTERNALSYM GdiGetBatchLimit}
  2191. const
  2192.   ICM_OFF            = 1;
  2193.   {$EXTERNALSYM ICM_OFF}
  2194.   ICM_ON             = 2;
  2195.   {$EXTERNALSYM ICM_ON}
  2196.   ICM_QUERY          = 3;
  2197.   {$EXTERNALSYM ICM_QUERY}
  2198.   ICM_DONE_OUTSIDEDC = 4;
  2199.   {$EXTERNALSYM ICM_DONE_OUTSIDEDC}
  2201. type
  2202.   ICMENUMPROCA = function (lpszFileName: LPSTR; lParam: LPARAM): Integer; stdcall;
  2203.   {$EXTERNALSYM ICMENUMPROCA}
  2204.   ICMENUMPROCW = function (lpszFileName: LPWSTR; lParam: LPARAM): Integer; stdcall;
  2205.   {$EXTERNALSYM ICMENUMPROCW}
  2207. {$IFDEF UNICODE}
  2208.   ICMENUMPROC = function (lpszFileName: LPWSTR; lParam: LPARAM): Integer; stdcall;
  2209.   {$EXTERNALSYM ICMENUMPROC}
  2210. {$ELSE}
  2211.   ICMENUMPROC = function (lpszFileName: LPSTR; lParam: LPARAM): Integer; stdcall;
  2212.   {$EXTERNALSYM ICMENUMPROC}
  2213. {$ENDIF}
  2215. function SetICMMode(hDc: HDC; iEnableICM: Integer): Integer; stdcall;
  2216. {$EXTERNALSYM SetICMMode}
  2217. function CheckColorsInGamut(hDc: HDC; lpRGBTriples, lpBuffer: LPVOID; nCount: DWORD): BOOL; stdcall;
  2218. {$EXTERNALSYM CheckColorsInGamut}
  2219. function GetColorSpace(hDc: HDC): HCOLORSPACE; stdcall;
  2220. {$EXTERNALSYM GetColorSpace}
  2222. function GetLogColorSpaceA(hColorSpace: HCOLORSPACE; lpBuffer: LPLOGCOLORSPACEA; nSize: DWORD): BOOL; stdcall;
  2223. {$EXTERNALSYM GetLogColorSpaceA}
  2224. function GetLogColorSpaceW(hColorSpace: HCOLORSPACE; lpBuffer: LPLOGCOLORSPACEW; nSize: DWORD): BOOL; stdcall;
  2225. {$EXTERNALSYM GetLogColorSpaceW}
  2227. {$IFDEF UNICODE}
  2228. function GetLogColorSpace(hColorSpace: HCOLORSPACE; lpBuffer: LPLOGCOLORSPACEW; nSize: DWORD): BOOL; stdcall;
  2229. {$EXTERNALSYM GetLogColorSpace}
  2230. {$ELSE}
  2231. function GetLogColorSpace(hColorSpace: HCOLORSPACE; lpBuffer: LPLOGCOLORSPACEA; nSize: DWORD): BOOL; stdcall;
  2232. {$EXTERNALSYM GetLogColorSpace}
  2233. {$ENDIF}
  2235. function CreateColorSpaceA(lpLogColorSpace: LPLOGCOLORSPACEA): HCOLORSPACE; stdcall;
  2236. {$EXTERNALSYM CreateColorSpaceA}
  2237. function CreateColorSpaceW(lpLogColorSpace: LPLOGCOLORSPACEW): HCOLORSPACE; stdcall;
  2238. {$EXTERNALSYM CreateColorSpaceW}
  2240. {$IFDEF UNICODE}
  2241. function CreateColorSpace(lpLogColorSpace: LPLOGCOLORSPACEW): HCOLORSPACE; stdcall;
  2242. {$EXTERNALSYM CreateColorSpace}
  2243. {$ELSE}
  2244. function CreateColorSpace(lpLogColorSpace: LPLOGCOLORSPACEA): HCOLORSPACE; stdcall;
  2245. {$EXTERNALSYM CreateColorSpace}
  2246. {$ENDIF}
  2248. function SetColorSpace(hDc: HDC; hColorSpace: HCOLORSPACE): HCOLORSPACE; stdcall;
  2249. {$EXTERNALSYM SetColorSpace}
  2250. function DeleteColorSpace(hColorSpace: HCOLORSPACE): BOOL; stdcall;
  2251. {$EXTERNALSYM DeleteColorSpace}
  2252. function GetICMProfileA(hDc: HDC; lpcbName: LPDWORD; lpszFilename: LPSTR): BOOL; stdcall;
  2253. {$EXTERNALSYM GetICMProfileA}
  2254. function GetICMProfileW(hDc: HDC; lpcbName: LPDWORD; lpszFilename: LPWSTR): BOOL; stdcall;
  2255. {$EXTERNALSYM GetICMProfileW}
  2257. {$IFDEF UNICODE}
  2258. function GetICMProfile(hDc: HDC; lpcbName: LPDWORD; lpszFilename: LPWSTR): BOOL; stdcall;
  2259. {$EXTERNALSYM GetICMProfile}
  2260. {$ELSE}
  2261. function GetICMProfile(hDc: HDC; lpcbName: LPDWORD; lpszFilename: LPSTR): BOOL; stdcall;
  2262. {$EXTERNALSYM GetICMProfile}
  2263. {$ENDIF}
  2265. function SetICMProfileA(hDc: HDC; lpFileName: LPSTR): BOOL; stdcall;
  2266. {$EXTERNALSYM SetICMProfileA}
  2267. function SetICMProfileW(hDc: HDC; lpFileName: LPWSTR): BOOL; stdcall;
  2268. {$EXTERNALSYM SetICMProfileW}
  2270. {$IFDEF UNICODE}
  2271. function SetICMProfile(hDc: HDC; lpFileName: LPWSTR): BOOL; stdcall;
  2272. {$EXTERNALSYM SetICMProfile}
  2273. {$ELSE}
  2274. function SetICMProfile(hDc: HDC; lpFileName: LPSTR): BOOL; stdcall;
  2275. {$EXTERNALSYM SetICMProfile}
  2276. {$ENDIF}
  2278. function GetDeviceGammaRamp(hDc: HDC; lpRamp: LPVOID): BOOL; stdcall;
  2279. {$EXTERNALSYM GetDeviceGammaRamp}
  2280. function SetDeviceGammaRamp(hDc: HDC; lpRamp: LPVOID): BOOL; stdcall;
  2281. {$EXTERNALSYM SetDeviceGammaRamp}
  2282. function ColorMatchToTarget(hDc, hdcTarget: HDC; uiAction: DWORD): BOOL; stdcall;
  2283. {$EXTERNALSYM ColorMatchToTarget}
  2285. function EnumICMProfilesA(hDc: HDC; lpEnumProc: ICMENUMPROCA; lParam: LPARAM): Integer; stdcall;
  2286. {$EXTERNALSYM EnumICMProfilesA}
  2287. function EnumICMProfilesW(hDc: HDC; lpEnumProc: ICMENUMPROCW; lParam: LPARAM): Integer; stdcall;
  2288. {$EXTERNALSYM EnumICMProfilesW}
  2290. {$IFDEF UNICODE}
  2291. function EnumICMProfiles(hDc: HDC; lpEnumProc: ICMENUMPROCW; lParam: LPARAM): Integer; stdcall;
  2292. {$EXTERNALSYM EnumICMProfiles}
  2293. {$ELSE}
  2294. function EnumICMProfiles(hDc: HDC; lpEnumProc: ICMENUMPROCA; lParam: LPARAM): Integer; stdcall;
  2295. {$EXTERNALSYM EnumICMProfiles}
  2296. {$ENDIF}
  2298. function UpdateICMRegKeyA(dwReserved: DWORD; lpszCMID, lpszFileName: LPSTR; nCommand: UINT): BOOL; stdcall;
  2299. {$EXTERNALSYM UpdateICMRegKeyA}
  2300. function UpdateICMRegKeyW(dwReserved: DWORD; lpszCMID, lpszFileName: LPWSTR; nCommand: UINT): BOOL; stdcall;
  2301. {$EXTERNALSYM UpdateICMRegKeyW}
  2303. {$IFDEF UNICODE}
  2304. function UpdateICMRegKey(dwReserved: DWORD; lpszCMID, lpszFileName: LPWSTR; nCommand: UINT): BOOL; stdcall;
  2305. {$EXTERNALSYM UpdateICMRegKey}
  2306. {$ELSE}
  2307. function UpdateICMRegKey(dwReserved: DWORD; lpszCMID, lpszFileName: LPSTR; nCommand: UINT): BOOL; stdcall;
  2308. {$EXTERNALSYM UpdateICMRegKey}
  2309. {$ENDIF}
  2311. function ColorCorrectPalette(hDc: HDC; hColorPalette: HPALETTE; dwFirstEntry, dwNumOfEntries: DWORD): BOOL; stdcall;
  2312. {$EXTERNALSYM ColorCorrectPalette}
  2314. // Enhanced metafile constants.
  2316. const
  2317.   ENHMETA_SIGNATURE = $464D4520;
  2318.   {$EXTERNALSYM ENHMETA_SIGNATURE}
  2320. // Stock object flag used in the object handle index in the enhanced
  2321. // metafile records.
  2322. // E.g. The object handle index (META_STOCK_OBJECT | BLACK_BRUSH)
  2323. // represents the stock object BLACK_BRUSH.
  2325.   ENHMETA_STOCK_OBJECT = DWORD($80000000);
  2326.   {$EXTERNALSYM ENHMETA_STOCK_OBJECT}
  2328. // Enhanced metafile record types.
  2330.   EMR_HEADER               = 1;
  2331.   {$EXTERNALSYM EMR_HEADER}
  2332.   EMR_POLYBEZIER           = 2;
  2333.   {$EXTERNALSYM EMR_POLYBEZIER}
  2334.   EMR_POLYGON              = 3;
  2335.   {$EXTERNALSYM EMR_POLYGON}
  2336.   EMR_POLYLINE             = 4;
  2337.   {$EXTERNALSYM EMR_POLYLINE}
  2338.   EMR_POLYBEZIERTO         = 5;
  2339.   {$EXTERNALSYM EMR_POLYBEZIERTO}
  2340.   EMR_POLYLINETO           = 6;
  2341.   {$EXTERNALSYM EMR_POLYLINETO}
  2342.   EMR_POLYPOLYLINE         = 7;
  2343.   {$EXTERNALSYM EMR_POLYPOLYLINE}
  2344.   EMR_POLYPOLYGON          = 8;
  2345.   {$EXTERNALSYM EMR_POLYPOLYGON}
  2346.   EMR_SETWINDOWEXTEX       = 9;
  2347.   {$EXTERNALSYM EMR_SETWINDOWEXTEX}
  2348.   EMR_SETWINDOWORGEX       = 10;
  2349.   {$EXTERNALSYM EMR_SETWINDOWORGEX}
  2350.   EMR_SETVIEWPORTEXTEX     = 11;
  2351.   {$EXTERNALSYM EMR_SETVIEWPORTEXTEX}
  2352.   EMR_SETVIEWPORTORGEX     = 12;
  2353.   {$EXTERNALSYM EMR_SETVIEWPORTORGEX}
  2354.   EMR_SETBRUSHORGEX        = 13;
  2355.   {$EXTERNALSYM EMR_SETBRUSHORGEX}
  2356.   EMR_EOF                  = 14;
  2357.   {$EXTERNALSYM EMR_EOF}
  2358.   EMR_SETPIXELV            = 15;
  2359.   {$EXTERNALSYM EMR_SETPIXELV}
  2360.   EMR_SETMAPPERFLAGS       = 16;
  2361.   {$EXTERNALSYM EMR_SETMAPPERFLAGS}
  2362.   EMR_SETMAPMODE           = 17;
  2363.   {$EXTERNALSYM EMR_SETMAPMODE}
  2364.   EMR_SETBKMODE            = 18;
  2365.   {$EXTERNALSYM EMR_SETBKMODE}
  2366.   EMR_SETPOLYFILLMODE      = 19;
  2367.   {$EXTERNALSYM EMR_SETPOLYFILLMODE}
  2368.   EMR_SETROP2              = 20;
  2369.   {$EXTERNALSYM EMR_SETROP2}
  2370.   EMR_SETSTRETCHBLTMODE    = 21;
  2371.   {$EXTERNALSYM EMR_SETSTRETCHBLTMODE}
  2372.   EMR_SETTEXTALIGN         = 22;
  2373.   {$EXTERNALSYM EMR_SETTEXTALIGN}
  2374.   EMR_SETCOLORADJUSTMENT   = 23;
  2375.   {$EXTERNALSYM EMR_SETCOLORADJUSTMENT}
  2376.   EMR_SETTEXTCOLOR         = 24;
  2377.   {$EXTERNALSYM EMR_SETTEXTCOLOR}
  2378.   EMR_SETBKCOLOR           = 25;
  2379.   {$EXTERNALSYM EMR_SETBKCOLOR}
  2380.   EMR_OFFSETCLIPRGN        = 26;
  2381.   {$EXTERNALSYM EMR_OFFSETCLIPRGN}
  2382.   EMR_MOVETOEX             = 27;
  2383.   {$EXTERNALSYM EMR_MOVETOEX}
  2384.   EMR_SETMETARGN           = 28;
  2385.   {$EXTERNALSYM EMR_SETMETARGN}
  2386.   EMR_EXCLUDECLIPRECT      = 29;
  2387.   {$EXTERNALSYM EMR_EXCLUDECLIPRECT}
  2388.   EMR_INTERSECTCLIPRECT    = 30;
  2389.   {$EXTERNALSYM EMR_INTERSECTCLIPRECT}
  2390.   EMR_SCALEVIEWPORTEXTEX   = 31;
  2391.   {$EXTERNALSYM EMR_SCALEVIEWPORTEXTEX}
  2392.   EMR_SCALEWINDOWEXTEX     = 32;
  2393.   {$EXTERNALSYM EMR_SCALEWINDOWEXTEX}
  2394.   EMR_SAVEDC               = 33;
  2395.   {$EXTERNALSYM EMR_SAVEDC}
  2396.   EMR_RESTOREDC            = 34;
  2397.   {$EXTERNALSYM EMR_RESTOREDC}
  2398.   EMR_SETWORLDTRANSFORM    = 35;
  2399.   {$EXTERNALSYM EMR_SETWORLDTRANSFORM}
  2400.   EMR_MODIFYWORLDTRANSFORM = 36;
  2401.   {$EXTERNALSYM EMR_MODIFYWORLDTRANSFORM}
  2402.   EMR_SELECTOBJECT         = 37;
  2403.   {$EXTERNALSYM EMR_SELECTOBJECT}
  2404.   EMR_CREATEPEN            = 38;
  2405.   {$EXTERNALSYM EMR_CREATEPEN}
  2406.   EMR_CREATEBRUSHINDIRECT  = 39;
  2407.   {$EXTERNALSYM EMR_CREATEBRUSHINDIRECT}
  2408.   EMR_DELETEOBJECT         = 40;
  2409.   {$EXTERNALSYM EMR_DELETEOBJECT}
  2410.   EMR_ANGLEARC             = 41;
  2411.   {$EXTERNALSYM EMR_ANGLEARC}
  2412.   EMR_ELLIPSE              = 42;
  2413.   {$EXTERNALSYM EMR_ELLIPSE}
  2414.   EMR_RECTANGLE            = 43;
  2415.   {$EXTERNALSYM EMR_RECTANGLE}
  2416.   EMR_ROUNDRECT            = 44;
  2417.   {$EXTERNALSYM EMR_ROUNDRECT}
  2418.   EMR_ARC                  = 45;
  2419.   {$EXTERNALSYM EMR_ARC}
  2420.   EMR_CHORD                = 46;
  2421.   {$EXTERNALSYM EMR_CHORD}
  2422.   EMR_PIE                  = 47;
  2423.   {$EXTERNALSYM EMR_PIE}
  2424.   EMR_SELECTPALETTE        = 48;
  2425.   {$EXTERNALSYM EMR_SELECTPALETTE}
  2426.   EMR_CREATEPALETTE        = 49;
  2427.   {$EXTERNALSYM EMR_CREATEPALETTE}
  2428.   EMR_SETPALETTEENTRIES    = 50;
  2429.   {$EXTERNALSYM EMR_SETPALETTEENTRIES}
  2430.   EMR_RESIZEPALETTE        = 51;
  2431.   {$EXTERNALSYM EMR_RESIZEPALETTE}
  2432.   EMR_REALIZEPALETTE       = 52;
  2433.   {$EXTERNALSYM EMR_REALIZEPALETTE}
  2434.   EMR_EXTFLOODFILL         = 53;
  2435.   {$EXTERNALSYM EMR_EXTFLOODFILL}
  2436.   EMR_LINETO               = 54;
  2437.   {$EXTERNALSYM EMR_LINETO}
  2438.   EMR_ARCTO                = 55;
  2439.   {$EXTERNALSYM EMR_ARCTO}
  2440.   EMR_POLYDRAW             = 56;
  2441.   {$EXTERNALSYM EMR_POLYDRAW}
  2442.   EMR_SETARCDIRECTION      = 57;
  2443.   {$EXTERNALSYM EMR_SETARCDIRECTION}
  2444.   EMR_SETMITERLIMIT        = 58;
  2445.   {$EXTERNALSYM EMR_SETMITERLIMIT}
  2446.   EMR_BEGINPATH            = 59;
  2447.   {$EXTERNALSYM EMR_BEGINPATH}
  2448.   EMR_ENDPATH              = 60;
  2449.   {$EXTERNALSYM EMR_ENDPATH}
  2450.   EMR_CLOSEFIGURE          = 61;
  2451.   {$EXTERNALSYM EMR_CLOSEFIGURE}
  2452.   EMR_FILLPATH             = 62;
  2453.   {$EXTERNALSYM EMR_FILLPATH}
  2454.   EMR_STROKEANDFILLPATH    = 63;
  2455.   {$EXTERNALSYM EMR_STROKEANDFILLPATH}
  2456.   EMR_STROKEPATH           = 64;
  2457.   {$EXTERNALSYM EMR_STROKEPATH}
  2458.   EMR_FLATTENPATH          = 65;
  2459.   {$EXTERNALSYM EMR_FLATTENPATH}
  2460.   EMR_WIDENPATH            = 66;
  2461.   {$EXTERNALSYM EMR_WIDENPATH}
  2462.   EMR_SELECTCLIPPATH       = 67;
  2463.   {$EXTERNALSYM EMR_SELECTCLIPPATH}
  2464.   EMR_ABORTPATH            = 68;
  2465.   {$EXTERNALSYM EMR_ABORTPATH}
  2467.   EMR_GDICOMMENT              = 70;
  2468.   {$EXTERNALSYM EMR_GDICOMMENT}
  2469.   EMR_FILLRGN                 = 71;
  2470.   {$EXTERNALSYM EMR_FILLRGN}
  2471.   EMR_FRAMERGN                = 72;
  2472.   {$EXTERNALSYM EMR_FRAMERGN}
  2473.   EMR_INVERTRGN               = 73;
  2474.   {$EXTERNALSYM EMR_INVERTRGN}
  2475.   EMR_PAINTRGN                = 74;
  2476.   {$EXTERNALSYM EMR_PAINTRGN}
  2477.   EMR_EXTSELECTCLIPRGN        = 75;
  2478.   {$EXTERNALSYM EMR_EXTSELECTCLIPRGN}
  2479.   EMR_BITBLT                  = 76;
  2480.   {$EXTERNALSYM EMR_BITBLT}
  2481.   EMR_STRETCHBLT              = 77;
  2482.   {$EXTERNALSYM EMR_STRETCHBLT}
  2483.   EMR_MASKBLT                 = 78;
  2484.   {$EXTERNALSYM EMR_MASKBLT}
  2485.   EMR_PLGBLT                  = 79;
  2486.   {$EXTERNALSYM EMR_PLGBLT}
  2487.   EMR_SETDIBITSTODEVICE       = 80;
  2488.   {$EXTERNALSYM EMR_SETDIBITSTODEVICE}
  2489.   EMR_STRETCHDIBITS           = 81;
  2490.   {$EXTERNALSYM EMR_STRETCHDIBITS}
  2491.   EMR_EXTCREATEFONTINDIRECTW  = 82;
  2492.   {$EXTERNALSYM EMR_EXTCREATEFONTINDIRECTW}
  2493.   EMR_EXTTEXTOUTA             = 83;
  2494.   {$EXTERNALSYM EMR_EXTTEXTOUTA}
  2495.   EMR_EXTTEXTOUTW             = 84;
  2496.   {$EXTERNALSYM EMR_EXTTEXTOUTW}
  2497.   EMR_POLYBEZIER16            = 85;
  2498.   {$EXTERNALSYM EMR_POLYBEZIER16}
  2499.   EMR_POLYGON16               = 86;
  2500.   {$EXTERNALSYM EMR_POLYGON16}
  2501.   EMR_POLYLINE16              = 87;
  2502.   {$EXTERNALSYM EMR_POLYLINE16}
  2503.   EMR_POLYBEZIERTO16          = 88;
  2504.   {$EXTERNALSYM EMR_POLYBEZIERTO16}
  2505.   EMR_POLYLINETO16            = 89;
  2506.   {$EXTERNALSYM EMR_POLYLINETO16}
  2507.   EMR_POLYPOLYLINE16          = 90;
  2508.   {$EXTERNALSYM EMR_POLYPOLYLINE16}
  2509.   EMR_POLYPOLYGON16           = 91;
  2510.   {$EXTERNALSYM EMR_POLYPOLYGON16}
  2511.   EMR_POLYDRAW16              = 92;
  2512.   {$EXTERNALSYM EMR_POLYDRAW16}
  2513.   EMR_CREATEMONOBRUSH         = 93;
  2514.   {$EXTERNALSYM EMR_CREATEMONOBRUSH}
  2515.   EMR_CREATEDIBPATTERNBRUSHPT = 94;
  2516.   {$EXTERNALSYM EMR_CREATEDIBPATTERNBRUSHPT}
  2517.   EMR_EXTCREATEPEN            = 95;
  2518.   {$EXTERNALSYM EMR_EXTCREATEPEN}
  2519.   EMR_POLYTEXTOUTA            = 96;
  2520.   {$EXTERNALSYM EMR_POLYTEXTOUTA}
  2521.   EMR_POLYTEXTOUTW            = 97;
  2522.   {$EXTERNALSYM EMR_POLYTEXTOUTW}
  2524.   EMR_SETICMMODE       = 98;
  2525.   {$EXTERNALSYM EMR_SETICMMODE}
  2526.   EMR_CREATECOLORSPACE = 99;
  2527.   {$EXTERNALSYM EMR_CREATECOLORSPACE}
  2528.   EMR_SETCOLORSPACE    = 100;
  2529.   {$EXTERNALSYM EMR_SETCOLORSPACE}
  2530.   EMR_DELETECOLORSPACE = 101;
  2531.   {$EXTERNALSYM EMR_DELETECOLORSPACE}
  2532.   EMR_GLSRECORD        = 102;
  2533.   {$EXTERNALSYM EMR_GLSRECORD}
  2534.   EMR_GLSBOUNDEDRECORD = 103;
  2535.   {$EXTERNALSYM EMR_GLSBOUNDEDRECORD}
  2536.   EMR_PIXELFORMAT      = 104;
  2537.   {$EXTERNALSYM EMR_PIXELFORMAT}
  2539.   EMR_RESERVED_105        = 105;
  2540.   {$EXTERNALSYM EMR_RESERVED_105}
  2541.   EMR_RESERVED_106        = 106;
  2542.   {$EXTERNALSYM EMR_RESERVED_106}
  2543.   EMR_RESERVED_107        = 107;
  2544.   {$EXTERNALSYM EMR_RESERVED_107}
  2545.   EMR_RESERVED_108        = 108;
  2546.   {$EXTERNALSYM EMR_RESERVED_108}
  2547.   EMR_RESERVED_109        = 109;
  2548.   {$EXTERNALSYM EMR_RESERVED_109}
  2549.   EMR_RESERVED_110        = 110;
  2550.   {$EXTERNALSYM EMR_RESERVED_110}
  2551.   EMR_COLORCORRECTPALETTE = 111;
  2552.   {$EXTERNALSYM EMR_COLORCORRECTPALETTE}
  2553.   EMR_SETICMPROFILEA      = 112;
  2554.   {$EXTERNALSYM EMR_SETICMPROFILEA}
  2555.   EMR_SETICMPROFILEW      = 113;
  2556.   {$EXTERNALSYM EMR_SETICMPROFILEW}
  2557.   EMR_ALPHABLEND          = 114;
  2558.   {$EXTERNALSYM EMR_ALPHABLEND}
  2559.   EMR_SETLAYOUT           = 115;
  2560.   {$EXTERNALSYM EMR_SETLAYOUT}
  2561.   EMR_TRANSPARENTBLT      = 116;
  2562.   {$EXTERNALSYM EMR_TRANSPARENTBLT}
  2563.   EMR_RESERVED_117        = 117;
  2564.   {$EXTERNALSYM EMR_RESERVED_117}
  2565.   EMR_GRADIENTFILL        = 118;
  2566.   {$EXTERNALSYM EMR_GRADIENTFILL}
  2567.   EMR_RESERVED_119        = 119;
  2568.   {$EXTERNALSYM EMR_RESERVED_119}
  2569.   EMR_RESERVED_120        = 120;
  2570.   {$EXTERNALSYM EMR_RESERVED_120}
  2571.   EMR_COLORMATCHTOTARGETW = 121;
  2572.   {$EXTERNALSYM EMR_COLORMATCHTOTARGETW}
  2573.   EMR_CREATECOLORSPACEW   = 122;
  2574.   {$EXTERNALSYM EMR_CREATECOLORSPACEW}
  2576.   EMR_MIN = 1;
  2577.   {$EXTERNALSYM EMR_MIN}
  2579. {$IFDEF WINVER_0500_GREATER}
  2580.   EMR_MAX = 122;
  2581.   {$EXTERNALSYM EMR_MAX}
  2582. {$ELSE}
  2583. {$IFDEF WINVER_0400_GREATER}
  2584.   EMR_MAX = 104;
  2585.   {$EXTERNALSYM EMR_MAX}
  2586. {$ELSE}
  2587.   EMR_MAX = 97;
  2588.   {$EXTERNALSYM EMR_MAX}
  2589. {$ENDIF}
  2590. {$ENDIF}
  2592. // Base record type for the enhanced metafile.
  2594. type
  2595.   PEmr = ^TEmr;
  2596.   tagEMR = record
  2597.     iType: DWORD; // Enhanced metafile record type
  2598.     nSize: DWORD; // Length of the record in bytes.
  2599.                   // This must be a multiple of 4.
  2600.   end;
  2601.   {$EXTERNALSYM tagEMR}
  2602.   EMR = tagEMR;
  2603.   {$EXTERNALSYM EMR}
  2604.   TEmr = EMR;
  2606. // Base text record type for the enhanced metafile.
  2608.   PEmrText = ^TEmrText;
  2609.   tagEMRTEXT = record
  2610.     ptlReference: POINTL;
  2611.     nChars: DWORD;
  2612.     offString: DWORD; // Offset to the string
  2613.     fOptions: DWORD;
  2614.     rcl: RECTL;
  2615.     offDx: DWORD; // Offset to the inter-character spacing array.
  2616.     // This is always given.
  2617.   end;
  2618.   {$EXTERNALSYM tagEMRTEXT}
  2619.   EMRTEXT = tagEMRTEXT;
  2620.   {$EXTERNALSYM EMRTEXT}
  2621.   TEmrText = EMRTEXT;
  2623. // Record structures for the enhanced metafile.
  2625.   PAbortPath = ^TAbortPath;
  2626.   tagABORTPATH = record
  2627.     emr: EMR;
  2628.   end;
  2629.   {$EXTERNALSYM tagABORTPATH}
  2630.   TAbortPath = tagABORTPATH;
  2631.   EMRABORTPATH = tagABORTPATH;
  2632.   {$EXTERNALSYM EMRABORTPATH}
  2633.   PEMRABORTPATH = ^EMRABORTPATH;
  2634.   {$EXTERNALSYM PEMRABORTPATH}
  2635.   EMRBEGINPATH = tagABORTPATH;
  2636.   {$EXTERNALSYM EMRBEGINPATH}
  2637.   PEMRBEGINPATH = ^EMRBEGINPATH;
  2638.   {$EXTERNALSYM PEMRBEGINPATH}
  2639.   EMRENDPATH = tagABORTPATH;
  2640.   {$EXTERNALSYM EMRENDPATH}
  2641.   PEMRENDPATH = ^EMRENDPATH;
  2642.   {$EXTERNALSYM PEMRENDPATH}
  2643.   EMRCLOSEFIGURE = tagABORTPATH;
  2644.   {$EXTERNALSYM EMRCLOSEFIGURE}
  2645.   PEMRCLOSEFIGURE = ^EMRCLOSEFIGURE;
  2646.   {$EXTERNALSYM PEMRCLOSEFIGURE}
  2647.   EMRFLATTENPATH = tagABORTPATH;
  2648.   {$EXTERNALSYM EMRFLATTENPATH}
  2649.   PEMRFLATTENPATH = ^EMRFLATTENPATH;
  2650.   {$EXTERNALSYM PEMRFLATTENPATH}
  2651.   EMRWIDENPATH = tagABORTPATH;
  2652.   {$EXTERNALSYM EMRWIDENPATH}
  2653.   PEMRWIDENPATH = ^EMRWIDENPATH;
  2654.   {$EXTERNALSYM PEMRWIDENPATH}
  2655.   EMRSETMETARGN = tagABORTPATH;
  2656.   {$EXTERNALSYM EMRSETMETARGN}
  2657.   PEMRSETMETARGN = ^EMRSETMETARGN;
  2658.   {$EXTERNALSYM PEMRSETMETARGN}
  2659.   EMRSAVEDC = tagABORTPATH;
  2660.   {$EXTERNALSYM EMRSAVEDC}
  2661.   PEMRSAVEDC = ^EMRSAVEDC;
  2662.   {$EXTERNALSYM PEMRSAVEDC}
  2663.   EMRREALIZEPALETTE = tagABORTPATH;
  2664.   {$EXTERNALSYM EMRREALIZEPALETTE}
  2665.   PEMRREALIZEPALETTE = ^EMRREALIZEPALETTE;
  2666.   {$EXTERNALSYM PEMRREALIZEPALETTE}
  2668.   PEmrSelectClipPath = ^TEmrSelectClipPath;
  2669.   tagEMRSELECTCLIPPATH = record
  2670.     emr: EMR;
  2671.     iMode: DWORD;
  2672.   end;
  2673.   {$EXTERNALSYM tagEMRSELECTCLIPPATH}
  2674.   EMRSELECTCLIPPATH = tagEMRSELECTCLIPPATH;
  2675.   {$EXTERNALSYM EMRSELECTCLIPPATH}
  2676.   LPEMRSELECTCLIPPATH = ^EMRSELECTCLIPPATH;
  2677.   {$EXTERNALSYM LPEMRSELECTCLIPPATH}
  2678.   TEmrSelectClipPath = EMRSELECTCLIPPATH;
  2680.   EMRSETBKMODE = tagEMRSELECTCLIPPATH;
  2681.   {$EXTERNALSYM EMRSETBKMODE}
  2682.   PEMRSETBKMODE = ^EMRSETBKMODE;
  2683.   {$EXTERNALSYM PEMRSETBKMODE}
  2684.   EMRSETMAPMODE = tagEMRSELECTCLIPPATH;
  2685.   {$EXTERNALSYM EMRSETMAPMODE}
  2686.   PEMRSETMAPMODE = ^EMRSETMAPMODE;
  2687.   {$EXTERNALSYM PEMRSETMAPMODE}
  2688.   EMRSETLAYOUT = tagEMRSELECTCLIPPATH;
  2689.   {$EXTERNALSYM EMRSETLAYOUT}
  2690.   PEMRSETLAYOUT = ^EMRSETLAYOUT;
  2691.   {$EXTERNALSYM PEMRSETLAYOUT}
  2692.   EMRSETPOLYFILLMODE = tagEMRSELECTCLIPPATH;
  2693.   {$EXTERNALSYM EMRSETPOLYFILLMODE}
  2694.   PEMRSETPOLYFILLMODE = EMRSETPOLYFILLMODE;
  2695.   {$EXTERNALSYM PEMRSETPOLYFILLMODE}
  2696.   EMRSETROP2 = tagEMRSELECTCLIPPATH;
  2697.   {$EXTERNALSYM EMRSETROP2}
  2698.   PEMRSETROP2 = ^EMRSETROP2;
  2699.   {$EXTERNALSYM PEMRSETROP2}
  2700.   EMRSETSTRETCHBLTMODE = tagEMRSELECTCLIPPATH;
  2701.   {$EXTERNALSYM EMRSETSTRETCHBLTMODE}
  2702.   PEMRSETSTRETCHBLTMODE = ^EMRSETSTRETCHBLTMODE;
  2703.   {$EXTERNALSYM PEMRSETSTRETCHBLTMODE}
  2704.   EMRSETICMMODE = tagEMRSELECTCLIPPATH;
  2705.   {$EXTERNALSYM EMRSETICMMODE}
  2706.   PEMRSETICMMODE = ^EMRSETICMMODE;
  2707.   {$EXTERNALSYM PEMRSETICMMODE}
  2708.   EMRSETTEXTALIGN = tagEMRSELECTCLIPPATH;
  2709.   {$EXTERNALSYM EMRSETTEXTALIGN}
  2710.   PEMRSETTEXTALIGN = ^EMRSETTEXTALIGN;
  2711.   {$EXTERNALSYM PEMRSETTEXTALIGN}
  2713.   PEmrSetMiterLimit = ^TEmrSetMiterLimit;
  2714.   tagEMRSETMITERLIMIT = record
  2715.     emr: EMR;
  2716.     eMiterLimit: FLOAT;
  2717.   end;
  2718.   {$EXTERNALSYM tagEMRSETMITERLIMIT}
  2719.   EMRSETMITERLIMIT = tagEMRSETMITERLIMIT;
  2720.   {$EXTERNALSYM EMRSETMITERLIMIT}
  2721.   TEmrSetMiterLimit = EMRSETMITERLIMIT;
  2723.   PEmrRestoreDc = ^TEmrRestoreDc;
  2724.   tagEMRRESTOREDC = record
  2725.     emr: EMR;
  2726.     iRelative: LONG; // Specifies a relative instance
  2727.   end;
  2728.   {$EXTERNALSYM tagEMRRESTOREDC}
  2729.   EMRRESTOREDC = tagEMRRESTOREDC;
  2730.   {$EXTERNALSYM EMRRESTOREDC}
  2731.   TEmrRestoreDc = EMRRESTOREDC;
  2733.   PEmrSetArcDirection = ^TEmrSetArcDirection;
  2734.   tagEMRSETARCDIRECTION = record
  2735.     emr: EMR;
  2736.     iArcDirection: DWORD; // Specifies the arc direction in the
  2737.     // advanced graphics mode.
  2738.   end;
  2739.   {$EXTERNALSYM tagEMRSETARCDIRECTION}
  2740.   EMRSETARCDIRECTION = tagEMRSETARCDIRECTION;
  2741.   {$EXTERNALSYM EMRSETARCDIRECTION}
  2742.   TEmrSetArcDirection = EMRSETARCDIRECTION;
  2744.   PEmrSetMapperFlags = ^TEmrSetMapperFlags;
  2745.   tagEMRSETMAPPERFLAGS = record
  2746.     emr: EMR;
  2747.     dwFlags: DWORD;
  2748.   end;
  2749.   {$EXTERNALSYM tagEMRSETMAPPERFLAGS}
  2750.   EMRSETMAPPERFLAGS = tagEMRSETMAPPERFLAGS;
  2751.   {$EXTERNALSYM EMRSETMAPPERFLAGS}
  2752.   TEmrSetMapperFlags = EMRSETMAPPERFLAGS;
  2754.   PEmrSetTextColor = ^TEmrSetTextColor;
  2755.   tagEMRSETTEXTCOLOR = record
  2756.     emr: EMR;
  2757.     crColor: COLORREF;
  2758.   end;
  2759.   {$EXTERNALSYM tagEMRSETTEXTCOLOR}
  2760.   EMRSETTEXTCOLOR = tagEMRSETTEXTCOLOR;
  2761.   {$EXTERNALSYM EMRSETTEXTCOLOR}
  2762.   EMRSETBKCOLOR = tagEMRSETTEXTCOLOR;
  2763.   {$EXTERNALSYM EMRSETBKCOLOR}
  2764.   PEMRSETBKCOLOR = ^EMRSETTEXTCOLOR;
  2765.   {$EXTERNALSYM PEMRSETBKCOLOR}
  2766.   TEmrSetTextColor = EMRSETTEXTCOLOR;
  2768.   PEmrSelectObject = ^TEmrSelectObject;
  2769.   tagEMRSELECTOBJECT = record
  2770.     emr: EMR;
  2771.     ihObject: DWORD; // Object handle index
  2772.   end;
  2773.   {$EXTERNALSYM tagEMRSELECTOBJECT}
  2774.   EMRSELECTOBJECT = tagEMRSELECTOBJECT;
  2775.   {$EXTERNALSYM EMRSELECTOBJECT}
  2776.   EMRDELETEOBJECT = tagEMRSELECTOBJECT;
  2777.   {$EXTERNALSYM EMRDELETEOBJECT}
  2778.   PEMRDELETEOBJECT = ^EMRDELETEOBJECT;
  2779.   {$EXTERNALSYM PEMRDELETEOBJECT}
  2780.   TEmrSelectObject = EMRSELECTOBJECT;
  2782.   PEmrSelectPalette = ^TEmrSelectPalette;
  2783.   tagEMRSELECTPALETTE = record
  2784.     emr: EMR;
  2785.     ihPal: DWORD; // Palette handle index, background mode only
  2786.   end;
  2787.   {$EXTERNALSYM tagEMRSELECTPALETTE}
  2788.   EMRSELECTPALETTE = tagEMRSELECTPALETTE;
  2789.   {$EXTERNALSYM EMRSELECTPALETTE}
  2790.   TEmrSelectPalette = EMRSELECTPALETTE;
  2792.   PEmrResizePalette = ^TEmrResizePalette;
  2793.   tagEMRRESIZEPALETTE = record
  2794.     emr: EMR;
  2795.     ihPal: DWORD; // Palette handle index
  2796.     cEntries: DWORD;
  2797.   end;
  2798.   {$EXTERNALSYM tagEMRRESIZEPALETTE}
  2799.   EMRRESIZEPALETTE = tagEMRRESIZEPALETTE;
  2800.   {$EXTERNALSYM EMRRESIZEPALETTE}
  2801.   TEmrResizePalette = EMRRESIZEPALETTE;
  2803.   PEmrSetPaletteEntries = ^TEmrSetPaletteEntries;
  2804.   tagEMRSETPALETTEENTRIES = record
  2805.     emr: EMR;
  2806.     ihPal: DWORD; // Palette handle index
  2807.     iStart: DWORD;
  2808.     cEntries: DWORD;
  2809.     aPalEntries: array [0..0] of PALETTEENTRY; // The peFlags fields do not contain any flags
  2810.   end;
  2811.   {$EXTERNALSYM tagEMRSETPALETTEENTRIES}
  2812.   EMRSETPALETTEENTRIES = tagEMRSETPALETTEENTRIES;
  2813.   {$EXTERNALSYM EMRSETPALETTEENTRIES}
  2814.   TEmrSetPaletteEntries = EMRSETPALETTEENTRIES;
  2816.   PEmrSetColorAdjustment = ^TEmrSetColorAdjustment;
  2817.   tagEMRSETCOLORADJUSTMENT = record
  2818.     emr: EMR;
  2819.     ColorAdjustment: COLORADJUSTMENT;
  2820.   end;
  2821.   {$EXTERNALSYM tagEMRSETCOLORADJUSTMENT}
  2822.   EMRSETCOLORADJUSTMENT = tagEMRSETCOLORADJUSTMENT;
  2823.   {$EXTERNALSYM EMRSETCOLORADJUSTMENT}
  2824.   TEmrSetColorAdjustment = EMRSETCOLORADJUSTMENT;
  2826.   PEmrGdiComment = ^TEmrGdiComment;
  2827.   tagEMRGDICOMMENT = record
  2828.     emr: EMR;
  2829.     cbData: DWORD; // Size of data in bytes
  2830.     Data: array [0..0] of BYTE;
  2831.   end;
  2832.   {$EXTERNALSYM tagEMRGDICOMMENT}
  2833.   EMRGDICOMMENT = tagEMRGDICOMMENT;
  2834.   {$EXTERNALSYM EMRGDICOMMENT}
  2835.   TEmrGdiComment = EMRGDICOMMENT;
  2837.   PEmrEof = ^TEmrEof;
  2838.   tagEMREOF = record
  2839.     emr: EMR;
  2840.     nPalEntries: DWORD; // Number of palette entries
  2841.     offPalEntries: DWORD; // Offset to the palette entries
  2842.     nSizeLast: DWORD; // Same as nSize and must be the last DWORD
  2843.     // of the record.  The palette entries,
  2844.     // if exist, precede this field.
  2845.   end;
  2846.   {$EXTERNALSYM tagEMREOF}
  2847.   EMREOF = tagEMREOF;
  2848.   {$EXTERNALSYM EMREOF}
  2849.   TEmrEof = EMREOF;
  2851.   PEmrLineTo = ^TEmrLineTo;
  2852.   tagEMRLINETO = record
  2853.     emr: EMR;
  2854.     ptl: POINTL;
  2855.   end;
  2856.   {$EXTERNALSYM tagEMRLINETO}
  2857.   EMRLINETO = tagEMRLINETO;
  2858.   {$EXTERNALSYM EMRLINETO}
  2859.   EMRMOVETOEX = tagEMRLINETO;
  2860.   {$EXTERNALSYM EMRMOVETOEX}
  2861.   PEMRMOVETOEX = ^EMRMOVETOEX;
  2862.   {$EXTERNALSYM PEMRMOVETOEX}
  2863.   TEmrLineTo = EMRLINETO;
  2865.   PEmrOffsetClipRgn = ^TEmrOffsetClipRgn;
  2866.   tagEMROFFSETCLIPRGN = record
  2867.     emr: EMR;
  2868.     ptlOffset: POINTL;
  2869.   end;
  2870.   {$EXTERNALSYM tagEMROFFSETCLIPRGN}
  2871.   EMROFFSETCLIPRGN = tagEMROFFSETCLIPRGN;
  2872.   {$EXTERNALSYM EMROFFSETCLIPRGN}
  2873.   TEmrOffsetClipRgn = EMROFFSETCLIPRGN;
  2875.   PEmrFillPath = ^TEmrFillPath;
  2876.   tagEMRFILLPATH = record
  2877.     emr: EMR;
  2878.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  2879.   end;
  2880.   {$EXTERNALSYM tagEMRFILLPATH}
  2881.   EMRFILLPATH = tagEMRFILLPATH;
  2882.   {$EXTERNALSYM EMRFILLPATH}
  2883.   EMRSTROKEANDFILLPATH = tagEMRFILLPATH;
  2884.   {$EXTERNALSYM EMRSTROKEANDFILLPATH}
  2885.   PEMRSTROKEANDFILLPATH = ^EMRSTROKEANDFILLPATH;
  2886.   {$EXTERNALSYM PEMRSTROKEANDFILLPATH}
  2887.   EMRSTROKEPATH = tagEMRFILLPATH;
  2888.   {$EXTERNALSYM EMRSTROKEPATH}
  2889.   PEMRSTROKEPATH = ^EMRSTROKEPATH;
  2890.   {$EXTERNALSYM PEMRSTROKEPATH}
  2891.   TEmrFillPath = EMRFILLPATH;
  2893.   PEmrExcludeClipRect = ^TEmrExcludeClipRect;
  2894.   tagEMREXCLUDECLIPRECT = record
  2895.     emr: EMR;
  2896.     rclClip: RECTL;
  2897.   end;
  2898.   {$EXTERNALSYM tagEMREXCLUDECLIPRECT}
  2899.   EMREXCLUDECLIPRECT = tagEMREXCLUDECLIPRECT;
  2900.   {$EXTERNALSYM EMREXCLUDECLIPRECT}
  2901.   EMRINTERSECTCLIPRECT = tagEMREXCLUDECLIPRECT;
  2902.   {$EXTERNALSYM EMRINTERSECTCLIPRECT}
  2903.   PEMRINTERSECTCLIPRECT = ^EMRINTERSECTCLIPRECT;
  2904.   {$EXTERNALSYM PEMRINTERSECTCLIPRECT}
  2905.   TEmrExcludeClipRect = EMREXCLUDECLIPRECT;
  2907.   PEmrSetViewPortOrgEx = ^TEmrSetViewPortOrgEx;
  2908.   tagEMRSETVIEWPORTORGEX = record
  2909.     emr: EMR;
  2910.     ptlOrigin: POINTL;
  2911.   end;
  2912.   {$EXTERNALSYM tagEMRSETVIEWPORTORGEX}
  2913.   EMRSETVIEWPORTORGEX = tagEMRSETVIEWPORTORGEX;
  2914.   {$EXTERNALSYM EMRSETVIEWPORTORGEX}
  2915.   EMRSETWINDOWORGEX = tagEMRSETVIEWPORTORGEX;
  2916.   {$EXTERNALSYM EMRSETWINDOWORGEX}
  2917.   PEMRSETWINDOWORGEX = ^EMRSETWINDOWORGEX;
  2918.   {$EXTERNALSYM PEMRSETWINDOWORGEX}
  2919.   EMRSETBRUSHORGEX = tagEMRSETVIEWPORTORGEX;
  2920.   {$EXTERNALSYM EMRSETBRUSHORGEX}
  2921.   PEMRSETBRUSHORGEX = ^EMRSETBRUSHORGEX;
  2922.   {$EXTERNALSYM PEMRSETBRUSHORGEX}
  2923.   TEmrSetViewPortOrgEx = EMRSETVIEWPORTORGEX;
  2925.   PEmrSetViewPortExtEx = ^TEmrSetViewPortExtEx;
  2926.   tagEMRSETVIEWPORTEXTEX = record
  2927.     emr: EMR;
  2928.     szlExtent: SIZEL;
  2929.   end;
  2930.   {$EXTERNALSYM tagEMRSETVIEWPORTEXTEX}
  2931.   EMRSETVIEWPORTEXTEX = tagEMRSETVIEWPORTEXTEX;
  2932.   {$EXTERNALSYM EMRSETVIEWPORTEXTEX}
  2933.   EMRSETWINDOWEXTEX = tagEMRSETVIEWPORTEXTEX;
  2934.   {$EXTERNALSYM EMRSETWINDOWEXTEX}
  2935.   TEmrSetViewPortExtEx = EMRSETVIEWPORTEXTEX;
  2937.   PEmrScaleViewPortExtEx = ^TEmrScaleViewPortExtEx;
  2938.   tagEMRSCALEVIEWPORTEXTEX = record
  2939.     emr: EMR;
  2940.     xNum: LONG;
  2941.     xDenom: LONG;
  2942.     yNum: LONG;
  2943.     yDenom: LONG;
  2944.   end;
  2945.   {$EXTERNALSYM tagEMRSCALEVIEWPORTEXTEX}
  2946.   EMRSCALEVIEWPORTEXTEX = tagEMRSCALEVIEWPORTEXTEX;
  2947.   {$EXTERNALSYM EMRSCALEVIEWPORTEXTEX}
  2948.   EMRSCALEWINDOWEXTEX = tagEMRSCALEVIEWPORTEXTEX;
  2949.   {$EXTERNALSYM EMRSCALEWINDOWEXTEX}
  2950.   PEMRSCALEWINDOWEXTEX = ^EMRSCALEWINDOWEXTEX;
  2951.   {$EXTERNALSYM PEMRSCALEWINDOWEXTEX}
  2952.   TEmrScaleViewPortExtEx = EMRSCALEVIEWPORTEXTEX;
  2954.   PEmrSetWorldTransform = ^TEmrSetWorldTransform;
  2955.   tagEMRSETWORLDTRANSFORM = record
  2956.     emr: EMR;
  2957.     xform: XFORM;
  2958.   end;
  2959.   {$EXTERNALSYM tagEMRSETWORLDTRANSFORM}
  2960.   EMRSETWORLDTRANSFORM = tagEMRSETWORLDTRANSFORM;
  2961.   {$EXTERNALSYM EMRSETWORLDTRANSFORM}
  2962.   TEmrSetWorldTransform = EMRSETWORLDTRANSFORM;
  2964.   PEmrModifyWorldTransform = ^TEmrModifyWorldTransform;
  2965.   tagEMRMODIFYWORLDTRANSFORM = record
  2966.     emr: EMR;
  2967.     xform: XFORM;
  2968.     iMode: DWORD;
  2969.   end;
  2970.   {$EXTERNALSYM tagEMRMODIFYWORLDTRANSFORM}
  2971.   EMRMODIFYWORLDTRANSFORM = tagEMRMODIFYWORLDTRANSFORM;
  2972.   {$EXTERNALSYM EMRMODIFYWORLDTRANSFORM}
  2973.   TEmrModifyWorldTransform = EMRMODIFYWORLDTRANSFORM;
  2975.   PEmrSetPixelV = ^TEmrSetPixelV;
  2976.   tagEMRSETPIXELV = record
  2977.     emr: EMR;
  2978.     ptlPixel: POINTL;
  2979.     crColor: COLORREF;
  2980.   end;
  2981.   {$EXTERNALSYM tagEMRSETPIXELV}
  2982.   EMRSETPIXELV = tagEMRSETPIXELV;
  2983.   {$EXTERNALSYM EMRSETPIXELV}
  2984.   TEmrSetPixelV = EMRSETPIXELV;
  2986.   PEmrExtFloodFill = ^TEmrExtFloodFill;
  2987.   tagEMREXTFLOODFILL = record
  2988.     emr: EMR;
  2989.     ptlStart: POINTL;
  2990.     crColor: COLORREF;
  2991.     iMode: DWORD;
  2992.   end;
  2993.   {$EXTERNALSYM tagEMREXTFLOODFILL}
  2994.   EMREXTFLOODFILL = tagEMREXTFLOODFILL;
  2995.   {$EXTERNALSYM EMREXTFLOODFILL}
  2996.   TEmrExtFloodFill = EMREXTFLOODFILL;
  2998.   PEmrEllipse = ^TEmrEllipse;
  2999.   tagEMRELLIPSE = record
  3000.     emr: EMR;
  3001.     rclBox: RECTL; // Inclusive-inclusive bounding rectangle
  3002.   end;
  3003.   {$EXTERNALSYM tagEMRELLIPSE}
  3004.   EMRELLIPSE = tagEMRELLIPSE;
  3005.   {$EXTERNALSYM EMRELLIPSE}
  3006.   EMRRECTANGLE = tagEMRELLIPSE;
  3007.   {$EXTERNALSYM EMRRECTANGLE}
  3008.   PEMRRECTANGLE = ^EMRRECTANGLE;
  3009.   {$EXTERNALSYM PEMRRECTANGLE}
  3010.   TEmrEllipse = EMRELLIPSE;
  3012.   PEmrRoundRect = ^TEmrRoundRect;
  3013.   tagEMRROUNDRECT = record
  3014.     emr: EMR;
  3015.     rclBox: RECTL; // Inclusive-inclusive bounding rectangle
  3016.     szlCorner: SIZEL;
  3017.   end;
  3018.   {$EXTERNALSYM tagEMRROUNDRECT}
  3019.   EMRROUNDRECT = tagEMRROUNDRECT;
  3020.   {$EXTERNALSYM EMRROUNDRECT}
  3021.   TEmrRoundRect = EMRROUNDRECT;
  3023.   PEmrArc = ^TEmrArc;
  3024.   tagEMRARC = record
  3025.     emr: EMR;
  3026.     rclBox: RECTL; // Inclusive-inclusive bounding rectangle
  3027.     ptlStart: POINTL;
  3028.     ptlEnd: POINTL;
  3029.   end;
  3030.   {$EXTERNALSYM tagEMRARC}
  3031.   EMRARC = tagEMRARC;
  3032.   {$EXTERNALSYM EMRARC}
  3033.   EMRARCTO = tagEMRARC;
  3034.   {$EXTERNALSYM EMRARCTO}
  3035.   PEMRARCTO = ^EMRARCTO;
  3036.   {$EXTERNALSYM PEMRARCTO}
  3037.   EMRCHORD = tagEMRARC;
  3038.   {$EXTERNALSYM EMRCHORD}
  3039.   PEMRCHORD = ^EMRCHORD;
  3040.   {$EXTERNALSYM PEMRCHORD}
  3041.   EMRPIE = tagEMRARC;
  3042.   {$EXTERNALSYM EMRPIE}
  3043.   PEMRPIE = ^EMRPIE;
  3044.   {$EXTERNALSYM PEMRPIE}
  3045.   TEmrArc = EMRARC;
  3047.   PEmrAngleArc = ^TEmrAngleArc;
  3048.   tagEMRANGLEARC = record
  3049.     emr: EMR;
  3050.     ptlCenter: POINTL;
  3051.     nRadius: DWORD;
  3052.     eStartAngle: FLOAT;
  3053.     eSweepAngle: FLOAT;
  3054.   end;
  3055.   {$EXTERNALSYM tagEMRANGLEARC}
  3056.   EMRANGLEARC = tagEMRANGLEARC;
  3057.   {$EXTERNALSYM EMRANGLEARC}
  3058.   TEmrAngleArc = EMRANGLEARC;
  3060.   PEmrPolyline = ^TEmrPolyline;
  3061.   tagEMRPOLYLINE = record
  3062.     emr: EMR;
  3063.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3064.     cptl: DWORD;
  3065.     aptl: array [0..0] of POINTL;
  3066.   end;
  3067.   {$EXTERNALSYM tagEMRPOLYLINE}
  3068.   EMRPOLYLINE = tagEMRPOLYLINE;
  3069.   {$EXTERNALSYM EMRPOLYLINE}
  3070.   EMRPOLYBEZIER = tagEMRPOLYLINE;
  3071.   {$EXTERNALSYM EMRPOLYBEZIER}
  3072.   PEMRPOLYBEZIER = ^EMRPOLYBEZIER;
  3073.   {$EXTERNALSYM PEMRPOLYBEZIER}
  3074.   EMRPOLYGON = tagEMRPOLYLINE;
  3075.   {$EXTERNALSYM EMRPOLYGON}
  3076.   PEMRPOLYGON = ^EMRPOLYGON;
  3077.   {$EXTERNALSYM PEMRPOLYGON}
  3078.   EMRPOLYBEZIERTO = tagEMRPOLYLINE;
  3079.   {$EXTERNALSYM EMRPOLYBEZIERTO}
  3080.   PEMRPOLYBEZIERTO = ^EMRPOLYBEZIERTO;
  3081.   {$EXTERNALSYM PEMRPOLYBEZIERTO}
  3082.   EMRPOLYLINETO = tagEMRPOLYLINE;
  3083.   {$EXTERNALSYM EMRPOLYLINETO}
  3084.   PEMRPOLYLINETO = ^EMRPOLYLINETO;
  3085.   {$EXTERNALSYM PEMRPOLYLINETO}
  3086.   TEmrPolyline = EMRPOLYLINE;
  3088.   PEmrPolyline16 = ^TEmrPolyline16;
  3089.   tagEMRPOLYLINE16 = record
  3090.     emr: EMR;
  3091.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3092.     cpts: DWORD;
  3093.     apts: array [0..0] of POINTS;
  3094.   end;
  3095.   {$EXTERNALSYM tagEMRPOLYLINE16}
  3096.   EMRPOLYLINE16 = tagEMRPOLYLINE16;
  3097.   {$EXTERNALSYM EMRPOLYLINE16}
  3098.   EMRPOLYBEZIER16 = tagEMRPOLYLINE16;
  3099.   {$EXTERNALSYM EMRPOLYBEZIER16}
  3100.   PEMRPOLYBEZIER16 = ^EMRPOLYBEZIER16;
  3101.   {$EXTERNALSYM PEMRPOLYBEZIER16}
  3102.   EMRPOLYGON16 = tagEMRPOLYLINE16;
  3103.   {$EXTERNALSYM EMRPOLYGON16}
  3104.   PEMRPOLYGON16 = ^EMRPOLYGON16;
  3105.   {$EXTERNALSYM PEMRPOLYGON16}
  3106.   EMRPOLYBEZIERTO16 = tagEMRPOLYLINE16;
  3107.   {$EXTERNALSYM EMRPOLYBEZIERTO16}
  3108.   PEMRPOLYBEZIERTO16 = ^EMRPOLYBEZIERTO16;
  3109.   {$EXTERNALSYM PEMRPOLYBEZIERTO16}
  3110.   EMRPOLYLINETO16 = tagEMRPOLYLINE16;
  3111.   {$EXTERNALSYM EMRPOLYLINETO16}
  3112.   PEMRPOLYLINETO16 = ^EMRPOLYLINETO16;
  3113.   {$EXTERNALSYM PEMRPOLYLINETO16}
  3114.   TEmrPolyline16 = EMRPOLYLINE16;
  3116.   PEmrPolyDraw = ^TEmrPolyDraw;
  3117.   tagEMRPOLYDRAW = record
  3118.     emr: EMR;
  3119.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3120.     cptl: DWORD; // Number of points
  3121.     aptl: array [0..0] of POINTL; // Array of points
  3122.     abTypes: array [0..0] of BYTE; // Array of point types
  3123.   end;
  3124.   {$EXTERNALSYM tagEMRPOLYDRAW}
  3125.   EMRPOLYDRAW = tagEMRPOLYDRAW;
  3126.   {$EXTERNALSYM EMRPOLYDRAW}
  3127.   TEmrPolyDraw = EMRPOLYDRAW;
  3129.   PEmrPolyDraw16 = ^TEmrPolyDraw16;
  3130.   tagEMRPOLYDRAW16 = record
  3131.     emr: EMR;
  3132.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3133.     cpts: DWORD; // Number of points
  3134.     apts: array [0..0] of POINTS; // Array of points
  3135.     abTypes: array [0..0] of BYTE; // Array of point types
  3136.   end;
  3137.   {$EXTERNALSYM tagEMRPOLYDRAW16}
  3138.   EMRPOLYDRAW16 = tagEMRPOLYDRAW16;
  3139.   {$EXTERNALSYM EMRPOLYDRAW16}
  3140.   TEmrPolyDraw16 = EMRPOLYDRAW16;
  3142.   PEmrPolyPolyline = ^TEmrPolyPolyline;
  3143.   tagEMRPOLYPOLYLINE = record
  3144.     emr: EMR;
  3145.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3146.     nPolys: DWORD; // Number of polys
  3147.     cptl: DWORD; // Total number of points in all polys
  3148.     aPolyCounts: array [0..0] of DWORD; // Array of point counts for each poly
  3149.     aptl: array [0..0] of POINTL; // Array of points
  3150.   end;
  3151.   {$EXTERNALSYM tagEMRPOLYPOLYLINE}
  3152.   EMRPOLYPOLYLINE = tagEMRPOLYPOLYLINE;
  3153.   {$EXTERNALSYM EMRPOLYPOLYLINE}
  3154.   EMRPOLYPOLYGON = tagEMRPOLYPOLYLINE;
  3155.   {$EXTERNALSYM EMRPOLYPOLYGON}
  3156.   TEmrPolyPolyline = EMRPOLYPOLYLINE;
  3158.   PEmrPolyPolyline16 = ^TEmrPolyPolyline16;
  3159.   tagEMRPOLYPOLYLINE16 = record
  3160.     emr: EMR;
  3161.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3162.     nPolys: DWORD; // Number of polys
  3163.     cpts: DWORD; // Total number of points in all polys
  3164.     aPolyCounts: array [0..0] of DWORD; // Array of point counts for each poly
  3165.     apts: array [0..0] of POINTS; // Array of points
  3166.   end;
  3167.   {$EXTERNALSYM tagEMRPOLYPOLYLINE16}
  3168.   EMRPOLYPOLYLINE16 = tagEMRPOLYPOLYLINE16;
  3169.   {$EXTERNALSYM EMRPOLYPOLYLINE16}
  3170.   EMRPOLYPOLYGON16 = tagEMRPOLYPOLYLINE16;
  3171.   {$EXTERNALSYM EMRPOLYPOLYGON16}
  3172.   PEMRPOLYPOLYGON16 = ^EMRPOLYPOLYGON16;
  3173.   {$EXTERNALSYM PEMRPOLYPOLYGON16}
  3174.   TEmrPolyPolyline16 = EMRPOLYPOLYLINE16;
  3176.   PEmrInvertRgn = ^TEmrInvertRgn;
  3177.   tagEMRINVERTRGN = record
  3178.     emr: EMR;
  3179.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3180.     cbRgnData: DWORD; // Size of region data in bytes
  3181.     RgnData: array [0..0] of BYTE;
  3182.   end;
  3183.   {$EXTERNALSYM tagEMRINVERTRGN}
  3184.   EMRINVERTRGN = tagEMRINVERTRGN;
  3185.   {$EXTERNALSYM EMRINVERTRGN}
  3186.   EMRPAINTRGN = tagEMRINVERTRGN;
  3187.   {$EXTERNALSYM EMRPAINTRGN}
  3188.   TEmrInvertRgn = EMRINVERTRGN;
  3190.   PEmrFillRgn = ^TEmrFillRgn;
  3191.   tagEMRFILLRGN = record
  3192.     emr: EMR;
  3193.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3194.     cbRgnData: DWORD; // Size of region data in bytes
  3195.     ihBrush: DWORD; // Brush handle index
  3196.     RgnData: array [0..0] of BYTE;
  3197.   end;
  3198.   {$EXTERNALSYM tagEMRFILLRGN}
  3199.   EMRFILLRGN = tagEMRFILLRGN;
  3200.   {$EXTERNALSYM EMRFILLRGN}
  3201.   TEmrFillRgn = EMRFILLRGN;
  3203.   PEmrFrameRgn = ^TEmrFrameRgn;
  3204.   tagEMRFRAMERGN = record
  3205.     emr: EMR;
  3206.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3207.     cbRgnData: DWORD; // Size of region data in bytes
  3208.     ihBrush: DWORD; // Brush handle index
  3209.     szlStroke: SIZEL;
  3210.     RgnData: array [0..0] of BYTE;
  3211.   end;
  3212.   {$EXTERNALSYM tagEMRFRAMERGN}
  3213.   EMRFRAMERGN = tagEMRFRAMERGN;
  3214.   {$EXTERNALSYM EMRFRAMERGN}
  3215.   TEmrFrameRgn = EMRFRAMERGN;
  3217.   PEmrExtSelectClipRgn = ^TEmrExtSelectClipRgn;
  3218.   tagEMREXTSELECTCLIPRGN = record
  3219.     emr: EMR;
  3220.     cbRgnData: DWORD; // Size of region data in bytes
  3221.     iMode: DWORD;
  3222.     RgnData: array [0..0] of BYTE;
  3223.   end;
  3224.   {$EXTERNALSYM tagEMREXTSELECTCLIPRGN}
  3225.   EMREXTSELECTCLIPRGN = tagEMREXTSELECTCLIPRGN;
  3226.   {$EXTERNALSYM EMREXTSELECTCLIPRGN}
  3227.   TEmrExtSelectClipRgn = EMREXTSELECTCLIPRGN;
  3229.   PEmrExtTextOutA = ^TEmrExtTextOutA;
  3230.   tagEMREXTTEXTOUTA = record
  3231.     emr: EMR;
  3232.     rclBounds: RECTL;     // Inclusive-inclusive bounds in device units
  3233.     iGraphicsMode: DWORD; // Current graphics mode
  3234.     exScale: FLOAT;       // X and Y scales from Page units to .01mm units
  3235.     eyScale: FLOAT;       // if graphics mode is GM_COMPATIBLE.
  3236.     emrtext: EMRTEXT;     // This is followed by the string and spacing array
  3237.   end;
  3238.   {$EXTERNALSYM tagEMREXTTEXTOUTA}
  3239.   EMREXTTEXTOUTA = tagEMREXTTEXTOUTA;
  3240.   {$EXTERNALSYM EMREXTTEXTOUTA}
  3241.   EMREXTTEXTOUTW = tagEMREXTTEXTOUTA;
  3242.   {$EXTERNALSYM EMREXTTEXTOUTW}
  3243.   PEMREXTTEXTOUTW = ^EMREXTTEXTOUTW;
  3244.   {$EXTERNALSYM PEMREXTTEXTOUTW}
  3245.   TEmrExtTextOutA = EMREXTTEXTOUTA;
  3247.   PEmrPolyTextOutA = ^TEmrPolyTextOutA;
  3248.   tagEMRPOLYTEXTOUTA = record
  3249.     emr: EMR;
  3250.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3251.     iGraphicsMode: DWORD; // Current graphics mode
  3252.     exScale: FLOAT; // X and Y scales from Page units to .01mm units
  3253.     eyScale: FLOAT; // if graphics mode is GM_COMPATIBLE.
  3254.     cStrings: LONG;
  3255.     aemrtext: array [0..0] of EMRTEXT; // Array of EMRTEXT structures.  This is
  3256.     // followed by the strings and spacing arrays.
  3257.   end;
  3258.   {$EXTERNALSYM tagEMRPOLYTEXTOUTA}
  3259.   EMRPOLYTEXTOUTA = tagEMRPOLYTEXTOUTA;
  3260.   {$EXTERNALSYM EMRPOLYTEXTOUTA}
  3261.   EMRPOLYTEXTOUTW = tagEMRPOLYTEXTOUTA;
  3262.   {$EXTERNALSYM EMRPOLYTEXTOUTW}
  3263.   PEMRPOLYTEXTOUTW = ^EMRPOLYTEXTOUTW;
  3264.   {$EXTERNALSYM PEMRPOLYTEXTOUTW}
  3265.   TEmrPolyTextOutA = EMRPOLYTEXTOUTA;
  3267.   PEmrBitBlt = ^TEmrBitBlt;
  3268.   tagEMRBITBLT = record
  3269.     emr: EMR;
  3270.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3271.     xDest: LONG;
  3272.     yDest: LONG;
  3273.     cxDest: LONG;
  3274.     cyDest: LONG;
  3275.     dwRop: DWORD;
  3276.     xSrc: LONG;
  3277.     ySrc: LONG;
  3278.     xformSrc: XFORM; // Source DC transform
  3279.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3280.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3281.     // (DIB_RGB_COLORS)
  3282.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3283.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3284.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3285.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3286.   end;
  3287.   {$EXTERNALSYM tagEMRBITBLT}
  3288.   EMRBITBLT = tagEMRBITBLT;
  3289.   {$EXTERNALSYM EMRBITBLT}
  3290.   TEmrBitBlt = EMRBITBLT;
  3292.   PEmrStretchBlt = ^TEmrStretchBlt;
  3293.   tagEMRSTRETCHBLT = record
  3294.     emr: EMR;
  3295.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3296.     xDest: LONG;
  3297.     yDest: LONG;
  3298.     cxDest: LONG;
  3299.     cyDest: LONG;
  3300.     dwRop: DWORD;
  3301.     xSrc: LONG;
  3302.     ySrc: LONG;
  3303.     xformSrc: XFORM; // Source DC transform
  3304.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3305.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3306.     // (DIB_RGB_COLORS)
  3307.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3308.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3309.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3310.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3311.     cxSrc: LONG;
  3312.     cySrc: LONG;
  3313.   end;
  3314.   {$EXTERNALSYM tagEMRSTRETCHBLT}
  3315.   EMRSTRETCHBLT = tagEMRSTRETCHBLT;
  3316.   {$EXTERNALSYM EMRSTRETCHBLT}
  3317.   TEmrStretchBlt = EMRSTRETCHBLT;
  3319.   PEmrMaskBlt = ^TEmrMaskBlt;
  3320.   tagEMRMASKBLT = record
  3321.     emr: EMR;
  3322.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3323.     xDest: LONG;
  3324.     yDest: LONG;
  3325.     cxDest: LONG;
  3326.     cyDest: LONG;
  3327.     dwRop: DWORD;
  3328.     xSrc: LONG;
  3329.     ySrc: LONG;
  3330.     xformSrc: XFORM; // Source DC transform
  3331.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3332.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3333.     // (DIB_RGB_COLORS)
  3334.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3335.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3336.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3337.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3338.     xMask: LONG;
  3339.     yMask: LONG;
  3340.     iUsageMask: DWORD; // Mask bitmap info color table usage
  3341.     offBmiMask: DWORD; // Offset to the mask BITMAPINFO structure if any
  3342.     cbBmiMask: DWORD; // Size of the mask BITMAPINFO structure if any
  3343.     offBitsMask: DWORD; // Offset to the mask bitmap bits if any
  3344.     cbBitsMask: DWORD; // Size of the mask bitmap bits if any
  3345.   end;
  3346.   {$EXTERNALSYM tagEMRMASKBLT}
  3347.   EMRMASKBLT = tagEMRMASKBLT;
  3348.   {$EXTERNALSYM EMRMASKBLT}
  3349.   TEmrMaskBlt = EMRMASKBLT;
  3351.   PEmrPlgBlt = ^TEmrPlgBlt;
  3352.   tagEMRPLGBLT = record
  3353.     emr: EMR;
  3354.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3355.     aptlDest: array[0..2] of POINTL;
  3356.     xSrc: LONG;
  3357.     ySrc: LONG;
  3358.     cxSrc: LONG;
  3359.     cySrc: LONG;
  3360.     xformSrc: XFORM; // Source DC transform
  3361.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3362.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3363.     // (DIB_RGB_COLORS)
  3364.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3365.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3366.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3367.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3368.     xMask: LONG;
  3369.     yMask: LONG;
  3370.     iUsageMask: DWORD; // Mask bitmap info color table usage
  3371.     offBmiMask: DWORD; // Offset to the mask BITMAPINFO structure if any
  3372.     cbBmiMask: DWORD; // Size of the mask BITMAPINFO structure if any
  3373.     offBitsMask: DWORD; // Offset to the mask bitmap bits if any
  3374.     cbBitsMask: DWORD; // Size of the mask bitmap bits if any
  3375.   end;
  3376.   {$EXTERNALSYM tagEMRPLGBLT}
  3377.   EMRPLGBLT = tagEMRPLGBLT;
  3378.   {$EXTERNALSYM EMRPLGBLT}
  3379.   TEmrPlgBlt = EMRPLGBLT;
  3381.   PEmrSetDiBitsToDevice = ^TEmrSetDiBitsToDevice;
  3382.   tagEMRSETDIBITSTODEVICE = record
  3383.     emr: EMR;
  3384.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3385.     xDest: LONG;
  3386.     yDest: LONG;
  3387.     xSrc: LONG;
  3388.     ySrc: LONG;
  3389.     cxSrc: LONG;
  3390.     cySrc: LONG;
  3391.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3392.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3393.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3394.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3395.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3396.     iStartScan: DWORD;
  3397.     cScans: DWORD;
  3398.   end;
  3399.   {$EXTERNALSYM tagEMRSETDIBITSTODEVICE}
  3400.   EMRSETDIBITSTODEVICE = tagEMRSETDIBITSTODEVICE;
  3401.   {$EXTERNALSYM EMRSETDIBITSTODEVICE}
  3402.   TEmrSetDiBitsToDevice = EMRSETDIBITSTODEVICE;
  3404.   PEmrStretchDiBits = ^TEmrStretchDiBits;
  3405.   tagEMRSTRETCHDIBITS = record
  3406.     emr: EMR;
  3407.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3408.     xDest: LONG;
  3409.     yDest: LONG;
  3410.     xSrc: LONG;
  3411.     ySrc: LONG;
  3412.     cxSrc: LONG;
  3413.     cySrc: LONG;
  3414.     offBmiSrc: DWORD; // Offset to the source BITMAPINFO structure
  3415.     cbBmiSrc: DWORD; // Size of the source BITMAPINFO structure
  3416.     offBitsSrc: DWORD; // Offset to the source bitmap bits
  3417.     cbBitsSrc: DWORD; // Size of the source bitmap bits
  3418.     iUsageSrc: DWORD; // Source bitmap info color table usage
  3419.     dwRop: DWORD;
  3420.     cxDest: LONG;
  3421.     cyDest: LONG;
  3422.   end;
  3423.   {$EXTERNALSYM tagEMRSTRETCHDIBITS}
  3424.   EMRSTRETCHDIBITS = tagEMRSTRETCHDIBITS;
  3425.   {$EXTERNALSYM EMRSTRETCHDIBITS}
  3426.   TEmrStretchDiBits = EMRSTRETCHDIBITS;
  3428.   PEmrExtCreateFontIndirectW = ^TEmrExtCreateFontIndirectW;
  3429.   tagEMREXTCREATEFONTINDIRECTW = record
  3430.     emr: EMR;
  3431.     ihFont: DWORD; // Font handle index
  3432.     elfw: EXTLOGFONTW;
  3433.   end;
  3434.   {$EXTERNALSYM tagEMREXTCREATEFONTINDIRECTW}
  3435.   EMREXTCREATEFONTINDIRECTW = tagEMREXTCREATEFONTINDIRECTW;
  3436.   {$EXTERNALSYM EMREXTCREATEFONTINDIRECTW}
  3437.   TEmrExtCreateFontIndirectW = EMREXTCREATEFONTINDIRECTW;
  3439.   PEmrCreatePalette = ^TEmrCreatePalette;
  3440.   tagEMRCREATEPALETTE = record
  3441.     emr: EMR;
  3442.     ihPal: DWORD; // Palette handle index
  3443.     lgpl: LOGPALETTE; // The peFlags fields in the palette entries
  3444.     // do not contain any flags
  3445.   end;
  3446.   {$EXTERNALSYM tagEMRCREATEPALETTE}
  3447.   EMRCREATEPALETTE = tagEMRCREATEPALETTE;
  3448.   {$EXTERNALSYM EMRCREATEPALETTE}
  3449.   TEmrCreatePalette = EMRCREATEPALETTE;
  3451.   PEmrCreatePen = ^TEmrCreatePen;
  3452.   tagEMRCREATEPEN = record
  3453.     emr: EMR;
  3454.     ihPen: DWORD; // Pen handle index
  3455.     lopn: LOGPEN;
  3456.   end;
  3457.   {$EXTERNALSYM tagEMRCREATEPEN}
  3458.   EMRCREATEPEN = tagEMRCREATEPEN;
  3459.   {$EXTERNALSYM EMRCREATEPEN}
  3460.   TEmrCreatePen = EMRCREATEPEN;
  3462.   PEmrExtCreatePen = ^TEmrExtCreatePen;
  3463.   tagEMREXTCREATEPEN = record
  3464.     emr: EMR;
  3465.     ihPen: DWORD; // Pen handle index
  3466.     offBmi: DWORD; // Offset to the BITMAPINFO structure if any
  3467.     cbBmi: DWORD; // Size of the BITMAPINFO structure if any
  3468.     // The bitmap info is followed by the bitmap
  3469.     // bits to form a packed DIB.
  3470.     offBits: DWORD; // Offset to the brush bitmap bits if any
  3471.     cbBits: DWORD; // Size of the brush bitmap bits if any
  3472.     elp: EXTLOGPEN; // The extended pen with the style array.
  3473.   end;
  3474.   {$EXTERNALSYM tagEMREXTCREATEPEN}
  3475.   EMREXTCREATEPEN = tagEMREXTCREATEPEN;
  3476.   {$EXTERNALSYM EMREXTCREATEPEN}
  3477.   TEmrExtCreatePen = EMREXTCREATEPEN;
  3479.   PEmrCreateBrushIndirect = ^TEmrCreateBrushIndirect;
  3480.   tagEMRCREATEBRUSHINDIRECT = record
  3481.     emr: EMR;
  3482.     ihBrush: DWORD; // Brush handle index
  3483.     lb: LOGBRUSH32; // The style must be BS_SOLID, BS_HOLLOW,
  3484.     // BS_NULL or BS_HATCHED.
  3485.   end;
  3486.   {$EXTERNALSYM tagEMRCREATEBRUSHINDIRECT}
  3487.   EMRCREATEBRUSHINDIRECT = tagEMRCREATEBRUSHINDIRECT;
  3488.   {$EXTERNALSYM EMRCREATEBRUSHINDIRECT}
  3489.   TEmrCreateBrushIndirect = EMRCREATEBRUSHINDIRECT;
  3491.   PEmrCreateMonoBrush = ^TEmrCreateMonoBrush;
  3492.   tagEMRCREATEMONOBRUSH = record
  3493.     emr: EMR;
  3494.     ihBrush: DWORD; // Brush handle index
  3495.     iUsage: DWORD; // Bitmap info color table usage
  3496.     offBmi: DWORD; // Offset to the BITMAPINFO structure
  3497.     cbBmi: DWORD; // Size of the BITMAPINFO structure
  3498.     offBits: DWORD; // Offset to the bitmap bits
  3499.     cbBits: DWORD; // Size of the bitmap bits
  3500.   end;
  3501.   {$EXTERNALSYM tagEMRCREATEMONOBRUSH}
  3502.   EMRCREATEMONOBRUSH = tagEMRCREATEMONOBRUSH;
  3503.   {$EXTERNALSYM EMRCREATEMONOBRUSH}
  3504.   TEmrCreateMonoBrush = EMRCREATEMONOBRUSH;
  3506.   PEmrCreateDibPatternBrushPt = ^TEmrCreateDibPatternBrushPt;
  3507.   tagEMRCREATEDIBPATTERNBRUSHPT = record
  3508.     emr: EMR;
  3509.     ihBrush: DWORD; // Brush handle index
  3510.     iUsage: DWORD; // Bitmap info color table usage
  3511.     offBmi: DWORD; // Offset to the BITMAPINFO structure
  3512.     cbBmi: DWORD; // Size of the BITMAPINFO structure
  3513.     // The bitmap info is followed by the bitmap
  3514.     // bits to form a packed DIB.
  3515.     offBits: DWORD; // Offset to the bitmap bits
  3516.     cbBits: DWORD; // Size of the bitmap bits
  3517.   end;
  3518.   {$EXTERNALSYM tagEMRCREATEDIBPATTERNBRUSHPT}
  3519.   EMRCREATEDIBPATTERNBRUSHPT = tagEMRCREATEDIBPATTERNBRUSHPT;
  3520.   {$EXTERNALSYM EMRCREATEDIBPATTERNBRUSHPT}
  3521.   TEmrCreateDibPatternBrushPt = EMRCREATEDIBPATTERNBRUSHPT;
  3523.   PEmrFormat = ^TEmrFormat;
  3524.   tagEMRFORMAT = record
  3525.     dSignature: DWORD; // Format signature, e.g. ENHMETA_SIGNATURE.
  3526.     nVersion: DWORD; // Format version number.
  3527.     cbData: DWORD; // Size of data in bytes.
  3528.     offData: DWORD; // Offset to data from GDICOMMENT_IDENTIFIER.
  3529.     // It must begin at a DWORD offset.
  3530.   end;
  3531.   {$EXTERNALSYM tagEMRFORMAT}
  3532.   EMRFORMAT = tagEMRFORMAT;
  3533.   {$EXTERNALSYM EMRFORMAT}
  3534.   TEmrFormat = EMRFORMAT;
  3536.   PEmrGlsRecord = ^TEmrGlsRecord;
  3537.   tagEMRGLSRECORD = record
  3538.     emr: EMR;
  3539.     cbData: DWORD; // Size of data in bytes
  3540.     Data: array [0..0] of BYTE;
  3541.   end;
  3542.   {$EXTERNALSYM tagEMRGLSRECORD}
  3543.   EMRGLSRECORD = tagEMRGLSRECORD;
  3544.   {$EXTERNALSYM EMRGLSRECORD}
  3545.   TEmrGlsRecord = EMRGLSRECORD;
  3547.   PEmrGlsBoundedRecord = ^TEmrGlsBoundedRecord;
  3548.   tagEMRGLSBOUNDEDRECORD = record
  3549.     emr: EMR;
  3550.     rclBounds: RECTL; // Bounds in recording coordinates
  3551.     cbData: DWORD; // Size of data in bytes
  3552.     Data: array [0..0] of BYTE;
  3553.   end;
  3554.   {$EXTERNALSYM tagEMRGLSBOUNDEDRECORD}
  3555.   EMRGLSBOUNDEDRECORD = tagEMRGLSBOUNDEDRECORD;
  3556.   {$EXTERNALSYM EMRGLSBOUNDEDRECORD}
  3557.   TEmrGlsBoundedRecord = EMRGLSBOUNDEDRECORD;
  3559.   PEmrPixelFormat = ^TEmrPixelFormat;
  3560.   tagEMRPIXELFORMAT = record
  3561.     emr: EMR;
  3562.     pfd: PIXELFORMATDESCRIPTOR;
  3563.   end;
  3564.   {$EXTERNALSYM tagEMRPIXELFORMAT}
  3565.   EMRPIXELFORMAT = tagEMRPIXELFORMAT;
  3566.   {$EXTERNALSYM EMRPIXELFORMAT}
  3567.   TEmrPixelFormat = EMRPIXELFORMAT;
  3569.   PEmrCreateColorSpace = ^TEmrCreateColorSpace;
  3570.   tagEMRCREATECOLORSPACE = record
  3571.     emr: EMR;
  3572.     ihCS: DWORD; // ColorSpace handle index
  3573.     lcs: LOGCOLORSPACEA; // Ansi version of LOGCOLORSPACE
  3574.   end;
  3575.   {$EXTERNALSYM tagEMRCREATECOLORSPACE}
  3576.   EMRCREATECOLORSPACE = tagEMRCREATECOLORSPACE;
  3577.   {$EXTERNALSYM EMRCREATECOLORSPACE}
  3578.   TEmrCreateColorSpace = EMRCREATECOLORSPACE;
  3580.   PEmrSetColorSpace = ^TEmrSetColorSpace;
  3581.   tagEMRSETCOLORSPACE = record
  3582.     emr: EMR;
  3583.     ihCS: DWORD; // ColorSpace handle index
  3584.   end;
  3585.   {$EXTERNALSYM tagEMRSETCOLORSPACE}
  3586.   EMRSETCOLORSPACE = tagEMRSETCOLORSPACE;
  3587.   {$EXTERNALSYM EMRSETCOLORSPACE}
  3588.   EMRSELECTCOLORSPACE = tagEMRSETCOLORSPACE;
  3589.   {$EXTERNALSYM EMRSELECTCOLORSPACE}
  3590.   PEMRSELECTCOLORSPACE = ^EMRSELECTCOLORSPACE;
  3591.   {$EXTERNALSYM PEMRSELECTCOLORSPACE}
  3592.   EMRDELETECOLORSPACE = tagEMRSETCOLORSPACE;
  3593.   {$EXTERNALSYM EMRDELETECOLORSPACE}
  3594.   PEMRDELETECOLORSPACE = ^EMRDELETECOLORSPACE;
  3595.   {$EXTERNALSYM PEMRDELETECOLORSPACE}
  3596.   TEmrSetColorSpace = EMRSETCOLORSPACE;
  3598.   PEmrExtEscape = ^TEmrExtEscape;
  3599.   tagEMREXTESCAPE = record
  3600.     emr: EMR;
  3601.     iEscape: INT; // Escape code
  3602.     cbEscData: INT; // Size of escape data
  3603.     EscData: array [0..0] of BYTE; // Escape data
  3604.   end;
  3605.   {$EXTERNALSYM tagEMREXTESCAPE}
  3606.   EMREXTESCAPE = tagEMREXTESCAPE;
  3607.   {$EXTERNALSYM EMREXTESCAPE}
  3608.   EMRDRAWESCAPE = tagEMREXTESCAPE;
  3609.   {$EXTERNALSYM EMRDRAWESCAPE}
  3610.   PEMRDRAWESCAPE = ^EMRDRAWESCAPE;
  3611.   {$EXTERNALSYM PEMRDRAWESCAPE}
  3612.   TEmrExtEscape = EMREXTESCAPE;
  3614.   PEmrNamedEscape = ^TEmrNamedEscape;
  3615.   tagEMRNAMEDESCAPE = record
  3616.     emr: EMR;
  3617.     iEscape: INT; // Escape code
  3618.     cbDriver: INT; // Size of driver name
  3619.     cbEscData: INT; // Size of escape data
  3620.     EscData: array [0..0] of BYTE; // Driver name and Escape data
  3621.   end;
  3622.   {$EXTERNALSYM tagEMRNAMEDESCAPE}
  3623.   EMRNAMEDESCAPE = tagEMRNAMEDESCAPE;
  3624.   {$EXTERNALSYM EMRNAMEDESCAPE}
  3625.   TEmrNamedEscape = EMRNAMEDESCAPE;
  3627. const
  3628.   SETICMPROFILE_EMBEDED = $00000001;
  3629.   {$EXTERNALSYM SETICMPROFILE_EMBEDED}
  3631. type
  3632.   PEmrSetIcmProfile = ^TEmrSetIcmProfile;
  3633.   tagEMRSETICMPROFILE = record
  3634.     emr: EMR;
  3635.     dwFlags: DWORD; // flags
  3636.     cbName: DWORD; // Size of desired profile name
  3637.     cbData: DWORD; // Size of raw profile data if attached
  3638.     Data: array [0..0] of BYTE; // Array size is cbName + cbData
  3639.   end;
  3640.   {$EXTERNALSYM tagEMRSETICMPROFILE}
  3641.   EMRSETICMPROFILE = tagEMRSETICMPROFILE;
  3642.   {$EXTERNALSYM EMRSETICMPROFILE}
  3643.   EMRSETICMPROFILEA = tagEMRSETICMPROFILE;
  3644.   {$EXTERNALSYM EMRSETICMPROFILEA}
  3645.   PEMRSETICMPROFILEA = ^EMRSETICMPROFILEA;
  3646.   {$EXTERNALSYM PEMRSETICMPROFILEA}
  3647.   EMRSETICMPROFILEW = tagEMRSETICMPROFILE;
  3648.   {$EXTERNALSYM EMRSETICMPROFILEW}
  3649.   PEMRSETICMPROFILEW = ^EMRSETICMPROFILEW;
  3650.   {$EXTERNALSYM PEMRSETICMPROFILEW}
  3651.   TEmrSetIcmProfile = EMRSETICMPROFILE;
  3653. const
  3654.   CREATECOLORSPACE_EMBEDED = $00000001;
  3655.   {$EXTERNALSYM CREATECOLORSPACE_EMBEDED}
  3657. type
  3658.   PEmrCreateColorSpaceW = ^TEmrCreateColorSpaceW;
  3659.   tagEMRCREATECOLORSPACEW = record
  3660.     emr: EMR;
  3661.     ihCS: DWORD; // ColorSpace handle index
  3662.     lcs: LOGCOLORSPACEW; // Unicode version of logical color space structure
  3663.     dwFlags: DWORD; // flags
  3664.     cbData: DWORD; // size of raw source profile data if attached
  3665.     Data: array [0..0] of BYTE; // Array size is cbData
  3666.   end;
  3667.   {$EXTERNALSYM tagEMRCREATECOLORSPACEW}
  3668.   EMRCREATECOLORSPACEW = tagEMRCREATECOLORSPACEW;
  3669.   {$EXTERNALSYM EMRCREATECOLORSPACEW}
  3670.   TEmrCreateColorSpaceW = EMRCREATECOLORSPACEW;
  3672. const
  3673.   COLORMATCHTOTARGET_EMBEDED = $00000001;
  3674.   {$EXTERNALSYM COLORMATCHTOTARGET_EMBEDED}
  3676. type
  3677.   PColorMatchToTarget = ^TColorMatchToTarget;
  3678.   tagCOLORMATCHTOTARGET = record
  3679.     emr: EMR;
  3680.     dwAction: DWORD;  // CS_ENABLE, CS_DISABLE or CS_DELETE_TRANSFORM
  3681.     dwFlags: DWORD;   // flags
  3682.     cbName: DWORD;    // Size of desired target profile name
  3683.     cbData: DWORD;    // Size of raw target profile data if attached
  3684.     Data: array [0..0] of BYTE; // Array size is cbName + cbData
  3685.   end;
  3686.   {$EXTERNALSYM tagCOLORMATCHTOTARGET}
  3687.   //COLORMATCHTOTARGET = tagCOLORMATCHTOTARGET;
  3688.   //{$EXTERNALSYM COLORMATCHTOTARGET}
  3689.   TColorMatchToTarget = tagCOLORMATCHTOTARGET;
  3691.   PColorCorrectPalette = ^TColorCorrectPalette;
  3692.   tagCOLORCORRECTPALETTE = record
  3693.     emr: EMR;
  3694.     ihPalette: DWORD;   // Palette handle index
  3695.     nFirstEntry: DWORD; // Index of first entry to correct
  3696.     nPalEntries: DWORD; // Number of palette entries to correct
  3697.     nReserved: DWORD;   // Reserved
  3698.   end;
  3699.   {$EXTERNALSYM tagCOLORCORRECTPALETTE}
  3700.   //COLORCORRECTPALETTE = tagCOLORCORRECTPALETTE;
  3701.   //{$EXTERNALSYM COLORCORRECTPALETTE}
  3702.   TColorCorrectPalette = tagCOLORCORRECTPALETTE;
  3704.   PEmrAlphaBlend = ^TEmrAlphaBlend;
  3705.   tagEMRALPHABLEND = record
  3706.     emr: EMR;
  3707.     rclBounds: RECTL;       // Inclusive-inclusive bounds in device units
  3708.     xDest: LONG;
  3709.     yDest: LONG;
  3710.     cxDest: LONG;
  3711.     cyDest: LONG;
  3712.     dwRop: DWORD;
  3713.     xSrc: LONG;
  3714.     ySrc: LONG;
  3715.     xformSrc: XFORM;        // Source DC transform
  3716.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3717.     iUsageSrc: DWORD;       // Source bitmap info color table usage (DIB_RGB_COLORS)
  3718.     offBmiSrc: DWORD;       // Offset to the source BITMAPINFO structure
  3719.     cbBmiSrc: DWORD;        // Size of the source BITMAPINFO structure
  3720.     offBitsSrc: DWORD;      // Offset to the source bitmap bits
  3721.     cbBitsSrc: DWORD;       // Size of the source bitmap bits
  3722.     cxSrc: LONG;
  3723.     cySrc: LONG;
  3724.   end;
  3725.   {$EXTERNALSYM tagEMRALPHABLEND}
  3726.   EMRALPHABLEND = tagEMRALPHABLEND;
  3727.   {$EXTERNALSYM EMRALPHABLEND}
  3728.   TEmrAlphaBlend = EMRALPHABLEND;
  3730.   PEmrGradientFill = ^TEmrGradientFill;
  3731.   tagEMRGRADIENTFILL = record
  3732.     emr: EMR;
  3733.     rclBounds: RECTL; // Inclusive-inclusive bounds in device units
  3734.     nVer: DWORD;
  3735.     nTri: DWORD;
  3736.     ulMode: ULONG;
  3737.     Ver: array [0..0] of TRIVERTEX;
  3738.   end;
  3739.   {$EXTERNALSYM tagEMRGRADIENTFILL}
  3740.   EMRGRADIENTFILL = tagEMRGRADIENTFILL;
  3741.   {$EXTERNALSYM EMRGRADIENTFILL}
  3742.   TEmrGradientFill = EMRGRADIENTFILL;
  3744.   PEmrTransparentBlt = ^TEmrTransparentBlt;
  3745.   tagEMRTRANSPARENTBLT = record
  3746.     emr: EMR;
  3747.     rclBounds: RECTL;       // Inclusive-inclusive bounds in device units
  3748.     xDest: LONG;
  3749.     yDest: LONG;
  3750.     cxDest: LONG;
  3751.     cyDest: LONG;
  3752.     dwRop: DWORD;
  3753.     xSrc: LONG;
  3754.     ySrc: LONG;
  3755.     xformSrc: XFORM;        // Source DC transform
  3756.     crBkColorSrc: COLORREF; // Source DC BkColor in RGB
  3757.     iUsageSrc: DWORD;       // Source bitmap info color table usage
  3758.                             // (DIB_RGB_COLORS)
  3759.     offBmiSrc: DWORD;       // Offset to the source BITMAPINFO structure
  3760.     cbBmiSrc: DWORD;        // Size of the source BITMAPINFO structure
  3761.     offBitsSrc: DWORD;      // Offset to the source bitmap bits
  3762.     cbBitsSrc: DWORD;       // Size of the source bitmap bits
  3763.     cxSrc: LONG;
  3764.     cySrc: LONG;
  3765.   end;
  3766.   {$EXTERNALSYM tagEMRTRANSPARENTBLT}
  3767.   EMRTRANSPARENTBLT = tagEMRTRANSPARENTBLT;
  3768.   {$EXTERNALSYM EMRTRANSPARENTBLT}
  3769.   TEmrTransparentBlt = EMRTRANSPARENTBLT;
  3771. const
  3772.   GDICOMMENT_IDENTIFIER       = $43494447;
  3773.   {$EXTERNALSYM GDICOMMENT_IDENTIFIER}
  3774.   GDICOMMENT_WINDOWS_METAFILE = DWORD($80000001);
  3775.   {$EXTERNALSYM GDICOMMENT_WINDOWS_METAFILE}
  3776.   GDICOMMENT_BEGINGROUP       = $00000002;
  3777.   {$EXTERNALSYM GDICOMMENT_BEGINGROUP}
  3778.   GDICOMMENT_ENDGROUP         = $00000003;
  3779.   {$EXTERNALSYM GDICOMMENT_ENDGROUP}
  3780.   GDICOMMENT_MULTIFORMATS     = $40000004;
  3781.   {$EXTERNALSYM GDICOMMENT_MULTIFORMATS}
  3782.   EPS_SIGNATURE               = $46535045;
  3783.   {$EXTERNALSYM EPS_SIGNATURE}
  3784.   GDICOMMENT_UNICODE_STRING   = $00000040;
  3785.   {$EXTERNALSYM GDICOMMENT_UNICODE_STRING}
  3786.   GDICOMMENT_UNICODE_END      = $00000080;
  3787.   {$EXTERNALSYM GDICOMMENT_UNICODE_END}
  3789. // OpenGL wgl prototypes
  3791. function wglCopyContext(hglrcSrc, hglrcDest: HGLRC; mask: UINT): BOOL; stdcall;
  3792. {$EXTERNALSYM wglCopyContext}
  3793. function wglCreateContext(hdc: HDC): HGLRC; stdcall;
  3794. {$EXTERNALSYM wglCreateContext}
  3795. function wglCreateLayerContext(hdc: HDC; iLayerPlane: Integer): HGLRC; stdcall;
  3796. {$EXTERNALSYM wglCreateLayerContext}
  3797. function wglDeleteContext(hglrc: HGLRC): BOOL; stdcall;
  3798. {$EXTERNALSYM wglDeleteContext}
  3799. function wglGetCurrentContext: HGLRC; stdcall;
  3800. {$EXTERNALSYM wglGetCurrentContext}
  3801. function wglGetCurrentDC: HDC; stdcall;
  3802. {$EXTERNALSYM wglGetCurrentDC}
  3803. function wglGetProcAddress(lpszProc: LPCSTR): PROC; stdcall;
  3804. {$EXTERNALSYM wglGetProcAddress}
  3805. function wglMakeCurrent(hdc: HDC; hglrc: HGLRC): BOOL; stdcall;
  3806. {$EXTERNALSYM wglMakeCurrent}
  3807. function wglShareLists(hglrc1, hglrc2: HGLRC): BOOL; stdcall;
  3808. {$EXTERNALSYM wglShareLists}
  3810. function wglUseFontBitmapsA(hdc: HDC; first, count, listBase: DWORD): BOOL; stdcall;
  3811. {$EXTERNALSYM wglUseFontBitmapsA}
  3812. function wglUseFontBitmapsW(hdc: HDC; first, count, listBase: DWORD): BOOL; stdcall;
  3813. {$EXTERNALSYM wglUseFontBitmapsW}
  3815. {$IFDEF UNICODE}
  3816. function wglUseFontBitmaps(hdc: HDC; first, count, listBase: DWORD): BOOL; stdcall;
  3817. {$EXTERNALSYM wglUseFontBitmaps}
  3818. {$ELSE}
  3819. function wglUseFontBitmaps(hdc: HDC; first, count, listBase: DWORD): BOOL; stdcall;
  3820. {$EXTERNALSYM wglUseFontBitmaps}
  3821. {$ENDIF}
  3823. function SwapBuffers(hdc: HDC): BOOL; stdcall;
  3824. {$EXTERNALSYM SwapBuffers}
  3826. type
  3827.   PPointFloat = ^TPointFloat;
  3828.   _POINTFLOAT = record
  3829.     x: FLOAT;
  3830.     y: FLOAT;
  3831.   end;
  3832.   {$EXTERNALSYM _POINTFLOAT}
  3833.   POINTFLOAT = _POINTFLOAT;
  3834.   {$EXTERNALSYM POINTFLOAT}
  3835.   TPointFloat = _POINTFLOAT;
  3837.   PGlyphMetricsFloat = ^TGlyphMetricsFloat;
  3838.   _GLYPHMETRICSFLOAT = record
  3839.     gmfBlackBoxX: FLOAT;
  3840.     gmfBlackBoxY: FLOAT;
  3841.     gmfptGlyphOrigin: POINTFLOAT;
  3842.     gmfCellIncX: FLOAT;
  3843.     gmfCellIncY: FLOAT;
  3844.   end;
  3845.   {$EXTERNALSYM _GLYPHMETRICSFLOAT}
  3846.   GLYPHMETRICSFLOAT = _GLYPHMETRICSFLOAT;
  3847.   {$EXTERNALSYM GLYPHMETRICSFLOAT}
  3848.   LPGLYPHMETRICSFLOAT = ^GLYPHMETRICSFLOAT;
  3849.   {$EXTERNALSYM LPGLYPHMETRICSFLOAT}
  3850.   TGlyphMetricsFloat = _GLYPHMETRICSFLOAT;
  3852. const
  3853.   WGL_FONT_LINES    = 0;
  3854.   {$EXTERNALSYM WGL_FONT_LINES}
  3855.   WGL_FONT_POLYGONS = 1;
  3856.   {$EXTERNALSYM WGL_FONT_POLYGONS}
  3858. function wglUseFontOutlinesA(hdc: HDC; first, count, listBase: DWORD; deviation,
  3859.   extrusion: FLOAT; format: Integer; lpgmf: LPGLYPHMETRICSFLOAT): BOOL; stdcall;
  3860. {$EXTERNALSYM wglUseFontOutlinesA}
  3861. function wglUseFontOutlinesW(hdc: HDC; first, count, listBase: DWORD; deviation,
  3862.   extrusion: FLOAT; format: Integer; lpgmf: LPGLYPHMETRICSFLOAT): BOOL; stdcall;
  3863. {$EXTERNALSYM wglUseFontOutlinesW}
  3865. {$IFDEF UNICODE}
  3866. function wglUseFontOutlines(hdc: HDC; first, count, listBase: DWORD; deviation,
  3867.   extrusion: FLOAT; format: Integer; lpgmf: LPGLYPHMETRICSFLOAT): BOOL; stdcall;
  3868. {$EXTERNALSYM wglUseFontOutlines}
  3869. {$ELSE}
  3870. function wglUseFontOutlines(hdc: HDC; first, count, listBase: DWORD; deviation,
  3871.   extrusion: FLOAT; format: Integer; lpgmf: LPGLYPHMETRICSFLOAT): BOOL; stdcall;
  3872. {$EXTERNALSYM wglUseFontOutlines}
  3873. {$ENDIF}
  3875. // Layer plane descriptor
  3877. type
  3878.   PLayerPlaneDescriptor = ^TLayerPlaneDescriptor;
  3879.   tagLAYERPLANEDESCRIPTOR = record
  3880.     nSize: WORD;
  3881.     nVersion: WORD;
  3882.     dwFlags: DWORD;
  3883.     iPixelType: BYTE;
  3884.     cColorBits: BYTE;
  3885.     cRedBits: BYTE;
  3886.     cRedShift: BYTE;
  3887.     cGreenBits: BYTE;
  3888.     cGreenShift: BYTE;
  3889.     cBlueBits: BYTE;
  3890.     cBlueShift: BYTE;
  3891.     cAlphaBits: BYTE;
  3892.     cAlphaShift: BYTE;
  3893.     cAccumBits: BYTE;
  3894.     cAccumRedBits: BYTE;
  3895.     cAccumGreenBits: BYTE;
  3896.     cAccumBlueBits: BYTE;
  3897.     cAccumAlphaBits: BYTE;
  3898.     cDepthBits: BYTE;
  3899.     cStencilBits: BYTE;
  3900.     cAuxBuffers: BYTE;
  3901.     iLayerPlane: BYTE;
  3902.     bReserved: BYTE;
  3903.     crTransparent: COLORREF;
  3904.   end;
  3905.   {$EXTERNALSYM tagLAYERPLANEDESCRIPTOR}
  3906.   LAYERPLANEDESCRIPTOR = tagLAYERPLANEDESCRIPTOR;
  3907.   {$EXTERNALSYM LAYERPLANEDESCRIPTOR}
  3908.   LPLAYERPLANEDESCRIPTOR = ^LAYERPLANEDESCRIPTOR;
  3909.   {$EXTERNALSYM LPLAYERPLANEDESCRIPTOR}
  3910.   TLayerPlaneDescriptor = LAYERPLANEDESCRIPTOR;
  3912. // LAYERPLANEDESCRIPTOR flags
  3914. const
  3915.   LPD_DOUBLEBUFFER   = $00000001;
  3916.   {$EXTERNALSYM LPD_DOUBLEBUFFER}
  3917.   LPD_STEREO         = $00000002;
  3918.   {$EXTERNALSYM LPD_STEREO}
  3919.   LPD_SUPPORT_GDI    = $00000010;
  3920.   {$EXTERNALSYM LPD_SUPPORT_GDI}
  3921.   LPD_SUPPORT_OPENGL = $00000020;
  3922.   {$EXTERNALSYM LPD_SUPPORT_OPENGL}
  3923.   LPD_SHARE_DEPTH    = $00000040;
  3924.   {$EXTERNALSYM LPD_SHARE_DEPTH}
  3925.   LPD_SHARE_STENCIL  = $00000080;
  3926.   {$EXTERNALSYM LPD_SHARE_STENCIL}
  3927.   LPD_SHARE_ACCUM    = $00000100;
  3928.   {$EXTERNALSYM LPD_SHARE_ACCUM}
  3929.   LPD_SWAP_EXCHANGE  = $00000200;
  3930.   {$EXTERNALSYM LPD_SWAP_EXCHANGE}
  3931.   LPD_SWAP_COPY      = $00000400;
  3932.   {$EXTERNALSYM LPD_SWAP_COPY}
  3933.   LPD_TRANSPARENT    = $00001000;
  3934.   {$EXTERNALSYM LPD_TRANSPARENT}
  3936.   LPD_TYPE_RGBA       = 0;
  3937.   {$EXTERNALSYM LPD_TYPE_RGBA}
  3938.   LPD_TYPE_COLORINDEX = 1;
  3939.   {$EXTERNALSYM LPD_TYPE_COLORINDEX}
  3941. // wglSwapLayerBuffers flags
  3943.   WGL_SWAP_MAIN_PLANE = $00000001;
  3944.   {$EXTERNALSYM WGL_SWAP_MAIN_PLANE}
  3945.   WGL_SWAP_OVERLAY1   = $00000002;
  3946.   {$EXTERNALSYM WGL_SWAP_OVERLAY1}
  3947.   WGL_SWAP_OVERLAY2   = $00000004;
  3948.   {$EXTERNALSYM WGL_SWAP_OVERLAY2}
  3949.   WGL_SWAP_OVERLAY3   = $00000008;
  3950.   {$EXTERNALSYM WGL_SWAP_OVERLAY3}
  3951.   WGL_SWAP_OVERLAY4   = $00000010;
  3952.   {$EXTERNALSYM WGL_SWAP_OVERLAY4}
  3953.   WGL_SWAP_OVERLAY5   = $00000020;
  3954.   {$EXTERNALSYM WGL_SWAP_OVERLAY5}
  3955.   WGL_SWAP_OVERLAY6   = $00000040;
  3956.   {$EXTERNALSYM WGL_SWAP_OVERLAY6}
  3957.   WGL_SWAP_OVERLAY7   = $00000080;
  3958.   {$EXTERNALSYM WGL_SWAP_OVERLAY7}
  3959.   WGL_SWAP_OVERLAY8   = $00000100;
  3960.   {$EXTERNALSYM WGL_SWAP_OVERLAY8}
  3961.   WGL_SWAP_OVERLAY9   = $00000200;
  3962.   {$EXTERNALSYM WGL_SWAP_OVERLAY9}
  3963.   WGL_SWAP_OVERLAY10  = $00000400;
  3964.   {$EXTERNALSYM WGL_SWAP_OVERLAY10}
  3965.   WGL_SWAP_OVERLAY11  = $00000800;
  3966.   {$EXTERNALSYM WGL_SWAP_OVERLAY11}
  3967.   WGL_SWAP_OVERLAY12  = $00001000;
  3968.   {$EXTERNALSYM WGL_SWAP_OVERLAY12}
  3969.   WGL_SWAP_OVERLAY13  = $00002000;
  3970.   {$EXTERNALSYM WGL_SWAP_OVERLAY13}
  3971.   WGL_SWAP_OVERLAY14  = $00004000;
  3972.   {$EXTERNALSYM WGL_SWAP_OVERLAY14}
  3973.   WGL_SWAP_OVERLAY15  = $00008000;
  3974.   {$EXTERNALSYM WGL_SWAP_OVERLAY15}
  3975.   WGL_SWAP_UNDERLAY1  = $00010000;
  3976.   {$EXTERNALSYM WGL_SWAP_UNDERLAY1}
  3977.   WGL_SWAP_UNDERLAY2  = $00020000;
  3978.   {$EXTERNALSYM WGL_SWAP_UNDERLAY2}
  3979.   WGL_SWAP_UNDERLAY3  = $00040000;
  3980.   {$EXTERNALSYM WGL_SWAP_UNDERLAY3}
  3981.   WGL_SWAP_UNDERLAY4  = $00080000;
  3982.   {$EXTERNALSYM WGL_SWAP_UNDERLAY4}
  3983.   WGL_SWAP_UNDERLAY5  = $00100000;
  3984.   {$EXTERNALSYM WGL_SWAP_UNDERLAY5}
  3985.   WGL_SWAP_UNDERLAY6  = $00200000;
  3986.   {$EXTERNALSYM WGL_SWAP_UNDERLAY6}
  3987.   WGL_SWAP_UNDERLAY7  = $00400000;
  3988.   {$EXTERNALSYM WGL_SWAP_UNDERLAY7}
  3989.   WGL_SWAP_UNDERLAY8  = $00800000;
  3990.   {$EXTERNALSYM WGL_SWAP_UNDERLAY8}
  3991.   WGL_SWAP_UNDERLAY9  = $01000000;
  3992.   {$EXTERNALSYM WGL_SWAP_UNDERLAY9}
  3993.   WGL_SWAP_UNDERLAY10 = $02000000;
  3994.   {$EXTERNALSYM WGL_SWAP_UNDERLAY10}
  3995.   WGL_SWAP_UNDERLAY11 = $04000000;
  3996.   {$EXTERNALSYM WGL_SWAP_UNDERLAY11}
  3997.   WGL_SWAP_UNDERLAY12 = $08000000;
  3998.   {$EXTERNALSYM WGL_SWAP_UNDERLAY12}
  3999.   WGL_SWAP_UNDERLAY13 = $10000000;
  4000.   {$EXTERNALSYM WGL_SWAP_UNDERLAY13}
  4001.   WGL_SWAP_UNDERLAY14 = $20000000;
  4002.   {$EXTERNALSYM WGL_SWAP_UNDERLAY14}
  4003.   WGL_SWAP_UNDERLAY15 = $40000000;
  4004.   {$EXTERNALSYM WGL_SWAP_UNDERLAY15}
  4006. function wglDescribeLayerPlane(hdc: HDC; iPixelFormat, iLayerPlane: Integer;
  4007.   nBytes: UINT; plpd: LPLAYERPLANEDESCRIPTOR): BOOL; stdcall;
  4008. {$EXTERNALSYM wglDescribeLayerPlane}
  4009. function wglSetLayerPaletteEntries(hdc: HDC; iLayerPlane, iStart, cEntries: Integer;
  4010.   pcr: LPCOLORREF): Integer; stdcall;
  4011. {$EXTERNALSYM wglSetLayerPaletteEntries}
  4012. function wglGetLayerPaletteEntries(hdc: HDC; iLayerPlane, iStart, cEntries: Integer;
  4013.   pcr: LPCOLORREF): Integer; stdcall;
  4014. {$EXTERNALSYM wglGetLayerPaletteEntries}
  4015. function wglRealizeLayerPalette(hdc: HDC; iLayerPlane: Integer; bRealize: BOOL): BOOL; stdcall;
  4016. {$EXTERNALSYM wglRealizeLayerPalette}
  4017. function wglSwapLayerBuffers(hdc: HDC; fuPlanes: UINT): BOOL; stdcall;
  4018. {$EXTERNALSYM wglSwapLayerBuffers}
  4020. type
  4021.   PWglSwap = ^TWglSwap;
  4022.   _WGLSWAP = record
  4023.     hdc: HDC;
  4024.     uiFlags: UINT;
  4025.   end;
  4026.   {$EXTERNALSYM _WGLSWAP}
  4027.   WGLSWAP = _WGLSWAP;
  4028.   {$EXTERNALSYM WGLSWAP}
  4029.   LPWGLSWAP = ^WGLSWAP;
  4030.   {$EXTERNALSYM LPWGLSWAP}
  4031.   TWglSwap = _WGLSWAP;
  4033. const
  4034.   WGL_SWAPMULTIPLE_MAX = 16;
  4035.   {$EXTERNALSYM WGL_SWAPMULTIPLE_MAX}