API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 11th, 2017
2,984
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 636.04 KB | None | 0 0
raw download clone embed print report
  1. unit GdiPlus;
  2.  
  3. { Delphi GDI+ Library for use with Delphi 2009 or later.
  4. Copyright (C) 2009 by Erik van Bilsen.
  5. Email: [email protected]
  6. Website: www.bilsen.com/gdiplus
  7.  
  8. License in plain English:
  9.  
  10. 1. I don't promise that this software works. (But if you find any bugs,
  11. please let me know!)
  12. 2. You can use this software for whatever you want. You don't have to pay me.
  13. 3. You may not pretend that you wrote this software. If you use it in a program,
  14. you must acknowledge somewhere in your documentation that you've used this
  15. code.
  16.  
  17. In legalese:
  18.  
  19. The author makes NO WARRANTY or representation, either express or implied,
  20. with respect to this software, its quality, accuracy, merchantability, or
  21. fitness for a particular purpose. This software is provided "AS IS", and you,
  22. its user, assume the entire risk as to its quality and accuracy.
  23.  
  24. Permission is hereby granted to use, copy, modify, and distribute this
  25. software (or portions thereof) for any purpose, without fee, subject to these
  26. conditions:
  27. (1) If any part of the source code for this software is distributed, then the
  28. License.txt file must be included, with this copyright and no-warranty notice
  29. unaltered; and any additions, deletions, or changes to the original files
  30. must be clearly indicated in accompanying documentation.
  31. (2) If only executable code is distributed, then the accompanying
  32. documentation must state that "this software is based in part on the Delphi
  33. GDI+ library by Erik van Bilsen".
  34. (3) Permission for use of this software is granted only if the user accepts
  35. full responsibility for any undesirable consequences; the author accepts
  36. NO LIABILITY for damages of any kind.
  37.  
  38. Version history
  39. ===============
  40.  
  41. Version 1.2:
  42. -Minor bug fixes
  43. -The biggest complaint with version 1.0 was about name conflicts (for example
  44. between Graphics.TBitmap and GdiPlus.TBitmap). In this version, all GDI+ types
  45. start with a "TGP" or "IGP" prefix now to avoid these collisions (for example
  46. IGPBitmap and TGPBitmap). The previous type names are still available if you
  47. define the GDIP_ALIAS conditional define in your project, although usage of
  48. these names is discouraged now.
  49.  
  50. Version 1.1:
  51. Never existed (to avoid confusion with Microsofts GDI+ version 1.1)
  52.  
  53. Version 1.0:
  54. Initial version }
  55.  
  56. {$ALIGN 8}
  57. {$MINENUMSIZE 4}
  58.  
  59. interface
  60.  
  61. uses
  62. Windows,
  63. Math,
  64. ActiveX,
  65. SysUtils,
  66. Generics.Collections;
  67.  
  68. {$IFDEF GDIP_0110}
  69. const
  70. GDIPVER = $0110;
  71.  
  72. { $R GdiPlus11.res}
  73. {$ELSE}
  74. const
  75. GDIPVER = $0100;
  76. {$ENDIF}
  77.  
  78. const
  79. GdiPlusDll = 'gdiplus.dll';
  80.  
  81. type
  82. PUInt16 = ^UInt16;
  83. PLangID = ^LangID;
  84. TColorRef = Integer;
  85.  
  86. {$REGION 'Support classes'}
  87. type
  88. IGPArray<T> = interface
  89. ['{E80D8F50-F3E5-4E5F-8E07-FC4535EA90EA}']
  90. { Property access methods }
  91. function GetCount: Integer;
  92. procedure SetCount(const Value: Integer);
  93. function GetItem(const Index: Integer): T;
  94. procedure SetItem(const Index: Integer; const Value: T);
  95. function GetItemPtr: Pointer;
  96.  
  97. { Methods }
  98. function GetEnumerator: TEnumerator<T>;
  99.  
  100. { Properties }
  101. property Count: Integer read GetCount write SetCount;
  102. property Items[const Index: Integer]: T read GetItem write SetItem; default;
  103. property ItemPtr: Pointer read GetItemPtr;
  104. end;
  105.  
  106. type
  107. TGPArray<T> = class(TInterfacedObject, IGPArray<T>)
  108. public
  109. type
  110. TEnumerator = class(TEnumerator<T>)
  111. private
  112. FArray: TGPArray<T>;
  113. FIndex: Integer;
  114. function GetCurrent: T;
  115. protected
  116. function DoGetCurrent: T; override;
  117. function DoMoveNext: Boolean; override;
  118. public
  119. constructor Create(const AArray: TGPArray<T>);
  120. property Current: T read GetCurrent;
  121. function MoveNext: Boolean;
  122. end;
  123. private
  124. FItems: array of T;
  125. private
  126. { IGPArray<T> }
  127. function GetCount: Integer;
  128. procedure SetCount(const Value: Integer);
  129. function GetItem(const Index: Integer): T;
  130. procedure SetItem(const Index: Integer; const Value: T);
  131. function GetItemPtr: Pointer;
  132. function GetEnumerator: TEnumerator<T>;
  133. public
  134. constructor Create(const Count: Integer);
  135. end;
  136.  
  137. type
  138. IGPBuffer = interface
  139. ['{F252CE33-4F54-4B76-9261-2344D1BCD19C}']
  140. { Property access methods }
  141. function GetData: Pointer;
  142. function GetSize: Cardinal;
  143.  
  144. { Properties }
  145. property Data: Pointer read GetData;
  146. property Size: Cardinal read GetSize;
  147. end;
  148.  
  149. type
  150. TGPBuffer = class(TInterfacedObject, IGPBuffer)
  151. private
  152. FData: Pointer;
  153. FSize: Cardinal;
  154. private
  155. { IRegionData }
  156. function GetData: Pointer;
  157. function GetSize: Cardinal;
  158. public
  159. constructor Create(const Data: Pointer; const Size: Cardinal);
  160. destructor Destroy; override;
  161. end;
  162. {$ENDREGION 'Support classes'}
  163.  
  164. {$REGION 'GdiplusMem.h'}
  165. (*****************************************************************************
  166. * GdiplusMem.h
  167. * GDI+ Private Memory Management APIs
  168. *****************************************************************************)
  169.  
  170. //----------------------------------------------------------------------------
  171. // Memory Allocation APIs
  172. //----------------------------------------------------------------------------
  173.  
  174. function GdipAlloc(Size: Integer): Pointer; stdcall; external GdiPlusDll;
  175. procedure GdipFree(Ptr: Pointer); stdcall; external GdiPlusDll;
  176. {$ENDREGION 'GdiplusMem.h'}
  177.  
  178. {$REGION 'GdiplusBase.h'}
  179. (*****************************************************************************
  180. * GdiplusBase.h
  181. * GDI+ base memory allocation class
  182. *****************************************************************************)
  183.  
  184. type
  185. GpNativeHandle = Pointer;
  186.  
  187. type
  188. IGdiplusBase = interface
  189. ['{24A5D3F5-4A9B-42A2-9F60-20825E2740F5}']
  190. { Property access methods }
  191. function GetNativeHandle: GpNativeHandle;
  192. procedure SetNativeHandle(const Value: GpNativeHandle);
  193.  
  194. { Properties }
  195. property NativeHandle: GpNativeHandle read GetNativeHandle write SetNativeHandle;
  196. end;
  197.  
  198. TGdiplusBase = class(TInterfacedObject, IGdiPlusBase)
  199. protected
  200. FNativeHandle: GpNativeHandle;
  201. private
  202. { IGdiPlusBase }
  203. function GetNativeHandle: GpNativeHandle;
  204. procedure SetNativeHandle(const Value: GpNativeHandle);
  205. private
  206. constructor Create;
  207. public
  208. class function NewInstance: TObject; override;
  209. procedure FreeInstance; override;
  210. end;
  211. {$ENDREGION 'GdiplusBase.h'}
  212.  
  213. {$REGION 'GdiplusEnums.h'}
  214. (*****************************************************************************
  215. * GdiplusEnums.h
  216. * GDI+ Enumeration Types
  217. *****************************************************************************)
  218.  
  219. //--------------------------------------------------------------------------
  220. // Default bezier flattening tolerance in device pixels.
  221. //--------------------------------------------------------------------------
  222.  
  223. const
  224. FlatnessDefault = 1.0 / 4.0;
  225.  
  226. //--------------------------------------------------------------------------
  227. // Graphics and Container State cookies
  228. //--------------------------------------------------------------------------
  229.  
  230. type
  231. TGPGraphicsState = UINT;
  232. PGPGraphicsState = ^TGPGraphicsState;
  233. TGPGraphicsContainer = UINT;
  234. PGPGraphicsContainer = ^TGPGraphicsContainer;
  235.  
  236. //--------------------------------------------------------------------------
  237. // Fill mode constants
  238. //--------------------------------------------------------------------------
  239.  
  240. type
  241. TGPFillMode = (
  242. FillModeAlternate, // 0
  243. FillModeWinding); // 1
  244.  
  245. //--------------------------------------------------------------------------
  246. // Quality mode constants
  247. //--------------------------------------------------------------------------
  248.  
  249. type
  250. TGPQualityMode = (
  251. QualityModeInvalid = -1,
  252. QualityModeDefault = 0,
  253. QualityModeLow = 1, // Best performance
  254. QualityModeHigh = 2); // Best rendering quality
  255.  
  256. //--------------------------------------------------------------------------
  257. // Alpha Compositing mode constants
  258. //--------------------------------------------------------------------------
  259.  
  260. type
  261. TGPCompositingMode = (
  262. CompositingModeSourceOver, // 0
  263. CompositingModeSourceCopy); // 1
  264.  
  265. //--------------------------------------------------------------------------
  266. // Alpha Compositing quality constants
  267. //--------------------------------------------------------------------------
  268.  
  269. type
  270. TGPCompositingQuality = (
  271. CompositingQualityInvalid = Ord(QualityModeInvalid),
  272. CompositingQualityDefault = Ord(QualityModeDefault),
  273. CompositingQualityHighSpeed = Ord(QualityModeLow),
  274. CompositingQualityHighQuality = Ord(QualityModeHigh),
  275. CompositingQualityGammaCorrected,
  276. CompositingQualityAssumeLinear);
  277.  
  278. //--------------------------------------------------------------------------
  279. // Unit constants
  280. //--------------------------------------------------------------------------
  281.  
  282. type
  283. TGPUnit = (
  284. UnitWorld, // 0 -- World coordinate (non-physical unit)
  285. UnitDisplay, // 1 -- Variable -- for PageTransform only
  286. UnitPixel, // 2 -- Each unit is one device pixel.
  287. UnitPoint, // 3 -- Each unit is a printer's point, or 1/72 inch.
  288. UnitInch, // 4 -- Each unit is 1 inch.
  289. UnitDocument, // 5 -- Each unit is 1/300 inch.
  290. UnitMillimeter); // 6 -- Each unit is 1 millimeter.
  291.  
  292. //--------------------------------------------------------------------------
  293. // MetafileFrameUnit
  294. //
  295. // The frameRect for creating a metafile can be specified in any of these
  296. // units. There is an extra frame unit value (MetafileFrameUnitGdi) so
  297. // that units can be supplied in the same units that GDI expects for
  298. // frame rects -- these units are in .01 (1/100ths) millimeter units
  299. // as defined by GDI.
  300. //--------------------------------------------------------------------------
  301.  
  302. type
  303. TGPMetafileFrameUnit = (
  304. MetafileFrameUnitPixel = Ord(UnitPixel),
  305. MetafileFrameUnitPoint = Ord(UnitPoint),
  306. MetafileFrameUnitInch = Ord(UnitInch),
  307. MetafileFrameUnitDocument = Ord(UnitDocument),
  308. MetafileFrameUnitMillimeter = Ord(UnitMillimeter),
  309. MetafileFrameUnitGdi); // GDI compatible .01 MM units
  310.  
  311. //--------------------------------------------------------------------------
  312. // Coordinate space identifiers
  313. //--------------------------------------------------------------------------
  314.  
  315. type
  316. TGPCoordinateSpace = (
  317. CoordinateSpaceWorld, // 0
  318. CoordinateSpacePage, // 1
  319. CoordinateSpaceDevice); // 2
  320.  
  321. //--------------------------------------------------------------------------
  322. // Various wrap modes for brushes
  323. //--------------------------------------------------------------------------
  324.  
  325. type
  326. TGPWrapMode = (
  327. WrapModeTile, // 0
  328. WrapModeTileFlipX, // 1
  329. WrapModeTileFlipY, // 2
  330. WrapModeTileFlipXY, // 3
  331. WrapModeClamp); // 4
  332.  
  333. //--------------------------------------------------------------------------
  334. // Various hatch styles
  335. //--------------------------------------------------------------------------
  336.  
  337. type
  338. TGPHatchStyle = (
  339. HatchStyleHorizontal, // 0
  340. HatchStyleVertical, // 1
  341. HatchStyleForwardDiagonal, // 2
  342. HatchStyleBackwardDiagonal, // 3
  343. HatchStyleCross, // 4
  344. HatchStyleDiagonalCross, // 5
  345. HatchStyle05Percent, // 6
  346. HatchStyle10Percent, // 7
  347. HatchStyle20Percent, // 8
  348. HatchStyle25Percent, // 9
  349. HatchStyle30Percent, // 10
  350. HatchStyle40Percent, // 11
  351. HatchStyle50Percent, // 12
  352. HatchStyle60Percent, // 13
  353. HatchStyle70Percent, // 14
  354. HatchStyle75Percent, // 15
  355. HatchStyle80Percent, // 16
  356. HatchStyle90Percent, // 17
  357. HatchStyleLightDownwardDiagonal, // 18
  358. HatchStyleLightUpwardDiagonal, // 19
  359. HatchStyleDarkDownwardDiagonal, // 20
  360. HatchStyleDarkUpwardDiagonal, // 21
  361. HatchStyleWideDownwardDiagonal, // 22
  362. HatchStyleWideUpwardDiagonal, // 23
  363. HatchStyleLightVertical, // 24
  364. HatchStyleLightHorizontal, // 25
  365. HatchStyleNarrowVertical, // 26
  366. HatchStyleNarrowHorizontal, // 27
  367. HatchStyleDarkVertical, // 28
  368. HatchStyleDarkHorizontal, // 29
  369. HatchStyleDashedDownwardDiagonal, // 30
  370. HatchStyleDashedUpwardDiagonal, // 31
  371. HatchStyleDashedHorizontal, // 32
  372. HatchStyleDashedVertical, // 33
  373. HatchStyleSmallConfetti, // 34
  374. HatchStyleLargeConfetti, // 35
  375. HatchStyleZigZag, // 36
  376. HatchStyleWave, // 37
  377. HatchStyleDiagonalBrick, // 38
  378. HatchStyleHorizontalBrick, // 39
  379. HatchStyleWeave, // 40
  380. HatchStylePlaid, // 41
  381. HatchStyleDivot, // 42
  382. HatchStyleDottedGrid, // 43
  383. HatchStyleDottedDiamond, // 44
  384. HatchStyleShingle, // 45
  385. HatchStyleTrellis, // 46
  386. HatchStyleSphere, // 47
  387. HatchStyleSmallGrid, // 48
  388. HatchStyleSmallCheckerBoard, // 49
  389. HatchStyleLargeCheckerBoard, // 50
  390. HatchStyleOutlinedDiamond, // 51
  391. HatchStyleSolidDiamond, // 52
  392.  
  393. HatchStyleTotal,
  394. HatchStyleLargeGrid = HatchStyleCross, // 4
  395.  
  396. HatchStyleMin = HatchStyleHorizontal,
  397. HatchStyleMax = HatchStyleTotal - 1);
  398.  
  399. //--------------------------------------------------------------------------
  400. // Dash style constants
  401. //--------------------------------------------------------------------------
  402.  
  403. type
  404. TGPDashStyle = (
  405. DashStyleSolid, // 0
  406. DashStyleDash, // 1
  407. DashStyleDot, // 2
  408. DashStyleDashDot, // 3
  409. DashStyleDashDotDot, // 4
  410. DashStyleCustom); // 5
  411.  
  412. //--------------------------------------------------------------------------
  413. // Dash cap constants
  414. //--------------------------------------------------------------------------
  415.  
  416. type
  417. TGPDashCap = (
  418. DashCapFlat = 0,
  419. DashCapRound = 2,
  420. DashCapTriangle = 3);
  421.  
  422. //--------------------------------------------------------------------------
  423. // Line cap constants (only the lowest 8 bits are used).
  424. //--------------------------------------------------------------------------
  425.  
  426. type
  427. TGPLineCap = (
  428. LineCapFlat = 0,
  429. LineCapSquare = 1,
  430. LineCapRound = 2,
  431. LineCapTriangle = 3,
  432.  
  433. LineCapNoAnchor = $10, // corresponds to flat cap
  434. LineCapSquareAnchor = $11, // corresponds to square cap
  435. LineCapRoundAnchor = $12, // corresponds to round cap
  436. LineCapDiamondAnchor = $13, // corresponds to triangle cap
  437. LineCapArrowAnchor = $14, // no correspondence
  438.  
  439. LineCapCustom = $ff, // custom cap
  440.  
  441. LineCapAnchorMask = $f0); // mask to check for anchor or not.
  442.  
  443. //--------------------------------------------------------------------------
  444. // Custom Line cap type constants
  445. //--------------------------------------------------------------------------
  446.  
  447. type
  448. TGPCustomLineCapType = (
  449. CustomLineCapTypeDefault = 0,
  450. CustomLineCapTypeAdjustableArrow = 1);
  451.  
  452. //--------------------------------------------------------------------------
  453. // Line join constants
  454. //--------------------------------------------------------------------------
  455.  
  456. type
  457. TGPLineJoin = (
  458. LineJoinMiter = 0,
  459. LineJoinBevel = 1,
  460. LineJoinRound = 2,
  461. LineJoinMiterClipped = 3);
  462.  
  463. //--------------------------------------------------------------------------
  464. // Path point types (only the lowest 8 bits are used.)
  465. // The lowest 3 bits are interpreted as point type
  466. // The higher 5 bits are reserved for flags.
  467. //--------------------------------------------------------------------------
  468.  
  469. type
  470. TGPPathPointType = (
  471. PathPointTypeStart = 0, // move
  472. PathPointTypeLine = 1, // line
  473. PathPointTypeBezier = 3, // default Bezier (= cubic Bezier)
  474. PathPointTypePathTypeMask = $07, // type mask (lowest 3 bits).
  475. PathPointTypeDashMode = $10, // currently in dash mode.
  476. PathPointTypePathMarker = $20, // a marker for the path.
  477. PathPointTypeCloseSubpath = $80, // closed flag
  478.  
  479. // Path types used for advanced path.
  480.  
  481. PathPointTypeBezier3 = 3); // cubic Bezier
  482.  
  483. //--------------------------------------------------------------------------
  484. // WarpMode constants
  485. //--------------------------------------------------------------------------
  486.  
  487. type
  488. TGPWarpMode = (
  489. WarpModePerspective, // 0
  490. WarpModeBilinear); // 1
  491.  
  492. //--------------------------------------------------------------------------
  493. // LineGradient Mode
  494. //--------------------------------------------------------------------------
  495.  
  496. type
  497. TGPLinearGradientMode = (
  498. LinearGradientModeHorizontal, // 0
  499. LinearGradientModeVertical, // 1
  500. LinearGradientModeForwardDiagonal, // 2
  501. LinearGradientModeBackwardDiagonal); // 3
  502.  
  503. //--------------------------------------------------------------------------
  504. // Region Comine Modes
  505. //--------------------------------------------------------------------------
  506.  
  507. type
  508. TGPCombineMode = (
  509. CombineModeReplace, // 0
  510. CombineModeIntersect, // 1
  511. CombineModeUnion, // 2
  512. CombineModeXor, // 3
  513. CombineModeExclude, // 4
  514. CombineModeComplement); // 5 (Exclude From)
  515.  
  516. //--------------------------------------------------------------------------
  517. // Image types
  518. //--------------------------------------------------------------------------
  519.  
  520. type
  521. TGPImageType = (
  522. ImageTypeUnknown, // 0
  523. ImageTypeBitmap, // 1
  524. ImageTypeMetafile); // 2
  525.  
  526. //--------------------------------------------------------------------------
  527. // Interpolation modes
  528. //--------------------------------------------------------------------------
  529.  
  530. type
  531. TGPInterpolationMode = (
  532. InterpolationModeInvalid = Ord(QualityModeInvalid),
  533. InterpolationModeDefault = Ord(QualityModeDefault),
  534. InterpolationModeLowQuality = Ord(QualityModeLow),
  535. InterpolationModeHighQuality = Ord(QualityModeHigh),
  536. InterpolationModeBilinear,
  537. InterpolationModeBicubic,
  538. InterpolationModeNearestNeighbor,
  539. InterpolationModeHighQualityBilinear,
  540. InterpolationModeHighQualityBicubic);
  541.  
  542. //--------------------------------------------------------------------------
  543. // Pen types
  544. //--------------------------------------------------------------------------
  545.  
  546. type
  547. TGPPenAlignment = (
  548. PenAlignmentCenter = 0,
  549. PenAlignmentInset = 1);
  550.  
  551. //--------------------------------------------------------------------------
  552. // Brush types
  553. //--------------------------------------------------------------------------
  554.  
  555. type
  556. TGPBrushType = (
  557. BrushTypeSolidColor = 0,
  558. BrushTypeHatchFill = 1,
  559. BrushTypeTextureFill = 2,
  560. BrushTypePathGradient = 3,
  561. BrushTypeLinearGradient = 4);
  562.  
  563. //--------------------------------------------------------------------------
  564. // Pen's Fill types
  565. //--------------------------------------------------------------------------
  566.  
  567. type
  568. TGPPenType = (
  569. PenTypeSolidColor = Ord(BrushTypeSolidColor),
  570. PenTypeHatchFill = Ord(BrushTypeHatchFill),
  571. PenTypeTextureFill = Ord(BrushTypeTextureFill),
  572. PenTypePathGradient = Ord(BrushTypePathGradient),
  573. PenTypeLinearGradient = Ord(BrushTypeLinearGradient),
  574. PenTypeUnknown = -1);
  575.  
  576. //--------------------------------------------------------------------------
  577. // Matrix Order
  578. //--------------------------------------------------------------------------
  579.  
  580. type
  581. TGPMatrixOrder = (
  582. MatrixOrderPrepend = 0,
  583. MatrixOrderAppend = 1);
  584.  
  585. //--------------------------------------------------------------------------
  586. // Generic font families
  587. //--------------------------------------------------------------------------
  588.  
  589. type
  590. TGPGenericFontFamily = (
  591. GenericFontFamilySerif,
  592. GenericFontFamilySansSerif,
  593. GenericFontFamilyMonospace);
  594.  
  595. //--------------------------------------------------------------------------
  596. // FontStyle: face types and common styles
  597. //--------------------------------------------------------------------------
  598.  
  599. type
  600. TGPFontStyleEntry = (
  601. FontStyleBold = 0,
  602. FontStyleItalic = 1,
  603. FontStyleUnderline = 2,
  604. FontStyleStrikeout = 3,
  605. FontStyleReserved = 31);
  606.  
  607. TGPFontStyle = set of TGPFontStyleEntry;
  608.  
  609. const
  610. FontStyleRegular = [];
  611. FontStyleBoldItalic = [FontStyleBold, FontStyleItalic];
  612.  
  613. //---------------------------------------------------------------------------
  614. // Smoothing Mode
  615. //---------------------------------------------------------------------------
  616.  
  617. type
  618. TGPSmoothingMode = (
  619. SmoothingModeInvalid = Ord(QualityModeInvalid),
  620. SmoothingModeDefault = Ord(QualityModeDefault),
  621. SmoothingModeHighSpeed = Ord(QualityModeLow),
  622. SmoothingModeHighQuality = Ord(QualityModeHigh),
  623. SmoothingModeNone,
  624. SmoothingModeAntiAlias
  625. {$IF (GDIPVER >= $0110)}
  626. ,
  627. SmoothingModeAntiAlias8x4 = Ord(SmoothingModeAntiAlias),
  628. SmoothingModeAntiAlias8x8
  629. {$IFEND}
  630. );
  631.  
  632. //---------------------------------------------------------------------------
  633. // Pixel Format Mode
  634. //---------------------------------------------------------------------------
  635.  
  636. type
  637. TGPPixelOffsetMode = (
  638. PixelOffsetModeInvalid = Ord(QualityModeInvalid),
  639. PixelOffsetModeDefault = Ord(QualityModeDefault),
  640. PixelOffsetModeHighSpeed = Ord(QualityModeLow),
  641. PixelOffsetModeHighQuality = Ord(QualityModeHigh),
  642. PixelOffsetModeNone, // No pixel offset
  643. PixelOffsetModeHalf); // Offset by -0.5, -0.5 for fast anti-alias perf
  644.  
  645. //---------------------------------------------------------------------------
  646. // Text Rendering Hint
  647. //---------------------------------------------------------------------------
  648.  
  649. type
  650. TGPTextRenderingHint = (
  651. TextRenderingHintSystemDefault = 0, // Glyph with system default rendering hint
  652. TextRenderingHintSingleBitPerPixelGridFit, // Glyph bitmap with hinting
  653. TextRenderingHintSingleBitPerPixel, // Glyph bitmap without hinting
  654. TextRenderingHintAntiAliasGridFit, // Glyph anti-alias bitmap with hinting
  655. TextRenderingHintAntiAlias, // Glyph anti-alias bitmap without hinting
  656. TextRenderingHintClearTypeGridFit); // Glyph CT bitmap with hinting
  657.  
  658. //---------------------------------------------------------------------------
  659. // Metafile Types
  660. //---------------------------------------------------------------------------
  661.  
  662. type
  663. TGPMetafileType = (
  664. MetafileTypeInvalid, // Invalid metafile
  665. MetafileTypeWmf, // Standard WMF
  666. MetafileTypeWmfPlaceable, // Placeable WMF
  667. MetafileTypeEmf, // EMF (not EMF+)
  668. MetafileTypeEmfPlusOnly, // EMF+ without dual, down-level records
  669. MetafileTypeEmfPlusDual); // EMF+ with dual, down-level records
  670.  
  671. //---------------------------------------------------------------------------
  672. // Specifies the type of EMF to record
  673. //---------------------------------------------------------------------------
  674.  
  675. type
  676. TGPEmfType = (
  677. EmfTypeEmfOnly = Ord(MetafileTypeEmf), // no EMF+, only EMF
  678. EmfTypeEmfPlusOnly = Ord(MetafileTypeEmfPlusOnly), // no EMF, only EMF+
  679. EmfTypeEmfPlusDual = Ord(MetafileTypeEmfPlusDual)); // both EMF+ and EMF
  680.  
  681. //---------------------------------------------------------------------------
  682. // EMF+ Persistent object types
  683. //---------------------------------------------------------------------------
  684.  
  685. type
  686. TGPObjectType = (
  687. ObjectTypeInvalid,
  688. ObjectTypeBrush,
  689. ObjectTypePen,
  690. ObjectTypePath,
  691. ObjectTypeRegion,
  692. ObjectTypeImage,
  693. ObjectTypeFont,
  694. ObjectTypeStringFormat,
  695. ObjectTypeImageAttributes,
  696. ObjectTypeCustomLineCap,
  697. {$IF (GDIPVER >= $0110)}
  698. ObjectTypeGraphics,
  699.  
  700. ObjectTypeMax = ObjectTypeGraphics,
  701. {$ELSE}
  702. ObjectTypeMax = ObjectTypeCustomLineCap,
  703. {$IFEND}
  704. ObjectTypeMin = ObjectTypeBrush);
  705.  
  706. function ObjectTypeIsValid(const ObjectType: TGPObjectType): Boolean; inline;
  707.  
  708. //---------------------------------------------------------------------------
  709. // EMF+ Records
  710. //---------------------------------------------------------------------------
  711.  
  712. // We have to change the WMF record numbers so that they don't conflict with
  713. // the EMF and EMF+ record numbers.
  714.  
  715. const
  716. GDIP_EMFPLUS_RECORD_BASE = $00004000;
  717. GDIP_WMF_RECORD_BASE = $00010000;
  718. // GDIP_WMF_RECORD_TO_EMFPLUS(n) ((EmfPlusRecordType)((n) | GDIP_WMF_RECORD_BASE))
  719. // GDIP_EMFPLUS_RECORD_TO_WMF(n) ((n) & (~GDIP_WMF_RECORD_BASE))
  720. // GDIP_IS_WMF_RECORDTYPE(n) (((n) & GDIP_WMF_RECORD_BASE) != 0)
  721.  
  722. type
  723. TEmfPlusRecordType = (
  724. // Since we have to enumerate GDI records right along with GDI+ records,
  725. // We list all the GDI records here so that they can be part of the
  726. // same enumeration type which is used in the enumeration callback.
  727.  
  728. WmfRecordTypeSetBkColor = GDIP_WMF_RECORD_BASE or META_SETBKCOLOR,
  729. WmfRecordTypeSetBkMode = GDIP_WMF_RECORD_BASE or META_SETBKMODE,
  730. WmfRecordTypeSetMapMode = GDIP_WMF_RECORD_BASE or META_SETMAPMODE,
  731. WmfRecordTypeSetROP2 = GDIP_WMF_RECORD_BASE or META_SETROP2,
  732. WmfRecordTypeSetRelAbs = GDIP_WMF_RECORD_BASE or META_SETRELABS,
  733. WmfRecordTypeSetPolyFillMode = GDIP_WMF_RECORD_BASE or META_SETPOLYFILLMODE,
  734. WmfRecordTypeSetStretchBltMode = GDIP_WMF_RECORD_BASE or META_SETSTRETCHBLTMODE,
  735. WmfRecordTypeSetTextCharExtra = GDIP_WMF_RECORD_BASE or META_SETTEXTCHAREXTRA,
  736. WmfRecordTypeSetTextColor = GDIP_WMF_RECORD_BASE or META_SETTEXTCOLOR,
  737. WmfRecordTypeSetTextJustification = GDIP_WMF_RECORD_BASE or META_SETTEXTJUSTIFICATION,
  738. WmfRecordTypeSetWindowOrg = GDIP_WMF_RECORD_BASE or META_SETWINDOWORG,
  739. WmfRecordTypeSetWindowExt = GDIP_WMF_RECORD_BASE or META_SETWINDOWEXT,
  740. WmfRecordTypeSetViewportOrg = GDIP_WMF_RECORD_BASE or META_SETVIEWPORTORG,
  741. WmfRecordTypeSetViewportExt = GDIP_WMF_RECORD_BASE or META_SETVIEWPORTEXT,
  742. WmfRecordTypeOffsetWindowOrg = GDIP_WMF_RECORD_BASE or META_OFFSETWINDOWORG,
  743. WmfRecordTypeScaleWindowExt = GDIP_WMF_RECORD_BASE or META_SCALEWINDOWEXT,
  744. WmfRecordTypeOffsetViewportOrg = GDIP_WMF_RECORD_BASE or META_OFFSETVIEWPORTORG,
  745. WmfRecordTypeScaleViewportExt = GDIP_WMF_RECORD_BASE or META_SCALEVIEWPORTEXT,
  746. WmfRecordTypeLineTo = GDIP_WMF_RECORD_BASE or META_LINETO,
  747. WmfRecordTypeMoveTo = GDIP_WMF_RECORD_BASE or META_MOVETO,
  748. WmfRecordTypeExcludeClipRect = GDIP_WMF_RECORD_BASE or META_EXCLUDECLIPRECT,
  749. WmfRecordTypeIntersectClipRect = GDIP_WMF_RECORD_BASE or META_INTERSECTCLIPRECT,
  750. WmfRecordTypeArc = GDIP_WMF_RECORD_BASE or META_ARC,
  751. WmfRecordTypeEllipse = GDIP_WMF_RECORD_BASE or META_ELLIPSE,
  752. WmfRecordTypeFloodFill = GDIP_WMF_RECORD_BASE or META_FLOODFILL,
  753. WmfRecordTypePie = GDIP_WMF_RECORD_BASE or META_PIE,
  754. WmfRecordTypeRectangle = GDIP_WMF_RECORD_BASE or META_RECTANGLE,
  755. WmfRecordTypeRoundRect = GDIP_WMF_RECORD_BASE or META_ROUNDRECT,
  756. WmfRecordTypePatBlt = GDIP_WMF_RECORD_BASE or META_PATBLT,
  757. WmfRecordTypeSaveDC = GDIP_WMF_RECORD_BASE or META_SAVEDC,
  758. WmfRecordTypeSetPixel = GDIP_WMF_RECORD_BASE or META_SETPIXEL,
  759. WmfRecordTypeOffsetClipRgn = GDIP_WMF_RECORD_BASE or META_OFFSETCLIPRGN,
  760. WmfRecordTypeTextOut = GDIP_WMF_RECORD_BASE or META_TEXTOUT,
  761. WmfRecordTypeBitBlt = GDIP_WMF_RECORD_BASE or META_BITBLT,
  762. WmfRecordTypeStretchBlt = GDIP_WMF_RECORD_BASE or META_STRETCHBLT,
  763. WmfRecordTypePolygon = GDIP_WMF_RECORD_BASE or META_POLYGON,
  764. WmfRecordTypePolyline = GDIP_WMF_RECORD_BASE or META_POLYLINE,
  765. WmfRecordTypeEscape = GDIP_WMF_RECORD_BASE or META_ESCAPE,
  766. WmfRecordTypeRestoreDC = GDIP_WMF_RECORD_BASE or META_RESTOREDC,
  767. WmfRecordTypeFillRegion = GDIP_WMF_RECORD_BASE or META_FILLREGION,
  768. WmfRecordTypeFrameRegion = GDIP_WMF_RECORD_BASE or META_FRAMEREGION,
  769. WmfRecordTypeInvertRegion = GDIP_WMF_RECORD_BASE or META_INVERTREGION,
  770. WmfRecordTypePaintRegion = GDIP_WMF_RECORD_BASE or META_PAINTREGION,
  771. WmfRecordTypeSelectClipRegion = GDIP_WMF_RECORD_BASE or META_SELECTCLIPREGION,
  772. WmfRecordTypeSelectObject = GDIP_WMF_RECORD_BASE or META_SELECTOBJECT,
  773. WmfRecordTypeSetTextAlign = GDIP_WMF_RECORD_BASE or META_SETTEXTALIGN,
  774. WmfRecordTypeDrawText = GDIP_WMF_RECORD_BASE or $062F, // META_DRAWTEXT
  775. WmfRecordTypeChord = GDIP_WMF_RECORD_BASE or META_CHORD,
  776. WmfRecordTypeSetMapperFlags = GDIP_WMF_RECORD_BASE or META_SETMAPPERFLAGS,
  777. WmfRecordTypeExtTextOut = GDIP_WMF_RECORD_BASE or META_EXTTEXTOUT,
  778. WmfRecordTypeSetDIBToDev = GDIP_WMF_RECORD_BASE or META_SETDIBTODEV,
  779. WmfRecordTypeSelectPalette = GDIP_WMF_RECORD_BASE or META_SELECTPALETTE,
  780. WmfRecordTypeRealizePalette = GDIP_WMF_RECORD_BASE or META_REALIZEPALETTE,
  781. WmfRecordTypeAnimatePalette = GDIP_WMF_RECORD_BASE or META_ANIMATEPALETTE,
  782. WmfRecordTypeSetPalEntries = GDIP_WMF_RECORD_BASE or META_SETPALENTRIES,
  783. WmfRecordTypePolyPolygon = GDIP_WMF_RECORD_BASE or META_POLYPOLYGON,
  784. WmfRecordTypeResizePalette = GDIP_WMF_RECORD_BASE or META_RESIZEPALETTE,
  785. WmfRecordTypeDIBBitBlt = GDIP_WMF_RECORD_BASE or META_DIBBITBLT,
  786. WmfRecordTypeDIBStretchBlt = GDIP_WMF_RECORD_BASE or META_DIBSTRETCHBLT,
  787. WmfRecordTypeDIBCreatePatternBrush = GDIP_WMF_RECORD_BASE or META_DIBCREATEPATTERNBRUSH,
  788. WmfRecordTypeStretchDIB = GDIP_WMF_RECORD_BASE or META_STRETCHDIB,
  789. WmfRecordTypeExtFloodFill = GDIP_WMF_RECORD_BASE or META_EXTFLOODFILL,
  790. WmfRecordTypeSetLayout = GDIP_WMF_RECORD_BASE or $0149, // META_SETLAYOUT
  791. WmfRecordTypeResetDC = GDIP_WMF_RECORD_BASE or $014C, // META_RESETDC
  792. WmfRecordTypeStartDoc = GDIP_WMF_RECORD_BASE or $014D, // META_STARTDOC
  793. WmfRecordTypeStartPage = GDIP_WMF_RECORD_BASE or $004F, // META_STARTPAGE
  794. WmfRecordTypeEndPage = GDIP_WMF_RECORD_BASE or $0050, // META_ENDPAGE
  795. WmfRecordTypeAbortDoc = GDIP_WMF_RECORD_BASE or $0052, // META_ABORTDOC
  796. WmfRecordTypeEndDoc = GDIP_WMF_RECORD_BASE or $005E, // META_ENDDOC
  797. WmfRecordTypeDeleteObject = GDIP_WMF_RECORD_BASE or META_DELETEOBJECT,
  798. WmfRecordTypeCreatePalette = GDIP_WMF_RECORD_BASE or META_CREATEPALETTE,
  799. WmfRecordTypeCreateBrush = GDIP_WMF_RECORD_BASE or $00F8, // META_CREATEBRUSH
  800. WmfRecordTypeCreatePatternBrush = GDIP_WMF_RECORD_BASE or META_CREATEPATTERNBRUSH,
  801. WmfRecordTypeCreatePenIndirect = GDIP_WMF_RECORD_BASE or META_CREATEPENINDIRECT,
  802. WmfRecordTypeCreateFontIndirect = GDIP_WMF_RECORD_BASE or META_CREATEFONTINDIRECT,
  803. WmfRecordTypeCreateBrushIndirect = GDIP_WMF_RECORD_BASE or META_CREATEBRUSHINDIRECT,
  804. WmfRecordTypeCreateBitmapIndirect = GDIP_WMF_RECORD_BASE or $02FD, // META_CREATEBITMAPINDIRECT
  805. WmfRecordTypeCreateBitmap = GDIP_WMF_RECORD_BASE or $06FE, // META_CREATEBITMAP
  806. WmfRecordTypeCreateRegion = GDIP_WMF_RECORD_BASE or META_CREATEREGION,
  807.  
  808. EmfRecordTypeHeader = EMR_HEADER,
  809. EmfRecordTypePolyBezier = EMR_POLYBEZIER,
  810. EmfRecordTypePolygon = EMR_POLYGON,
  811. EmfRecordTypePolyline = EMR_POLYLINE,
  812. EmfRecordTypePolyBezierTo = EMR_POLYBEZIERTO,
  813. EmfRecordTypePolyLineTo = EMR_POLYLINETO,
  814. EmfRecordTypePolyPolyline = EMR_POLYPOLYLINE,
  815. EmfRecordTypePolyPolygon = EMR_POLYPOLYGON,
  816. EmfRecordTypeSetWindowExtEx = EMR_SETWINDOWEXTEX,
  817. EmfRecordTypeSetWindowOrgEx = EMR_SETWINDOWORGEX,
  818. EmfRecordTypeSetViewportExtEx = EMR_SETVIEWPORTEXTEX,
  819. EmfRecordTypeSetViewportOrgEx = EMR_SETVIEWPORTORGEX,
  820. EmfRecordTypeSetBrushOrgEx = EMR_SETBRUSHORGEX,
  821. EmfRecordTypeEOF = EMR_EOF,
  822. EmfRecordTypeSetPixelV = EMR_SETPIXELV,
  823. EmfRecordTypeSetMapperFlags = EMR_SETMAPPERFLAGS,
  824. EmfRecordTypeSetMapMode = EMR_SETMAPMODE,
  825. EmfRecordTypeSetBkMode = EMR_SETBKMODE,
  826. EmfRecordTypeSetPolyFillMode = EMR_SETPOLYFILLMODE,
  827. EmfRecordTypeSetROP2 = EMR_SETROP2,
  828. EmfRecordTypeSetStretchBltMode = EMR_SETSTRETCHBLTMODE,
  829. EmfRecordTypeSetTextAlign = EMR_SETTEXTALIGN,
  830. EmfRecordTypeSetColorAdjustment = EMR_SETCOLORADJUSTMENT,
  831. EmfRecordTypeSetTextColor = EMR_SETTEXTCOLOR,
  832. EmfRecordTypeSetBkColor = EMR_SETBKCOLOR,
  833. EmfRecordTypeOffsetClipRgn = EMR_OFFSETCLIPRGN,
  834. EmfRecordTypeMoveToEx = EMR_MOVETOEX,
  835. EmfRecordTypeSetMetaRgn = EMR_SETMETARGN,
  836. EmfRecordTypeExcludeClipRect = EMR_EXCLUDECLIPRECT,
  837. EmfRecordTypeIntersectClipRect = EMR_INTERSECTCLIPRECT,
  838. EmfRecordTypeScaleViewportExtEx = EMR_SCALEVIEWPORTEXTEX,
  839. EmfRecordTypeScaleWindowExtEx = EMR_SCALEWINDOWEXTEX,
  840. EmfRecordTypeSaveDC = EMR_SAVEDC,
  841. EmfRecordTypeRestoreDC = EMR_RESTOREDC,
  842. EmfRecordTypeSetWorldTransform = EMR_SETWORLDTRANSFORM,
  843. EmfRecordTypeModifyWorldTransform = EMR_MODIFYWORLDTRANSFORM,
  844. EmfRecordTypeSelectObject = EMR_SELECTOBJECT,
  845. EmfRecordTypeCreatePen = EMR_CREATEPEN,
  846. EmfRecordTypeCreateBrushIndirect = EMR_CREATEBRUSHINDIRECT,
  847. EmfRecordTypeDeleteObject = EMR_DELETEOBJECT,
  848. EmfRecordTypeAngleArc = EMR_ANGLEARC,
  849. EmfRecordTypeEllipse = EMR_ELLIPSE,
  850. EmfRecordTypeRectangle = EMR_RECTANGLE,
  851. EmfRecordTypeRoundRect = EMR_ROUNDRECT,
  852. EmfRecordTypeArc = EMR_ARC,
  853. EmfRecordTypeChord = EMR_CHORD,
  854. EmfRecordTypePie = EMR_PIE,
  855. EmfRecordTypeSelectPalette = EMR_SELECTPALETTE,
  856. EmfRecordTypeCreatePalette = EMR_CREATEPALETTE,
  857. EmfRecordTypeSetPaletteEntries = EMR_SETPALETTEENTRIES,
  858. EmfRecordTypeResizePalette = EMR_RESIZEPALETTE,
  859. EmfRecordTypeRealizePalette = EMR_REALIZEPALETTE,
  860. EmfRecordTypeExtFloodFill = EMR_EXTFLOODFILL,
  861. EmfRecordTypeLineTo = EMR_LINETO,
  862. EmfRecordTypeArcTo = EMR_ARCTO,
  863. EmfRecordTypePolyDraw = EMR_POLYDRAW,
  864. EmfRecordTypeSetArcDirection = EMR_SETARCDIRECTION,
  865. EmfRecordTypeSetMiterLimit = EMR_SETMITERLIMIT,
  866. EmfRecordTypeBeginPath = EMR_BEGINPATH,
  867. EmfRecordTypeEndPath = EMR_ENDPATH,
  868. EmfRecordTypeCloseFigure = EMR_CLOSEFIGURE,
  869. EmfRecordTypeFillPath = EMR_FILLPATH,
  870. EmfRecordTypeStrokeAndFillPath = EMR_STROKEANDFILLPATH,
  871. EmfRecordTypeStrokePath = EMR_STROKEPATH,
  872. EmfRecordTypeFlattenPath = EMR_FLATTENPATH,
  873. EmfRecordTypeWidenPath = EMR_WIDENPATH,
  874. EmfRecordTypeSelectClipPath = EMR_SELECTCLIPPATH,
  875. EmfRecordTypeAbortPath = EMR_ABORTPATH,
  876. EmfRecordTypeReserved_069 = 69, // Not Used
  877. EmfRecordTypeGdiComment = EMR_GDICOMMENT,
  878. EmfRecordTypeFillRgn = EMR_FILLRGN,
  879. EmfRecordTypeFrameRgn = EMR_FRAMERGN,
  880. EmfRecordTypeInvertRgn = EMR_INVERTRGN,
  881. EmfRecordTypePaintRgn = EMR_PAINTRGN,
  882. EmfRecordTypeExtSelectClipRgn = EMR_EXTSELECTCLIPRGN,
  883. EmfRecordTypeBitBlt = EMR_BITBLT,
  884. EmfRecordTypeStretchBlt = EMR_STRETCHBLT,
  885. EmfRecordTypeMaskBlt = EMR_MASKBLT,
  886. EmfRecordTypePlgBlt = EMR_PLGBLT,
  887. EmfRecordTypeSetDIBitsToDevice = EMR_SETDIBITSTODEVICE,
  888. EmfRecordTypeStretchDIBits = EMR_STRETCHDIBITS,
  889. EmfRecordTypeExtCreateFontIndirect = EMR_EXTCREATEFONTINDIRECTW,
  890. EmfRecordTypeExtTextOutA = EMR_EXTTEXTOUTA,
  891. EmfRecordTypeExtTextOutW = EMR_EXTTEXTOUTW,
  892. EmfRecordTypePolyBezier16 = EMR_POLYBEZIER16,
  893. EmfRecordTypePolygon16 = EMR_POLYGON16,
  894. EmfRecordTypePolyline16 = EMR_POLYLINE16,
  895. EmfRecordTypePolyBezierTo16 = EMR_POLYBEZIERTO16,
  896. EmfRecordTypePolylineTo16 = EMR_POLYLINETO16,
  897. EmfRecordTypePolyPolyline16 = EMR_POLYPOLYLINE16,
  898. EmfRecordTypePolyPolygon16 = EMR_POLYPOLYGON16,
  899. EmfRecordTypePolyDraw16 = EMR_POLYDRAW16,
  900. EmfRecordTypeCreateMonoBrush = EMR_CREATEMONOBRUSH,
  901. EmfRecordTypeCreateDIBPatternBrushPt = EMR_CREATEDIBPATTERNBRUSHPT,
  902. EmfRecordTypeExtCreatePen = EMR_EXTCREATEPEN,
  903. EmfRecordTypePolyTextOutA = EMR_POLYTEXTOUTA,
  904. EmfRecordTypePolyTextOutW = EMR_POLYTEXTOUTW,
  905. EmfRecordTypeSetICMMode = 98, // EMR_SETICMMODE,
  906. EmfRecordTypeCreateColorSpace = 99, // EMR_CREATECOLORSPACE,
  907. EmfRecordTypeSetColorSpace = 100, // EMR_SETCOLORSPACE,
  908. EmfRecordTypeDeleteColorSpace = 101, // EMR_DELETECOLORSPACE,
  909. EmfRecordTypeGLSRecord = 102, // EMR_GLSRECORD,
  910. EmfRecordTypeGLSBoundedRecord = 103, // EMR_GLSBOUNDEDRECORD,
  911. EmfRecordTypePixelFormat = 104, // EMR_PIXELFORMAT,
  912. EmfRecordTypeDrawEscape = 105, // EMR_RESERVED_105,
  913. EmfRecordTypeExtEscape = 106, // EMR_RESERVED_106,
  914. EmfRecordTypeStartDoc = 107, // EMR_RESERVED_107,
  915. EmfRecordTypeSmallTextOut = 108, // EMR_RESERVED_108,
  916. EmfRecordTypeForceUFIMapping = 109, // EMR_RESERVED_109,
  917. EmfRecordTypeNamedEscape = 110, // EMR_RESERVED_110,
  918. EmfRecordTypeColorCorrectPalette = 111, // EMR_COLORCORRECTPALETTE,
  919. EmfRecordTypeSetICMProfileA = 112, // EMR_SETICMPROFILEA,
  920. EmfRecordTypeSetICMProfileW = 113, // EMR_SETICMPROFILEW,
  921. EmfRecordTypeAlphaBlend = 114, // EMR_ALPHABLEND,
  922. EmfRecordTypeSetLayout = 115, // EMR_SETLAYOUT,
  923. EmfRecordTypeTransparentBlt = 116, // EMR_TRANSPARENTBLT,
  924. EmfRecordTypeReserved_117 = 117, // Not Used
  925. EmfRecordTypeGradientFill = 118, // EMR_GRADIENTFILL,
  926. EmfRecordTypeSetLinkedUFIs = 119, // EMR_RESERVED_119,
  927. EmfRecordTypeSetTextJustification = 120, // EMR_RESERVED_120,
  928. EmfRecordTypeColorMatchToTargetW = 121, // EMR_COLORMATCHTOTARGETW,
  929. EmfRecordTypeCreateColorSpaceW = 122, // EMR_CREATECOLORSPACEW,
  930. EmfRecordTypeMax = 122,
  931. EmfRecordTypeMin = 1,
  932.  
  933. // That is the END of the GDI EMF records.
  934.  
  935. // Now we start the list of EMF+ records. We leave quite
  936. // a bit of room here for the addition of any new GDI
  937. // records that may be added later.
  938.  
  939. EmfPlusRecordTypeInvalid = GDIP_EMFPLUS_RECORD_BASE,
  940. EmfPlusRecordTypeHeader,
  941. EmfPlusRecordTypeEndOfFile,
  942.  
  943. EmfPlusRecordTypeComment,
  944.  
  945. EmfPlusRecordTypeGetDC,
  946.  
  947. EmfPlusRecordTypeMultiFormatStart,
  948. EmfPlusRecordTypeMultiFormatSection,
  949. EmfPlusRecordTypeMultiFormatEnd,
  950.  
  951. // For all persistent objects
  952.  
  953. EmfPlusRecordTypeObject,
  954.  
  955. // Drawing Records
  956.  
  957. EmfPlusRecordTypeClear,
  958. EmfPlusRecordTypeFillRects,
  959. EmfPlusRecordTypeDrawRects,
  960. EmfPlusRecordTypeFillPolygon,
  961. EmfPlusRecordTypeDrawLines,
  962. EmfPlusRecordTypeFillEllipse,
  963. EmfPlusRecordTypeDrawEllipse,
  964. EmfPlusRecordTypeFillPie,
  965. EmfPlusRecordTypeDrawPie,
  966. EmfPlusRecordTypeDrawArc,
  967. EmfPlusRecordTypeFillRegion,
  968. EmfPlusRecordTypeFillPath,
  969. EmfPlusRecordTypeDrawPath,
  970. EmfPlusRecordTypeFillClosedCurve,
  971. EmfPlusRecordTypeDrawClosedCurve,
  972. EmfPlusRecordTypeDrawCurve,
  973. EmfPlusRecordTypeDrawBeziers,
  974. EmfPlusRecordTypeDrawImage,
  975. EmfPlusRecordTypeDrawImagePoints,
  976. EmfPlusRecordTypeDrawString,
  977.  
  978. // Graphics State Records
  979.  
  980. EmfPlusRecordTypeSetRenderingOrigin,
  981. EmfPlusRecordTypeSetAntiAliasMode,
  982. EmfPlusRecordTypeSetTextRenderingHint,
  983. EmfPlusRecordTypeSetTextContrast,
  984. EmfPlusRecordTypeSetInterpolationMode,
  985. EmfPlusRecordTypeSetPixelOffsetMode,
  986. EmfPlusRecordTypeSetCompositingMode,
  987. EmfPlusRecordTypeSetCompositingQuality,
  988. EmfPlusRecordTypeSave,
  989. EmfPlusRecordTypeRestore,
  990. EmfPlusRecordTypeBeginContainer,
  991. EmfPlusRecordTypeBeginContainerNoParams,
  992. EmfPlusRecordTypeEndContainer,
  993. EmfPlusRecordTypeSetWorldTransform,
  994. EmfPlusRecordTypeResetWorldTransform,
  995. EmfPlusRecordTypeMultiplyWorldTransform,
  996. EmfPlusRecordTypeTranslateWorldTransform,
  997. EmfPlusRecordTypeScaleWorldTransform,
  998. EmfPlusRecordTypeRotateWorldTransform,
  999. EmfPlusRecordTypeSetPageTransform,
  1000. EmfPlusRecordTypeResetClip,
  1001. EmfPlusRecordTypeSetClipRect,
  1002. EmfPlusRecordTypeSetClipPath,
  1003. EmfPlusRecordTypeSetClipRegion,
  1004. EmfPlusRecordTypeOffsetClip,
  1005.  
  1006. EmfPlusRecordTypeDrawDriverString,
  1007. {$IF (GDIPVER >= $0110)}
  1008. EmfPlusRecordTypeStrokeFillPath,
  1009. EmfPlusRecordTypeSerializableObject,
  1010.  
  1011. EmfPlusRecordTypeSetTSGraphics,
  1012. EmfPlusRecordTypeSetTSClip,
  1013. {$IFEND}
  1014. // NOTE: New records *must* be added immediately before this line.
  1015.  
  1016. EmfPlusRecordTotal,
  1017.  
  1018. EmfPlusRecordTypeMax = EmfPlusRecordTotal-1,
  1019. EmfPlusRecordTypeMin = EmfPlusRecordTypeHeader);
  1020.  
  1021. //---------------------------------------------------------------------------
  1022. // StringFormatFlags
  1023. //---------------------------------------------------------------------------
  1024.  
  1025. //---------------------------------------------------------------------------
  1026. // String format flags
  1027. //
  1028. // DirectionRightToLeft - For horizontal text, the reading order is
  1029. // right to left. This value is called
  1030. // the base embedding level by the Unicode
  1031. // bidirectional engine.
  1032. // For vertical text, columns are read from
  1033. // right to left.
  1034. // By default, horizontal or vertical text is
  1035. // read from left to right.
  1036. //
  1037. // DirectionVertical - Individual lines of text are vertical. In
  1038. // each line, characters progress from top to
  1039. // bottom.
  1040. // By default, lines of text are horizontal,
  1041. // each new line below the previous line.
  1042. //
  1043. // NoFitBlackBox - Allows parts of glyphs to overhang the
  1044. // bounding rectangle.
  1045. // By default glyphs are first aligned
  1046. // inside the margines, then any glyphs which
  1047. // still overhang the bounding box are
  1048. // repositioned to avoid any overhang.
  1049. // For example when an italic
  1050. // lower case letter f in a font such as
  1051. // Garamond is aligned at the far left of a
  1052. // rectangle, the lower part of the f will
  1053. // reach slightly further left than the left
  1054. // edge of the rectangle. Setting this flag
  1055. // will ensure the character aligns visually
  1056. // with the lines above and below, but may
  1057. // cause some pixels outside the formatting
  1058. // rectangle to be clipped or painted.
  1059. //
  1060. // DisplayFormatControl - Causes control characters such as the
  1061. // left-to-right mark to be shown in the
  1062. // output with a representative glyph.
  1063. //
  1064. // NoFontFallback - Disables fallback to alternate fonts for
  1065. // characters not supported in the requested
  1066. // font. Any missing characters will be
  1067. // be displayed with the fonts missing glyph,
  1068. // usually an open square.
  1069. //
  1070. // NoWrap - Disables wrapping of text between lines
  1071. // when formatting within a rectangle.
  1072. // NoWrap is implied when a point is passed
  1073. // instead of a rectangle, or when the
  1074. // specified rectangle has a zero line length.
  1075. //
  1076. // NoClip - By default text is clipped to the
  1077. // formatting rectangle. Setting NoClip
  1078. // allows overhanging pixels to affect the
  1079. // device outside the formatting rectangle.
  1080. // Pixels at the end of the line may be
  1081. // affected if the glyphs overhang their
  1082. // cells, and either the NoFitBlackBox flag
  1083. // has been set, or the glyph extends to far
  1084. // to be fitted.
  1085. // Pixels above/before the first line or
  1086. // below/after the last line may be affected
  1087. // if the glyphs extend beyond their cell
  1088. // ascent / descent. This can occur rarely
  1089. // with unusual diacritic mark combinations.
  1090.  
  1091. //---------------------------------------------------------------------------
  1092.  
  1093. type
  1094. TGPStringFormatFlag = (
  1095. StringFormatFlagsDirectionRightToLeft = 0,
  1096. StringFormatFlagsDirectionVertical = 1,
  1097. StringFormatFlagsNoFitBlackBox = 2,
  1098. StringFormatFlagsDisplayFormatControl = 5,
  1099. StringFormatFlagsNoFontFallback = 10,
  1100. StringFormatFlagsMeasureTrailingSpaces = 11,
  1101. StringFormatFlagsNoWrap = 12,
  1102. StringFormatFlagsLineLimit = 13,
  1103.  
  1104. StringFormatFlagsNoClip = 14,
  1105. StringFormatFlagsBypassGDI = 31);
  1106. TGPStringFormatFlags = set of TGPStringFormatFlag;
  1107.  
  1108. //---------------------------------------------------------------------------
  1109. // StringTrimming
  1110. //---------------------------------------------------------------------------
  1111.  
  1112. type
  1113. TGPStringTrimming = (
  1114. StringTrimmingNone = 0,
  1115. StringTrimmingCharacter = 1,
  1116. StringTrimmingWord = 2,
  1117. StringTrimmingEllipsisCharacter = 3,
  1118. StringTrimmingEllipsisWord = 4,
  1119. StringTrimmingEllipsisPath = 5);
  1120.  
  1121. //---------------------------------------------------------------------------
  1122. // National language digit substitution
  1123. //---------------------------------------------------------------------------
  1124.  
  1125. type
  1126. TGPStringDigitSubstitute = (
  1127. StringDigitSubstituteUser = 0, // As NLS setting
  1128. StringDigitSubstituteNone = 1,
  1129. StringDigitSubstituteNational = 2,
  1130. StringDigitSubstituteTraditional = 3);
  1131. PGPStringDigitSubstitute = ^TGPStringDigitSubstitute;
  1132.  
  1133. //---------------------------------------------------------------------------
  1134. // Hotkey prefix interpretation
  1135. //---------------------------------------------------------------------------
  1136.  
  1137. type
  1138. TGPHotkeyPrefix = (
  1139. HotkeyPrefixNone = 0,
  1140. HotkeyPrefixShow = 1,
  1141. HotkeyPrefixHide = 2);
  1142.  
  1143. //---------------------------------------------------------------------------
  1144. // String alignment flags
  1145. //---------------------------------------------------------------------------
  1146.  
  1147. type
  1148. TGPStringAlignment = (
  1149. // Left edge for left-to-right text,
  1150. // right for right-to-left text,
  1151. // and top for vertical
  1152. StringAlignmentNear = 0,
  1153. StringAlignmentCenter = 1,
  1154. StringAlignmentFar = 2);
  1155.  
  1156. //---------------------------------------------------------------------------
  1157. // DriverStringOptions
  1158. //---------------------------------------------------------------------------
  1159.  
  1160. type
  1161. TGPDriverStringOption = (
  1162. DriverStringOptionsCmapLookup = 0,
  1163. DriverStringOptionsVertical = 1,
  1164. DriverStringOptionsRealizedAdvance = 2,
  1165. DriverStringOptionsLimitSubpixel = 3,
  1166. DriverStringOptionsReserved = 31);
  1167. TGPDriverStringOptions = set of TGPDriverStringOption;
  1168.  
  1169. //---------------------------------------------------------------------------
  1170. // Flush Intention flags
  1171. //---------------------------------------------------------------------------
  1172.  
  1173. type
  1174. TGPFlushIntention = (
  1175. FlushIntentionFlush = 0, // Flush all batched rendering operations
  1176. FlushIntentionSync = 1); // Flush all batched rendering operations
  1177. // and wait for them to complete
  1178.  
  1179. //---------------------------------------------------------------------------
  1180. // Image encoder parameter related types
  1181. //---------------------------------------------------------------------------
  1182.  
  1183. type
  1184. TGPEncoderParameterValueType = (
  1185. EncoderParameterValueTypeByte = 1, // 8-bit unsigned int
  1186. EncoderParameterValueTypeASCII = 2, // 8-bit byte containing one 7-bit ASCII
  1187. // code. NULL terminated.
  1188. EncoderParameterValueTypeShort = 3, // 16-bit unsigned int
  1189. EncoderParameterValueTypeLong = 4, // 32-bit unsigned int
  1190. EncoderParameterValueTypeRational = 5, // Two Longs. The first Long is the
  1191. // numerator, the second Long expresses the
  1192. // denomintor.
  1193. EncoderParameterValueTypeLongRange = 6, // Two longs which specify a range of
  1194. // integer values. The first Long specifies
  1195. // the lower end and the second one
  1196. // specifies the higher end. All values
  1197. // are inclusive at both ends
  1198. EncoderParameterValueTypeUndefined = 7, // 8-bit byte that can take any value
  1199. // depending on field definition
  1200. EncoderParameterValueTypeRationalRange = 8 // Two Rationals. The first Rational
  1201. // specifies the lower end and the second
  1202. // specifies the higher end. All values
  1203. // are inclusive at both ends
  1204. {$IF (GDIPVER >= $0110)}
  1205. ,
  1206. EncoderParameterValueTypePointer = 9 // a pointer to a parameter defined data.
  1207. {$IFEND}
  1208. );
  1209.  
  1210. //---------------------------------------------------------------------------
  1211. // Image encoder value types
  1212. //---------------------------------------------------------------------------
  1213.  
  1214. type
  1215. TGPEncoderValue = (
  1216. EncoderValueColorTypeCMYK,
  1217. EncoderValueColorTypeYCCK,
  1218. EncoderValueCompressionLZW,
  1219. EncoderValueCompressionCCITT3,
  1220. EncoderValueCompressionCCITT4,
  1221. EncoderValueCompressionRle,
  1222. EncoderValueCompressionNone,
  1223. EncoderValueScanMethodInterlaced,
  1224. EncoderValueScanMethodNonInterlaced,
  1225. EncoderValueVersionGif87,
  1226. EncoderValueVersionGif89,
  1227. EncoderValueRenderProgressive,
  1228. EncoderValueRenderNonProgressive,
  1229. EncoderValueTransformRotate90,
  1230. EncoderValueTransformRotate180,
  1231. EncoderValueTransformRotate270,
  1232. EncoderValueTransformFlipHorizontal,
  1233. EncoderValueTransformFlipVertical,
  1234. EncoderValueMultiFrame,
  1235. EncoderValueLastFrame,
  1236. EncoderValueFlush,
  1237. EncoderValueFrameDimensionTime,
  1238. EncoderValueFrameDimensionResolution,
  1239. EncoderValueFrameDimensionPage
  1240. {$IF (GDIPVER >= $0110)}
  1241. ,
  1242. EncoderValueColorTypeGray,
  1243. EncoderValueColorTypeRGB
  1244. {$IFEND}
  1245. );
  1246.  
  1247. //---------------------------------------------------------------------------
  1248. // Conversion of Emf To WMF Bits flags
  1249. //---------------------------------------------------------------------------
  1250.  
  1251. type
  1252. TGPEmfToWmfBitsFlag = (
  1253. EmfToWmfBitsFlagsEmbedEmf = 0,
  1254. EmfToWmfBitsFlagsIncludePlaceable = 1,
  1255. EmfToWmfBitsFlagsNoXORClip = 2,
  1256. EmfToWmfBitsFlagsReserved = 31);
  1257. TGPEmfToWmfBitsFlags = set of TGPEmfToWmfBitsFlag;
  1258.  
  1259. const
  1260. EmfToWmfBitsFlagsDefault = [];
  1261.  
  1262. {$IF (GDIPVER >= $0110)}
  1263. //---------------------------------------------------------------------------
  1264. // Conversion of Emf To Emf+ Bits flags
  1265. //---------------------------------------------------------------------------
  1266.  
  1267. type
  1268. TGPConvertToEmfPlusFlags = (
  1269. ConvertToEmfPlusFlagsRopUsed = 0,
  1270. ConvertToEmfPlusFlagsText = 1,
  1271. ConvertToEmfPlusFlagsInvalidRecord = 2);
  1272.  
  1273. const
  1274. ConvertToEmfPlusFlagsDefault = [];
  1275. {$IFEND}
  1276.  
  1277. //---------------------------------------------------------------------------
  1278. // Test Control flags
  1279. //---------------------------------------------------------------------------
  1280.  
  1281. type
  1282. TGPTestControlEnum = (
  1283. TestControlForceBilinear = 0,
  1284. TestControlNoICM = 1,
  1285. TestControlGetBuildNumber = 2);
  1286.  
  1287. {$ENDREGION 'GdiplusEnums.h' }
  1288.  
  1289. {$REGION 'GdiplusTypes.h'}
  1290. (*****************************************************************************
  1291. * GdiplusTypes.h
  1292. * GDI+ Types
  1293. *****************************************************************************)
  1294.  
  1295. //--------------------------------------------------------------------------
  1296. // Callback functions
  1297. //--------------------------------------------------------------------------
  1298.  
  1299. type
  1300. TGPImageAbort = function(CallbackData: Pointer): BOOL; stdcall;
  1301. TGPDrawImageAbort = TGPImageAbort;
  1302. TGPGetThumbnailImageAbort = TGPImageAbort;
  1303.  
  1304. // Callback for EnumerateMetafile methods. The parameters are:
  1305.  
  1306. // recordType WMF, EMF, or EMF+ record type
  1307. // flags (always 0 for WMF/EMF records)
  1308. // dataSize size of the record data (in bytes), or 0 if no data
  1309. // data pointer to the record data, or NULL if no data
  1310. // callbackData pointer to callbackData, if any
  1311.  
  1312. // This method can then call Metafile::PlayRecord to play the
  1313. // record that was just enumerated. If this method returns
  1314. // FALSE, the enumeration process is aborted. Otherwise, it continues.
  1315.  
  1316. type
  1317. TGPEnumerateMetafileProc= function (RecordType: TEmfPlusRecordType;
  1318. Flags, DataSize: UINT; Data: PByte; CallbackData: Pointer): BOOL; stdcall;
  1319.  
  1320. {$IF (GDIPVER >= $0110)}
  1321. // This is the main GDI+ Abort interface
  1322.  
  1323. type
  1324. TGdiplusAbort = record
  1325. Abort: function: HRESULT of object;
  1326. end;
  1327. PGdiplusAbort = ^TGdiplusAbort;
  1328. {$IFEND}
  1329.  
  1330. //--------------------------------------------------------------------------
  1331. // Primitive data types
  1332. //
  1333. // NOTE:
  1334. // Types already defined in standard header files:
  1335. // INT8
  1336. // UINT8
  1337. // INT16
  1338. // UINT16
  1339. // INT32
  1340. // UINT32
  1341. // INT64
  1342. // UINT64
  1343. //
  1344. // Avoid using the following types:
  1345. // LONG - use INT
  1346. // ULONG - use UINT
  1347. // DWORD - use UINT32
  1348. //--------------------------------------------------------------------------
  1349.  
  1350. const
  1351. REAL_MAX = MaxSingle;
  1352. REAL_MIN = MinSingle;
  1353. REAL_TOLERANCE = (MinSingle * 100);
  1354. REAL_EPSILON = 1.192092896e-07; // FLT_EPSILON
  1355.  
  1356. //--------------------------------------------------------------------------
  1357. // Status return values from GDI+ methods
  1358. //--------------------------------------------------------------------------
  1359.  
  1360. type
  1361. TGPStatus = (
  1362. Ok = 0,
  1363. GenericError = 1,
  1364. InvalidParameter = 2,
  1365. OutOfMemory = 3,
  1366. ObjectBusy = 4,
  1367. InsufficientBuffer = 5,
  1368. NotImplemented = 6,
  1369. Win32Error = 7,
  1370. WrongState = 8,
  1371. Aborted = 9,
  1372. FileNotFound = 10,
  1373. ValueOverflow = 11,
  1374. AccessDenied = 12,
  1375. UnknownImageFormat = 13,
  1376. FontFamilyNotFound = 14,
  1377. FontStyleNotFound = 15,
  1378. NotTrueTypeFont = 16,
  1379. UnsupportedGdiplusVersion = 17,
  1380. GdiplusNotInitialized = 18,
  1381. PropertyNotFound = 19,
  1382. PropertyNotSupported = 20
  1383. {$IF (GDIPVER >= $0110)}
  1384. ,
  1385. ProfileNotFound = 21
  1386. {$IFEND}
  1387. );
  1388.  
  1389. //--------------------------------------------------------------------------
  1390. // Represents a dimension in a 2D coordinate system (floating-point coordinates)
  1391. //--------------------------------------------------------------------------
  1392.  
  1393. type
  1394. TGPSizeF = record
  1395. public
  1396. Width: Single;
  1397. Height: Single;
  1398. public
  1399. procedure Initialize; overload;
  1400. procedure Initialize(const Size: TGPSizeF); overload;
  1401. procedure Initialize(const AWidth, AHeight: Single); overload;
  1402. class function Create(const Size: TGPSizeF): TGPSizeF; overload; static;
  1403. class function Create(const AWidth, AHeight: Single): TGPSizeF; overload; static;
  1404. class operator Add(const A, B: TGPSizeF): TGPSizeF;
  1405. class operator Subtract(const A, B: TGPSizeF): TGPSizeF;
  1406. function Empty: Boolean;
  1407. function Equals(const Size: TGPSizeF): Boolean;
  1408. end;
  1409. PGPSizeF = ^TGPSizeF;
  1410.  
  1411. //--------------------------------------------------------------------------
  1412. // Represents a dimension in a 2D coordinate system (integer coordinates)
  1413. //--------------------------------------------------------------------------
  1414.  
  1415. type
  1416. TGPSize = record
  1417. public
  1418. Width: Integer;
  1419. Height: Integer;
  1420. public
  1421. procedure Initialize; overload;
  1422. procedure Initialize(const Size: TGPSize); overload;
  1423. procedure Initialize(const AWidth, AHeight: Integer); overload;
  1424. class function Create(const Size: TGPSize): TGPSize; overload; static;
  1425. class function Create(const AWidth, AHeight: Integer): TGPSize; overload; static;
  1426. class operator Add(const A, B: TGPSize): TGPSize;
  1427. class operator Subtract(const A, B: TGPSize): TGPSize;
  1428. function Empty: Boolean;
  1429. function Equals(const Size: TGPSize): Boolean;
  1430. end;
  1431. PGPSize = ^TGPSize;
  1432.  
  1433. //--------------------------------------------------------------------------
  1434. // Represents a location in a 2D coordinate system (floating-point coordinates)
  1435. //--------------------------------------------------------------------------
  1436.  
  1437. type
  1438. TGPPointF = record
  1439. public
  1440. X: Single;
  1441. Y: Single;
  1442. public
  1443. procedure Initialize; overload;
  1444. procedure Initialize(const Point: TGPPointF); overload;
  1445. procedure Initialize(const Size: TGPSizeF); overload;
  1446. procedure Initialize(const AX, AY: Single); overload;
  1447. class function Create(const Point: TGPPointF): TGPPointF; overload; static;
  1448. class function Create(const Size: TGPSizeF): TGPPointF; overload; static;
  1449. class function Create(const AX, AY: Single): TGPPointF; overload; static;
  1450. class operator Add(const A, B: TGPPointF): TGPPointF;
  1451. class operator Subtract(const A, B: TGPPointF): TGPPointF;
  1452. function Equals(const Point: TGPPointF): Boolean;
  1453. end;
  1454. PGPPointF = ^TGPPointF;
  1455.  
  1456. //--------------------------------------------------------------------------
  1457. // Represents a location in a 2D coordinate system (integer coordinates)
  1458. //--------------------------------------------------------------------------
  1459.  
  1460. type
  1461. TGPPoint = record
  1462. public
  1463. X: Integer;
  1464. Y: Integer;
  1465. public
  1466. procedure Initialize; overload;
  1467. procedure Initialize(const Point: TGPPoint); overload;
  1468. procedure Initialize(const Size: TGPSize); overload;
  1469. procedure Initialize(const AX, AY: Integer); overload;
  1470. class function Create(const Point: TGPPoint): TGPPoint; overload; static;
  1471. class function Create(const Size: TGPSize): TGPPoint; overload; static;
  1472. class function Create(const AX, AY: Integer): TGPPoint; overload; static;
  1473. class operator Add(const A, B: TGPPoint): TGPPoint;
  1474. class operator Subtract(const A, B: TGPPoint): TGPPoint;
  1475. function Equals(const Point: TGPPoint): Boolean;
  1476. end;
  1477. PGPPoint = ^TGPPoint;
  1478.  
  1479. //--------------------------------------------------------------------------
  1480. // Represents a rectangle in a 2D coordinate system (floating-point coordinates)
  1481. //--------------------------------------------------------------------------
  1482.  
  1483. type
  1484. PGPRectF = ^TGPRectF;
  1485. TGPRectF = record
  1486. public
  1487. X: Single;
  1488. Y: Single;
  1489. Width: Single;
  1490. Height: Single;
  1491. private
  1492. function GetLocation: TGPPointF;
  1493. function GetSize: TGPSizeF;
  1494. function GetBounds: TGPRectF;
  1495. function GetRight: Single;
  1496. function GetBottom: Single;
  1497. public
  1498. procedure Initialize; overload;
  1499. procedure Initialize(const AX, AY, AWidth, AHeight: Single); overload;
  1500. procedure Initialize(const Location: TGPPointF; const Size: TGPSizeF); overload;
  1501. procedure InitializeFromLTRB(const Left, Top, Right, Bottom: Single);
  1502. class function Create(const AX, AY, AWidth, AHeight: Single): TGPRectF; overload; static;
  1503. class function Create(const Location: TGPPointF; const Size: TGPSizeF): TGPRectF; overload; static;
  1504. function Clone: TGPRectF;
  1505. function IsEmptyArea: Boolean;
  1506. function Equals(const Rect: TGPRectF): Boolean;
  1507. function Contains(const AX, AY: Single): Boolean; overload;
  1508. function Contains(const Point: TGPPointF): Boolean; overload;
  1509. function Contains(const Rect: TGPRectF): Boolean; overload;
  1510. procedure Inflate(const DX, DY: Single); overload;
  1511. procedure Inflate(const DXY: Single); overload;
  1512. procedure Inflate(const Point: TGPPointF); overload;
  1513. function Intersect(const Rect: TGPRectF): Boolean; overload;
  1514. class function Intersect(out C: TGPRectF; const A, B: TGPRectF): Boolean; overload; static;
  1515. function IntersectsWith(const Rect: TGPRectF): Boolean;
  1516. function Union(const Rect: TGPRectF): Boolean; overload;
  1517. class function Union(out C: TGPRectF; const A, B: TGPRectF): Boolean; overload; static;
  1518. procedure Offset(const Point: TGPPointF); overload;
  1519. procedure Offset(const DX, DY: Single); overload;
  1520.  
  1521. property Location: TGPPointF read GetLocation;
  1522. property Size: TGPSizeF read GetSize;
  1523. property Bounds: TGPRectF read GetBounds;
  1524. property Left: Single read X;
  1525. property Top: Single read Y;
  1526. property Right: Single read GetRight;
  1527. property Bottom: Single read GetBottom;
  1528. end;
  1529.  
  1530. //--------------------------------------------------------------------------
  1531. // Represents a rectangle in a 2D coordinate system (integer coordinates)
  1532. //--------------------------------------------------------------------------
  1533.  
  1534. type
  1535. PGPRect = ^TGPRect;
  1536. TGPRect = record
  1537. public
  1538. X: Integer;
  1539. Y: Integer;
  1540. Width: Integer;
  1541. Height: Integer;
  1542. private
  1543. function GetLocation: TGPPoint;
  1544. function GetSize: TGPSize;
  1545. function GetBounds: TGPRect;
  1546. function GetRight: Integer;
  1547. function GetBottom: Integer;
  1548. public
  1549. procedure Initialize; overload;
  1550. procedure Initialize(const AX, AY, AWidth, AHeight: Integer); overload;
  1551. procedure Initialize(const Location: TGPPoint; const Size: TGPSize); overload;
  1552. procedure Initialize(const Rect: Windows.TRect); overload;
  1553. procedure InitializeFromLTRB(const Left, Top, Right, Bottom: Integer);
  1554. class function Create(const AX, AY, AWidth, AHeight: Integer): TGPRect; overload; static;
  1555. class function Create(const Location: TGPPoint; const Size: TGPSize): TGPRect; overload; static;
  1556. class function Create(const Rect: Windows.TRect): TGPRect; overload; static;
  1557. function Clone: TGPRect;
  1558. function IsEmptyArea: Boolean;
  1559. function Equals(const Rect: TGPRect): Boolean;
  1560. function Contains(const AX, AY: Integer): Boolean; overload;
  1561. function Contains(const Point: TGPPoint): Boolean; overload;
  1562. function Contains(const Rect: TGPRect): Boolean; overload;
  1563. procedure Inflate(const DX, DY: Integer); overload;
  1564. procedure Inflate(const Point: TGPPoint); overload;
  1565. function Intersect(const Rect: TGPRect): Boolean; overload;
  1566. class function Intersect(out C: TGPRect; const A, B: TGPRect): Boolean; overload; static;
  1567. function IntersectsWith(const Rect: TGPRect): Boolean;
  1568. function Union(const Rect: TGPRect): Boolean; overload;
  1569. class function Union(out C: TGPRect; const A, B: TGPRect): Boolean; overload; static;
  1570. procedure Offset(const Point: TGPPoint); overload;
  1571. procedure Offset(const DX, DY: Integer); overload;
  1572.  
  1573. property Location: TGPPoint read GetLocation;
  1574. property Size: TGPSize read GetSize;
  1575. property Bounds: TGPRect read GetBounds;
  1576. property Left: Integer read X;
  1577. property Top: Integer read Y;
  1578. property Right: Integer read GetRight;
  1579. property Bottom: Integer read GetBottom;
  1580. end;
  1581.  
  1582. type
  1583. TGPNativePathData = record
  1584. Count: Integer;
  1585. Points: PGPPointF;
  1586. Types: PByte;
  1587. end;
  1588. PGPNativePathData = ^TGPNativePathData;
  1589.  
  1590. type
  1591. TGPCharacterRange = record
  1592. public
  1593. First: Integer;
  1594. Length: Integer;
  1595. public
  1596. procedure Initialize; overload;
  1597. procedure Initialize(const AFirst, ALength: Integer); overload;
  1598. end;
  1599. PGPCharacterRange = ^TGPCharacterRange;
  1600.  
  1601. {$ENDREGION 'GdiplusTypes.h'}
  1602.  
  1603. {$REGION 'GdiplusInit.h'}
  1604. (*****************************************************************************
  1605. * GdiplusInit.h
  1606. * GDI+ Startup and Shutdown APIs
  1607. *****************************************************************************)
  1608.  
  1609. type
  1610. TGPDebugEventLevel = (
  1611. DebugEventLevelFatal,
  1612. DebugEventLevelWarning);
  1613.  
  1614. // Callback function that GDI+ can call, on debug builds, for assertions
  1615. // and warnings.
  1616.  
  1617. type
  1618. TGPDebugEventProc = procedure(Level: TGPDebugEventLevel; Message: PAnsiChar); stdcall;
  1619.  
  1620. // Notification functions which the user must call appropriately if
  1621. // "SuppressBackgroundThread" (below) is set.
  1622.  
  1623. type
  1624. TGPNofificationHookProc = function(out Token: ULONG): TGPStatus; stdcall;
  1625. TGPNofificationUnhookProc = procedure(Token: ULONG); stdcall;
  1626.  
  1627. // Input structure for GdiplusStartup()
  1628.  
  1629. type
  1630. TGdiplusStartupInput = record
  1631. public
  1632. GdiplusVersion: UInt32; // Must be 1 (or 2 for the Ex version)
  1633. DebugEventCallback: TGPDebugEventProc; // Ignored on free builds
  1634. SuppressBackgroundThread: BOOL; // FALSE unless you're prepared to call the hook/unhook functions properly
  1635. SuppressExternalCodecs: BOOL; // FALSE unless you want GDI+ only to use its internal image codecs.
  1636. public
  1637. procedure Intialize(const ADebugEventCallback: TGPDebugEventProc = nil;
  1638. const ASuppressBackgroundThread: Boolean = False;
  1639. const ASuppressExternalCodecs: Boolean = False);
  1640. end;
  1641. PGdiplusStartupInput = ^TGdiplusStartupInput;
  1642.  
  1643. {$IF (GDIPVER >= $0110)}
  1644. type
  1645. TGdiplusStartupInputEx = record
  1646. public
  1647. { From TGdiplusStartupInput }
  1648. GdiplusVersion: UInt32;
  1649. DebugEventCallback: TGPDebugEventProc;
  1650. SuppressBackgroundThread: BOOL;
  1651. SuppressExternalCodecs: BOOL;
  1652. { New }
  1653. StartupParameters: Integer; // Do we not set the FPU rounding mode
  1654. public
  1655. procedure Intialize(const AStartupParameters: Integer = 0;
  1656. const ADebugEventCallback: TGPDebugEventProc = nil;
  1657. const ASuppressBackgroundThread: Boolean = False;
  1658. const ASuppressExternalCodecs: Boolean = False);
  1659. end;
  1660. PGdiplusStartupInputEx = ^TGdiplusStartupInputEx;
  1661.  
  1662. const
  1663. GdiplusStartupDefault = 0;
  1664. GdiplusStartupNoSetRound = 1;
  1665. GdiplusStartupSetPSValue = 2;
  1666. GdiplusStartupTransparencyMask = $FF000000;
  1667. {$IFEND}
  1668.  
  1669. // Output structure for GdiplusStartup()
  1670.  
  1671. type
  1672. TGdiplusStartupOutput = record
  1673. // The following 2 fields are NULL if SuppressBackgroundThread is FALSE.
  1674. // Otherwise, they are functions which must be called appropriately to
  1675. // replace the background thread.
  1676. //
  1677. // These should be called on the application's main message loop - i.e.
  1678. // a message loop which is active for the lifetime of GDI+.
  1679. // "NotificationHook" should be called before starting the loop,
  1680. // and "NotificationUnhook" should be called after the loop ends.
  1681. NotificationHook: TGPNofificationHookProc;
  1682. NotificationUnhook: TGPNofificationUnhookProc;
  1683. end;
  1684. PGdiplusStartupOutput = ^TGdiplusStartupOutput;
  1685.  
  1686. // GDI+ initialization. Must not be called from DllMain - can cause deadlock.
  1687. //
  1688. // Must be called before GDI+ API's or constructors are used.
  1689. //
  1690. // token - may not be NULL - accepts a token to be passed in the corresponding
  1691. // GdiplusShutdown call.
  1692. // input - may not be NULL
  1693. // output - may be NULL only if input->SuppressBackgroundThread is FALSE.
  1694.  
  1695. function GdiplusStartup(out Token: ULONG; const Input: PGdiplusStartupInput;
  1696. Output: PGdiplusStartupOutput): TGPStatus; stdcall; external GdiPlusDll;
  1697.  
  1698. // GDI+ termination. Must be called before GDI+ is unloaded.
  1699. // Must not be called from DllMain - can cause deadlock.
  1700. //
  1701. // GDI+ API's may not be called after GdiplusShutdown. Pay careful attention
  1702. // to GDI+ object destructors.
  1703.  
  1704. procedure GdiplusShutdown(Token: ULONG); stdcall; external GdiPlusDll;
  1705. {$ENDREGION 'GdiplusInit.h'}
  1706.  
  1707. {$REGION 'GdiplusPixelFormats.h'}
  1708. (*****************************************************************************
  1709. * GdiplusPixelFormats.h
  1710. * GDI+ Pixel Formats
  1711. *****************************************************************************)
  1712.  
  1713. type
  1714. ARGB = UInt32;
  1715. ARGB64 = UInt64;
  1716. PARGB = ^ARGB;
  1717. PARGB64 = ^ARGB64;
  1718.  
  1719. const
  1720. ALPHA_SHIFT = 24;
  1721. RED_SHIFT = 16;
  1722. GREEN_SHIFT = 8;
  1723. BLUE_SHIFT = 0;
  1724. ALPHA_MASK = ARGB($FF) shl ALPHA_SHIFT;
  1725.  
  1726. // In-memory pixel data formats:
  1727. // bits 0-7 = format index
  1728. // bits 8-15 = pixel size (in bits)
  1729. // bits 16-23 = flags
  1730. // bits 24-31 = reserved
  1731.  
  1732. type
  1733. TGPPixelFormat = Integer;
  1734.  
  1735. const
  1736. PixelFormatIndexed = $00010000; // Indexes into a palette
  1737. PixelFormatGDI = $00020000; // Is a GDI-supported format
  1738. PixelFormatAlpha = $00040000; // Has an alpha component
  1739. PixelFormatPAlpha = $00080000; // Pre-multiplied alpha
  1740. PixelFormatExtended = $00100000; // Extended color 16 bits/channel
  1741. PixelFormatCanonical = $00200000;
  1742.  
  1743. PixelFormatUndefined = 0;
  1744. PixelFormatDontCare = 0;
  1745.  
  1746. PixelFormat1bppIndexed = ( 1 or ( 1 shl 8) or PixelFormatIndexed or PixelFormatGDI);
  1747. PixelFormat4bppIndexed = ( 2 or ( 4 shl 8) or PixelFormatIndexed or PixelFormatGDI);
  1748. PixelFormat8bppIndexed = ( 3 or ( 8 shl 8) or PixelFormatIndexed or PixelFormatGDI);
  1749. PixelFormat16bppGrayScale = ( 4 or (16 shl 8) or PixelFormatExtended);
  1750. PixelFormat16bppRGB555 = ( 5 or (16 shl 8) or PixelFormatGDI);
  1751. PixelFormat16bppRGB565 = ( 6 or (16 shl 8) or PixelFormatGDI);
  1752. PixelFormat16bppARGB1555 = ( 7 or (16 shl 8) or PixelFormatAlpha or PixelFormatGDI);
  1753. PixelFormat24bppRGB = ( 8 or (24 shl 8) or PixelFormatGDI);
  1754. PixelFormat32bppRGB = ( 9 or (32 shl 8) or PixelFormatGDI);
  1755. PixelFormat32bppARGB = (10 or (32 shl 8) or PixelFormatAlpha or PixelFormatGDI or PixelFormatCanonical);
  1756. PixelFormat32bppPARGB = (11 or (32 shl 8) or PixelFormatAlpha or PixelFormatPAlpha or PixelFormatGDI);
  1757. PixelFormat48bppRGB = (12 or (48 shl 8) or PixelFormatExtended);
  1758. PixelFormat64bppARGB = (13 or (64 shl 8) or PixelFormatAlpha or PixelFormatCanonical or PixelFormatExtended);
  1759. PixelFormat64bppPARGB = (14 or (64 shl 8) or PixelFormatAlpha or PixelFormatPAlpha or PixelFormatExtended);
  1760. PixelFormat32bppCMYK = (15 or (32 shl 8));
  1761. PixelFormatMax = 16;
  1762.  
  1763. function GetPixelFormatSize(const PixFmt: TGPPixelFormat): Integer; inline;
  1764. function IsIndexedPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  1765. function IsAlphaPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  1766. function IsExtendedPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  1767.  
  1768. //--------------------------------------------------------------------------
  1769. // Determine if the Pixel Format is Canonical format:
  1770. // PixelFormat32bppARGB
  1771. // PixelFormat32bppPARGB
  1772. // PixelFormat64bppARGB
  1773. // PixelFormat64bppPARGB
  1774. //--------------------------------------------------------------------------
  1775.  
  1776. function IsCanonicalPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  1777.  
  1778. {$IF (GDIPVER >= $0110)}
  1779. //----------------------------------------------------------------------------
  1780. // Color format conversion parameters
  1781. //----------------------------------------------------------------------------
  1782.  
  1783. type
  1784. TGPPaletteType = (
  1785. // Arbitrary custom palette provided by caller.
  1786.  
  1787. PaletteTypeCustom = 0,
  1788.  
  1789. // Optimal palette generated using a median-cut algorithm.
  1790.  
  1791. PaletteTypeOptimal = 1,
  1792.  
  1793. // Black and white palette.
  1794.  
  1795. PaletteTypeFixedBW = 2,
  1796.  
  1797. // Symmetric halftone palettes.
  1798. // Each of these halftone palettes will be a superset of the system palette.
  1799. // E.g. Halftone8 will have it's 8-color on-off primaries and the 16 system
  1800. // colors added. With duplicates removed, that leaves 16 colors.
  1801.  
  1802. PaletteTypeFixedHalftone8 = 3, // 8-color, on-off primaries
  1803. PaletteTypeFixedHalftone27 = 4, // 3 intensity levels of each color
  1804. PaletteTypeFixedHalftone64 = 5, // 4 intensity levels of each color
  1805. PaletteTypeFixedHalftone125 = 6, // 5 intensity levels of each color
  1806. PaletteTypeFixedHalftone216 = 7, // 6 intensity levels of each color
  1807.  
  1808. // Assymetric halftone palettes.
  1809. // These are somewhat less useful than the symmetric ones, but are
  1810. // included for completeness. These do not include all of the system
  1811. // colors.
  1812.  
  1813. PaletteTypeFixedHalftone252 = 8, // 6-red, 7-green, 6-blue intensities
  1814. PaletteTypeFixedHalftone256 = 9); // 8-red, 8-green, 4-blue intensities
  1815.  
  1816. type
  1817. TGPDitherType = (
  1818. DitherTypeNone = 0,
  1819.  
  1820. // Solid color - picks the nearest matching color with no attempt to
  1821. // halftone or dither. May be used on an arbitrary palette.
  1822.  
  1823. DitherTypeSolid = 1,
  1824.  
  1825. // Ordered dithers and spiral dithers must be used with a fixed palette.
  1826.  
  1827. // NOTE: DitherOrdered4x4 is unique in that it may apply to 16bpp
  1828. // conversions also.
  1829.  
  1830. DitherTypeOrdered4x4 = 2,
  1831.  
  1832. DitherTypeOrdered8x8 = 3,
  1833. DitherTypeOrdered16x16 = 4,
  1834. DitherTypeSpiral4x4 = 5,
  1835. DitherTypeSpiral8x8 = 6,
  1836. DitherTypeDualSpiral4x4 = 7,
  1837. DitherTypeDualSpiral8x8 = 8,
  1838.  
  1839. // Error diffusion. May be used with any palette.
  1840.  
  1841. DitherTypeErrorDiffusion = 9,
  1842.  
  1843. DitherTypeMax = 10);
  1844. {$IFEND}
  1845.  
  1846. type
  1847. TGPPaletteFlag = (
  1848. PaletteFlagsHasAlpha = 0,
  1849. PaletteFlagsGrayScale = 1,
  1850. PaletteFlagsHalftone = 2,
  1851. PaletteFlagsReserved = 31);
  1852. TGPPaletteFlags = set of TGPPaletteFlag;
  1853.  
  1854. type
  1855. TGPNativeColorPalette = record
  1856. public
  1857. Flags: TGPPaletteFlags;
  1858. Count: Integer;
  1859. // Entries: array [0..0] of ARGB;
  1860. end;
  1861. PGPNativeColorPalette = ^TGPNativeColorPalette;
  1862. {$ENDREGION 'GdiplusPixelFormats.h'}
  1863.  
  1864. {$REGION 'GdiplusColor.h'}
  1865. (*****************************************************************************
  1866. * GdiplusColor.h
  1867. * GDI+ Color Object
  1868. *****************************************************************************)
  1869.  
  1870. //----------------------------------------------------------------------------
  1871. // Color mode
  1872. //----------------------------------------------------------------------------
  1873.  
  1874. type
  1875. TGPColorMode = (
  1876. ColorModeARGB32 = 0,
  1877. ColorModeARGB64 = 1);
  1878.  
  1879. //----------------------------------------------------------------------------
  1880. // Color Channel flags
  1881. //----------------------------------------------------------------------------
  1882.  
  1883. type
  1884. TGPColorChannelFlags = (
  1885. ColorChannelFlagsC = 0,
  1886. ColorChannelFlagsM,
  1887. ColorChannelFlagsY,
  1888. ColorChannelFlagsK,
  1889. ColorChannelFlagsLast);
  1890.  
  1891. //----------------------------------------------------------------------------
  1892. // Color
  1893. //----------------------------------------------------------------------------
  1894.  
  1895. type
  1896. TGPColor = record
  1897. private
  1898. FArgb: ARGB;
  1899. private
  1900. function GetAlpha: Byte;
  1901. procedure SetAlpha(const Value: Byte);
  1902. function GetRed: Byte;
  1903. procedure SetRed(const Value: Byte);
  1904. function GetGreen: Byte;
  1905. procedure SetGreen(const Value: Byte);
  1906. function GetBlue: Byte;
  1907. procedure SetBlue(const Value: Byte);
  1908. function GetColorRef: TColorRef;
  1909. procedure SetColorRef(const Value: TColorRef);
  1910. public
  1911. // Common color constants
  1912. const AliceBlue = $FFF0F8FF;
  1913. const AntiqueWhite = $FFFAEBD7;
  1914. const Aqua = $FF00FFFF;
  1915. const Aquamarine = $FF7FFFD4;
  1916. const Azure = $FFF0FFFF;
  1917. const Beige = $FFF5F5DC;
  1918. const Bisque = $FFFFE4C4;
  1919. const Black = $FF000000;
  1920. const BlanchedAlmond = $FFFFEBCD;
  1921. const Blue = $FF0000FF;
  1922. const BlueViolet = $FF8A2BE2;
  1923. const Brown = $FFA52A2A;
  1924. const BurlyWood = $FFDEB887;
  1925. const CadetBlue = $FF5F9EA0;
  1926. const Chartreuse = $FF7FFF00;
  1927. const Chocolate = $FFD2691E;
  1928. const Coral = $FFFF7F50;
  1929. const CornflowerBlue = $FF6495ED;
  1930. const Cornsilk = $FFFFF8DC;
  1931. const Crimson = $FFDC143C;
  1932. const Cyan = $FF00FFFF;
  1933. const DarkBlue = $FF00008B;
  1934. const DarkCyan = $FF008B8B;
  1935. const DarkGoldenrod = $FFB8860B;
  1936. const DarkGray = $FFA9A9A9;
  1937. const DarkGreen = $FF006400;
  1938. const DarkKhaki = $FFBDB76B;
  1939. const DarkMagenta = $FF8B008B;
  1940. const DarkOliveGreen = $FF556B2F;
  1941. const DarkOrange = $FFFF8C00;
  1942. const DarkOrchid = $FF9932CC;
  1943. const DarkRed = $FF8B0000;
  1944. const DarkSalmon = $FFE9967A;
  1945. const DarkSeaGreen = $FF8FBC8B;
  1946. const DarkSlateBlue = $FF483D8B;
  1947. const DarkSlateGray = $FF2F4F4F;
  1948. const DarkTurquoise = $FF00CED1;
  1949. const DarkViolet = $FF9400D3;
  1950. const DeepPink = $FFFF1493;
  1951. const DeepSkyBlue = $FF00BFFF;
  1952. const DimGray = $FF696969;
  1953. const DodgerBlue = $FF1E90FF;
  1954. const Firebrick = $FFB22222;
  1955. const FloralWhite = $FFFFFAF0;
  1956. const ForestGreen = $FF228B22;
  1957. const Fuchsia = $FFFF00FF;
  1958. const Gainsboro = $FFDCDCDC;
  1959. const GhostWhite = $FFF8F8FF;
  1960. const Gold = $FFFFD700;
  1961. const Goldenrod = $FFDAA520;
  1962. const Gray = $FF808080;
  1963. const Green = $FF008000;
  1964. const GreenYellow = $FFADFF2F;
  1965. const Honeydew = $FFF0FFF0;
  1966. const HotPink = $FFFF69B4;
  1967. const IndianRed = $FFCD5C5C;
  1968. const Indigo = $FF4B0082;
  1969. const Ivory = $FFFFFFF0;
  1970. const Khaki = $FFF0E68C;
  1971. const Lavender = $FFE6E6FA;
  1972. const LavenderBlush = $FFFFF0F5;
  1973. const LawnGreen = $FF7CFC00;
  1974. const LemonChiffon = $FFFFFACD;
  1975. const LightBlue = $FFADD8E6;
  1976. const LightCoral = $FFF08080;
  1977. const LightCyan = $FFE0FFFF;
  1978. const LightGoldenrodYellow = $FFFAFAD2;
  1979. const LightGray = $FFD3D3D3;
  1980. const LightGreen = $FF90EE90;
  1981. const LightPink = $FFFFB6C1;
  1982. const LightSalmon = $FFFFA07A;
  1983. const LightSeaGreen = $FF20B2AA;
  1984. const LightSkyBlue = $FF87CEFA;
  1985. const LightSlateGray = $FF778899;
  1986. const LightSteelBlue = $FFB0C4DE;
  1987. const LightYellow = $FFFFFFE0;
  1988. const Lime = $FF00FF00;
  1989. const LimeGreen = $FF32CD32;
  1990. const Linen = $FFFAF0E6;
  1991. const Magenta = $FFFF00FF;
  1992. const Maroon = $FF800000;
  1993. const MediumAquamarine = $FF66CDAA;
  1994. const MediumBlue = $FF0000CD;
  1995. const MediumOrchid = $FFBA55D3;
  1996. const MediumPurple = $FF9370DB;
  1997. const MediumSeaGreen = $FF3CB371;
  1998. const MediumSlateBlue = $FF7B68EE;
  1999. const MediumSpringGreen = $FF00FA9A;
  2000. const MediumTurquoise = $FF48D1CC;
  2001. const MediumVioletRed = $FFC71585;
  2002. const MidnightBlue = $FF191970;
  2003. const MintCream = $FFF5FFFA;
  2004. const MistyRose = $FFFFE4E1;
  2005. const Moccasin = $FFFFE4B5;
  2006. const NavajoWhite = $FFFFDEAD;
  2007. const Navy = $FF000080;
  2008. const OldLace = $FFFDF5E6;
  2009. const Olive = $FF808000;
  2010. const OliveDrab = $FF6B8E23;
  2011. const Orange = $FFFFA500;
  2012. const OrangeRed = $FFFF4500;
  2013. const Orchid = $FFDA70D6;
  2014. const PaleGoldenrod = $FFEEE8AA;
  2015. const PaleGreen = $FF98FB98;
  2016. const PaleTurquoise = $FFAFEEEE;
  2017. const PaleVioletRed = $FFDB7093;
  2018. const PapayaWhip = $FFFFEFD5;
  2019. const PeachPuff = $FFFFDAB9;
  2020. const Peru = $FFCD853F;
  2021. const Pink = $FFFFC0CB;
  2022. const Plum = $FFDDA0DD;
  2023. const PowderBlue = $FFB0E0E6;
  2024. const Purple = $FF800080;
  2025. const Red = $FFFF0000;
  2026. const RosyBrown = $FFBC8F8F;
  2027. const RoyalBlue = $FF4169E1;
  2028. const SaddleBrown = $FF8B4513;
  2029. const Salmon = $FFFA8072;
  2030. const SandyBrown = $FFF4A460;
  2031. const SeaGreen = $FF2E8B57;
  2032. const SeaShell = $FFFFF5EE;
  2033. const Sienna = $FFA0522D;
  2034. const Silver = $FFC0C0C0;
  2035. const SkyBlue = $FF87CEEB;
  2036. const SlateBlue = $FF6A5ACD;
  2037. const SlateGray = $FF708090;
  2038. const Snow = $FFFFFAFA;
  2039. const SpringGreen = $FF00FF7F;
  2040. const SteelBlue = $FF4682B4;
  2041. const Tan = $FFD2B48C;
  2042. const Teal = $FF008080;
  2043. const Thistle = $FFD8BFD8;
  2044. const Tomato = $FFFF6347;
  2045. const Transparent = $00FFFFFF;
  2046. const Turquoise = $FF40E0D0;
  2047. const Violet = $FFEE82EE;
  2048. const Wheat = $FFF5DEB3;
  2049. const White = $FFFFFFFF;
  2050. const WhiteSmoke = $FFF5F5F5;
  2051. const Yellow = $FFFFFF00;
  2052. const YellowGreen = $FF9ACD32;
  2053.  
  2054. // Shift count and bit mask for A, R, G, B components
  2055. const AlphaShift = 24;
  2056. const RedShift = 16;
  2057. const GreenShift = 8;
  2058. const BlueShift = 0;
  2059.  
  2060. const AlphaMask = $FF000000;
  2061. const RedMask = $00FF0000;
  2062. const GreenMask = $0000FF00;
  2063. const BlueMask = $000000FF;
  2064. public
  2065. procedure Initialize; overload;
  2066.  
  2067. // Construct an opaque Color object with
  2068. // the specified Red, Green, Blue values.
  2069. //
  2070. // Color values are not premultiplied.
  2071. procedure Initialize(const R, G, B: Byte); overload;
  2072. procedure Initialize(const A, R, G, B: Byte); overload;
  2073. procedure Initialize(const AArgb: ARGB); overload;
  2074. procedure InitializeFromColorRef(const ColorRef: TColorRef);
  2075.  
  2076. class operator Implicit(const AArgb: ARGB): TGPColor;
  2077. class operator Implicit(const Color: TGPColor): ARGB;
  2078. class function MakeARGB(const A, R, G, B: Byte): ARGB; static;
  2079. class function Create(const R, G, B: Byte): TGPColor; overload; static;
  2080. class function Create(const A, R, G, B: Byte): TGPColor; overload; static;
  2081. class function Create(const AArgb: ARGB): TGPColor; overload; static;
  2082. class function CreateFromColorRef(const ColorRef: TColorRef): TGPColor; overload; static;
  2083. class function CreateFromColorRef(const A: Byte; const ColorRef: TColorRef): TGPColor; overload; static;
  2084.  
  2085. property Alpha: Byte read GetAlpha write SetAlpha;
  2086. property A: Byte read GetAlpha write SetAlpha;
  2087. property R: Byte read GetRed write SetRed;
  2088. property G: Byte read GetGreen write SetGreen;
  2089. property B: Byte read GetBlue write SetBlue;
  2090. property Value: ARGB read FArgb write FArgb;
  2091. property ColorRef: TColorRef read GetColorRef write SetColorRef;
  2092. end;
  2093. PGPColor = ^TGPColor;
  2094. {$ENDREGION 'GdiplusColor.h'}
  2095.  
  2096. {$REGION 'GdiplusMetaHeader.h'}
  2097. (*****************************************************************************
  2098. * GdiplusMetaHeader.h
  2099. * GDI+ Metafile Related Structures
  2100. *****************************************************************************)
  2101.  
  2102. type
  2103. TEnhMetaHeader3 = record
  2104. iType: DWORD; // Record type EMR_HEADER
  2105. nSize: DWORD; // Record size in bytes. This may be greater
  2106. // than the sizeof(ENHMETAHEADER).
  2107. rclBounds: Windows.TRect; // Inclusive-inclusive bounds in device units
  2108. rclFrame: Windows.TRect; // Inclusive-inclusive Picture Frame .01mm unit
  2109. dSignature: DWORD; // Signature. Must be ENHMETA_SIGNATURE.
  2110. nVersion: DWORD; // Version number
  2111. nBytes: DWORD; // Size of the metafile in bytes
  2112. nRecords: DWORD; // Number of records in the metafile
  2113. nHandles: WORD; // Number of handles in the handle table
  2114. // Handle index zero is reserved.
  2115. sReserved: WORD; // Reserved. Must be zero.
  2116. nDescription: DWORD; // Number of chars in the unicode desc string
  2117. // This is 0 if there is no description string
  2118. offDescription: DWORD; // Offset to the metafile description record.
  2119. // This is 0 if there is no description string
  2120. nPalEntries: DWORD; // Number of entries in the metafile palette.
  2121. szlDevice: Windows.TSize; // Size of the reference device in pels
  2122. szlMillimeters: Windows.TSize; // Size of the reference device in millimeters
  2123. end;
  2124. PEnhMetaHeader3 = ^TEnhMetaHeader3;
  2125.  
  2126. // Placeable WMFs
  2127.  
  2128. // Placeable Metafiles were created as a non-standard way of specifying how
  2129. // a metafile is mapped and scaled on an output device.
  2130. // Placeable metafiles are quite wide-spread, but not directly supported by
  2131. // the Windows API. To playback a placeable metafile using the Windows API,
  2132. // you will first need to strip the placeable metafile header from the file.
  2133. // This is typically performed by copying the metafile to a temporary file
  2134. // starting at file offset 22 (0x16). The contents of the temporary file may
  2135. // then be used as input to the Windows GetMetaFile(), PlayMetaFile(),
  2136. // CopyMetaFile(), etc. GDI functions.
  2137.  
  2138. // Each placeable metafile begins with a 22-byte header,
  2139. // followed by a standard metafile:
  2140.  
  2141. type
  2142. TPWMFRect16 = packed record
  2143. Left: Int16;
  2144. Top: Int16;
  2145. Right: Int16;
  2146. Bottom: Int16;
  2147. end;
  2148. PPWMFRect16 = ^TPWMFRect16;
  2149.  
  2150. type
  2151. TWmfPlaceableFileHeader = packed record
  2152. Key: UInt32; // GDIP_WMF_PLACEABLEKEY
  2153. Hmf: Int16; // Metafile HANDLE number (always 0)
  2154. BoundingBox: TPWMFRect16; // Coordinates in metafile units
  2155. Inch: Int16; // Number of metafile units per inch
  2156. Reserved: UInt32; // Reserved (always 0)
  2157. Checksum: Int16; // Checksum value for previous 10 WORDs
  2158. end;
  2159. PWmfPlaceableFileHeader = ^TWmfPlaceableFileHeader;
  2160.  
  2161. // Key contains a special identification value that indicates the presence
  2162. // of a placeable metafile header and is always 0x9AC6CDD7.
  2163.  
  2164. // Handle is used to stored the handle of the metafile in memory. When written
  2165. // to disk, this field is not used and will always contains the value 0.
  2166.  
  2167. // Left, Top, Right, and Bottom contain the coordinates of the upper-left
  2168. // and lower-right corners of the image on the output device. These are
  2169. // measured in twips.
  2170.  
  2171. // A twip (meaning "twentieth of a point") is the logical unit of measurement
  2172. // used in Windows Metafiles. A twip is equal to 1/1440 of an inch. Thus 720
  2173. // twips equal 1/2 inch, while 32,768 twips is 22.75 inches.
  2174.  
  2175. // Inch contains the number of twips per inch used to represent the image.
  2176. // Normally, there are 1440 twips per inch; however, this number may be
  2177. // changed to scale the image. A value of 720 indicates that the image is
  2178. // double its normal size, or scaled to a factor of 2:1. A value of 360
  2179. // indicates a scale of 4:1, while a value of 2880 indicates that the image
  2180. // is scaled down in size by a factor of two. A value of 1440 indicates
  2181. // a 1:1 scale ratio.
  2182.  
  2183. // Reserved is not used and is always set to 0.
  2184.  
  2185. // Checksum contains a checksum value for the previous 10 WORDs in the header.
  2186. // This value can be used in an attempt to detect if the metafile has become
  2187. // corrupted. The checksum is calculated by XORing each WORD value to an
  2188. // initial value of 0.
  2189.  
  2190. // If the metafile was recorded with a reference Hdc that was a display.
  2191.  
  2192. const
  2193. GDIP_EMFPLUSFLAGS_DISPLAY = $00000001;
  2194.  
  2195. type
  2196. TGPMetafileHeader = record
  2197. private
  2198. type
  2199. THeader = record
  2200. case Integer of
  2201. 0: (WmfHeader: TMetaHeader);
  2202. 1: (EmfHeader: TEnhMetaHeader3);
  2203. end;
  2204. private
  2205. FMetafileType: TGPMetafileType;
  2206. FSize: Cardinal; // Size of the metafile (in bytes)
  2207. FVersion: Cardinal; // EMF+, EMF, or WMF version
  2208. FEmfPlusFlags: Cardinal;
  2209. FDpiX: Single;
  2210. FDpiY: Single;
  2211. FX: Integer; // Bounds in device units
  2212. FY: Integer;
  2213. FWidth: Integer;
  2214. FHeight: Integer;
  2215. FHeader: THeader;
  2216. FEmfPlusHeaderSize: Integer; // size of the EMF+ header in file
  2217. FLogicalDpiX: Integer; // Logical Dpi of reference Hdc
  2218. FLogicalDpiY: Integer; // usually valid only for EMF+
  2219. private
  2220. function GetBounds: TGPRect;
  2221. function GetWmfHeader: PMetaHeader;
  2222. function GetEmfHeader: PEnhMetaHeader3;
  2223. public
  2224. // Is it any type of WMF (standard or Placeable Metafile)?
  2225. function IsWmf: Boolean;
  2226.  
  2227. // Is this an Placeable Metafile?
  2228. function IsWmfPlaceable: Boolean;
  2229.  
  2230. // Is this an EMF (not an EMF+)?
  2231. function IsEmf: Boolean;
  2232.  
  2233. // Is this an EMF or EMF+ file?
  2234. function IsEmfOrEmfPlus: Boolean;
  2235.  
  2236. // Is this an EMF+ file?
  2237. function IsEmfPlus: Boolean;
  2238.  
  2239. // Is this an EMF+ dual (has dual, down-level records) file?
  2240. function IsEmfPlusDual: Boolean;
  2241.  
  2242. // Is this an EMF+ only (no dual records) file?
  2243. function IsEmfPlusOnly: Boolean;
  2244.  
  2245. // If it's an EMF+ file, was it recorded against a display Hdc?
  2246. function IsDisplay: Boolean;
  2247.  
  2248. property MetafileType: TGPMetafileType read FMetafileType;
  2249. property MetafileSize: Cardinal read FSize;
  2250.  
  2251. // If IsEmfPlus, this is the EMF+ version; else it is the WMF or EMF ver
  2252. property Version: Cardinal read FVersion;
  2253.  
  2254. // Get the EMF+ flags associated with the metafile
  2255. property EmfPlusFlags: Cardinal read FEmfPlusFlags;
  2256.  
  2257. property DpiX: Single read FDpiX;
  2258. property DpiY: Single read FDpiY;
  2259. property Bounds: TGPRect read GetBounds;
  2260.  
  2261. // Get the WMF header of the metafile (if it is a WMF)
  2262. property WmfHeader: PMetaHeader read GetWmfHeader;
  2263.  
  2264. // Get the EMF header of the metafile (if it is an EMF)
  2265. property EmfHeader: PEnhMetaHeader3 read GetEmfHeader;
  2266.  
  2267. property EmfPlusHeaderSize: Integer read FEmfPlusHeaderSize;
  2268. property LogicalDpiX: Integer read FLogicalDpiX;
  2269. property LogicalDpiY: Integer read FLogicalDpiY;
  2270. end;
  2271. PGPMetafileHeader = ^TGPMetafileHeader;
  2272. {$ENDREGION 'GdiplusMetaHeader.h'}
  2273.  
  2274. {$REGION 'GdiplusImaging.h'}
  2275. (*****************************************************************************
  2276. * GdiplusImaging.h
  2277. * GDI+ Imaging GUIDs
  2278. *****************************************************************************)
  2279.  
  2280. //---------------------------------------------------------------------------
  2281. // Image file format identifiers
  2282. //---------------------------------------------------------------------------
  2283. const
  2284. ImageFormatUndefined : TGUID = '{b96b3ca9-0728-11d3-9d7b-0000f81ef32e}';
  2285. ImageFormatMemoryBMP : TGUID = '{b96b3caa-0728-11d3-9d7b-0000f81ef32e}';
  2286. ImageFormatBMP : TGUID = '{b96b3cab-0728-11d3-9d7b-0000f81ef32e}';
  2287. ImageFormatEMF : TGUID = '{b96b3cac-0728-11d3-9d7b-0000f81ef32e}';
  2288. ImageFormatWMF : TGUID = '{b96b3cad-0728-11d3-9d7b-0000f81ef32e}';
  2289. ImageFormatJPEG : TGUID = '{b96b3cae-0728-11d3-9d7b-0000f81ef32e}';
  2290. ImageFormatPNG : TGUID = '{b96b3caf-0728-11d3-9d7b-0000f81ef32e}';
  2291. ImageFormatGIF : TGUID = '{b96b3cb0-0728-11d3-9d7b-0000f81ef32e}';
  2292. ImageFormatTIFF : TGUID = '{b96b3cb1-0728-11d3-9d7b-0000f81ef32e}';
  2293. ImageFormatEXIF : TGUID = '{b96b3cb2-0728-11d3-9d7b-0000f81ef32e}';
  2294. ImageFormatIcon : TGUID = '{b96b3cb5-0728-11d3-9d7b-0000f81ef32e}';
  2295.  
  2296. //---------------------------------------------------------------------------
  2297. // Predefined multi-frame dimension IDs
  2298. //---------------------------------------------------------------------------
  2299.  
  2300. const
  2301. FrameDimensionTime : TGUID = '{6aedbd6d-3fb5-418a-83a6-7f45229dc872}';
  2302. FrameDimensionResolution : TGUID = '{84236f7b-3bd3-428f-8dab-4ea1439ca315}';
  2303. FrameDimensionPage : TGUID = '{7462dc86-6180-4c7e-8e3f-ee7333a7a483}';
  2304.  
  2305. //---------------------------------------------------------------------------
  2306. // Property sets
  2307. //---------------------------------------------------------------------------
  2308.  
  2309. const
  2310. FormatIDImageInformation : TGUID = '{e5836cbe-5eef-4f1d-acde-ae4c43b608ce}';
  2311. FormatIDJpegAppHeaders : TGUID = '{1c4afdcd-6177-43cf-abc7-5f51af39ee85}';
  2312.  
  2313. //---------------------------------------------------------------------------
  2314. // Encoder parameter sets
  2315. //---------------------------------------------------------------------------
  2316.  
  2317. const
  2318. EncoderCompression : TGUID = '{e09d739d-ccd4-44ee-8eba-3fbf8be4fc58}';
  2319. EncoderColorDepth : TGUID = '{66087055-ad66-4c7c-9a18-38a2310b8337}';
  2320. EncoderScanMethod : TGUID = '{3a4e2661-3109-4e56-8536-42c156e7dcfa}';
  2321. EncoderVersion : TGUID = '{24d18c76-814a-41a4-bf53-1c219cccf797}';
  2322. EncoderRenderMethod : TGUID = '{6d42c53a-229a-4825-8bb7-5c99e2b9a8b8}';
  2323. EncoderQuality : TGUID = '{1d5be4b5-fa4a-452d-9cdd-5db35105e7eb}';
  2324. EncoderTransformation : TGUID = '{8d0eb2d1-a58e-4ea8-aa14-108074b7b6f9}';
  2325. EncoderLuminanceTable : TGUID = '{edb33bce-0266-4a77-b904-27216099e717}';
  2326. EncoderChrominanceTable : TGUID = '{f2e455dc-09b3-4316-8260-676ada32481c}';
  2327. EncoderSaveFlag : TGUID = '{292266fc-ac40-47bf-8cfc-a85b89a655de}';
  2328.  
  2329. {$IF (GDIPVER >= $0110)}
  2330. EncoderColorSpace : TGUID = '{ae7a62a0-ee2c-49d8-9d07-1ba8a927596e}';
  2331. EncoderImageItems : TGUID = '{63875e13-1f1d-45ab-9195-a29b6066a650}';
  2332. EncoderSaveAsCMYK : TGUID = '{a219bbc9-0a9d-4005-a3ee-3a421b8bb06c}';
  2333. {$IFEND}
  2334.  
  2335. CodecIImageBytes : TGUID = '{025d1823-6c7d-447b-bbdb-a3cbc3dfa2fc}';
  2336.  
  2337. type
  2338. IGPImageBytes = interface(IUnknown)
  2339. ['{025D1823-6C7D-447B-BBDB-A3CBC3DFA2FC}']
  2340. // Return total number of bytes in the IStream
  2341. function CountBytes(out Count: UINT): HRESULT; stdcall;
  2342.  
  2343. // Locks "cb" bytes, starting from "ulOffset" in the stream, and returns the
  2344. // pointer to the beginning of the locked memory chunk in "ppvBytes"
  2345. function LockBytes(Count: UINT; Offset: ULONG; out Bytes: Pointer): HResult; stdcall;
  2346.  
  2347. // Unlocks "cb" bytes, pointed by "pvBytes", starting from "ulOffset" in the
  2348. // stream
  2349. function UnlockBytes(const Bytes: Pointer; Count: UINT; Offset: ULONG): HResult; stdcall;
  2350. end;
  2351.  
  2352. //--------------------------------------------------------------------------
  2353. // Information flags about image codecs
  2354. //--------------------------------------------------------------------------
  2355.  
  2356. type
  2357. TGPImageCodecFlag = (
  2358. ImageCodecFlagsEncoder = 0,
  2359. ImageCodecFlagsDecoder = 1,
  2360. ImageCodecFlagsSupportBitmap = 2,
  2361. ImageCodecFlagsSupportVector = 3,
  2362. ImageCodecFlagsSeekableEncode = 4,
  2363. ImageCodecFlagsBlockingDecode = 5,
  2364.  
  2365. ImageCodecFlagsBuiltin = 16,
  2366. ImageCodecFlagsSystem = 17,
  2367. ImageCodecFlagsUser = 18);
  2368. TGPImageCodecFlags = set of TGPImageCodecFlag;
  2369.  
  2370. //--------------------------------------------------------------------------
  2371. // ImageCodecInfo structure
  2372. //--------------------------------------------------------------------------
  2373.  
  2374. type
  2375. TGPNativeImageCodecInfo = record
  2376. public
  2377. ClsId: TGUID;
  2378. FormatId: TGUID;
  2379. CodecName: PWideChar;
  2380. DllName: PWideChar;
  2381. FormatDescription: PWideChar;
  2382. FilenameExtension: PWideChar;
  2383. MimeType: PWideChar;
  2384. Flags: TGPImageCodecFlags;
  2385. Version: DWORD;
  2386. SigCount: DWORD;
  2387. SigSize: DWORD;
  2388. SigPattern: PByte;
  2389. SigMask: PByte;
  2390. end;
  2391. PGPNativeImageCodecInfo = ^TGPNativeImageCodecInfo;
  2392.  
  2393. //---------------------------------------------------------------------------
  2394. // Access modes used when calling Image::LockBits
  2395. //---------------------------------------------------------------------------
  2396.  
  2397. type
  2398. TGPImageLockModeOption = (
  2399. ImageLockModeRead = 0,
  2400. ImageLockModeWrite = 1,
  2401. ImageLockModeUserInputBuf = 2,
  2402. ImageLockModeReserved = 31);
  2403.  
  2404. TGPImageLockMode = set of TGPImageLockModeOption;
  2405.  
  2406. //---------------------------------------------------------------------------
  2407. // Information about image pixel data
  2408. //---------------------------------------------------------------------------
  2409.  
  2410. type
  2411. TGPBitmapData = record
  2412. public
  2413. Width: Cardinal;
  2414. Height: Cardinal;
  2415. Stride: Integer;
  2416. PixelFormat: TGPPixelFormat;
  2417. Scan0: Pointer;
  2418. Reserved: Cardinal;
  2419. end;
  2420. PGPBitmapData = ^TGPBitmapData;
  2421.  
  2422. //---------------------------------------------------------------------------
  2423. // Image flags
  2424. //---------------------------------------------------------------------------
  2425.  
  2426. type
  2427. TGPImageFlag = (
  2428. // Low-word: shared with SINKFLAG_x
  2429.  
  2430. ImageFlagsScalable = 0,
  2431. ImageFlagsHasAlpha = 1,
  2432. ImageFlagsHasTranslucent = 2,
  2433. ImageFlagsPartiallyScalable = 3,
  2434.  
  2435. // Low-word: color space definition
  2436.  
  2437. ImageFlagsColorSpaceRGB = 4,
  2438. ImageFlagsColorSpaceCMYK = 5,
  2439. ImageFlagsColorSpaceGRAY = 6,
  2440. ImageFlagsColorSpaceYCBCR = 7,
  2441. ImageFlagsColorSpaceYCCK = 8,
  2442.  
  2443. // Low-word: image size info
  2444.  
  2445. ImageFlagsHasRealDPI = 12,
  2446. ImageFlagsHasRealPixelSize = 13,
  2447.  
  2448. // High-word
  2449.  
  2450. ImageFlagsReadOnly = 16,
  2451. ImageFlagsCaching = 17);
  2452.  
  2453. TGPImageFlags = set of TGPImageFlag;
  2454.  
  2455. const
  2456. ImageFlagsNone = [];
  2457.  
  2458. type
  2459. TGPRotateFlipType = (
  2460. RotateNoneFlipNone = 0,
  2461. Rotate90FlipNone = 1,
  2462. Rotate180FlipNone = 2,
  2463. Rotate270FlipNone = 3,
  2464.  
  2465. RotateNoneFlipX = 4,
  2466. Rotate90FlipX = 5,
  2467. Rotate180FlipX = 6,
  2468. Rotate270FlipX = 7,
  2469.  
  2470. RotateNoneFlipY = Rotate180FlipX,
  2471. Rotate90FlipY = Rotate270FlipX,
  2472. Rotate180FlipY = RotateNoneFlipX,
  2473. Rotate270FlipY = Rotate90FlipX,
  2474.  
  2475. RotateNoneFlipXY = Rotate180FlipNone,
  2476. Rotate90FlipXY = Rotate270FlipNone,
  2477. Rotate180FlipXY = RotateNoneFlipNone,
  2478. Rotate270FlipXY = Rotate90FlipNone);
  2479.  
  2480. //---------------------------------------------------------------------------
  2481. // Encoder Parameter structure
  2482. //---------------------------------------------------------------------------
  2483.  
  2484. type
  2485. TGPNativeEncoderParameter = record
  2486. public
  2487. Guid: TGUID; // GUID of the parameter
  2488. NumberOfValues: ULONG; // Number of the parameter values
  2489. ValueType: TGPEncoderParameterValueType; // Value type, like ValueTypeLONG etc.
  2490. Value: Pointer; // A pointer to the parameter values
  2491. end;
  2492. PGPNativeEncoderParameter = ^TGPNativeEncoderParameter;
  2493.  
  2494. //---------------------------------------------------------------------------
  2495. // Encoder Parameters structure
  2496. //---------------------------------------------------------------------------
  2497.  
  2498. type
  2499. TGPNativeEncoderParameters = record
  2500. public
  2501. Count: Cardinal; // Number of parameters in this structure
  2502. Parameter: array [0..0] of TGPNativeEncoderParameter; // Parameter values
  2503. end;
  2504. PGPNativeEncoderParameters = ^TGPNativeEncoderParameters;
  2505.  
  2506. {$IF (GDIPVER >= $0110)}
  2507. type
  2508. TGPItemDataPosition = (
  2509. ItemDataPositionAfterHeader = 0,
  2510. ItemDataPositionAfterPalette = 1,
  2511. ItemDataPositionAfterBits = 2);
  2512.  
  2513. //---------------------------------------------------------------------------
  2514. // External Data Item
  2515. //---------------------------------------------------------------------------
  2516.  
  2517. type
  2518. TGPImageItemData = record
  2519. public
  2520. Size: Cardinal; // size of the structure
  2521. Position: Cardinal; // flags describing how the data is to be used.
  2522. Desc: Pointer; // description on how the data is to be saved.
  2523. // it is different for every codec type.
  2524. DescSize: Cardinal; // size memory pointed by Desc
  2525. Data: Pointer; // pointer to the data that is to be saved in the
  2526. // file, could be anything saved directly.
  2527. DataSize: Cardinal; // size memory pointed by Data
  2528. Cookie: Cardinal; // opaque for the apps data member used during
  2529. // enumeration of image data items.
  2530. end;
  2531. PGPImageItemData = ^TGPImageItemData;
  2532. {$IFEND}
  2533.  
  2534. //---------------------------------------------------------------------------
  2535. // Property Item
  2536. //---------------------------------------------------------------------------
  2537.  
  2538. type
  2539. TGPNativePropertyItem = record
  2540. public
  2541. Id: TPropID; // ID of this property
  2542. Length: ULONG; // Length of the property value, in bytes
  2543. ValueType: Word; // Type of the value, as one of TAG_TYPE_XXX
  2544. // defined above
  2545. Value: Pointer; // property value
  2546. end;
  2547. PGPNativePropertyItem = ^TGPNativePropertyItem;
  2548.  
  2549. //---------------------------------------------------------------------------
  2550. // Image property types
  2551. //---------------------------------------------------------------------------
  2552.  
  2553. const
  2554. PropertyTagTypeByte = 1;
  2555. PropertyTagTypeASCII = 2;
  2556. PropertyTagTypeShort = 3;
  2557. PropertyTagTypeLong = 4;
  2558. PropertyTagTypeRational = 5;
  2559. PropertyTagTypeUndefined = 7;
  2560. PropertyTagTypeSLONG = 9;
  2561. PropertyTagTypeSRational = 10;
  2562.  
  2563. //---------------------------------------------------------------------------
  2564. // Image property ID tags
  2565. //---------------------------------------------------------------------------
  2566.  
  2567. PropertyTagExifIFD = $8769;
  2568. PropertyTagGpsIFD = $8825;
  2569.  
  2570. PropertyTagNewSubfileType = $00FE;
  2571. PropertyTagSubfileType = $00FF;
  2572. PropertyTagImageWidth = $0100;
  2573. PropertyTagImageHeight = $0101;
  2574. PropertyTagBitsPerSample = $0102;
  2575. PropertyTagCompression = $0103;
  2576. PropertyTagPhotometricInterp = $0106;
  2577. PropertyTagThreshHolding = $0107;
  2578. PropertyTagCellWidth = $0108;
  2579. PropertyTagCellHeight = $0109;
  2580. PropertyTagFillOrder = $010A;
  2581. PropertyTagDocumentName = $010D;
  2582. PropertyTagImageDescription = $010E;
  2583. PropertyTagEquipMake = $010F;
  2584. PropertyTagEquipModel = $0110;
  2585. PropertyTagStripOffsets = $0111;
  2586. PropertyTagOrientation = $0112;
  2587. PropertyTagSamplesPerPixel = $0115;
  2588. PropertyTagRowsPerStrip = $0116;
  2589. PropertyTagStripBytesCount = $0117;
  2590. PropertyTagMinSampleValue = $0118;
  2591. PropertyTagMaxSampleValue = $0119;
  2592. PropertyTagXResolution = $011A; // Image resolution in width direction
  2593. PropertyTagYResolution = $011B; // Image resolution in height direction
  2594. PropertyTagPlanarConfig = $011C; // Image data arrangement
  2595. PropertyTagPageName = $011D;
  2596. PropertyTagXPosition = $011E;
  2597. PropertyTagYPosition = $011F;
  2598. PropertyTagFreeOffset = $0120;
  2599. PropertyTagFreeByteCounts = $0121;
  2600. PropertyTagGrayResponseUnit = $0122;
  2601. PropertyTagGrayResponseCurve = $0123;
  2602. PropertyTagT4Option = $0124;
  2603. PropertyTagT6Option = $0125;
  2604. PropertyTagResolutionUnit = $0128; // Unit of X and Y resolution
  2605. PropertyTagPageNumber = $0129;
  2606. PropertyTagTransferFuncition = $012D;
  2607. PropertyTagSoftwareUsed = $0131;
  2608. PropertyTagDateTime = $0132;
  2609. PropertyTagArtist = $013B;
  2610. PropertyTagHostComputer = $013C;
  2611. PropertyTagPredictor = $013D;
  2612. PropertyTagWhitePoint = $013E;
  2613. PropertyTagPrimaryChromaticities = $013F;
  2614. PropertyTagColorMap = $0140;
  2615. PropertyTagHalftoneHints = $0141;
  2616. PropertyTagTileWidth = $0142;
  2617. PropertyTagTileLength = $0143;
  2618. PropertyTagTileOffset = $0144;
  2619. PropertyTagTileByteCounts = $0145;
  2620. PropertyTagInkSet = $014C;
  2621. PropertyTagInkNames = $014D;
  2622. PropertyTagNumberOfInks = $014E;
  2623. PropertyTagDotRange = $0150;
  2624. PropertyTagTargetPrinter = $0151;
  2625. PropertyTagExtraSamples = $0152;
  2626. PropertyTagSampleFormat = $0153;
  2627. PropertyTagSMinSampleValue = $0154;
  2628. PropertyTagSMaxSampleValue = $0155;
  2629. PropertyTagTransferRange = $0156;
  2630.  
  2631. PropertyTagJPEGProc = $0200;
  2632. PropertyTagJPEGInterFormat = $0201;
  2633. PropertyTagJPEGInterLength = $0202;
  2634. PropertyTagJPEGRestartInterval = $0203;
  2635. PropertyTagJPEGLosslessPredictors = $0205;
  2636. PropertyTagJPEGPointTransforms = $0206;
  2637. PropertyTagJPEGQTables = $0207;
  2638. PropertyTagJPEGDCTables = $0208;
  2639. PropertyTagJPEGACTables = $0209;
  2640.  
  2641. PropertyTagYCbCrCoefficients = $0211;
  2642. PropertyTagYCbCrSubsampling = $0212;
  2643. PropertyTagYCbCrPositioning = $0213;
  2644. PropertyTagREFBlackWhite = $0214;
  2645.  
  2646. PropertyTagICCProfile = $8773; // This TAG is defined by ICC
  2647. // for embedded ICC in TIFF
  2648. PropertyTagGamma = $0301;
  2649. PropertyTagICCProfileDescriptor = $0302;
  2650. PropertyTagSRGBRenderingIntent = $0303;
  2651.  
  2652. PropertyTagImageTitle = $0320;
  2653. PropertyTagCopyright = $8298;
  2654.  
  2655. // Extra TAGs (Like Adobe Image Information tags etc.)
  2656.  
  2657. PropertyTagResolutionXUnit = $5001;
  2658. PropertyTagResolutionYUnit = $5002;
  2659. PropertyTagResolutionXLengthUnit = $5003;
  2660. PropertyTagResolutionYLengthUnit = $5004;
  2661. PropertyTagPrintFlags = $5005;
  2662. PropertyTagPrintFlagsVersion = $5006;
  2663. PropertyTagPrintFlagsCrop = $5007;
  2664. PropertyTagPrintFlagsBleedWidth = $5008;
  2665. PropertyTagPrintFlagsBleedWidthScale = $5009;
  2666. PropertyTagHalftoneLPI = $500A;
  2667. PropertyTagHalftoneLPIUnit = $500B;
  2668. PropertyTagHalftoneDegree = $500C;
  2669. PropertyTagHalftoneShape = $500D;
  2670. PropertyTagHalftoneMisc = $500E;
  2671. PropertyTagHalftoneScreen = $500F;
  2672. PropertyTagJPEGQuality = $5010;
  2673. PropertyTagGridSize = $5011;
  2674. PropertyTagThumbnailFormat = $5012; // 1 = JPEG, 0 = RAW RGB
  2675. PropertyTagThumbnailWidth = $5013;
  2676. PropertyTagThumbnailHeight = $5014;
  2677. PropertyTagThumbnailColorDepth = $5015;
  2678. PropertyTagThumbnailPlanes = $5016;
  2679. PropertyTagThumbnailRawBytes = $5017;
  2680. PropertyTagThumbnailSize = $5018;
  2681. PropertyTagThumbnailCompressedSize = $5019;
  2682. PropertyTagColorTransferFunction = $501A;
  2683. PropertyTagThumbnailData = $501B; // RAW thumbnail bits in
  2684. // JPEG format or RGB format
  2685. // depends on
  2686. // PropertyTagThumbnailFormat
  2687.  
  2688. // Thumbnail related TAGs
  2689.  
  2690. PropertyTagThumbnailImageWidth = $5020; // Thumbnail width
  2691. PropertyTagThumbnailImageHeight = $5021; // Thumbnail height
  2692. PropertyTagThumbnailBitsPerSample = $5022; // Number of bits per
  2693. // component
  2694. PropertyTagThumbnailCompression = $5023; // Compression Scheme
  2695. PropertyTagThumbnailPhotometricInterp = $5024; // Pixel composition
  2696. PropertyTagThumbnailImageDescription = $5025; // Image Tile
  2697. PropertyTagThumbnailEquipMake = $5026; // Manufacturer of Image
  2698. // Input equipment
  2699. PropertyTagThumbnailEquipModel = $5027; // Model of Image input
  2700. // equipment
  2701. PropertyTagThumbnailStripOffsets = $5028; // Image data location
  2702. PropertyTagThumbnailOrientation = $5029; // Orientation of image
  2703. PropertyTagThumbnailSamplesPerPixel = $502A; // Number of components
  2704. PropertyTagThumbnailRowsPerStrip = $502B; // Number of rows per strip
  2705. PropertyTagThumbnailStripBytesCount = $502C; // Bytes per compressed
  2706. // strip
  2707. PropertyTagThumbnailResolutionX = $502D; // Resolution in width
  2708. // direction
  2709. PropertyTagThumbnailResolutionY = $502E; // Resolution in height
  2710. // direction
  2711. PropertyTagThumbnailPlanarConfig = $502F; // Image data arrangement
  2712. PropertyTagThumbnailResolutionUnit = $5030; // Unit of X and Y
  2713. // Resolution
  2714. PropertyTagThumbnailTransferFunction = $5031; // Transfer function
  2715. PropertyTagThumbnailSoftwareUsed = $5032; // Software used
  2716. PropertyTagThumbnailDateTime = $5033; // File change date and
  2717. // time
  2718. PropertyTagThumbnailArtist = $5034; // Person who created the
  2719. // image
  2720. PropertyTagThumbnailWhitePoint = $5035; // White point chromaticity
  2721. PropertyTagThumbnailPrimaryChromaticities = $5036; // Chromaticities of
  2722. // primaries
  2723. PropertyTagThumbnailYCbCrCoefficients = $5037; // Color space transforma-
  2724. // tion coefficients
  2725. PropertyTagThumbnailYCbCrSubsampling = $5038; // Subsampling ratio of Y
  2726. // to C
  2727. PropertyTagThumbnailYCbCrPositioning = $5039; // Y and C position
  2728. PropertyTagThumbnailRefBlackWhite = $503A; // Pair of black and white
  2729. // reference values
  2730. PropertyTagThumbnailCopyRight = $503B; // CopyRight holder
  2731.  
  2732. PropertyTagLuminanceTable = $5090;
  2733. PropertyTagChrominanceTable = $5091;
  2734.  
  2735. PropertyTagFrameDelay = $5100;
  2736. PropertyTagLoopCount = $5101;
  2737.  
  2738. {$IF (GDIPVER >= $0110)}
  2739. PropertyTagGlobalPalette = $5102;
  2740. PropertyTagIndexBackground = $5103;
  2741. PropertyTagIndexTransparent = $5104;
  2742. {$IFEND}
  2743.  
  2744. PropertyTagPixelUnit = $5110; // Unit specifier for pixel/unit
  2745. PropertyTagPixelPerUnitX = $5111; // Pixels per unit in X
  2746. PropertyTagPixelPerUnitY = $5112; // Pixels per unit in Y
  2747. PropertyTagPaletteHistogram = $5113; // Palette histogram
  2748.  
  2749. // EXIF specific tag
  2750.  
  2751. PropertyTagExifExposureTime = $829A;
  2752. PropertyTagExifFNumber = $829D;
  2753.  
  2754. PropertyTagExifExposureProg = $8822;
  2755. PropertyTagExifSpectralSense = $8824;
  2756. PropertyTagExifISOSpeed = $8827;
  2757. PropertyTagExifOECF = $8828;
  2758.  
  2759. PropertyTagExifVer = $9000;
  2760. PropertyTagExifDTOrig = $9003; // Date & time of original
  2761. PropertyTagExifDTDigitized = $9004; // Date & time of digital data generation
  2762.  
  2763. PropertyTagExifCompConfig = $9101;
  2764. PropertyTagExifCompBPP = $9102;
  2765.  
  2766. PropertyTagExifShutterSpeed = $9201;
  2767. PropertyTagExifAperture = $9202;
  2768. PropertyTagExifBrightness = $9203;
  2769. PropertyTagExifExposureBias = $9204;
  2770. PropertyTagExifMaxAperture = $9205;
  2771. PropertyTagExifSubjectDist = $9206;
  2772. PropertyTagExifMeteringMode = $9207;
  2773. PropertyTagExifLightSource = $9208;
  2774. PropertyTagExifFlash = $9209;
  2775. PropertyTagExifFocalLength = $920A;
  2776. PropertyTagExifSubjectArea = $9214; // exif 2.2 Subject Area
  2777. PropertyTagExifMakerNote = $927C;
  2778. PropertyTagExifUserComment = $9286;
  2779. PropertyTagExifDTSubsec = $9290; // Date & Time subseconds
  2780. PropertyTagExifDTOrigSS = $9291; // Date & Time original subseconds
  2781. PropertyTagExifDTDigSS = $9292; // Date & TIme digitized subseconds
  2782.  
  2783. PropertyTagExifFPXVer = $A000;
  2784. PropertyTagExifColorSpace = $A001;
  2785. PropertyTagExifPixXDim = $A002;
  2786. PropertyTagExifPixYDim = $A003;
  2787. PropertyTagExifRelatedWav = $A004; // related sound file
  2788. PropertyTagExifInterop = $A005;
  2789. PropertyTagExifFlashEnergy = $A20B;
  2790. PropertyTagExifSpatialFR = $A20C; // Spatial Frequency Response
  2791. PropertyTagExifFocalXRes = $A20E; // Focal Plane X Resolution
  2792. PropertyTagExifFocalYRes = $A20F; // Focal Plane Y Resolution
  2793. PropertyTagExifFocalResUnit = $A210; // Focal Plane Resolution Unit
  2794. PropertyTagExifSubjectLoc = $A214;
  2795. PropertyTagExifExposureIndex = $A215;
  2796. PropertyTagExifSensingMethod = $A217;
  2797. PropertyTagExifFileSource = $A300;
  2798. PropertyTagExifSceneType = $A301;
  2799. PropertyTagExifCfaPattern = $A302;
  2800.  
  2801. // New EXIF 2.2 properties
  2802.  
  2803. PropertyTagExifCustomRendered = $A401;
  2804. PropertyTagExifExposureMode = $A402;
  2805. PropertyTagExifWhiteBalance = $A403;
  2806. PropertyTagExifDigitalZoomRatio = $A404;
  2807. PropertyTagExifFocalLengthIn35mmFilm = $A405;
  2808. PropertyTagExifSceneCaptureType = $A406;
  2809. PropertyTagExifGainControl = $A407;
  2810. PropertyTagExifContrast = $A408;
  2811. PropertyTagExifSaturation = $A409;
  2812. PropertyTagExifSharpness = $A40A;
  2813. PropertyTagExifDeviceSettingDesc = $A40B;
  2814. PropertyTagExifSubjectDistanceRange = $A40C;
  2815. PropertyTagExifUniqueImageID = $A420;
  2816.  
  2817.  
  2818. PropertyTagGpsVer = $0000;
  2819. PropertyTagGpsLatitudeRef = $0001;
  2820. PropertyTagGpsLatitude = $0002;
  2821. PropertyTagGpsLongitudeRef = $0003;
  2822. PropertyTagGpsLongitude = $0004;
  2823. PropertyTagGpsAltitudeRef = $0005;
  2824. PropertyTagGpsAltitude = $0006;
  2825. PropertyTagGpsGpsTime = $0007;
  2826. PropertyTagGpsGpsSatellites = $0008;
  2827. PropertyTagGpsGpsStatus = $0009;
  2828. PropertyTagGpsGpsMeasureMode = $000A ;
  2829. PropertyTagGpsGpsDop = $000B; // Measurement precision
  2830. PropertyTagGpsSpeedRef = $000C;
  2831. PropertyTagGpsSpeed = $000D;
  2832. PropertyTagGpsTrackRef = $000E;
  2833. PropertyTagGpsTrack = $000F;
  2834. PropertyTagGpsImgDirRef = $0010;
  2835. PropertyTagGpsImgDir = $0011;
  2836. PropertyTagGpsMapDatum = $0012;
  2837. PropertyTagGpsDestLatRef = $0013;
  2838. PropertyTagGpsDestLat = $0014;
  2839. PropertyTagGpsDestLongRef = $0015;
  2840. PropertyTagGpsDestLong = $0016;
  2841. PropertyTagGpsDestBearRef = $0017;
  2842. PropertyTagGpsDestBear = $0018;
  2843. PropertyTagGpsDestDistRef = $0019;
  2844. PropertyTagGpsDestDist = $001A;
  2845. PropertyTagGpsProcessingMethod = $001B;
  2846. PropertyTagGpsAreaInformation = $001C;
  2847. PropertyTagGpsDate = $001D;
  2848. PropertyTagGpsDifferential = $001E;
  2849. {$ENDREGION 'GdiplusImaging.h'}
  2850.  
  2851. {$REGION 'GdiplusColorMatrix.h'}
  2852. (*****************************************************************************
  2853. * GdiplusColorMatrix.h
  2854. * GDI+ Color Matrix object, used with Graphics.DrawImage
  2855. *****************************************************************************)
  2856.  
  2857. {$IF (GDIPVER >= $0110)}
  2858. //----------------------------------------------------------------------------
  2859. // Color channel look up table (LUT)
  2860. //----------------------------------------------------------------------------
  2861.  
  2862. type
  2863. TGPColorChannelLUT = array [0..255] of Byte;
  2864.  
  2865. //----------------------------------------------------------------------------
  2866. // Per-channel Histogram for 8bpp images.
  2867. //----------------------------------------------------------------------------
  2868.  
  2869. type
  2870. TGPHistogramFormat = (
  2871. HistogramFormatARGB,
  2872. HistogramFormatPARGB,
  2873. HistogramFormatRGB,
  2874. HistogramFormatGray,
  2875. HistogramFormatB,
  2876. HistogramFormatG,
  2877. HistogramFormatR,
  2878. HistogramFormatA);
  2879. {$IFEND}
  2880.  
  2881. //----------------------------------------------------------------------------
  2882. // Color matrix
  2883. //----------------------------------------------------------------------------
  2884.  
  2885. type
  2886. TGPColorMatrix = record
  2887. public
  2888. M: array [0..4, 0..4] of Single;
  2889. public
  2890. procedure SetToIdentity;
  2891. end;
  2892. PGPColorMatrix = ^TGPColorMatrix;
  2893.  
  2894. //----------------------------------------------------------------------------
  2895. // Color Matrix flags
  2896. //----------------------------------------------------------------------------
  2897.  
  2898. type
  2899. TGPColorMatrixFlags = (
  2900. ColorMatrixFlagsDefault = 0,
  2901. ColorMatrixFlagsSkipGrays = 1,
  2902. ColorMatrixFlagsAltGray = 2);
  2903.  
  2904. //----------------------------------------------------------------------------
  2905. // Color Adjust Type
  2906. //----------------------------------------------------------------------------
  2907.  
  2908. type
  2909. TGPColorAdjustType = (
  2910. ColorAdjustTypeDefault,
  2911. ColorAdjustTypeBitmap,
  2912. ColorAdjustTypeBrush,
  2913. ColorAdjustTypePen,
  2914. ColorAdjustTypeText,
  2915. ColorAdjustTypeCount,
  2916. ColorAdjustTypeAny); // Reserved
  2917.  
  2918. //----------------------------------------------------------------------------
  2919. // Color Map
  2920. //----------------------------------------------------------------------------
  2921.  
  2922. type
  2923. TGPColorMap = record
  2924. OldColor: TGPColor;
  2925. NewColor: TGPColor;
  2926. end;
  2927. PGPColorMap = ^TGPColorMap;
  2928.  
  2929. {$ENDREGION 'GdiplusColorMatrix.h'}
  2930.  
  2931. {$REGION 'GdiplusEffects.h'}
  2932. {$IF (GDIPVER >= $0110)}
  2933. (*****************************************************************************
  2934. * GdiplusEffects.h
  2935. * Gdiplus effect objects
  2936. *****************************************************************************)
  2937. //-----------------------------------------------------------------------------
  2938. // GDI+ effect GUIDs
  2939. //-----------------------------------------------------------------------------
  2940.  
  2941. const
  2942. BlurEffectGuid : TGUID = '{633C80A4-1843-482b-9EF2-BE2834C5FDD4}';
  2943. SharpenEffectGuid : TGUID = '{63CBF3EE-C526-402c-8F71-62C540BF5142}';
  2944. ColorMatrixEffectGuid : TGUID = '{718F2615-7933-40e3-A511-5F68FE14DD74}';
  2945. ColorLUTEffectGuid : TGUID = '{A7CE72A9-0F7F-40d7-B3CC-D0C02D5C3212}';
  2946. BrightnessContrastEffectGuid : TGUID = '{D3A1DBE1-8EC4-4c17-9F4C-EA97AD1C343D}';
  2947. HueSaturationLightnessEffectGuid: TGUID = '{8B2DD6C3-EB07-4d87-A5F0-7108E26A9C5F}';
  2948. LevelsEffectGuid : TGUID = '{99C354EC-2A31-4f3a-8C34-17A803B33A25}';
  2949. TintEffectGuid : TGUID = '{1077AF00-2848-4441-9489-44AD4C2D7A2C}';
  2950. ColorBalanceEffectGuid : TGUID = '{537E597D-251E-48da-9664-29CA496B70F8}';
  2951. RedEyeCorrectionEffectGuid : TGUID = '{74D29D05-69A4-4266-9549-3CC52836B632}';
  2952. ColorCurveEffectGuid : TGUID = '{DD6A0022-58E4-4a67-9D9B-D48EB881A53D}';
  2953.  
  2954. //-----------------------------------------------------------------------------
  2955.  
  2956. type
  2957. TGPSharpenParams = record
  2958. public
  2959. Radius: Single;
  2960. Amount: Single;
  2961. end;
  2962. PGPSharpenParams = ^TGPSharpenParams;
  2963.  
  2964. type
  2965. TGPBlurParams = record
  2966. public
  2967. Radius: Single;
  2968. ExpandEdge: BOOL;
  2969. end;
  2970. PGPBlurParams = ^TGPBlurParams;
  2971.  
  2972. type
  2973. TGPBrightnessContrastParams = record
  2974. public
  2975. BrightnessLevel: Integer;
  2976. ContrastLevel: Integer;
  2977. end;
  2978. PGPBrightnessContrastParams = ^TGPBrightnessContrastParams;
  2979.  
  2980. type
  2981. TGPRedEyeCorrectionParams = record
  2982. public
  2983. NumberOfAreas: Cardinal;
  2984. Areas: Windows.PRect;
  2985. end;
  2986. PGPRedEyeCorrectionParams = ^TGPRedEyeCorrectionParams;
  2987.  
  2988. type
  2989. TGPHueSaturationLightnessParams = record
  2990. public
  2991. HueLevel: Integer;
  2992. SaturationLevel: Integer;
  2993. LightnessLevel: Integer;
  2994. end;
  2995. PGPHueSaturationLightnessParams = ^TGPHueSaturationLightnessParams;
  2996.  
  2997. type
  2998. TGPTintParams = record
  2999. public
  3000. Hue: Integer;
  3001. Amount: Integer;
  3002. end;
  3003. PGPTintParams = ^TGPTintParams;
  3004.  
  3005. type
  3006. TGPLevelsParams = record
  3007. public
  3008. Highlight: Integer;
  3009. Midtone: Integer;
  3010. Shadow: Integer;
  3011. end;
  3012. PGPLevelsParams = ^TGPLevelsParams;
  3013.  
  3014. type
  3015. TGPColorBalanceParams = record
  3016. public
  3017. CyanRed: Integer;
  3018. MagentaGreen: Integer;
  3019. YellowBlue: Integer;
  3020. end;
  3021. PGPColorBalanceParams = ^TGPColorBalanceParams;
  3022.  
  3023. type
  3024. TGPColorLUTParams = record
  3025. // look up tables for each color channel.
  3026.  
  3027. LutB: TGPColorChannelLUT;
  3028. LutG: TGPColorChannelLUT;
  3029. LutR: TGPColorChannelLUT;
  3030. LutA: TGPColorChannelLUT;
  3031. end;
  3032. PGPColorLUTParams = ^TGPColorLUTParams;
  3033.  
  3034. type
  3035. TGPCurveAdjustments = (
  3036. AdjustExposure,
  3037. AdjustDensity,
  3038. AdjustContrast,
  3039. AdjustHighlight,
  3040. AdjustShadow,
  3041. AdjustMidtone,
  3042. AdjustWhiteSaturation,
  3043. AdjustBlackSaturation);
  3044.  
  3045. type
  3046. TGPCurveChannel = (
  3047. CurveChannelAll,
  3048. CurveChannelRed,
  3049. CurveChannelGreen,
  3050. CurveChannelBlue);
  3051.  
  3052. type
  3053. TGPColorCurveParams = record
  3054. public
  3055. Adjustment: TGPCurveAdjustments;
  3056. Channel: TGPCurveChannel;
  3057. AdjustValue: Integer;
  3058. end;
  3059. PGPColorCurveParams = ^TGPColorCurveParams;
  3060.  
  3061. type
  3062. CGpEffect = Pointer;
  3063.  
  3064. function GdipCreateEffect(Guid: TGUID;
  3065. out Effect: CGpEffect): TGPStatus; stdcall; external GdiPlusDll;
  3066.  
  3067. function GdipDeleteEffect(Effect: CGpEffect): TGPStatus; stdcall; external GdiPlusDll;
  3068.  
  3069. function GdipGetEffectParameterSize(Effect: CGpEffect;
  3070. out Size: UINT): TGPStatus; stdcall; external GdiPlusDll;
  3071.  
  3072. function GdipSetEffectParameters(Effect: CGpEffect; const Params: Pointer;
  3073. const Size: UINT): TGPStatus; stdcall; external GdiPlusDll;
  3074.  
  3075. function GdipGetEffectParameters(Effect: CGpEffect; var Size: UINT;
  3076. Params: Pointer): TGPStatus; stdcall; external GdiPlusDll;
  3077.  
  3078. type
  3079. IGPEffect = interface(IGdiPlusBase)
  3080. ['{446CEE9F-25A0-400F-8599-3905CBE4828A}']
  3081. { Property access methods }
  3082. function GetAuxDataSize: Integer;
  3083. function GetAuxData: Pointer;
  3084. function GetUseAuxData: Boolean;
  3085. procedure SetUseAuxData(const Value: Boolean);
  3086. function GetParameterSize: Cardinal;
  3087.  
  3088. { Methods }
  3089. procedure ReleaseAuxData;
  3090. procedure SetAuxData(const Data: Pointer; const Size: Integer);
  3091.  
  3092. { Properties }
  3093. property AuxDataSize: Integer read GetAuxDataSize;
  3094. property AuxData: Pointer read GetAuxData;
  3095. property UseAuxData: Boolean read GetUseAuxData write SetUseAuxData;
  3096. property ParameterSize: Cardinal read GetParameterSize;
  3097. end;
  3098.  
  3099. TGPEffect = class(TGdiplusBase, IGPEffect)
  3100. private
  3101. FAuxDataSize: Integer;
  3102. FAuxData: Pointer;
  3103. FUseAuxData: Boolean;
  3104. private
  3105. { IGPEffect }
  3106. function GetAuxDataSize: Integer;
  3107. function GetAuxData: Pointer;
  3108. function GetUseAuxData: Boolean;
  3109. procedure SetUseAuxData(const Value: Boolean);
  3110. function GetParameterSize: Cardinal;
  3111. procedure ReleaseAuxData;
  3112. procedure SetAuxData(const Data: Pointer; const Size: Integer);
  3113. protected
  3114. procedure SetParameters(const Params: Pointer; const Size: Cardinal);
  3115. procedure GetParameters(var Size: Cardinal; Params: Pointer);
  3116. public
  3117. destructor Destroy; override;
  3118. end;
  3119.  
  3120. type
  3121. // Blur
  3122. IGPBlur = interface(IGPEffect)
  3123. ['{8F6EFDE6-E905-4886-8386-8BE9E92545E5}']
  3124. { Property access methods }
  3125. function GetParameters: TGPBlurParams;
  3126. procedure SetParameters(const Value: TGPBlurParams);
  3127.  
  3128. { Properties }
  3129. property Parameters: TGPBlurParams read GetParameters write SetParameters;
  3130. end;
  3131.  
  3132. TGPBlur = class(TGPEffect, IGPBlur)
  3133. private
  3134. { IGPBlur }
  3135. function GetParameters: TGPBlurParams;
  3136. procedure SetParameters(const Value: TGPBlurParams);
  3137. public
  3138. constructor Create;
  3139. end;
  3140.  
  3141. type
  3142. // Sharpen
  3143. IGPSharpen = interface(IGPEffect)
  3144. ['{D5276FFC-FB19-4DCC-9FBB-DC5142DDE65E}']
  3145. { Property access methods }
  3146. function GetParameters: TGPSharpenParams;
  3147. procedure SetParameters(const Value: TGPSharpenParams);
  3148.  
  3149. { Properties }
  3150. property Parameters: TGPSharpenParams read GetParameters write SetParameters;
  3151. end;
  3152.  
  3153. TGPSharpen = class(TGPEffect, IGPSharpen)
  3154. private
  3155. { IGPSharpen }
  3156. function GetParameters: TGPSharpenParams;
  3157. procedure SetParameters(const Value: TGPSharpenParams);
  3158. public
  3159. constructor Create;
  3160. end;
  3161.  
  3162. type
  3163. // RedEye Correction
  3164. IGPRedEyeCorrection = interface(IGPEffect)
  3165. ['{055F978A-DB24-48C9-B87E-BA5616809566}']
  3166. { Property access methods }
  3167. function GetParameters: TGPRedEyeCorrectionParams;
  3168. procedure SetParameters(const Value: TGPRedEyeCorrectionParams);
  3169.  
  3170. { Properties }
  3171. property Parameters: TGPRedEyeCorrectionParams read GetParameters write SetParameters;
  3172. end;
  3173.  
  3174. TGPRedEyeCorrection = class(TGPEffect, IGPRedEyeCorrection)
  3175. private
  3176. { IGPRedEyeCorrection }
  3177. function GetParameters: TGPRedEyeCorrectionParams;
  3178. procedure SetParameters(const Value: TGPRedEyeCorrectionParams);
  3179. public
  3180. constructor Create;
  3181. end;
  3182.  
  3183. type
  3184. // Brightness/Contrast
  3185. IGPBrightnessContrast = interface(IGPEffect)
  3186. ['{3216DA55-5C78-4376-B693-E538E757118E}']
  3187. { Property access methods }
  3188. function GetParameters: TGPBrightnessContrastParams;
  3189. procedure SetParameters(const Value: TGPBrightnessContrastParams);
  3190.  
  3191. { Properties }
  3192. property Parameters: TGPBrightnessContrastParams read GetParameters write SetParameters;
  3193. end;
  3194.  
  3195. TGPBrightnessContrast = class(TGPEffect, IGPBrightnessContrast)
  3196. private
  3197. { IGPBrightnessContrast }
  3198. function GetParameters: TGPBrightnessContrastParams;
  3199. procedure SetParameters(const Value: TGPBrightnessContrastParams);
  3200. public
  3201. constructor Create;
  3202. end;
  3203.  
  3204. type
  3205. // Hue/Saturation/Lightness
  3206. IGPHueSaturationLightness = interface(IGPEffect)
  3207. ['{7DFF5E66-E1FB-4441-B78A-03423A1AB3CC}']
  3208. { Property access methods }
  3209. function GetParameters: TGPHueSaturationLightnessParams;
  3210. procedure SetParameters(const Value: TGPHueSaturationLightnessParams);
  3211.  
  3212. { Properties }
  3213. property Parameters: TGPHueSaturationLightnessParams read GetParameters write SetParameters;
  3214. end;
  3215.  
  3216. TGPHueSaturationLightness = class(TGPEffect, IGPHueSaturationLightness)
  3217. private
  3218. { IGPHueSaturationLightness }
  3219. function GetParameters: TGPHueSaturationLightnessParams;
  3220. procedure SetParameters(const Value: TGPHueSaturationLightnessParams);
  3221. public
  3222. constructor Create;
  3223. end;
  3224.  
  3225. type
  3226. // Highlight/Midtone/Shadow curves
  3227. IGPLevels = interface(IGPEffect)
  3228. ['{A4770860-C2CA-47EB-AF07-91F85B2FD0FC}']
  3229. { Property access methods }
  3230. function GetParameters: TGPLevelsParams;
  3231. procedure SetParameters(const Value: TGPLevelsParams);
  3232.  
  3233. { Properties }
  3234. property Parameters: TGPLevelsParams read GetParameters write SetParameters;
  3235. end;
  3236.  
  3237. TGPLevels = class(TGPEffect, IGPLevels)
  3238. private
  3239. { IGPLevels }
  3240. function GetParameters: TGPLevelsParams;
  3241. procedure SetParameters(const Value: TGPLevelsParams);
  3242. public
  3243. constructor Create;
  3244. end;
  3245.  
  3246. type
  3247. // Tint
  3248. IGPTint = interface(IGPEffect)
  3249. ['{EEBFC517-2FC5-4164-860A-C133C1D15541}']
  3250. { Property access methods }
  3251. function GetParameters: TGPTintParams;
  3252. procedure SetParameters(const Value: TGPTintParams);
  3253.  
  3254. { Properties }
  3255. property Parameters: TGPTintParams read GetParameters write SetParameters;
  3256. end;
  3257.  
  3258. TGPTint = class(TGPEffect, IGPTint)
  3259. private
  3260. { IGPTint }
  3261. function GetParameters: TGPTintParams;
  3262. procedure SetParameters(const Value: TGPTintParams);
  3263. public
  3264. constructor Create;
  3265. end;
  3266.  
  3267. type
  3268. // ColorBalance
  3269. IGPColorBalance = interface(IGPEffect)
  3270. ['{951B7FA7-239E-402E-B20F-DC1058A93B38}']
  3271. { Property access methods }
  3272. function GetParameters: TGPColorBalanceParams;
  3273. procedure SetParameters(const Value: TGPColorBalanceParams);
  3274.  
  3275. { Properties }
  3276. property Parameters: TGPColorBalanceParams read GetParameters write SetParameters;
  3277. end;
  3278.  
  3279. TGPColorBalance = class(TGPEffect, IGPColorBalance)
  3280. private
  3281. { IGPColorBalance }
  3282. function GetParameters: TGPColorBalanceParams;
  3283. procedure SetParameters(const Value: TGPColorBalanceParams);
  3284. public
  3285. constructor Create;
  3286. end;
  3287.  
  3288. type
  3289. // ColorMatrix
  3290. IGPColorMatrixEffect = interface(IGPEffect)
  3291. ['{492E9124-97C2-45AD-BC4E-699F75C62AF4}']
  3292. { Property access methods }
  3293. function GetParameters: TGPColorMatrix;
  3294. procedure SetParameters(const Value: TGPColorMatrix);
  3295.  
  3296. { Properties }
  3297. property Parameters: TGPColorMatrix read GetParameters write SetParameters;
  3298. end;
  3299.  
  3300. TGPColorMatrixEffect = class(TGPEffect, IGPColorMatrixEffect)
  3301. private
  3302. { IGPColorMatrixEffect }
  3303. function GetParameters: TGPColorMatrix;
  3304. procedure SetParameters(const Value: TGPColorMatrix);
  3305. public
  3306. constructor Create;
  3307. end;
  3308.  
  3309. type
  3310. // ColorLUT
  3311. IGPColorLUT = interface(IGPEffect)
  3312. ['{4846B6A9-7A08-4A09-B599-963588A77C14}']
  3313. { Property access methods }
  3314. function GetParameters: TGPColorLUTParams;
  3315. procedure SetParameters(const Value: TGPColorLUTParams);
  3316.  
  3317. { Properties }
  3318. property Parameters: TGPColorLUTParams read GetParameters write SetParameters;
  3319. end;
  3320.  
  3321. TGPColorLUT = class(TGPEffect, IGPColorLUT)
  3322. private
  3323. { IGPColorLUT }
  3324. function GetParameters: TGPColorLUTParams;
  3325. procedure SetParameters(const Value: TGPColorLUTParams);
  3326. public
  3327. constructor Create;
  3328. end;
  3329.  
  3330. type
  3331. // Color Curve
  3332. IGPColorCurve = interface(IGPEffect)
  3333. ['{710EE23F-A7A0-43E4-9551-51EA66E12773}']
  3334. { Property access methods }
  3335. function GetParameters: TGPColorCurveParams;
  3336. procedure SetParameters(const Value: TGPColorCurveParams);
  3337.  
  3338. { Properties }
  3339. property Parameters: TGPColorCurveParams read GetParameters write SetParameters;
  3340. end;
  3341.  
  3342. TGPColorCurve = class(TGPEffect, IGPColorCurve)
  3343. private
  3344. { IGPColorCurve }
  3345. function GetParameters: TGPColorCurveParams;
  3346. procedure SetParameters(const Value: TGPColorCurveParams);
  3347. public
  3348. constructor Create;
  3349. end;
  3350. {$IFEND}
  3351. {$ENDREGION 'GdiplusEffects.h'}
  3352.  
  3353. {$REGION 'GdiplusGpStubs.h (1)'}
  3354. (*****************************************************************************
  3355. * GdiplusGpStubs.h
  3356. * Private GDI+ header file.
  3357. *****************************************************************************)
  3358.  
  3359. //---------------------------------------------------------------------------
  3360. // Private GDI+ classes for internal type checking
  3361. //---------------------------------------------------------------------------
  3362.  
  3363. GpGraphics = Pointer;
  3364.  
  3365. GpBrush = Pointer;
  3366. GpTexture = Pointer;
  3367. GpSolidFill = Pointer;
  3368. GpLineGradient = Pointer;
  3369. GpPathGradient = Pointer;
  3370. GpHatch = Pointer;
  3371.  
  3372. GpPen = Pointer;
  3373. GpCustomLineCap = Pointer;
  3374. GpAdjustableArrowCap = Pointer;
  3375.  
  3376. GpImage = Pointer;
  3377. GpBitmap = Pointer;
  3378. PGpBitmap = ^GpBitmap;
  3379. GpMetafile = Pointer;
  3380. GpImageAttributes = Pointer;
  3381.  
  3382. GpPath = Pointer;
  3383. GpRegion = Pointer;
  3384. PGpRegion = ^GpRegion;
  3385. GpPathIterator = Pointer;
  3386.  
  3387. GpFontFamily = Pointer;
  3388. PGpFontFamily = ^GpFontFamily;
  3389. GpFont = Pointer;
  3390. GpStringFormat = Pointer;
  3391. GpFontCollection = Pointer;
  3392. GpInstalledFontCollection = Pointer;
  3393. GpPrivateFontCollection = Pointer;
  3394.  
  3395. GpCachedBitmap = Pointer;
  3396.  
  3397. GpMatrix = Pointer;
  3398.  
  3399. {$ENDREGION 'GdiplusGpStubs.h (1)'}
  3400.  
  3401. {$REGION 'GdiplusFlat.h'}
  3402. (*****************************************************************************
  3403. * GdiplusFlat.h
  3404. * Private GDI+ header file.
  3405. *****************************************************************************)
  3406.  
  3407. //----------------------------------------------------------------------------
  3408. // GraphicsPath APIs
  3409. //----------------------------------------------------------------------------
  3410.  
  3411. { GdipCreatePath(GpFillMode brushMode, GpPath **path); }
  3412. function GdipCreatePath(BrushMode: TGPFillMode; out Path: GpPath): TGPStatus; stdcall;
  3413. external GdiPlusDll;
  3414.  
  3415. { GdipCreatePath2(GDIPCONST GpPointF*, GDIPCONST BYTE*, INT, GpFillMode, GpPath **path); }
  3416. function GdipCreatePath2(const Param1: PGPPointF; const Param2: PByte;
  3417. Param3: Integer; Param4: TGPFillMode; out Path: GpPath): TGPStatus; stdcall;
  3418. external GdiPlusDll;
  3419.  
  3420. { GdipCreatePath2I(GDIPCONST GpPoint*, GDIPCONST BYTE*, INT, GpFillMode, GpPath **path); }
  3421. function GdipCreatePath2I(const Param1: PGPPoint; const Param2: PByte;
  3422. Param3: Integer; Param4: TGPFillMode; out Path: GpPath): TGPStatus; stdcall;
  3423. external GdiPlusDll;
  3424.  
  3425. { GdipClonePath(GpPath* path, GpPath **clonePath); }
  3426. function GdipClonePath(Path: GpPath; out ClonePath: GpPath): TGPStatus; stdcall;
  3427. external GdiPlusDll;
  3428.  
  3429. { GdipDeletePath(GpPath* path); }
  3430. function GdipDeletePath(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3431.  
  3432. { GdipResetPath(GpPath* path); }
  3433. function GdipResetPath(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3434.  
  3435. { GdipGetPointCount(GpPath* path, INT* count); }
  3436. function GdipGetPointCount(Path: GpPath; out Count: Integer): TGPStatus; stdcall;
  3437. external GdiPlusDll;
  3438.  
  3439. { GdipGetPathTypes(GpPath* path, BYTE* types, INT count); }
  3440. function GdipGetPathTypes(Path: GpPath; Types: PByte; Count: Integer): TGPStatus; stdcall;
  3441. external GdiPlusDll;
  3442.  
  3443. { GdipGetPathPoints(GpPath*, GpPointF* points, INT count); }
  3444. function GdipGetPathPoints(Path: GpPath; Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  3445. external GdiPlusDll;
  3446.  
  3447. { GdipGetPathPointsI(GpPath*, GpPoint* points, INT count); }
  3448. function GdipGetPathPointsI(Path: GpPath; Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  3449. external GdiPlusDll;
  3450.  
  3451. { GdipGetPathFillMode(GpPath *path, GpFillMode *fillmode); }
  3452. function GdipGetPathFillMode(Path: GpPath; out Fillmode: TGPFillMode): TGPStatus; stdcall;
  3453. external GdiPlusDll;
  3454.  
  3455. { GdipSetPathFillMode(GpPath *path, GpFillMode fillmode); }
  3456. function GdipSetPathFillMode(Path: GpPath; Fillmode: TGPFillMode): TGPStatus; stdcall;
  3457. external GdiPlusDll;
  3458.  
  3459. { GdipGetPathData(GpPath *path, GpPathData* pathData); }
  3460. function GdipGetPathData(Path: GpPath; PathData: PGPNativePathData): TGPStatus; stdcall;
  3461. external GdiPlusDll;
  3462.  
  3463. { GdipStartPathFigure(GpPath *path); }
  3464. function GdipStartPathFigure(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3465.  
  3466. { GdipClosePathFigure(GpPath *path); }
  3467. function GdipClosePathFigure(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3468.  
  3469. { GdipClosePathFigures(GpPath *path); }
  3470. function GdipClosePathFigures(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3471.  
  3472. { GdipSetPathMarker(GpPath* path); }
  3473. function GdipSetPathMarker(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3474.  
  3475. { GdipClearPathMarkers(GpPath* path); }
  3476. function GdipClearPathMarkers(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3477.  
  3478. { GdipReversePath(GpPath* path); }
  3479. function GdipReversePath(Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3480.  
  3481. { GdipGetPathLastPoint(GpPath* path, GpPointF* lastPoint); }
  3482. function GdipGetPathLastPoint(Path: GpPath; out LastPoint: TGPPointF): TGPStatus; stdcall;
  3483. external GdiPlusDll;
  3484.  
  3485. { GdipAddPathLine(GpPath *path, REAL x1, REAL y1, REAL x2, REAL y2); }
  3486. function GdipAddPathLine(Path: GpPath; X1: Single; Y1: Single; X2: Single;
  3487. Y2: Single): TGPStatus; stdcall; external GdiPlusDll;
  3488.  
  3489. { GdipAddPathLine2(GpPath *path, GDIPCONST GpPointF *points, INT count); }
  3490. function GdipAddPathLine2(Path: GpPath; const Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  3491. external GdiPlusDll;
  3492.  
  3493. { GdipAddPathArc(GpPath *path, REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle); }
  3494. function GdipAddPathArc(Path: GpPath; X: Single; Y: Single; Width: Single;
  3495. Height: Single; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  3496. external GdiPlusDll;
  3497.  
  3498. { GdipAddPathBezier(GpPath *path, REAL x1, REAL y1, REAL x2, REAL y2, REAL x3, REAL y3, REAL x4, REAL y4); }
  3499. function GdipAddPathBezier(Path: GpPath; X1: Single; Y1: Single; X2: Single;
  3500. Y2: Single; X3: Single; Y3: Single; X4: Single; Y4: Single): TGPStatus; stdcall;
  3501. external GdiPlusDll;
  3502.  
  3503. { GdipAddPathBeziers(GpPath *path, GDIPCONST GpPointF *points, INT count); }
  3504. function GdipAddPathBeziers(Path: GpPath; const Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  3505. external GdiPlusDll;
  3506.  
  3507. { GdipAddPathCurve(GpPath *path, GDIPCONST GpPointF *points, INT count); }
  3508. function GdipAddPathCurve(Path: GpPath; const Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  3509. external GdiPlusDll;
  3510.  
  3511. { GdipAddPathCurve2(GpPath *path, GDIPCONST GpPointF *points, INT count, REAL tension); }
  3512. function GdipAddPathCurve2(Path: GpPath; const Points: PGPPointF; Count: Integer;
  3513. Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  3514.  
  3515. { GdipAddPathCurve3(GpPath *path, GDIPCONST GpPointF *points, INT count, INT offset, INT numberOfSegments, REAL tension); }
  3516. function GdipAddPathCurve3(Path: GpPath; const Points: PGPPointF; Count: Integer;
  3517. Offset: Integer; NumberOfSegments: Integer; Tension: Single): TGPStatus; stdcall;
  3518. external GdiPlusDll;
  3519.  
  3520. { GdipAddPathClosedCurve(GpPath *path, GDIPCONST GpPointF *points, INT count); }
  3521. function GdipAddPathClosedCurve(Path: GpPath; const Points: PGPPointF;
  3522. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3523.  
  3524. { GdipAddPathClosedCurve2(GpPath *path, GDIPCONST GpPointF *points, INT count, REAL tension); }
  3525. function GdipAddPathClosedCurve2(Path: GpPath; const Points: PGPPointF;
  3526. Count: Integer; Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  3527.  
  3528. { GdipAddPathRectangle(GpPath *path, REAL x, REAL y, REAL width, REAL height); }
  3529. function GdipAddPathRectangle(Path: GpPath; X: Single; Y: Single; Width: Single;
  3530. Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  3531.  
  3532. { GdipAddPathRectangles(GpPath *path, GDIPCONST GpRectF *rects, INT count); }
  3533. function GdipAddPathRectangles(Path: GpPath; const Rects: PGPRectF;
  3534. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3535.  
  3536. { GdipAddPathEllipse(GpPath *path, REAL x, REAL y, REAL width, REAL height); }
  3537. function GdipAddPathEllipse(Path: GpPath; X: Single; Y: Single; Width: Single;
  3538. Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  3539.  
  3540. { GdipAddPathPie(GpPath *path, REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle); }
  3541. function GdipAddPathPie(Path: GpPath; X: Single; Y: Single; Width: Single;
  3542. Height: Single; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  3543. external GdiPlusDll;
  3544.  
  3545. { GdipAddPathPolygon(GpPath *path, GDIPCONST GpPointF *points, INT count); }
  3546. function GdipAddPathPolygon(Path: GpPath; const Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  3547. external GdiPlusDll;
  3548.  
  3549. { GdipAddPathPath(GpPath *path, GDIPCONST GpPath* addingPath, BOOL connect); }
  3550. function GdipAddPathPath(Path: GpPath; const AddingPath: GpPath; Connect: Bool): TGPStatus; stdcall;
  3551. external GdiPlusDll;
  3552.  
  3553. { GdipAddPathString(GpPath *path, GDIPCONST WCHAR *string, INT length, GDIPCONST GpFontFamily *family, INT style, REAL emSize, GDIPCONST RectF *layoutRect, GDIPCONST GpStringFormat *format); }
  3554. function GdipAddPathString(Path: GpPath; const Str: PWideChar; Length: Integer;
  3555. const Family: GpFontFamily; Style: TGPFontStyle; EmSize: Single;
  3556. const LayoutRect: PGPRectF; const Format: GpStringFormat): TGPStatus; stdcall;
  3557. external GdiPlusDll;
  3558.  
  3559. { GdipAddPathStringI(GpPath *path, GDIPCONST WCHAR *string, INT length, GDIPCONST GpFontFamily *family, INT style, REAL emSize, GDIPCONST Rect *layoutRect, GDIPCONST GpStringFormat *format); }
  3560. function GdipAddPathStringI(Path: GpPath; const Str: PWideChar; Length: Integer;
  3561. const Family: GpFontFamily; Style: TGPFontStyle; EmSize: Single;
  3562. const LayoutRect: PGPRect; const Format: GpStringFormat): TGPStatus; stdcall;
  3563. external GdiPlusDll;
  3564.  
  3565. { GdipAddPathLineI(GpPath *path, INT x1, INT y1, INT x2, INT y2); }
  3566. function GdipAddPathLineI(Path: GpPath; X1: Integer; Y1: Integer; X2: Integer;
  3567. Y2: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3568.  
  3569. { GdipAddPathLine2I(GpPath *path, GDIPCONST GpPoint *points, INT count); }
  3570. function GdipAddPathLine2I(Path: GpPath; const Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  3571. external GdiPlusDll;
  3572.  
  3573. { GdipAddPathArcI(GpPath *path, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); }
  3574. function GdipAddPathArcI(Path: GpPath; X: Integer; Y: Integer; Width: Integer;
  3575. Height: Integer; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  3576. external GdiPlusDll;
  3577.  
  3578. { GdipAddPathBezierI(GpPath *path, INT x1, INT y1, INT x2, INT y2, INT x3, INT y3, INT x4, INT y4); }
  3579. function GdipAddPathBezierI(Path: GpPath; X1: Integer; Y1: Integer; X2: Integer;
  3580. Y2: Integer; X3: Integer; Y3: Integer; X4: Integer; Y4: Integer): TGPStatus; stdcall;
  3581. external GdiPlusDll;
  3582.  
  3583. { GdipAddPathBeziersI(GpPath *path, GDIPCONST GpPoint *points, INT count); }
  3584. function GdipAddPathBeziersI(Path: GpPath; const Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  3585. external GdiPlusDll;
  3586.  
  3587. { GdipAddPathCurveI(GpPath *path, GDIPCONST GpPoint *points, INT count); }
  3588. function GdipAddPathCurveI(Path: GpPath; const Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  3589. external GdiPlusDll;
  3590.  
  3591. { GdipAddPathCurve2I(GpPath *path, GDIPCONST GpPoint *points, INT count, REAL tension); }
  3592. function GdipAddPathCurve2I(Path: GpPath; const Points: PGPPoint; Count: Integer;
  3593. Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  3594.  
  3595. { GdipAddPathCurve3I(GpPath *path, GDIPCONST GpPoint *points, INT count, INT offset, INT numberOfSegments, REAL tension); }
  3596. function GdipAddPathCurve3I(Path: GpPath; const Points: PGPPoint; Count: Integer;
  3597. Offset: Integer; NumberOfSegments: Integer; Tension: Single): TGPStatus; stdcall;
  3598. external GdiPlusDll;
  3599.  
  3600. { GdipAddPathClosedCurveI(GpPath *path, GDIPCONST GpPoint *points, INT count); }
  3601. function GdipAddPathClosedCurveI(Path: GpPath; const Points: PGPPoint;
  3602. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3603.  
  3604. { GdipAddPathClosedCurve2I(GpPath *path, GDIPCONST GpPoint *points, INT count, REAL tension); }
  3605. function GdipAddPathClosedCurve2I(Path: GpPath; const Points: PGPPoint;
  3606. Count: Integer; Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  3607.  
  3608. { GdipAddPathRectangleI(GpPath *path, INT x, INT y, INT width, INT height); }
  3609. function GdipAddPathRectangleI(Path: GpPath; X: Integer; Y: Integer;
  3610. Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3611.  
  3612. { GdipAddPathRectanglesI(GpPath *path, GDIPCONST GpRect *rects, INT count); }
  3613. function GdipAddPathRectanglesI(Path: GpPath; const Rects: PGPRect;
  3614. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3615.  
  3616. { GdipAddPathEllipseI(GpPath *path, INT x, INT y, INT width, INT height); }
  3617. function GdipAddPathEllipseI(Path: GpPath; X: Integer; Y: Integer;
  3618. Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3619.  
  3620. { GdipAddPathPieI(GpPath *path, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); }
  3621. function GdipAddPathPieI(Path: GpPath; X: Integer; Y: Integer; Width: Integer;
  3622. Height: Integer; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  3623. external GdiPlusDll;
  3624.  
  3625. { GdipAddPathPolygonI(GpPath *path, GDIPCONST GpPoint *points, INT count); }
  3626. function GdipAddPathPolygonI(Path: GpPath; const Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  3627. external GdiPlusDll;
  3628.  
  3629. { GdipFlattenPath(GpPath *path, GpMatrix* matrix, REAL flatness); }
  3630. function GdipFlattenPath(Path: GpPath; Matrix: GpMatrix; Flatness: Single): TGPStatus; stdcall;
  3631. external GdiPlusDll;
  3632.  
  3633. { GdipWindingModeOutline( GpPath *path, GpMatrix *matrix, REAL flatness ); }
  3634. function GdipWindingModeOutline(Path: GpPath; Matrix: GpMatrix;
  3635. Flatness: Single): TGPStatus; stdcall; external GdiPlusDll;
  3636.  
  3637. { GdipWidenPath( GpPath *nativePath, GpPen *pen, GpMatrix *matrix, REAL flatness ); }
  3638. function GdipWidenPath(NativePath: GpPath; Pen: GpPen; Matrix: GpMatrix;
  3639. Flatness: Single): TGPStatus; stdcall; external GdiPlusDll;
  3640.  
  3641. { GdipWarpPath(GpPath *path, GpMatrix* matrix, GDIPCONST GpPointF *points, INT count, REAL srcx, REAL srcy, REAL srcwidth, REAL srcheight, WarpMode warpMode, REAL flatness); }
  3642. function GdipWarpPath(Path: GpPath; Matrix: GpMatrix; const Points: PGPPointF;
  3643. Count: Integer; Srcx: Single; Srcy: Single; Srcwidth: Single;
  3644. Srcheight: Single; WarpMode: TGPWarpMode; Flatness: Single): TGPStatus; stdcall;
  3645. external GdiPlusDll;
  3646.  
  3647. { GdipTransformPath(GpPath* path, GpMatrix* matrix); }
  3648. function GdipTransformPath(Path: GpPath; Matrix: GpMatrix): TGPStatus; stdcall;
  3649. external GdiPlusDll;
  3650.  
  3651. { GdipGetPathWorldBounds(GpPath* path, GpRectF* bounds, GDIPCONST GpMatrix *matrix, GDIPCONST GpPen *pen); }
  3652. function GdipGetPathWorldBounds(Path: GpPath; Bounds: PGPRectF;
  3653. const Matrix: GpMatrix; const Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  3654.  
  3655. { GdipGetPathWorldBoundsI(GpPath* path, GpRect* bounds, GDIPCONST GpMatrix *matrix, GDIPCONST GpPen *pen); }
  3656. function GdipGetPathWorldBoundsI(Path: GpPath; Bounds: PGPRect;
  3657. const Matrix: GpMatrix; const Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  3658.  
  3659. { GdipIsVisiblePathPoint(GpPath* path, REAL x, REAL y, GpGraphics *graphics, BOOL *result); }
  3660. function GdipIsVisiblePathPoint(Path: GpPath; X: Single; Y: Single;
  3661. Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3662.  
  3663. { GdipIsVisiblePathPointI(GpPath* path, INT x, INT y, GpGraphics *graphics, BOOL *result); }
  3664. function GdipIsVisiblePathPointI(Path: GpPath; X: Integer; Y: Integer;
  3665. Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3666.  
  3667. { GdipIsOutlineVisiblePathPoint(GpPath* path, REAL x, REAL y, GpPen *pen, GpGraphics *graphics, BOOL *result); }
  3668. function GdipIsOutlineVisiblePathPoint(Path: GpPath; X: Single; Y: Single;
  3669. Pen: GpPen; Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  3670. external GdiPlusDll;
  3671.  
  3672. { GdipIsOutlineVisiblePathPointI(GpPath* path, INT x, INT y, GpPen *pen, GpGraphics *graphics, BOOL *result); }
  3673. function GdipIsOutlineVisiblePathPointI(Path: GpPath; X: Integer; Y: Integer;
  3674. Pen: GpPen; Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  3675. external GdiPlusDll;
  3676.  
  3677.  
  3678. //----------------------------------------------------------------------------
  3679. // PathIterator APIs
  3680. //----------------------------------------------------------------------------
  3681.  
  3682. { GdipCreatePathIter(GpPathIterator **iterator, GpPath* path); }
  3683. function GdipCreatePathIter(out Iterator: GpPathIterator; Path: GpPath): TGPStatus; stdcall;
  3684. external GdiPlusDll;
  3685.  
  3686. { GdipDeletePathIter(GpPathIterator *iterator); }
  3687. function GdipDeletePathIter(Iterator: GpPathIterator): TGPStatus; stdcall;
  3688. external GdiPlusDll;
  3689.  
  3690. { GdipPathIterNextSubpath(GpPathIterator* iterator, INT *resultCount, INT* startIndex, INT* endIndex, BOOL* isClosed); }
  3691. function GdipPathIterNextSubpath(Iterator: GpPathIterator;
  3692. out ResultCount: Integer; out StartIndex: Integer; out EndIndex: Integer;
  3693. out IsClosed: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3694.  
  3695. { GdipPathIterNextSubpathPath(GpPathIterator* iterator, INT* resultCount, GpPath* path, BOOL* isClosed); }
  3696. function GdipPathIterNextSubpathPath(Iterator: GpPathIterator;
  3697. out ResultCount: Integer; Path: GpPath; out IsClosed: Bool): TGPStatus; stdcall;
  3698. external GdiPlusDll;
  3699.  
  3700. { GdipPathIterNextPathType(GpPathIterator* iterator, INT* resultCount, BYTE* pathType, INT* startIndex, INT* endIndex); }
  3701. function GdipPathIterNextPathType(Iterator: GpPathIterator;
  3702. out ResultCount: Integer; out PathType: Byte; out StartIndex: Integer;
  3703. out EndIndex: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3704.  
  3705. { GdipPathIterNextMarker(GpPathIterator* iterator, INT *resultCount, INT* startIndex, INT* endIndex); }
  3706. function GdipPathIterNextMarker(Iterator: GpPathIterator; out ResultCount: Integer;
  3707. out StartIndex: Integer; out EndIndex: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3708.  
  3709. { GdipPathIterNextMarkerPath(GpPathIterator* iterator, INT* resultCount, GpPath* path); }
  3710. function GdipPathIterNextMarkerPath(Iterator: GpPathIterator;
  3711. out ResultCount: Integer; Path: GpPath): TGPStatus; stdcall; external GdiPlusDll;
  3712.  
  3713. { GdipPathIterGetCount(GpPathIterator* iterator, INT* count); }
  3714. function GdipPathIterGetCount(Iterator: GpPathIterator; out Count: Integer): TGPStatus; stdcall;
  3715. external GdiPlusDll;
  3716.  
  3717. { GdipPathIterGetSubpathCount(GpPathIterator* iterator, INT* count); }
  3718. function GdipPathIterGetSubpathCount(Iterator: GpPathIterator; out Count: Integer): TGPStatus; stdcall;
  3719. external GdiPlusDll;
  3720.  
  3721. { GdipPathIterIsValid(GpPathIterator* iterator, BOOL* valid); }
  3722. function GdipPathIterIsValid(Iterator: GpPathIterator; Valid: PBool): TGPStatus; stdcall;
  3723. external GdiPlusDll;
  3724.  
  3725. { GdipPathIterHasCurve(GpPathIterator* iterator, BOOL* hasCurve); }
  3726. function GdipPathIterHasCurve(Iterator: GpPathIterator; out HasCurve: Bool): TGPStatus; stdcall;
  3727. external GdiPlusDll;
  3728.  
  3729. { GdipPathIterRewind(GpPathIterator* iterator); }
  3730. function GdipPathIterRewind(Iterator: GpPathIterator): TGPStatus; stdcall;
  3731. external GdiPlusDll;
  3732.  
  3733. { GdipPathIterEnumerate(GpPathIterator* iterator, INT* resultCount, GpPointF *points, BYTE *types, INT count); }
  3734. function GdipPathIterEnumerate(Iterator: GpPathIterator; out ResultCount: Integer;
  3735. Points: PGPPointF; Types: PByte; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3736.  
  3737. { GdipPathIterCopyData(GpPathIterator* iterator, INT* resultCount, GpPointF* points, BYTE* types, INT startIndex, INT endIndex); }
  3738. function GdipPathIterCopyData(Iterator: GpPathIterator; out ResultCount: Integer;
  3739. Points: PGPPointF; Types: PByte; StartIndex: Integer; EndIndex: Integer): TGPStatus; stdcall;
  3740. external GdiPlusDll;
  3741.  
  3742. //----------------------------------------------------------------------------
  3743. // Matrix APIs
  3744. //----------------------------------------------------------------------------
  3745.  
  3746. { GdipCreateMatrix(GpMatrix **matrix); }
  3747. function GdipCreateMatrix(out Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3748.  
  3749. { GdipCreateMatrix2(REAL m11, REAL m12, REAL m21, REAL m22, REAL dx, REAL dy, GpMatrix **matrix); }
  3750. function GdipCreateMatrix2(M11: Single; M12: Single; M21: Single; M22: Single;
  3751. Dx: Single; Dy: Single; out Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3752.  
  3753. { GdipCreateMatrix3(GDIPCONST GpRectF *rect, GDIPCONST GpPointF *dstplg, GpMatrix **matrix); }
  3754. function GdipCreateMatrix3(const Rect: PGPRectF; const Dstplg: PGPPointF;
  3755. out Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3756.  
  3757. { GdipCreateMatrix3I(GDIPCONST GpRect *rect, GDIPCONST GpPoint *dstplg, GpMatrix **matrix); }
  3758. function GdipCreateMatrix3I(const Rect: PGPRect; const Dstplg: PGPPoint;
  3759. out Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3760.  
  3761. { GdipCloneMatrix(GpMatrix *matrix, GpMatrix **cloneMatrix); }
  3762. function GdipCloneMatrix(Matrix: GpMatrix; out CloneMatrix: GpMatrix): TGPStatus; stdcall;
  3763. external GdiPlusDll;
  3764.  
  3765. { GdipDeleteMatrix(GpMatrix *matrix); }
  3766. function GdipDeleteMatrix(Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3767.  
  3768. { GdipSetMatrixElements(GpMatrix *matrix, REAL m11, REAL m12, REAL m21, REAL m22, REAL dx, REAL dy); }
  3769. function GdipSetMatrixElements(Matrix: GpMatrix; M11: Single; M12: Single;
  3770. M21: Single; M22: Single; Dx: Single; Dy: Single): TGPStatus; stdcall;
  3771. external GdiPlusDll;
  3772.  
  3773. { GdipMultiplyMatrix(GpMatrix *matrix, GpMatrix* matrix2, GpMatrixOrder order); }
  3774. function GdipMultiplyMatrix(Matrix: GpMatrix; Matrix2: GpMatrix;
  3775. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  3776.  
  3777. { GdipTranslateMatrix(GpMatrix *matrix, REAL offsetX, REAL offsetY, GpMatrixOrder order); }
  3778. function GdipTranslateMatrix(Matrix: GpMatrix; OffsetX: Single; OffsetY: Single;
  3779. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  3780.  
  3781. { GdipScaleMatrix(GpMatrix *matrix, REAL scaleX, REAL scaleY, GpMatrixOrder order); }
  3782. function GdipScaleMatrix(Matrix: GpMatrix; ScaleX: Single; ScaleY: Single;
  3783. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  3784.  
  3785. { GdipRotateMatrix(GpMatrix *matrix, REAL angle, GpMatrixOrder order); }
  3786. function GdipRotateMatrix(Matrix: GpMatrix; Angle: Single; Order: TGPMatrixOrder): TGPStatus; stdcall;
  3787. external GdiPlusDll;
  3788.  
  3789. { GdipShearMatrix(GpMatrix *matrix, REAL shearX, REAL shearY, GpMatrixOrder order); }
  3790. function GdipShearMatrix(Matrix: GpMatrix; ShearX: Single; ShearY: Single;
  3791. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  3792.  
  3793. { GdipInvertMatrix(GpMatrix *matrix); }
  3794. function GdipInvertMatrix(Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3795.  
  3796. { GdipTransformMatrixPoints(GpMatrix *matrix, GpPointF *pts, INT count); }
  3797. function GdipTransformMatrixPoints(Matrix: GpMatrix; Pts: PGPPointF;
  3798. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3799.  
  3800. { GdipTransformMatrixPointsI(GpMatrix *matrix, GpPoint *pts, INT count); }
  3801. function GdipTransformMatrixPointsI(Matrix: GpMatrix; Pts: PGPPoint;
  3802. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3803.  
  3804. { GdipVectorTransformMatrixPoints(GpMatrix *matrix, GpPointF *pts, INT count); }
  3805. function GdipVectorTransformMatrixPoints(Matrix: GpMatrix; Pts: PGPPointF;
  3806. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3807.  
  3808. { GdipVectorTransformMatrixPointsI(GpMatrix *matrix, GpPoint *pts, INT count); }
  3809. function GdipVectorTransformMatrixPointsI(Matrix: GpMatrix; Pts: PGPPoint;
  3810. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  3811.  
  3812. { GdipGetMatrixElements(GDIPCONST GpMatrix *matrix, REAL *matrixOut); }
  3813. function GdipGetMatrixElements(const Matrix: GpMatrix; MatrixOut: PSingle): TGPStatus; stdcall;
  3814. external GdiPlusDll;
  3815.  
  3816. { GdipIsMatrixInvertible(GDIPCONST GpMatrix *matrix, BOOL *result); }
  3817. function GdipIsMatrixInvertible(const Matrix: GpMatrix; out Result: Bool): TGPStatus; stdcall;
  3818. external GdiPlusDll;
  3819.  
  3820. { GdipIsMatrixIdentity(GDIPCONST GpMatrix *matrix, BOOL *result); }
  3821. function GdipIsMatrixIdentity(const Matrix: GpMatrix; out Result: Bool): TGPStatus; stdcall;
  3822. external GdiPlusDll;
  3823.  
  3824. { GdipIsMatrixEqual(GDIPCONST GpMatrix *matrix, GDIPCONST GpMatrix *matrix2, BOOL *result); }
  3825. function GdipIsMatrixEqual(const Matrix: GpMatrix; const Matrix2: GpMatrix;
  3826. out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3827.  
  3828. //----------------------------------------------------------------------------
  3829. // Region APIs
  3830. //----------------------------------------------------------------------------
  3831.  
  3832. { GdipCreateRegion(GpRegion **region); }
  3833. function GdipCreateRegion(out Region: GpRegion): TGPStatus; stdcall; external GdiPlusDll;
  3834.  
  3835. { GdipCreateRegionRect(GDIPCONST GpRectF *rect, GpRegion **region); }
  3836. function GdipCreateRegionRect(const Rect: PGPRectF; out Region: GpRegion): TGPStatus; stdcall;
  3837. external GdiPlusDll;
  3838.  
  3839. { GdipCreateRegionRectI(GDIPCONST GpRect *rect, GpRegion **region); }
  3840. function GdipCreateRegionRectI(const Rect: PGPRect; out Region: GpRegion): TGPStatus; stdcall;
  3841. external GdiPlusDll;
  3842.  
  3843. { GdipCreateRegionPath(GpPath *path, GpRegion **region); }
  3844. function GdipCreateRegionPath(Path: GpPath; out Region: GpRegion): TGPStatus; stdcall;
  3845. external GdiPlusDll;
  3846.  
  3847. { GdipCreateRegionRgnData(GDIPCONST BYTE *regionData, INT size, GpRegion **region); }
  3848. function GdipCreateRegionRgnData(const RegionData: PByte; Size: Integer;
  3849. out Region: GpRegion): TGPStatus; stdcall; external GdiPlusDll;
  3850.  
  3851. { GdipCreateRegionHrgn(HRGN hRgn, GpRegion **region); }
  3852. function GdipCreateRegionHrgn(HRgn: HRGN; out Region: GpRegion): TGPStatus; stdcall;
  3853. external GdiPlusDll;
  3854.  
  3855. { GdipCloneRegion(GpRegion *region, GpRegion **cloneRegion); }
  3856. function GdipCloneRegion(Region: GpRegion; out CloneRegion: GpRegion): TGPStatus; stdcall;
  3857. external GdiPlusDll;
  3858.  
  3859. { GdipDeleteRegion(GpRegion *region); }
  3860. function GdipDeleteRegion(Region: GpRegion): TGPStatus; stdcall; external GdiPlusDll;
  3861.  
  3862. { GdipSetInfinite(GpRegion *region); }
  3863. function GdipSetInfinite(Region: GpRegion): TGPStatus; stdcall; external GdiPlusDll;
  3864.  
  3865. { GdipSetEmpty(GpRegion *region); }
  3866. function GdipSetEmpty(Region: GpRegion): TGPStatus; stdcall; external GdiPlusDll;
  3867.  
  3868. { GdipCombineRegionRect(GpRegion *region, GDIPCONST GpRectF *rect, CombineMode combineMode); }
  3869. function GdipCombineRegionRect(Region: GpRegion; const Rect: PGPRectF;
  3870. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  3871.  
  3872. { GdipCombineRegionRectI(GpRegion *region, GDIPCONST GpRect *rect, CombineMode combineMode); }
  3873. function GdipCombineRegionRectI(Region: GpRegion; const Rect: PGPRect;
  3874. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  3875.  
  3876. { GdipCombineRegionPath(GpRegion *region, GpPath *path, CombineMode combineMode); }
  3877. function GdipCombineRegionPath(Region: GpRegion; Path: GpPath;
  3878. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  3879.  
  3880. { GdipCombineRegionRegion(GpRegion *region, GpRegion *region2, CombineMode combineMode); }
  3881. function GdipCombineRegionRegion(Region: GpRegion; Region2: GpRegion;
  3882. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  3883.  
  3884. { GdipTranslateRegion(GpRegion *region, REAL dx, REAL dy); }
  3885. function GdipTranslateRegion(Region: GpRegion; Dx: Single; Dy: Single): TGPStatus; stdcall;
  3886. external GdiPlusDll;
  3887.  
  3888. { GdipTranslateRegionI(GpRegion *region, INT dx, INT dy); }
  3889. function GdipTranslateRegionI(Region: GpRegion; Dx: Integer; Dy: Integer): TGPStatus; stdcall;
  3890. external GdiPlusDll;
  3891.  
  3892. { GdipTransformRegion(GpRegion *region, GpMatrix *matrix); }
  3893. function GdipTransformRegion(Region: GpRegion; Matrix: GpMatrix): TGPStatus; stdcall;
  3894. external GdiPlusDll;
  3895.  
  3896. { GdipGetRegionBounds(GpRegion *region, GpGraphics *graphics, GpRectF *rect); }
  3897. function GdipGetRegionBounds(Region: GpRegion; Graphics: GpGraphics;
  3898. out Rect: TGPRectF): TGPStatus; stdcall; external GdiPlusDll;
  3899.  
  3900. { GdipGetRegionBoundsI(GpRegion *region, GpGraphics *graphics, GpRect *rect); }
  3901. function GdipGetRegionBoundsI(Region: GpRegion; Graphics: GpGraphics;
  3902. out Rect: TGPRect): TGPStatus; stdcall; external GdiPlusDll;
  3903.  
  3904. { GdipGetRegionHRgn(GpRegion *region, GpGraphics *graphics, HRGN *hRgn); }
  3905. function GdipGetRegionHRgn(Region: GpRegion; Graphics: GpGraphics;
  3906. out HRgn: HRgn): TGPStatus; stdcall; external GdiPlusDll;
  3907.  
  3908. { GdipIsEmptyRegion(GpRegion *region, GpGraphics *graphics, BOOL *result); }
  3909. function GdipIsEmptyRegion(Region: GpRegion; Graphics: GpGraphics;
  3910. out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3911.  
  3912. { GdipIsInfiniteRegion(GpRegion *region, GpGraphics *graphics, BOOL *result); }
  3913. function GdipIsInfiniteRegion(Region: GpRegion; Graphics: GpGraphics;
  3914. out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3915.  
  3916. { GdipIsEqualRegion(GpRegion *region, GpRegion *region2, GpGraphics *graphics, BOOL *result); }
  3917. function GdipIsEqualRegion(Region: GpRegion; Region2: GpRegion;
  3918. Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3919.  
  3920. { GdipGetRegionDataSize(GpRegion *region, UINT * bufferSize); }
  3921. function GdipGetRegionDataSize(Region: GpRegion; out BufferSize: Cardinal): TGPStatus; stdcall;
  3922. external GdiPlusDll;
  3923.  
  3924. { GdipGetRegionData(GpRegion *region, BYTE * buffer, UINT bufferSize, UINT * sizeFilled); }
  3925. function GdipGetRegionData(Region: GpRegion; Buffer: Pointer;
  3926. BufferSize: Cardinal; SizeFilled: PCardinal): TGPStatus; stdcall; external GdiPlusDll;
  3927.  
  3928. { GdipIsVisibleRegionPoint(GpRegion *region, REAL x, REAL y, GpGraphics *graphics, BOOL *result); }
  3929. function GdipIsVisibleRegionPoint(Region: GpRegion; X: Single; Y: Single;
  3930. Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3931.  
  3932. { GdipIsVisibleRegionPointI(GpRegion *region, INT x, INT y, GpGraphics *graphics, BOOL *result); }
  3933. function GdipIsVisibleRegionPointI(Region: GpRegion; X: Integer; Y: Integer;
  3934. Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  3935.  
  3936. { GdipIsVisibleRegionRect(GpRegion *region, REAL x, REAL y, REAL width, REAL height, GpGraphics *graphics, BOOL *result); }
  3937. function GdipIsVisibleRegionRect(Region: GpRegion; X: Single; Y: Single;
  3938. Width: Single; Height: Single; Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  3939. external GdiPlusDll;
  3940.  
  3941. { GdipIsVisibleRegionRectI(GpRegion *region, INT x, INT y, INT width, INT height, GpGraphics *graphics, BOOL *result); }
  3942. function GdipIsVisibleRegionRectI(Region: GpRegion; X: Integer; Y: Integer;
  3943. Width: Integer; Height: Integer; Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  3944. external GdiPlusDll;
  3945.  
  3946. { GdipGetRegionScansCount(GpRegion *region, UINT* count, GpMatrix* matrix); }
  3947. function GdipGetRegionScansCount(Region: GpRegion; out Count: Integer;
  3948. Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3949.  
  3950. { GdipGetRegionScans(GpRegion *region, GpRectF* rects, INT* count, GpMatrix* matrix); }
  3951. function GdipGetRegionScans(Region: GpRegion; Rects: PGPRectF; var Count: Integer;
  3952. Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3953.  
  3954. { GdipGetRegionScansI(GpRegion *region, GpRect* rects, INT* count, GpMatrix* matrix); }
  3955. function GdipGetRegionScansI(Region: GpRegion; Rects: PGPRect; var Count: Integer;
  3956. Matrix: GpMatrix): TGPStatus; stdcall; external GdiPlusDll;
  3957.  
  3958. //----------------------------------------------------------------------------
  3959. // Brush APIs
  3960. //----------------------------------------------------------------------------
  3961.  
  3962. { GdipCloneBrush(GpBrush *brush, GpBrush **cloneBrush); }
  3963. function GdipCloneBrush(Brush: GpBrush; out CloneBrush: GpBrush): TGPStatus; stdcall;
  3964. external GdiPlusDll;
  3965.  
  3966. { GdipDeleteBrush(GpBrush *brush); }
  3967. function GdipDeleteBrush(Brush: GpBrush): TGPStatus; stdcall; external GdiPlusDll;
  3968.  
  3969. { GdipGetBrushType(GpBrush *brush, GpBrushType *type); }
  3970. function GdipGetBrushType(Brush: GpBrush; out AType: TGPBrushType): TGPStatus; stdcall;
  3971. external GdiPlusDll;
  3972.  
  3973. //----------------------------------------------------------------------------
  3974. // HatchBrush APIs
  3975. //----------------------------------------------------------------------------
  3976.  
  3977. { GdipCreateHatchBrush(GpHatchStyle hatchstyle, ARGB forecol, ARGB backcol, GpHatch **brush); }
  3978. function GdipCreateHatchBrush(Hatchstyle: TGPHatchStyle; Forecol: ARGB;
  3979. Backcol: ARGB; out Brush: GpHatch): TGPStatus; stdcall; external GdiPlusDll;
  3980.  
  3981. { GdipGetHatchStyle(GpHatch *brush, GpHatchStyle *hatchstyle); }
  3982. function GdipGetHatchStyle(Brush: GpHatch; out Hatchstyle: TGPHatchStyle): TGPStatus; stdcall;
  3983. external GdiPlusDll;
  3984.  
  3985. { GdipGetHatchForegroundColor(GpHatch *brush, ARGB* forecol); }
  3986. function GdipGetHatchForegroundColor(Brush: GpHatch; out Forecol: ARGB): TGPStatus; stdcall;
  3987. external GdiPlusDll;
  3988.  
  3989. { GdipGetHatchBackgroundColor(GpHatch *brush, ARGB* backcol); }
  3990. function GdipGetHatchBackgroundColor(Brush: GpHatch; out Backcol: ARGB): TGPStatus; stdcall;
  3991. external GdiPlusDll;
  3992.  
  3993. //----------------------------------------------------------------------------
  3994. // TextureBrush APIs
  3995. //----------------------------------------------------------------------------
  3996.  
  3997. { GdipCreateTexture(GpImage *image, GpWrapMode wrapmode, GpTexture **texture); }
  3998. function GdipCreateTexture(Image: GpImage; Wrapmode: TGPWrapMode;
  3999. out Texture: GpTexture): TGPStatus; stdcall; external GdiPlusDll;
  4000.  
  4001. { GdipCreateTexture2(GpImage *image, GpWrapMode wrapmode, REAL x, REAL y, REAL width, REAL height, GpTexture **texture); }
  4002. function GdipCreateTexture2(Image: GpImage; Wrapmode: TGPWrapMode; X: Single;
  4003. Y: Single; Width: Single; Height: Single; out Texture: GpTexture): TGPStatus; stdcall;
  4004. external GdiPlusDll;
  4005.  
  4006. { GdipCreateTextureIA(GpImage *image, GDIPCONST GpImageAttributes *imageAttributes, REAL x, REAL y, REAL width, REAL height, GpTexture **texture); }
  4007. function GdipCreateTextureIA(Image: GpImage;
  4008. const ImageAttributes: GpImageAttributes; X: Single; Y: Single; Width: Single;
  4009. Height: Single; out Texture: GpTexture): TGPStatus; stdcall; external GdiPlusDll;
  4010.  
  4011. { GdipCreateTexture2I(GpImage *image, GpWrapMode wrapmode, INT x, INT y, INT width, INT height, GpTexture **texture); }
  4012. function GdipCreateTexture2I(Image: GpImage; Wrapmode: TGPWrapMode; X: Integer;
  4013. Y: Integer; Width: Integer; Height: Integer; out Texture: GpTexture): TGPStatus; stdcall;
  4014. external GdiPlusDll;
  4015.  
  4016. { GdipCreateTextureIAI(GpImage *image, GDIPCONST GpImageAttributes *imageAttributes, INT x, INT y, INT width, INT height, GpTexture **texture); }
  4017. function GdipCreateTextureIAI(Image: GpImage;
  4018. const ImageAttributes: GpImageAttributes; X: Integer; Y: Integer;
  4019. Width: Integer; Height: Integer; out Texture: GpTexture): TGPStatus; stdcall;
  4020. external GdiPlusDll;
  4021.  
  4022.  
  4023. { GdipGetTextureTransform(GpTexture *brush, GpMatrix *matrix); }
  4024. function GdipGetTextureTransform(Brush: GpTexture; Matrix: GpMatrix): TGPStatus; stdcall;
  4025. external GdiPlusDll;
  4026.  
  4027. { GdipSetTextureTransform(GpTexture *brush, GDIPCONST GpMatrix *matrix); }
  4028. function GdipSetTextureTransform(Brush: GpTexture; const Matrix: GpMatrix): TGPStatus; stdcall;
  4029. external GdiPlusDll;
  4030.  
  4031. { GdipResetTextureTransform(GpTexture* brush); }
  4032. function GdipResetTextureTransform(Brush: GpTexture): TGPStatus; stdcall;
  4033. external GdiPlusDll;
  4034.  
  4035. { GdipMultiplyTextureTransform(GpTexture* brush, GDIPCONST GpMatrix *matrix, GpMatrixOrder order); }
  4036. function GdipMultiplyTextureTransform(Brush: GpTexture; const Matrix: GpMatrix;
  4037. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4038.  
  4039. { GdipTranslateTextureTransform(GpTexture* brush, REAL dx, REAL dy, GpMatrixOrder order); }
  4040. function GdipTranslateTextureTransform(Brush: GpTexture; Dx: Single; Dy: Single;
  4041. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4042.  
  4043. { GdipScaleTextureTransform(GpTexture* brush, REAL sx, REAL sy, GpMatrixOrder order); }
  4044. function GdipScaleTextureTransform(Brush: GpTexture; Sx: Single; Sy: Single;
  4045. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4046.  
  4047. { GdipRotateTextureTransform(GpTexture* brush, REAL angle, GpMatrixOrder order); }
  4048. function GdipRotateTextureTransform(Brush: GpTexture; Angle: Single;
  4049. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4050.  
  4051. { GdipSetTextureWrapMode(GpTexture *brush, GpWrapMode wrapmode); }
  4052. function GdipSetTextureWrapMode(Brush: GpTexture; Wrapmode: TGPWrapMode): TGPStatus; stdcall;
  4053. external GdiPlusDll;
  4054.  
  4055. { GdipGetTextureWrapMode(GpTexture *brush, GpWrapMode *wrapmode); }
  4056. function GdipGetTextureWrapMode(Brush: GpTexture; out Wrapmode: TGPWrapMode): TGPStatus; stdcall;
  4057. external GdiPlusDll;
  4058.  
  4059. { GdipGetTextureImage(GpTexture *brush, GpImage **image); }
  4060. function GdipGetTextureImage(Brush: GpTexture; out Image: GpImage): TGPStatus; stdcall;
  4061. external GdiPlusDll;
  4062.  
  4063. //----------------------------------------------------------------------------
  4064. // SolidBrush APIs
  4065. //----------------------------------------------------------------------------
  4066.  
  4067. { GdipCreateSolidFill(ARGB color, GpSolidFill **brush); }
  4068. function GdipCreateSolidFill(Color: ARGB; out Brush: GpSolidFill): TGPStatus; stdcall;
  4069. external GdiPlusDll;
  4070.  
  4071. { GdipSetSolidFillColor(GpSolidFill *brush, ARGB color); }
  4072. function GdipSetSolidFillColor(Brush: GpSolidFill; Color: ARGB): TGPStatus; stdcall;
  4073. external GdiPlusDll;
  4074.  
  4075. { GdipGetSolidFillColor(GpSolidFill *brush, ARGB *color); }
  4076. function GdipGetSolidFillColor(Brush: GpSolidFill; out Color: ARGB): TGPStatus; stdcall;
  4077. external GdiPlusDll;
  4078.  
  4079. //----------------------------------------------------------------------------
  4080. // LineBrush APIs
  4081. //----------------------------------------------------------------------------
  4082.  
  4083. { GdipCreateLineBrush(GDIPCONST GpPointF* point1, GDIPCONST GpPointF* point2, ARGB color1, ARGB color2, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4084. function GdipCreateLineBrush(const Point1: PGPPointF; const Point2: PGPPointF;
  4085. Color1: ARGB; Color2: ARGB; WrapMode: TGPWrapMode;
  4086. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4087.  
  4088. { GdipCreateLineBrushI(GDIPCONST GpPoint* point1, GDIPCONST GpPoint* point2, ARGB color1, ARGB color2, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4089. function GdipCreateLineBrushI(const Point1: PGPPoint; const Point2: PGPPoint;
  4090. Color1: ARGB; Color2: ARGB; WrapMode: TGPWrapMode;
  4091. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4092.  
  4093. { GdipCreateLineBrushFromRect(GDIPCONST GpRectF* rect, ARGB color1, ARGB color2, LinearGradientMode mode, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4094. function GdipCreateLineBrushFromRect(const Rect: PGPRectF; Color1: ARGB;
  4095. Color2: ARGB; Mode: TGPLinearGradientMode; WrapMode: TGPWrapMode;
  4096. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4097.  
  4098. { GdipCreateLineBrushFromRectI(GDIPCONST GpRect* rect, ARGB color1, ARGB color2, LinearGradientMode mode, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4099. function GdipCreateLineBrushFromRectI(const Rect: PGPRect; Color1: ARGB;
  4100. Color2: ARGB; Mode: TGPLinearGradientMode; WrapMode: TGPWrapMode;
  4101. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4102.  
  4103. { GdipCreateLineBrushFromRectWithAngle(GDIPCONST GpRectF* rect, ARGB color1, ARGB color2, REAL angle, BOOL isAngleScalable, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4104. function GdipCreateLineBrushFromRectWithAngle(const Rect: PGPRectF; Color1: ARGB;
  4105. Color2: ARGB; Angle: Single; IsAngleScalable: Bool; WrapMode: TGPWrapMode;
  4106. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4107.  
  4108. { GdipCreateLineBrushFromRectWithAngleI(GDIPCONST GpRect* rect, ARGB color1, ARGB color2, REAL angle, BOOL isAngleScalable, GpWrapMode wrapMode, GpLineGradient **lineGradient); }
  4109. function GdipCreateLineBrushFromRectWithAngleI(const Rect: PGPRect; Color1: ARGB;
  4110. Color2: ARGB; Angle: Single; IsAngleScalable: Bool; WrapMode: TGPWrapMode;
  4111. out LineGradient: GpLineGradient): TGPStatus; stdcall; external GdiPlusDll;
  4112.  
  4113. { GdipSetLineColors(GpLineGradient *brush, ARGB color1, ARGB color2); }
  4114. function GdipSetLineColors(Brush: GpLineGradient; Color1: ARGB; Color2: ARGB): TGPStatus; stdcall;
  4115. external GdiPlusDll;
  4116.  
  4117. { GdipGetLineColors(GpLineGradient *brush, ARGB* colors); }
  4118. function GdipGetLineColors(Brush: GpLineGradient; Colors: PARGB): TGPStatus; stdcall;
  4119. external GdiPlusDll;
  4120.  
  4121. { GdipGetLineRect(GpLineGradient *brush, GpRectF *rect); }
  4122. function GdipGetLineRect(Brush: GpLineGradient; out Rect: TGPRectF): TGPStatus; stdcall;
  4123. external GdiPlusDll;
  4124.  
  4125. { GdipGetLineRectI(GpLineGradient *brush, GpRect *rect); }
  4126. function GdipGetLineRectI(Brush: GpLineGradient; out Rect: TGPRect): TGPStatus; stdcall;
  4127. external GdiPlusDll;
  4128.  
  4129. { GdipSetLineGammaCorrection(GpLineGradient *brush, BOOL useGammaCorrection); }
  4130. function GdipSetLineGammaCorrection(Brush: GpLineGradient;
  4131. UseGammaCorrection: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4132.  
  4133. { GdipGetLineGammaCorrection(GpLineGradient *brush, BOOL *useGammaCorrection); }
  4134. function GdipGetLineGammaCorrection(Brush: GpLineGradient;
  4135. out UseGammaCorrection: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4136.  
  4137. { GdipGetLineBlendCount(GpLineGradient *brush, INT *count); }
  4138. function GdipGetLineBlendCount(Brush: GpLineGradient; out Count: Integer): TGPStatus; stdcall;
  4139. external GdiPlusDll;
  4140.  
  4141. { GdipGetLineBlend(GpLineGradient *brush, REAL *blend, REAL* positions, INT count); }
  4142. function GdipGetLineBlend(Brush: GpLineGradient; Blend: PSingle;
  4143. Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4144.  
  4145. { GdipSetLineBlend(GpLineGradient *brush, GDIPCONST REAL *blend, GDIPCONST REAL* positions, INT count); }
  4146. function GdipSetLineBlend(Brush: GpLineGradient; const Blend: PSingle;
  4147. const Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4148.  
  4149. { GdipGetLinePresetBlendCount(GpLineGradient *brush, INT *count); }
  4150. function GdipGetLinePresetBlendCount(Brush: GpLineGradient; out Count: Integer): TGPStatus; stdcall;
  4151. external GdiPlusDll;
  4152.  
  4153. { GdipGetLinePresetBlend(GpLineGradient *brush, ARGB *blend, REAL* positions, INT count); }
  4154. function GdipGetLinePresetBlend(Brush: GpLineGradient; Blend: PARGB;
  4155. Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4156.  
  4157. { GdipSetLinePresetBlend(GpLineGradient *brush, GDIPCONST ARGB *blend, GDIPCONST REAL* positions, INT count); }
  4158. function GdipSetLinePresetBlend(Brush: GpLineGradient; const Blend: PARGB;
  4159. const Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4160.  
  4161. { GdipSetLineSigmaBlend(GpLineGradient *brush, REAL focus, REAL scale); }
  4162. function GdipSetLineSigmaBlend(Brush: GpLineGradient; Focus: Single;
  4163. Scale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4164.  
  4165. { GdipSetLineLinearBlend(GpLineGradient *brush, REAL focus, REAL scale); }
  4166. function GdipSetLineLinearBlend(Brush: GpLineGradient; Focus: Single;
  4167. Scale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4168.  
  4169. { GdipSetLineWrapMode(GpLineGradient *brush, GpWrapMode wrapmode); }
  4170. function GdipSetLineWrapMode(Brush: GpLineGradient; Wrapmode: TGPWrapMode): TGPStatus; stdcall;
  4171. external GdiPlusDll;
  4172.  
  4173. { GdipGetLineWrapMode(GpLineGradient *brush, GpWrapMode *wrapmode); }
  4174. function GdipGetLineWrapMode(Brush: GpLineGradient; out Wrapmode: TGPWrapMode): TGPStatus; stdcall;
  4175. external GdiPlusDll;
  4176.  
  4177. { GdipGetLineTransform(GpLineGradient *brush, GpMatrix *matrix); }
  4178. function GdipGetLineTransform(Brush: GpLineGradient; Matrix: GpMatrix): TGPStatus; stdcall;
  4179. external GdiPlusDll;
  4180.  
  4181. { GdipSetLineTransform(GpLineGradient *brush, GDIPCONST GpMatrix *matrix); }
  4182. function GdipSetLineTransform(Brush: GpLineGradient; const Matrix: GpMatrix): TGPStatus; stdcall;
  4183. external GdiPlusDll;
  4184.  
  4185. { GdipResetLineTransform(GpLineGradient* brush); }
  4186. function GdipResetLineTransform(Brush: GpLineGradient): TGPStatus; stdcall;
  4187. external GdiPlusDll;
  4188.  
  4189. { GdipMultiplyLineTransform(GpLineGradient* brush, GDIPCONST GpMatrix *matrix, GpMatrixOrder order); }
  4190. function GdipMultiplyLineTransform(Brush: GpLineGradient;
  4191. const Matrix: GpMatrix; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4192.  
  4193. { GdipTranslateLineTransform(GpLineGradient* brush, REAL dx, REAL dy, GpMatrixOrder order); }
  4194. function GdipTranslateLineTransform(Brush: GpLineGradient; Dx: Single;
  4195. Dy: Single; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4196.  
  4197. { GdipScaleLineTransform(GpLineGradient* brush, REAL sx, REAL sy, GpMatrixOrder order); }
  4198. function GdipScaleLineTransform(Brush: GpLineGradient; Sx: Single; Sy: Single;
  4199. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4200.  
  4201. { GdipRotateLineTransform(GpLineGradient* brush, REAL angle, GpMatrixOrder order); }
  4202. function GdipRotateLineTransform(Brush: GpLineGradient; Angle: Single;
  4203. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4204.  
  4205. //----------------------------------------------------------------------------
  4206. // PathGradientBrush APIs
  4207. //----------------------------------------------------------------------------
  4208.  
  4209. { GdipCreatePathGradient(GDIPCONST GpPointF* points, INT count, GpWrapMode wrapMode, GpPathGradient **polyGradient); }
  4210. function GdipCreatePathGradient(const Points: PGPPointF; Count: Integer;
  4211. WrapMode: TGPWrapMode; out PolyGradient: GpPathGradient): TGPStatus; stdcall;
  4212. external GdiPlusDll;
  4213.  
  4214. { GdipCreatePathGradientI(GDIPCONST GpPoint* points, INT count, GpWrapMode wrapMode, GpPathGradient **polyGradient); }
  4215. function GdipCreatePathGradientI(const Points: PGPPoint; Count: Integer;
  4216. WrapMode: TGPWrapMode; out PolyGradient: GpPathGradient): TGPStatus; stdcall;
  4217. external GdiPlusDll;
  4218.  
  4219. { GdipCreatePathGradientFromPath(GDIPCONST GpPath* path, GpPathGradient **polyGradient); }
  4220. function GdipCreatePathGradientFromPath(const Path: GpPath;
  4221. out PolyGradient: GpPathGradient): TGPStatus; stdcall; external GdiPlusDll;
  4222.  
  4223. { GdipGetPathGradientCenterColor( GpPathGradient *brush, ARGB* colors); }
  4224. function GdipGetPathGradientCenterColor(Brush: GpPathGradient; out Color: ARGB): TGPStatus; stdcall;
  4225. external GdiPlusDll;
  4226.  
  4227. { GdipSetPathGradientCenterColor( GpPathGradient *brush, ARGB colors); }
  4228. function GdipSetPathGradientCenterColor(Brush: GpPathGradient; Color: ARGB): TGPStatus; stdcall;
  4229. external GdiPlusDll;
  4230.  
  4231. { GdipGetPathGradientSurroundColorsWithCount( GpPathGradient *brush, ARGB* color, INT* count); }
  4232. function GdipGetPathGradientSurroundColorsWithCount(Brush: GpPathGradient;
  4233. Color: PARGB; out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4234.  
  4235. { GdipSetPathGradientSurroundColorsWithCount( GpPathGradient *brush, GDIPCONST ARGB* color, INT* count); }
  4236. function GdipSetPathGradientSurroundColorsWithCount(Brush: GpPathGradient;
  4237. const Color: PARGB; out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4238.  
  4239. { GdipGetPathGradientPath(GpPathGradient *brush, GpPath *path); }
  4240. function GdipGetPathGradientPath(Brush: GpPathGradient; Path: GpPath): TGPStatus; stdcall;
  4241. external GdiPlusDll;
  4242.  
  4243. { GdipSetPathGradientPath(GpPathGradient *brush, GDIPCONST GpPath *path); }
  4244. function GdipSetPathGradientPath(Brush: GpPathGradient; const Path: GpPath): TGPStatus; stdcall;
  4245. external GdiPlusDll;
  4246.  
  4247. { GdipGetPathGradientCenterPoint( GpPathGradient *brush, GpPointF* points); }
  4248. function GdipGetPathGradientCenterPoint(Brush: GpPathGradient; out Point: TGPPointF): TGPStatus; stdcall;
  4249. external GdiPlusDll;
  4250.  
  4251. { GdipGetPathGradientCenterPointI( GpPathGradient *brush, GpPoint* points); }
  4252. function GdipGetPathGradientCenterPointI(Brush: GpPathGradient; out Point: TGPPoint): TGPStatus; stdcall;
  4253. external GdiPlusDll;
  4254.  
  4255. { GdipSetPathGradientCenterPoint( GpPathGradient *brush, GDIPCONST GpPointF* points); }
  4256. function GdipSetPathGradientCenterPoint(Brush: GpPathGradient;
  4257. const Point: PGPPointF): TGPStatus; stdcall; external GdiPlusDll;
  4258.  
  4259. { GdipSetPathGradientCenterPointI( GpPathGradient *brush, GDIPCONST GpPoint* points); }
  4260. function GdipSetPathGradientCenterPointI(Brush: GpPathGradient;
  4261. const Point: PGPPoint): TGPStatus; stdcall; external GdiPlusDll;
  4262.  
  4263. { GdipGetPathGradientRect(GpPathGradient *brush, GpRectF *rect); }
  4264. function GdipGetPathGradientRect(Brush: GpPathGradient; out Rect: TGPRectF): TGPStatus; stdcall;
  4265. external GdiPlusDll;
  4266.  
  4267. { GdipGetPathGradientRectI(GpPathGradient *brush, GpRect *rect); }
  4268. function GdipGetPathGradientRectI(Brush: GpPathGradient; out Rect: TGPRect): TGPStatus; stdcall;
  4269. external GdiPlusDll;
  4270.  
  4271. { GdipGetPathGradientPointCount(GpPathGradient *brush, INT* count); }
  4272. function GdipGetPathGradientPointCount(Brush: GpPathGradient; out Count: Integer): TGPStatus; stdcall;
  4273. external GdiPlusDll;
  4274.  
  4275. { GdipGetPathGradientSurroundColorCount(GpPathGradient *brush, INT* count); }
  4276. function GdipGetPathGradientSurroundColorCount(Brush: GpPathGradient;
  4277. out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4278.  
  4279. { GdipSetPathGradientGammaCorrection(GpPathGradient *brush, BOOL useGammaCorrection); }
  4280. function GdipSetPathGradientGammaCorrection(Brush: GpPathGradient;
  4281. UseGammaCorrection: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4282.  
  4283. { GdipGetPathGradientGammaCorrection(GpPathGradient *brush, BOOL *useGammaCorrection); }
  4284. function GdipGetPathGradientGammaCorrection(Brush: GpPathGradient;
  4285. out UseGammaCorrection: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4286.  
  4287. { GdipGetPathGradientBlendCount(GpPathGradient *brush, INT *count); }
  4288. function GdipGetPathGradientBlendCount(Brush: GpPathGradient; out Count: Integer): TGPStatus; stdcall;
  4289. external GdiPlusDll;
  4290.  
  4291. { GdipGetPathGradientBlend(GpPathGradient *brush, REAL *blend, REAL *positions, INT count); }
  4292. function GdipGetPathGradientBlend(Brush: GpPathGradient; Blend: PSingle;
  4293. Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4294.  
  4295. { GdipSetPathGradientBlend(GpPathGradient *brush, GDIPCONST REAL *blend, GDIPCONST REAL *positions, INT count); }
  4296. function GdipSetPathGradientBlend(Brush: GpPathGradient; const Blend: PSingle;
  4297. const Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4298.  
  4299. { GdipGetPathGradientPresetBlendCount(GpPathGradient *brush, INT *count); }
  4300. function GdipGetPathGradientPresetBlendCount(Brush: GpPathGradient;
  4301. out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4302.  
  4303. { GdipGetPathGradientPresetBlend(GpPathGradient *brush, ARGB *blend, REAL* positions, INT count); }
  4304. function GdipGetPathGradientPresetBlend(Brush: GpPathGradient; Blend: PARGB;
  4305. Positions: PSingle; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4306.  
  4307. { GdipSetPathGradientPresetBlend(GpPathGradient *brush, GDIPCONST ARGB *blend, GDIPCONST REAL* positions, INT count); }
  4308. function GdipSetPathGradientPresetBlend(Brush: GpPathGradient;
  4309. const Blend: PARGB; const Positions: PSingle; Count: Integer): TGPStatus; stdcall;
  4310. external GdiPlusDll;
  4311.  
  4312. { GdipSetPathGradientSigmaBlend(GpPathGradient *brush, REAL focus, REAL scale); }
  4313. function GdipSetPathGradientSigmaBlend(Brush: GpPathGradient; Focus: Single;
  4314. Scale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4315.  
  4316. { GdipSetPathGradientLinearBlend(GpPathGradient *brush, REAL focus, REAL scale); }
  4317. function GdipSetPathGradientLinearBlend(Brush: GpPathGradient; Focus: Single;
  4318. Scale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4319.  
  4320. { GdipGetPathGradientWrapMode(GpPathGradient *brush, GpWrapMode *wrapmode); }
  4321. function GdipGetPathGradientWrapMode(Brush: GpPathGradient;
  4322. out Wrapmode: TGPWrapMode): TGPStatus; stdcall; external GdiPlusDll;
  4323.  
  4324. { GdipSetPathGradientWrapMode(GpPathGradient *brush, GpWrapMode wrapmode); }
  4325. function GdipSetPathGradientWrapMode(Brush: GpPathGradient; Wrapmode: TGPWrapMode): TGPStatus; stdcall;
  4326. external GdiPlusDll;
  4327.  
  4328. { GdipGetPathGradientTransform(GpPathGradient *brush, GpMatrix *matrix); }
  4329. function GdipGetPathGradientTransform(Brush: GpPathGradient; Matrix: GpMatrix): TGPStatus; stdcall;
  4330. external GdiPlusDll;
  4331.  
  4332. { GdipSetPathGradientTransform(GpPathGradient *brush, GpMatrix *matrix); }
  4333. function GdipSetPathGradientTransform(Brush: GpPathGradient; Matrix: GpMatrix): TGPStatus; stdcall;
  4334. external GdiPlusDll;
  4335.  
  4336. { GdipResetPathGradientTransform(GpPathGradient* brush); }
  4337. function GdipResetPathGradientTransform(Brush: GpPathGradient): TGPStatus; stdcall;
  4338. external GdiPlusDll;
  4339.  
  4340. { GdipMultiplyPathGradientTransform(GpPathGradient* brush, GDIPCONST GpMatrix *matrix, GpMatrixOrder order); }
  4341. function GdipMultiplyPathGradientTransform(Brush: GpPathGradient;
  4342. const Matrix: GpMatrix; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4343.  
  4344. { GdipTranslatePathGradientTransform(GpPathGradient* brush, REAL dx, REAL dy, GpMatrixOrder order); }
  4345. function GdipTranslatePathGradientTransform(Brush: GpPathGradient; Dx: Single;
  4346. Dy: Single; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4347.  
  4348. { GdipScalePathGradientTransform(GpPathGradient* brush, REAL sx, REAL sy, GpMatrixOrder order); }
  4349. function GdipScalePathGradientTransform(Brush: GpPathGradient; Sx: Single;
  4350. Sy: Single; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4351.  
  4352. { GdipRotatePathGradientTransform(GpPathGradient* brush, REAL angle, GpMatrixOrder order); }
  4353. function GdipRotatePathGradientTransform(Brush: GpPathGradient; Angle: Single;
  4354. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4355.  
  4356. { GdipGetPathGradientFocusScales(GpPathGradient *brush, REAL* xScale, REAL* yScale); }
  4357. function GdipGetPathGradientFocusScales(Brush: GpPathGradient; out XScale: Single;
  4358. out YScale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4359.  
  4360. { GdipSetPathGradientFocusScales(GpPathGradient *brush, REAL xScale, REAL yScale); }
  4361. function GdipSetPathGradientFocusScales(Brush: GpPathGradient; XScale: Single;
  4362. YScale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4363.  
  4364. //----------------------------------------------------------------------------
  4365. // Pen APIs
  4366. //----------------------------------------------------------------------------
  4367.  
  4368. { GdipCreatePen1(ARGB color, REAL width, GpUnit unit, GpPen **pen); }
  4369. function GdipCreatePen1(Color: ARGB; Width: Single; AUnit: TGPUnit;
  4370. out Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  4371.  
  4372. { GdipCreatePen2(GpBrush *brush, REAL width, GpUnit unit, GpPen **pen); }
  4373. function GdipCreatePen2(Brush: GpBrush; Width: Single; AUnit: TGPUnit;
  4374. out Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  4375.  
  4376. { GdipClonePen(GpPen *pen, GpPen **clonepen); }
  4377. function GdipClonePen(Pen: GpPen; out Clonepen: GpPen): TGPStatus; stdcall;
  4378. external GdiPlusDll;
  4379.  
  4380. { GdipDeletePen(GpPen *pen); }
  4381. function GdipDeletePen(Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  4382.  
  4383. { GdipSetPenWidth(GpPen *pen, REAL width); }
  4384. function GdipSetPenWidth(Pen: GpPen; Width: Single): TGPStatus; stdcall;
  4385. external GdiPlusDll;
  4386.  
  4387. { GdipGetPenWidth(GpPen *pen, REAL *width); }
  4388. function GdipGetPenWidth(Pen: GpPen; out Width: Single): TGPStatus; stdcall;
  4389. external GdiPlusDll;
  4390.  
  4391. { GdipSetPenUnit(GpPen *pen, GpUnit unit); }
  4392. function GdipSetPenUnit(Pen: GpPen; AUnit: TGPUnit): TGPStatus; stdcall;
  4393. external GdiPlusDll;
  4394.  
  4395. { GdipGetPenUnit(GpPen *pen, GpUnit *unit); }
  4396. function GdipGetPenUnit(Pen: GpPen; out AUnit: TGPUnit): TGPStatus; stdcall;
  4397. external GdiPlusDll;
  4398.  
  4399. { GdipSetPenLineCap197819(GpPen *pen, GpLineCap startCap, GpLineCap endCap, GpDashCap dashCap); }
  4400. function GdipSetPenLineCap197819(Pen: GpPen; StartCap: TGPLineCap;
  4401. EndCap: TGPLineCap; DashCap: TGPDashCap): TGPStatus; stdcall; external GdiPlusDll;
  4402.  
  4403. { GdipSetPenStartCap(GpPen *pen, GpLineCap startCap); }
  4404. function GdipSetPenStartCap(Pen: GpPen; StartCap: TGPLineCap): TGPStatus; stdcall;
  4405. external GdiPlusDll;
  4406.  
  4407. { GdipSetPenEndCap(GpPen *pen, GpLineCap endCap); }
  4408. function GdipSetPenEndCap(Pen: GpPen; EndCap: TGPLineCap): TGPStatus; stdcall;
  4409. external GdiPlusDll;
  4410.  
  4411. { GdipSetPenDashCap197819(GpPen *pen, GpDashCap dashCap); }
  4412. function GdipSetPenDashCap197819(Pen: GpPen; DashCap: TGPDashCap): TGPStatus; stdcall;
  4413. external GdiPlusDll;
  4414.  
  4415. { GdipGetPenStartCap(GpPen *pen, GpLineCap *startCap); }
  4416. function GdipGetPenStartCap(Pen: GpPen; out StartCap: TGPLineCap): TGPStatus; stdcall;
  4417. external GdiPlusDll;
  4418.  
  4419. { GdipGetPenEndCap(GpPen *pen, GpLineCap *endCap); }
  4420. function GdipGetPenEndCap(Pen: GpPen; out EndCap: TGPLineCap): TGPStatus; stdcall;
  4421. external GdiPlusDll;
  4422.  
  4423. { GdipGetPenDashCap197819(GpPen *pen, GpDashCap *dashCap); }
  4424. function GdipGetPenDashCap197819(Pen: GpPen; out DashCap: TGPDashCap): TGPStatus; stdcall;
  4425. external GdiPlusDll;
  4426.  
  4427. { GdipSetPenLineJoin(GpPen *pen, GpLineJoin lineJoin); }
  4428. function GdipSetPenLineJoin(Pen: GpPen; LineJoin: TGPLineJoin): TGPStatus; stdcall;
  4429. external GdiPlusDll;
  4430.  
  4431. { GdipGetPenLineJoin(GpPen *pen, GpLineJoin *lineJoin); }
  4432. function GdipGetPenLineJoin(Pen: GpPen; out LineJoin: TGPLineJoin): TGPStatus; stdcall;
  4433. external GdiPlusDll;
  4434.  
  4435. { GdipSetPenCustomStartCap(GpPen *pen, GpCustomLineCap* customCap); }
  4436. function GdipSetPenCustomStartCap(Pen: GpPen; CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4437. external GdiPlusDll;
  4438.  
  4439. { GdipGetPenCustomStartCap(GpPen *pen, GpCustomLineCap** customCap); }
  4440. function GdipGetPenCustomStartCap(Pen: GpPen; out CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4441. external GdiPlusDll;
  4442.  
  4443. { GdipSetPenCustomEndCap(GpPen *pen, GpCustomLineCap* customCap); }
  4444. function GdipSetPenCustomEndCap(Pen: GpPen; CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4445. external GdiPlusDll;
  4446.  
  4447. { GdipGetPenCustomEndCap(GpPen *pen, GpCustomLineCap** customCap); }
  4448. function GdipGetPenCustomEndCap(Pen: GpPen; out CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4449. external GdiPlusDll;
  4450.  
  4451. { GdipSetPenMiterLimit(GpPen *pen, REAL miterLimit); }
  4452. function GdipSetPenMiterLimit(Pen: GpPen; MiterLimit: Single): TGPStatus; stdcall;
  4453. external GdiPlusDll;
  4454.  
  4455. { GdipGetPenMiterLimit(GpPen *pen, REAL *miterLimit); }
  4456. function GdipGetPenMiterLimit(Pen: GpPen; out MiterLimit: Single): TGPStatus; stdcall;
  4457. external GdiPlusDll;
  4458.  
  4459. { GdipSetPenMode(GpPen *pen, GpPenAlignment penMode); }
  4460. function GdipSetPenMode(Pen: GpPen; PenMode: TGPPenAlignment): TGPStatus; stdcall;
  4461. external GdiPlusDll;
  4462.  
  4463. { GdipGetPenMode(GpPen *pen, GpPenAlignment *penMode); }
  4464. function GdipGetPenMode(Pen: GpPen; out PenMode: TGPPenAlignment): TGPStatus; stdcall;
  4465. external GdiPlusDll;
  4466.  
  4467. { GdipSetPenTransform(GpPen *pen, GpMatrix *matrix); }
  4468. function GdipSetPenTransform(Pen: GpPen; Matrix: GpMatrix): TGPStatus; stdcall;
  4469. external GdiPlusDll;
  4470.  
  4471. { GdipGetPenTransform(GpPen *pen, GpMatrix *matrix); }
  4472. function GdipGetPenTransform(Pen: GpPen; Matrix: GpMatrix): TGPStatus; stdcall;
  4473. external GdiPlusDll;
  4474.  
  4475. { GdipResetPenTransform(GpPen *pen); }
  4476. function GdipResetPenTransform(Pen: GpPen): TGPStatus; stdcall; external GdiPlusDll;
  4477.  
  4478. { GdipMultiplyPenTransform(GpPen *pen, GDIPCONST GpMatrix *matrix, GpMatrixOrder order); }
  4479. function GdipMultiplyPenTransform(Pen: GpPen; const Matrix: GpMatrix;
  4480. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4481.  
  4482. { GdipTranslatePenTransform(GpPen *pen, REAL dx, REAL dy, GpMatrixOrder order); }
  4483. function GdipTranslatePenTransform(Pen: GpPen; Dx: Single; Dy: Single;
  4484. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4485.  
  4486. { GdipScalePenTransform(GpPen *pen, REAL sx, REAL sy, GpMatrixOrder order); }
  4487. function GdipScalePenTransform(Pen: GpPen; Sx: Single; Sy: Single;
  4488. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  4489.  
  4490. { GdipRotatePenTransform(GpPen *pen, REAL angle, GpMatrixOrder order); }
  4491. function GdipRotatePenTransform(Pen: GpPen; Angle: Single; Order: TGPMatrixOrder): TGPStatus; stdcall;
  4492. external GdiPlusDll;
  4493.  
  4494. { GdipSetPenColor(GpPen *pen, ARGB argb); }
  4495. function GdipSetPenColor(Pen: GpPen; Argb: ARGB): TGPStatus; stdcall; external GdiPlusDll;
  4496.  
  4497. { GdipGetPenColor(GpPen *pen, ARGB *argb); }
  4498. function GdipGetPenColor(Pen: GpPen; out Argb: ARGB): TGPStatus; stdcall;
  4499. external GdiPlusDll;
  4500.  
  4501. { GdipSetPenBrushFill(GpPen *pen, GpBrush *brush); }
  4502. function GdipSetPenBrushFill(Pen: GpPen; Brush: GpBrush): TGPStatus; stdcall;
  4503. external GdiPlusDll;
  4504.  
  4505. { GdipGetPenBrushFill(GpPen *pen, GpBrush **brush); }
  4506. function GdipGetPenBrushFill(Pen: GpPen; out Brush: GpBrush): TGPStatus; stdcall;
  4507. external GdiPlusDll;
  4508.  
  4509. { GdipGetPenFillType(GpPen *pen, GpPenType* type); }
  4510. function GdipGetPenFillType(Pen: GpPen; out AType: TGPPenType): TGPStatus; stdcall;
  4511. external GdiPlusDll;
  4512.  
  4513. { GdipGetPenDashStyle(GpPen *pen, GpDashStyle *dashstyle); }
  4514. function GdipGetPenDashStyle(Pen: GpPen; out Dashstyle: TGPDashStyle): TGPStatus; stdcall;
  4515. external GdiPlusDll;
  4516.  
  4517. { GdipSetPenDashStyle(GpPen *pen, GpDashStyle dashstyle); }
  4518. function GdipSetPenDashStyle(Pen: GpPen; Dashstyle: TGPDashStyle): TGPStatus; stdcall;
  4519. external GdiPlusDll;
  4520.  
  4521. { GdipGetPenDashOffset(GpPen *pen, REAL *offset); }
  4522. function GdipGetPenDashOffset(Pen: GpPen; out Offset: Single): TGPStatus; stdcall;
  4523. external GdiPlusDll;
  4524.  
  4525. { GdipSetPenDashOffset(GpPen *pen, REAL offset); }
  4526. function GdipSetPenDashOffset(Pen: GpPen; Offset: Single): TGPStatus; stdcall;
  4527. external GdiPlusDll;
  4528.  
  4529. { GdipGetPenDashCount(GpPen *pen, INT *count); }
  4530. function GdipGetPenDashCount(Pen: GpPen; out Count: Integer): TGPStatus; stdcall;
  4531. external GdiPlusDll;
  4532.  
  4533. { GdipSetPenDashArray(GpPen *pen, GDIPCONST REAL *dash, INT count); }
  4534. function GdipSetPenDashArray(Pen: GpPen; const Dash: PSingle; Count: Integer): TGPStatus; stdcall;
  4535. external GdiPlusDll;
  4536.  
  4537. { GdipGetPenDashArray(GpPen *pen, REAL *dash, INT count); }
  4538. function GdipGetPenDashArray(Pen: GpPen; Dash: PSingle; Count: Integer): TGPStatus; stdcall;
  4539. external GdiPlusDll;
  4540.  
  4541. { GdipGetPenCompoundCount(GpPen *pen, INT *count); }
  4542. function GdipGetPenCompoundCount(Pen: GpPen; out Count: Integer): TGPStatus; stdcall;
  4543. external GdiPlusDll;
  4544.  
  4545. { GdipSetPenCompoundArray(GpPen *pen, GDIPCONST REAL *dash, INT count); }
  4546. function GdipSetPenCompoundArray(Pen: GpPen; const Dash: PSingle;
  4547. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4548.  
  4549. { GdipGetPenCompoundArray(GpPen *pen, REAL *dash, INT count); }
  4550. function GdipGetPenCompoundArray(Pen: GpPen; Dash: PSingle; Count: Integer): TGPStatus; stdcall;
  4551. external GdiPlusDll;
  4552.  
  4553. //----------------------------------------------------------------------------
  4554. // CustomLineCap APIs
  4555. //----------------------------------------------------------------------------
  4556.  
  4557. { GdipCreateCustomLineCap(GpPath* fillPath, GpPath* strokePath, GpLineCap baseCap, REAL baseInset, GpCustomLineCap **customCap); }
  4558. function GdipCreateCustomLineCap(FillPath: GpPath; StrokePath: GpPath;
  4559. BaseCap: TGPLineCap; BaseInset: Single; out CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4560. external GdiPlusDll;
  4561.  
  4562. { GdipDeleteCustomLineCap(GpCustomLineCap* customCap); }
  4563. function GdipDeleteCustomLineCap(CustomCap: GpCustomLineCap): TGPStatus; stdcall;
  4564. external GdiPlusDll;
  4565.  
  4566. { GdipCloneCustomLineCap(GpCustomLineCap* customCap, GpCustomLineCap** clonedCap); }
  4567. function GdipCloneCustomLineCap(CustomCap: GpCustomLineCap;
  4568. out ClonedCap: GpCustomLineCap): TGPStatus; stdcall; external GdiPlusDll;
  4569.  
  4570. { GdipGetCustomLineCapType(GpCustomLineCap* customCap, CustomLineCapType* capType); }
  4571. function GdipGetCustomLineCapType(CustomCap: GpCustomLineCap;
  4572. out CapType: TGPCustomLineCapType): TGPStatus; stdcall; external GdiPlusDll;
  4573.  
  4574. { GdipSetCustomLineCapStrokeCaps(GpCustomLineCap* customCap, GpLineCap startCap, GpLineCap endCap); }
  4575. function GdipSetCustomLineCapStrokeCaps(CustomCap: GpCustomLineCap;
  4576. StartCap: TGPLineCap; EndCap: TGPLineCap): TGPStatus; stdcall; external GdiPlusDll;
  4577.  
  4578. { GdipGetCustomLineCapStrokeCaps(GpCustomLineCap* customCap, GpLineCap* startCap, GpLineCap* endCap); }
  4579. function GdipGetCustomLineCapStrokeCaps(CustomCap: GpCustomLineCap;
  4580. out StartCap: TGPLineCap; out EndCap: TGPLineCap): TGPStatus; stdcall; external GdiPlusDll;
  4581.  
  4582. { GdipSetCustomLineCapStrokeJoin(GpCustomLineCap* customCap, GpLineJoin lineJoin); }
  4583. function GdipSetCustomLineCapStrokeJoin(CustomCap: GpCustomLineCap;
  4584. LineJoin: TGPLineJoin): TGPStatus; stdcall; external GdiPlusDll;
  4585.  
  4586. { GdipGetCustomLineCapStrokeJoin(GpCustomLineCap* customCap, GpLineJoin* lineJoin); }
  4587. function GdipGetCustomLineCapStrokeJoin(CustomCap: GpCustomLineCap;
  4588. out LineJoin: TGPLineJoin): TGPStatus; stdcall; external GdiPlusDll;
  4589.  
  4590. { GdipSetCustomLineCapBaseCap(GpCustomLineCap* customCap, GpLineCap baseCap); }
  4591. function GdipSetCustomLineCapBaseCap(CustomCap: GpCustomLineCap;
  4592. BaseCap: TGPLineCap): TGPStatus; stdcall; external GdiPlusDll;
  4593.  
  4594. { GdipGetCustomLineCapBaseCap(GpCustomLineCap* customCap, GpLineCap* baseCap); }
  4595. function GdipGetCustomLineCapBaseCap(CustomCap: GpCustomLineCap;
  4596. out BaseCap: TGPLineCap): TGPStatus; stdcall; external GdiPlusDll;
  4597.  
  4598. { GdipSetCustomLineCapBaseInset(GpCustomLineCap* customCap, REAL inset); }
  4599. function GdipSetCustomLineCapBaseInset(CustomCap: GpCustomLineCap;
  4600. Inset: Single): TGPStatus; stdcall; external GdiPlusDll;
  4601.  
  4602. { GdipGetCustomLineCapBaseInset(GpCustomLineCap* customCap, REAL* inset); }
  4603. function GdipGetCustomLineCapBaseInset(CustomCap: GpCustomLineCap;
  4604. out Inset: Single): TGPStatus; stdcall; external GdiPlusDll;
  4605.  
  4606. { GdipSetCustomLineCapWidthScale(GpCustomLineCap* customCap, REAL widthScale); }
  4607. function GdipSetCustomLineCapWidthScale(CustomCap: GpCustomLineCap;
  4608. WidthScale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4609.  
  4610. { GdipGetCustomLineCapWidthScale(GpCustomLineCap* customCap, REAL* widthScale); }
  4611. function GdipGetCustomLineCapWidthScale(CustomCap: GpCustomLineCap;
  4612. out WidthScale: Single): TGPStatus; stdcall; external GdiPlusDll;
  4613.  
  4614. //----------------------------------------------------------------------------
  4615. // AdjustableArrowCap APIs
  4616. //----------------------------------------------------------------------------
  4617.  
  4618. { GdipCreateAdjustableArrowCap(REAL height, REAL width, BOOL isFilled, GpAdjustableArrowCap **cap); }
  4619. function GdipCreateAdjustableArrowCap(Height: Single; Width: Single;
  4620. IsFilled: Bool; out Cap: GpAdjustableArrowCap): TGPStatus; stdcall; external GdiPlusDll;
  4621.  
  4622. { GdipSetAdjustableArrowCapHeight(GpAdjustableArrowCap* cap, REAL height); }
  4623. function GdipSetAdjustableArrowCapHeight(Cap: GpAdjustableArrowCap;
  4624. Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  4625.  
  4626. { GdipGetAdjustableArrowCapHeight(GpAdjustableArrowCap* cap, REAL* height); }
  4627. function GdipGetAdjustableArrowCapHeight(Cap: GpAdjustableArrowCap;
  4628. out Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  4629.  
  4630. { GdipSetAdjustableArrowCapWidth(GpAdjustableArrowCap* cap, REAL width); }
  4631. function GdipSetAdjustableArrowCapWidth(Cap: GpAdjustableArrowCap;
  4632. Width: Single): TGPStatus; stdcall; external GdiPlusDll;
  4633.  
  4634. { GdipGetAdjustableArrowCapWidth(GpAdjustableArrowCap* cap, REAL* width); }
  4635. function GdipGetAdjustableArrowCapWidth(Cap: GpAdjustableArrowCap;
  4636. out Width: Single): TGPStatus; stdcall; external GdiPlusDll;
  4637.  
  4638. { GdipSetAdjustableArrowCapMiddleInset(GpAdjustableArrowCap* cap, REAL middleInset); }
  4639. function GdipSetAdjustableArrowCapMiddleInset(Cap: GpAdjustableArrowCap;
  4640. MiddleInset: Single): TGPStatus; stdcall; external GdiPlusDll;
  4641.  
  4642. { GdipGetAdjustableArrowCapMiddleInset(GpAdjustableArrowCap* cap, REAL* middleInset); }
  4643. function GdipGetAdjustableArrowCapMiddleInset(Cap: GpAdjustableArrowCap;
  4644. out MiddleInset: Single): TGPStatus; stdcall; external GdiPlusDll;
  4645.  
  4646. { GdipSetAdjustableArrowCapFillState(GpAdjustableArrowCap* cap, BOOL fillState); }
  4647. function GdipSetAdjustableArrowCapFillState(Cap: GpAdjustableArrowCap;
  4648. FillState: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4649.  
  4650. { GdipGetAdjustableArrowCapFillState(GpAdjustableArrowCap* cap, BOOL* fillState); }
  4651. function GdipGetAdjustableArrowCapFillState(Cap: GpAdjustableArrowCap;
  4652. out FillState: Bool): TGPStatus; stdcall; external GdiPlusDll;
  4653.  
  4654. //----------------------------------------------------------------------------
  4655. // Image APIs
  4656. //----------------------------------------------------------------------------
  4657.  
  4658. { GdipLoadImageFromStream(IStream* stream, GpImage **image); }
  4659. function GdipLoadImageFromStream(const Stream: IStream; out Image: GpImage): TGPStatus; stdcall;
  4660. external GdiPlusDll;
  4661.  
  4662. { GdipLoadImageFromFile(GDIPCONST WCHAR* filename, GpImage **image); }
  4663. function GdipLoadImageFromFile(const Filename: PWideChar; out Image: GpImage): TGPStatus; stdcall;
  4664. external GdiPlusDll;
  4665.  
  4666. { GdipLoadImageFromStreamICM(IStream* stream, GpImage **image); }
  4667. function GdipLoadImageFromStreamICM(const Stream: IStream; out Image: GpImage): TGPStatus; stdcall;
  4668. external GdiPlusDll;
  4669.  
  4670. { GdipLoadImageFromFileICM(GDIPCONST WCHAR* filename, GpImage **image); }
  4671. function GdipLoadImageFromFileICM(const Filename: PWideChar; out Image: GpImage): TGPStatus; stdcall;
  4672. external GdiPlusDll;
  4673.  
  4674. { GdipCloneImage(GpImage *image, GpImage **cloneImage); }
  4675. function GdipCloneImage(Image: GpImage; out CloneImage: GpImage): TGPStatus; stdcall;
  4676. external GdiPlusDll;
  4677.  
  4678. { GdipDisposeImage(GpImage *image); }
  4679. function GdipDisposeImage(Image: GpImage): TGPStatus; stdcall; external GdiPlusDll;
  4680.  
  4681. { GdipSaveImageToFile(GpImage *image, GDIPCONST WCHAR* filename, GDIPCONST CLSID* clsidEncoder, GDIPCONST EncoderParameters* encoderParams); }
  4682. function GdipSaveImageToFile(Image: GpImage; const Filename: PWideChar;
  4683. const ClsidEncoder: TGUID; const EncoderParams: PGPNativeEncoderParameters): TGPStatus; stdcall;
  4684. external GdiPlusDll;
  4685.  
  4686. { GdipSaveImageToStream(GpImage *image, IStream* stream, GDIPCONST CLSID* clsidEncoder, GDIPCONST EncoderParameters* encoderParams); }
  4687. function GdipSaveImageToStream(Image: GpImage; const Stream: IStream;
  4688. const ClsidEncoder: TGUID; const EncoderParams: PGPNativeEncoderParameters): TGPStatus; stdcall;
  4689. external GdiPlusDll;
  4690.  
  4691. { GdipSaveAdd(GpImage *image, GDIPCONST EncoderParameters* encoderParams); }
  4692. function GdipSaveAdd(Image: GpImage; const EncoderParams: PGPNativeEncoderParameters): TGPStatus; stdcall;
  4693. external GdiPlusDll;
  4694.  
  4695. { GdipSaveAddImage(GpImage *image, GpImage* newImage, GDIPCONST EncoderParameters* encoderParams); }
  4696. function GdipSaveAddImage(Image: GpImage; NewImage: GpImage;
  4697. const EncoderParams: PGPNativeEncoderParameters): TGPStatus; stdcall; external GdiPlusDll;
  4698.  
  4699. { GdipGetImageGraphicsContext(GpImage *image, GpGraphics **graphics); }
  4700. function GdipGetImageGraphicsContext(Image: GpImage; out Graphics: GpGraphics): TGPStatus; stdcall;
  4701. external GdiPlusDll;
  4702.  
  4703. { GdipGetImageBounds(GpImage *image, GpRectF *srcRect, GpUnit *srcUnit); }
  4704. function GdipGetImageBounds(Image: GpImage; out SrcRect: TGPRectF;
  4705. out SrcUnit: TGPUnit): TGPStatus; stdcall; external GdiPlusDll;
  4706.  
  4707. { GdipGetImageDimension(GpImage *image, REAL *width, REAL *height); }
  4708. function GdipGetImageDimension(Image: GpImage; out Width: Single;
  4709. out Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  4710.  
  4711. { GdipGetImageType(GpImage *image, ImageType *type); }
  4712. function GdipGetImageType(Image: GpImage; out AType: TGPImageType): TGPStatus; stdcall;
  4713. external GdiPlusDll;
  4714.  
  4715. { GdipGetImageWidth(GpImage *image, UINT *width); }
  4716. function GdipGetImageWidth(Image: GpImage; out Width: Cardinal): TGPStatus; stdcall;
  4717. external GdiPlusDll;
  4718.  
  4719. { GdipGetImageHeight(GpImage *image, UINT *height); }
  4720. function GdipGetImageHeight(Image: GpImage; out Height: Cardinal): TGPStatus; stdcall;
  4721. external GdiPlusDll;
  4722.  
  4723. { GdipGetImageHorizontalResolution(GpImage *image, REAL *resolution); }
  4724. function GdipGetImageHorizontalResolution(Image: GpImage; out Resolution: Single): TGPStatus; stdcall;
  4725. external GdiPlusDll;
  4726.  
  4727. { GdipGetImageVerticalResolution(GpImage *image, REAL *resolution); }
  4728. function GdipGetImageVerticalResolution(Image: GpImage; out Resolution: Single): TGPStatus; stdcall;
  4729. external GdiPlusDll;
  4730.  
  4731. { GdipGetImageFlags(GpImage *image, UINT *flags); }
  4732. function GdipGetImageFlags(Image: GpImage; out Flags: TGPImageFlags): TGPStatus; stdcall;
  4733. external GdiPlusDll;
  4734.  
  4735. { GdipGetImageRawFormat(GpImage *image, GUID *format); }
  4736. function GdipGetImageRawFormat(Image: GpImage; out Format: TGUID): TGPStatus; stdcall;
  4737. external GdiPlusDll;
  4738.  
  4739. { GdipGetImagePixelFormat(GpImage *image, PixelFormat *format); }
  4740. function GdipGetImagePixelFormat(Image: GpImage; out Format: TGPPixelFormat): TGPStatus; stdcall;
  4741. external GdiPlusDll;
  4742.  
  4743. { GdipGetImageThumbnail(GpImage *image, UINT thumbWidth, UINT thumbHeight, GpImage **thumbImage, GetThumbnailImageAbort callback, VOID * callbackData); }
  4744. function GdipGetImageThumbnail(Image: GpImage; ThumbWidth: Cardinal;
  4745. ThumbHeight: Cardinal; out ThumbImage: GpImage;
  4746. Callback: TGPGetThumbnailImageAbort; CallbackData: Pointer): TGPStatus; stdcall;
  4747. external GdiPlusDll;
  4748.  
  4749. { GdipGetEncoderParameterListSize(GpImage *image, GDIPCONST CLSID* clsidEncoder, UINT* size); }
  4750. function GdipGetEncoderParameterListSize(Image: GpImage;
  4751. const ClsidEncoder: PGUID; out Size: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4752.  
  4753. { GdipGetEncoderParameterList(GpImage *image, GDIPCONST CLSID* clsidEncoder, UINT size, EncoderParameters* buffer); }
  4754. function GdipGetEncoderParameterList(Image: GpImage; const ClsidEncoder: PGUID;
  4755. Size: Cardinal; Buffer: PGPNativeEncoderParameters): TGPStatus; stdcall; external GdiPlusDll;
  4756.  
  4757. { GdipImageGetFrameDimensionsCount(GpImage* image, UINT* count); }
  4758. function GdipImageGetFrameDimensionsCount(Image: GpImage; out Count: Cardinal): TGPStatus; stdcall;
  4759. external GdiPlusDll;
  4760.  
  4761. { GdipImageGetFrameDimensionsList(GpImage* image, GUID* dimensionIDs, UINT count); }
  4762. function GdipImageGetFrameDimensionsList(Image: GpImage; DimensionIDs: PGUID;
  4763. Count: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4764.  
  4765. { GdipImageGetFrameCount(GpImage *image, GDIPCONST GUID* dimensionID, UINT* count); }
  4766. function GdipImageGetFrameCount(Image: GpImage; const DimensionID: TGUID;
  4767. out Count: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4768.  
  4769. { GdipImageSelectActiveFrame(GpImage *image, GDIPCONST GUID* dimensionID, UINT frameIndex); }
  4770. function GdipImageSelectActiveFrame(Image: GpImage; const DimensionID: TGUID;
  4771. FrameIndex: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4772.  
  4773. { GdipImageRotateFlip(GpImage *image, RotateFlipType rfType); }
  4774. function GdipImageRotateFlip(Image: GpImage; RfType: TGPRotateFlipType): TGPStatus; stdcall;
  4775. external GdiPlusDll;
  4776.  
  4777. { GdipGetImagePalette(GpImage *image, ColorPalette *palette, INT size); }
  4778. function GdipGetImagePalette(Image: GpImage; Palette: PGPNativeColorPalette;
  4779. Size: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4780.  
  4781. { GdipSetImagePalette(GpImage *image, GDIPCONST ColorPalette *palette); }
  4782. function GdipSetImagePalette(Image: GpImage; const Palette: PGPNativeColorPalette): TGPStatus; stdcall;
  4783. external GdiPlusDll;
  4784.  
  4785. { GdipGetImagePaletteSize(GpImage *image, INT *size); }
  4786. function GdipGetImagePaletteSize(Image: GpImage; out Size: Integer): TGPStatus; stdcall;
  4787. external GdiPlusDll;
  4788.  
  4789. { GdipGetPropertyCount(GpImage *image, UINT* numOfProperty); }
  4790. function GdipGetPropertyCount(Image: GpImage; out NumOfProperty: Cardinal): TGPStatus; stdcall;
  4791. external GdiPlusDll;
  4792.  
  4793. { GdipGetPropertyIdList(GpImage *image, UINT numOfProperty, PROPID* list); }
  4794. function GdipGetPropertyIdList(Image: GpImage; NumOfProperty: Cardinal;
  4795. List: PPropID): TGPStatus; stdcall; external GdiPlusDll;
  4796.  
  4797. { GdipGetPropertyItemSize(GpImage *image, PROPID propId, UINT* size); }
  4798. function GdipGetPropertyItemSize(Image: GpImage; PropId: TPropID;
  4799. out Size: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4800.  
  4801. { GdipGetPropertyItem(GpImage *image, PROPID propId,UINT propSize, PropertyItem* buffer); }
  4802. function GdipGetPropertyItem(Image: GpImage; PropId: TPropID;
  4803. PropSize: Cardinal; Buffer: PGPNativePropertyItem): TGPStatus; stdcall; external GdiPlusDll;
  4804.  
  4805. { GdipGetPropertySize(GpImage *image, UINT* totalBufferSize, UINT* numProperties); }
  4806. function GdipGetPropertySize(Image: GpImage; out TotalBufferSize: Cardinal;
  4807. out NumProperties: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4808.  
  4809. { GdipGetAllPropertyItems(GpImage *image, UINT totalBufferSize, UINT numProperties, PropertyItem* allItems); }
  4810. function GdipGetAllPropertyItems(Image: GpImage; TotalBufferSize: Cardinal;
  4811. NumProperties: Cardinal; AllItems: PGPNativePropertyItem): TGPStatus; stdcall;
  4812. external GdiPlusDll;
  4813.  
  4814. { GdipRemovePropertyItem(GpImage *image, PROPID propId); }
  4815. function GdipRemovePropertyItem(Image: GpImage; PropId: TPropID): TGPStatus; stdcall;
  4816. external GdiPlusDll;
  4817.  
  4818. { GdipSetPropertyItem(GpImage *image, GDIPCONST PropertyItem* item); }
  4819. function GdipSetPropertyItem(Image: GpImage; const Item: PGPNativePropertyItem): TGPStatus; stdcall;
  4820. external GdiPlusDll;
  4821.  
  4822. {$IF (GDIPVER >= $0110)}
  4823. { GdipFindFirstImageItem(GpImage *image, ImageItemData* item); }
  4824. function GdipFindFirstImageItem(Image: GpImage; Item: PGPImageItemData): TGPStatus; stdcall;
  4825. external GdiPlusDll;
  4826.  
  4827. { GdipFindNextImageItem(GpImage *image, ImageItemData* item); }
  4828. function GdipFindNextImageItem(Image: GpImage; Item: PGPImageItemData): TGPStatus; stdcall;
  4829. external GdiPlusDll;
  4830.  
  4831. { GdipGetImageItemData(GpImage *image, ImageItemData* item); }
  4832. function GdipGetImageItemData(Image: GpImage; Item: PGPImageItemData): TGPStatus; stdcall;
  4833. external GdiPlusDll;
  4834. {$IFEND}
  4835.  
  4836. { GdipImageForceValidation(GpImage *image); }
  4837. function GdipImageForceValidation(Image: GpImage): TGPStatus; stdcall;
  4838. external GdiPlusDll;
  4839.  
  4840. //----------------------------------------------------------------------------
  4841. // Bitmap APIs
  4842. //----------------------------------------------------------------------------
  4843.  
  4844. { GdipCreateBitmapFromStream(IStream* stream, GpBitmap **bitmap); }
  4845. function GdipCreateBitmapFromStream(const Stream: IStream; out Bitmap: GpBitmap): TGPStatus; stdcall;
  4846. external GdiPlusDll;
  4847.  
  4848. { GdipCreateBitmapFromFile(GDIPCONST WCHAR* filename, GpBitmap **bitmap); }
  4849. function GdipCreateBitmapFromFile(const Filename: PWideChar;
  4850. out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4851.  
  4852. { GdipCreateBitmapFromStreamICM(IStream* stream, GpBitmap **bitmap); }
  4853. function GdipCreateBitmapFromStreamICM(const Stream: IStream;
  4854. out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4855.  
  4856. { GdipCreateBitmapFromFileICM(GDIPCONST WCHAR* filename, GpBitmap **bitmap); }
  4857. function GdipCreateBitmapFromFileICM(const Filename: PWideChar;
  4858. out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4859.  
  4860. { GdipCreateBitmapFromScan0(INT width, INT height, INT stride, PixelFormat format, BYTE* scan0, GpBitmap** bitmap); }
  4861. function GdipCreateBitmapFromScan0(Width: Integer; Height: Integer;
  4862. Stride: Integer; Format: TGPPixelFormat; Scan0: PByte; out Bitmap: GpBitmap): TGPStatus; stdcall;
  4863. external GdiPlusDll;
  4864.  
  4865. { GdipCreateBitmapFromGraphics(INT width, INT height, GpGraphics* target, GpBitmap** bitmap); }
  4866. function GdipCreateBitmapFromGraphics(Width: Integer; Height: Integer;
  4867. Target: GpGraphics; out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4868.  
  4869. { GdipCreateBitmapFromDirectDrawSurface(IDirectDrawSurface7* surface, GpBitmap** bitmap); }
  4870. function GdipCreateBitmapFromDirectDrawSurface(const Surface: IUnknown;
  4871. out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4872.  
  4873. { GdipCreateBitmapFromGdiDib(GDIPCONST BITMAPINFO* gdiBitmapInfo, VOID* gdiBitmapData, GpBitmap** bitmap); }
  4874. function GdipCreateBitmapFromGdiDib(const GdiBitmapInfo: PBitmapInfo;
  4875. GdiBitmapData: Pointer; out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4876.  
  4877. { GdipCreateBitmapFromHBITMAP(HBITMAP hbm, HPALETTE hpal, GpBitmap** bitmap); }
  4878. function GdipCreateBitmapFromHBITMAP(Hbm: HBitmap; Hpal: HPalette;
  4879. out Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4880.  
  4881. { GdipCreateHBITMAPFromBitmap(GpBitmap* bitmap, HBITMAP* hbmReturn, ARGB background); }
  4882. function GdipCreateHBITMAPFromBitmap(Bitmap: GpBitmap; out HbmReturn: HBitmap;
  4883. Background: ARGB): TGPStatus; stdcall; external GdiPlusDll;
  4884.  
  4885. { GdipCreateBitmapFromHICON(HICON hicon, GpBitmap** bitmap); }
  4886. function GdipCreateBitmapFromHICON(Hicon: HIcon; out Bitmap: GpBitmap): TGPStatus; stdcall;
  4887. external GdiPlusDll;
  4888.  
  4889. { GdipCreateHICONFromBitmap(GpBitmap* bitmap, HICON* hbmReturn); }
  4890. function GdipCreateHICONFromBitmap(Bitmap: GpBitmap; out HbmReturn: HIcon): TGPStatus; stdcall;
  4891. external GdiPlusDll;
  4892.  
  4893. { GdipCreateBitmapFromResource(HINSTANCE hInstance, GDIPCONST WCHAR* lpBitmapName, GpBitmap** bitmap); }
  4894. function GdipCreateBitmapFromResource(HInstance: HInst;
  4895. const LpBitmapName: PWideChar; out Bitmap: GpBitmap): TGPStatus; stdcall;
  4896. external GdiPlusDll;
  4897.  
  4898. { GdipCloneBitmapArea(REAL x, REAL y, REAL width, REAL height, PixelFormat format, GpBitmap *srcBitmap, GpBitmap **dstBitmap); }
  4899. function GdipCloneBitmapArea(X: Single; Y: Single; Width: Single;
  4900. Height: Single; Format: TGPPixelFormat; SrcBitmap: GpBitmap;
  4901. out DstBitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4902.  
  4903. { GdipCloneBitmapAreaI(INT x, INT y, INT width, INT height, PixelFormat format, GpBitmap *srcBitmap, GpBitmap **dstBitmap); }
  4904. function GdipCloneBitmapAreaI(X: Integer; Y: Integer; Width: Integer;
  4905. Height: Integer; Format: TGPPixelFormat; SrcBitmap: GpBitmap;
  4906. out DstBitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4907.  
  4908. { GdipBitmapLockBits(GpBitmap* bitmap, GDIPCONST GpRect* rect, UINT flags, PixelFormat format, BitmapData* lockedBitmapData); }
  4909. function GdipBitmapLockBits(Bitmap: GpBitmap; const Rect: PGPRect;
  4910. Flags: TGPImageLockMode; Format: TGPPixelFormat; out LockedBitmapData: TGPBitmapData): TGPStatus; stdcall;
  4911. external GdiPlusDll;
  4912.  
  4913. { GdipBitmapUnlockBits(GpBitmap* bitmap, BitmapData* lockedBitmapData); }
  4914. function GdipBitmapUnlockBits(Bitmap: GpBitmap; const LockedBitmapData: TGPBitmapData): TGPStatus; stdcall;
  4915. external GdiPlusDll;
  4916.  
  4917. { GdipBitmapGetPixel(GpBitmap* bitmap, INT x, INT y, ARGB *color); }
  4918. function GdipBitmapGetPixel(Bitmap: GpBitmap; X: Integer; Y: Integer;
  4919. out Color: ARGB): TGPStatus; stdcall; external GdiPlusDll;
  4920.  
  4921. { GdipBitmapSetPixel(GpBitmap* bitmap, INT x, INT y, ARGB color); }
  4922. function GdipBitmapSetPixel(Bitmap: GpBitmap; X: Integer; Y: Integer;
  4923. Color: ARGB): TGPStatus; stdcall; external GdiPlusDll;
  4924.  
  4925. {$IF (GDIPVER >= $0110)}
  4926. { GdipImageSetAbort( GpImage *pImage, GdiplusAbort *pIAbort ); }
  4927. function GdipImageSetAbort(PImage: GpImage; PIAbort: PGdiplusAbort): TGPStatus; stdcall;
  4928. external GdiPlusDll;
  4929.  
  4930. { GdipGraphicsSetAbort( GpGraphics *pGraphics, GdiplusAbort *pIAbort ); }
  4931. function GdipGraphicsSetAbort(PGraphics: GpGraphics; PIAbort: PGdiplusAbort): TGPStatus; stdcall;
  4932. external GdiPlusDll;
  4933.  
  4934. { GdipBitmapConvertFormat( IN GpBitmap *pInputBitmap, PixelFormat format, DitherType dithertype, PaletteType palettetype, ColorPalette *palette, REAL alphaThresholdPercent ); }
  4935. function GdipBitmapConvertFormat(const InputBitmap: GpBitmap;
  4936. Format: TGPPixelFormat; Dithertype: TGPDitherType; Palettetype: TGPPaletteType;
  4937. Palette: PGPNativeColorPalette; AlphaThresholdPercent: Single): TGPStatus; stdcall;
  4938. external GdiPlusDll;
  4939.  
  4940. { GdipInitializePalette( OUT ColorPalette *palette, PaletteType palettetype, INT optimalColors, BOOL useTransparentColor, GpBitmap *bitmap ); }
  4941. function GdipInitializePalette(const Palette: PGPNativeColorPalette;
  4942. Palettetype: TGPPaletteType; OptimalColors: Integer; UseTransparentColor: Bool;
  4943. Bitmap: GpBitmap): TGPStatus; stdcall; external GdiPlusDll;
  4944.  
  4945. { GdipBitmapApplyEffect( GpBitmap* bitmap, CGpEffect *effect, RECT *roi, BOOL useAuxData, VOID **auxData, INT *auxDataSize ); }
  4946. function GdipBitmapApplyEffect(Bitmap: GpBitmap; Effect: CGpEffect; Roi: Windows.PRect;
  4947. UseAuxData: Bool; out AuxData: Pointer; out AuxDataSize: Integer): TGPStatus; stdcall;
  4948. external GdiPlusDll;
  4949.  
  4950. { GdipBitmapCreateApplyEffect( GpBitmap **inputBitmaps, INT numInputs, CGpEffect *effect, RECT *roi, RECT *outputRect, GpBitmap **outputBitmap, BOOL useAuxData, VOID **auxData, INT *auxDataSize ); }
  4951. function GdipBitmapCreateApplyEffect(const InputBitmaps: PGpBitmap;
  4952. NumInputs: Integer; Effect: CGpEffect; Roi: Windows.PRect; OutputRect: Windows.PRect;
  4953. out OutputBitmap: GpBitmap; UseAuxData: Bool; out AuxData: Pointer;
  4954. out AuxDataSize: Integer): TGPStatus; stdcall; external GdiPlusDll;
  4955.  
  4956. { GdipBitmapGetHistogram( GpBitmap* bitmap, IN HistogramFormat format, IN UINT NumberOfEntries, __out_bcount(sizeof(UINT)*256) UINT *channel0, __out_bcount(sizeof(UINT)*256) UINT *channel1, __out_bcount(sizeof(UINT)*256) UINT *channel2, __out_bcount(sizeof(UINT)*256) UINT *channel3 ); }
  4957. function GdipBitmapGetHistogram(Bitmap: GpBitmap;
  4958. const Format: TGPHistogramFormat; const NumberOfEntries: Cardinal;
  4959. Channel0: PCardinal; Channel1: PCardinal; Channel2: PCardinal;
  4960. Channel3: PCardinal): TGPStatus; stdcall; external GdiPlusDll;
  4961.  
  4962. { GdipBitmapGetHistogramSize( IN HistogramFormat format, OUT UINT *NumberOfEntries ); }
  4963. function GdipBitmapGetHistogramSize(const Format: TGPHistogramFormat;
  4964. out NumberOfEntries: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  4965. {$IFEND}
  4966.  
  4967. { GdipBitmapSetResolution(GpBitmap* bitmap, REAL xdpi, REAL ydpi); }
  4968. function GdipBitmapSetResolution(Bitmap: GpBitmap; Xdpi: Single; Ydpi: Single): TGPStatus; stdcall;
  4969. external GdiPlusDll;
  4970.  
  4971. //----------------------------------------------------------------------------
  4972. // ImageAttributes APIs
  4973. //----------------------------------------------------------------------------
  4974.  
  4975. { GdipCreateImageAttributes(GpImageAttributes **imageattr); }
  4976. function GdipCreateImageAttributes(out Imageattr: GpImageAttributes): TGPStatus; stdcall;
  4977. external GdiPlusDll;
  4978.  
  4979. { GdipCloneImageAttributes(GDIPCONST GpImageAttributes *imageattr, GpImageAttributes **cloneImageattr); }
  4980. function GdipCloneImageAttributes(const Imageattr: GpImageAttributes;
  4981. out CloneImageattr: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  4982.  
  4983. { GdipDisposeImageAttributes(GpImageAttributes *imageattr); }
  4984. function GdipDisposeImageAttributes(Imageattr: GpImageAttributes): TGPStatus; stdcall;
  4985. external GdiPlusDll;
  4986.  
  4987. { GdipSetImageAttributesToIdentity(GpImageAttributes *imageattr, ColorAdjustType type); }
  4988. function GdipSetImageAttributesToIdentity(Imageattr: GpImageAttributes;
  4989. AType: TGPColorAdjustType): TGPStatus; stdcall; external GdiPlusDll;
  4990.  
  4991. { GdipResetImageAttributes(GpImageAttributes *imageattr, ColorAdjustType type); }
  4992. function GdipResetImageAttributes(Imageattr: GpImageAttributes;
  4993. AType: TGPColorAdjustType): TGPStatus; stdcall; external GdiPlusDll;
  4994.  
  4995. { GdipSetImageAttributesColorMatrix(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, GDIPCONST ColorMatrix* colorMatrix, GDIPCONST ColorMatrix* grayMatrix, ColorMatrixFlags flags); }
  4996. function GdipSetImageAttributesColorMatrix(Imageattr: GpImageAttributes;
  4997. AType: TGPColorAdjustType; EnableFlag: Bool; const ColorMatrix: PGPColorMatrix;
  4998. const GrayMatrix: PGPColorMatrix; Flags: TGPColorMatrixFlags): TGPStatus; stdcall;
  4999. external GdiPlusDll;
  5000.  
  5001. { GdipSetImageAttributesThreshold(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, REAL threshold); }
  5002. function GdipSetImageAttributesThreshold(Imageattr: GpImageAttributes;
  5003. AType: TGPColorAdjustType; EnableFlag: Bool; Threshold: Single): TGPStatus; stdcall;
  5004. external GdiPlusDll;
  5005.  
  5006. { GdipSetImageAttributesGamma(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, REAL gamma); }
  5007. function GdipSetImageAttributesGamma(Imageattr: GpImageAttributes;
  5008. AType: TGPColorAdjustType; EnableFlag: Bool; Gamma: Single): TGPStatus; stdcall;
  5009. external GdiPlusDll;
  5010.  
  5011. { GdipSetImageAttributesNoOp(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag); }
  5012. function GdipSetImageAttributesNoOp(Imageattr: GpImageAttributes;
  5013. AType: TGPColorAdjustType; EnableFlag: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5014.  
  5015. { GdipSetImageAttributesColorKeys(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, ARGB colorLow, ARGB colorHigh); }
  5016. function GdipSetImageAttributesColorKeys(Imageattr: GpImageAttributes;
  5017. AType: TGPColorAdjustType; EnableFlag: Bool; ColorLow: ARGB; ColorHigh: ARGB): TGPStatus; stdcall;
  5018. external GdiPlusDll;
  5019.  
  5020. { GdipSetImageAttributesOutputChannel(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, ColorChannelFlags channelFlags); }
  5021. function GdipSetImageAttributesOutputChannel(Imageattr: GpImageAttributes;
  5022. AType: TGPColorAdjustType; EnableFlag: Bool; ChannelFlags: TGPColorChannelFlags): TGPStatus; stdcall;
  5023. external GdiPlusDll;
  5024.  
  5025. { GdipSetImageAttributesOutputChannelColorProfile(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, GDIPCONST WCHAR *colorProfileFilename); }
  5026. function GdipSetImageAttributesOutputChannelColorProfile(
  5027. Imageattr: GpImageAttributes; AType: TGPColorAdjustType; EnableFlag: Bool;
  5028. const ColorProfileFilename: PWideChar): TGPStatus; stdcall; external GdiPlusDll;
  5029.  
  5030. { GdipSetImageAttributesRemapTable(GpImageAttributes *imageattr, ColorAdjustType type, BOOL enableFlag, UINT mapSize, GDIPCONST ColorMap *map); }
  5031. function GdipSetImageAttributesRemapTable(Imageattr: GpImageAttributes;
  5032. AType: TGPColorAdjustType; EnableFlag: Bool; MapSize: Cardinal;
  5033. const Map: PGPColorMap): TGPStatus; stdcall; external GdiPlusDll;
  5034. { GdipSetImageAttributesWrapMode( GpImageAttributes *imageAttr, WrapMode wrap, ARGB argb, BOOL clamp ); }
  5035. function GdipSetImageAttributesWrapMode(ImageAttr: GpImageAttributes;
  5036. Wrap: TGPWrapMode; Argb: ARGB; Clamp: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5037.  
  5038. { GdipSetImageAttributesICMMode( GpImageAttributes *imageAttr, BOOL on ); }
  5039. function GdipSetImageAttributesICMMode(ImageAttr: GpImageAttributes; Enable: Bool): TGPStatus; stdcall;
  5040. external GdiPlusDll;
  5041.  
  5042. { GdipGetImageAttributesAdjustedPalette( GpImageAttributes *imageAttr, ColorPalette * colorPalette, ColorAdjustType colorAdjustType ); }
  5043. function GdipGetImageAttributesAdjustedPalette(ImageAttr: GpImageAttributes;
  5044. ColorPalette: PGPNativeColorPalette; ColorAdjustType: TGPColorAdjustType): TGPStatus; stdcall;
  5045. external GdiPlusDll;
  5046.  
  5047. //----------------------------------------------------------------------------
  5048. // Graphics APIs
  5049. //----------------------------------------------------------------------------
  5050.  
  5051. { GdipFlush(GpGraphics *graphics, GpFlushIntention intention); }
  5052. function GdipFlush(Graphics: GpGraphics; Intention: TGPFlushIntention): TGPStatus; stdcall;
  5053. external GdiPlusDll;
  5054.  
  5055. { GdipCreateFromHDC(HDC hdc, GpGraphics **graphics); }
  5056. function GdipCreateFromHDC(Hdc: HDC; out Graphics: GpGraphics): TGPStatus; stdcall;
  5057. external GdiPlusDll;
  5058.  
  5059. { GdipCreateFromHDC2(HDC hdc, HANDLE hDevice, GpGraphics **graphics); }
  5060. function GdipCreateFromHDC2(Hdc: HDC; HDevice: THandle;
  5061. out Graphics: GpGraphics): TGPStatus; stdcall; external GdiPlusDll;
  5062.  
  5063. { GdipCreateFromHWND(HWND hwnd, GpGraphics **graphics); }
  5064. function GdipCreateFromHWND(Hwnd: HWnd; out Graphics: GpGraphics): TGPStatus; stdcall;
  5065. external GdiPlusDll;
  5066.  
  5067. { GdipCreateFromHWNDICM(HWND hwnd, GpGraphics **graphics); }
  5068. function GdipCreateFromHWNDICM(Hwnd: HWnd; out Graphics: GpGraphics): TGPStatus; stdcall;
  5069. external GdiPlusDll;
  5070.  
  5071. { GdipDeleteGraphics(GpGraphics *graphics); }
  5072. function GdipDeleteGraphics(Graphics: GpGraphics): TGPStatus; stdcall;
  5073. external GdiPlusDll;
  5074.  
  5075. { GdipGetDC(GpGraphics* graphics, HDC * hdc); }
  5076. function GdipGetDC(Graphics: GpGraphics; out Hdc: HDC): TGPStatus; stdcall;
  5077. external GdiPlusDll;
  5078.  
  5079. { GdipReleaseDC(GpGraphics* graphics, HDC hdc); }
  5080. function GdipReleaseDC(Graphics: GpGraphics; Hdc: HDC): TGPStatus; stdcall;
  5081. external GdiPlusDll;
  5082.  
  5083. { GdipSetCompositingMode(GpGraphics *graphics, CompositingMode compositingMode); }
  5084. function GdipSetCompositingMode(Graphics: GpGraphics;
  5085. CompositingMode: TGPCompositingMode): TGPStatus; stdcall; external GdiPlusDll;
  5086.  
  5087. { GdipGetCompositingMode(GpGraphics *graphics, CompositingMode *compositingMode); }
  5088. function GdipGetCompositingMode(Graphics: GpGraphics;
  5089. out CompositingMode: TGPCompositingMode): TGPStatus; stdcall; external GdiPlusDll;
  5090.  
  5091. { GdipSetRenderingOrigin(GpGraphics *graphics, INT x, INT y); }
  5092. function GdipSetRenderingOrigin(Graphics: GpGraphics; X: Integer; Y: Integer): TGPStatus; stdcall;
  5093. external GdiPlusDll;
  5094.  
  5095. { GdipGetRenderingOrigin(GpGraphics *graphics, INT *x, INT *y); }
  5096. function GdipGetRenderingOrigin(Graphics: GpGraphics; out X: Integer; out Y: Integer): TGPStatus; stdcall;
  5097. external GdiPlusDll;
  5098.  
  5099. { GdipSetCompositingQuality(GpGraphics *graphics, CompositingQuality compositingQuality); }
  5100. function GdipSetCompositingQuality(Graphics: GpGraphics;
  5101. CompositingQuality: TGPCompositingQuality): TGPStatus; stdcall; external GdiPlusDll;
  5102.  
  5103. { GdipGetCompositingQuality(GpGraphics *graphics, CompositingQuality *compositingQuality); }
  5104. function GdipGetCompositingQuality(Graphics: GpGraphics;
  5105. out CompositingQuality: TGPCompositingQuality): TGPStatus; stdcall; external GdiPlusDll;
  5106.  
  5107. { GdipSetSmoothingMode(GpGraphics *graphics, SmoothingMode smoothingMode); }
  5108. function GdipSetSmoothingMode(Graphics: GpGraphics;
  5109. SmoothingMode: TGPSmoothingMode): TGPStatus; stdcall; external GdiPlusDll;
  5110.  
  5111. { GdipGetSmoothingMode(GpGraphics *graphics, SmoothingMode *smoothingMode); }
  5112. function GdipGetSmoothingMode(Graphics: GpGraphics;
  5113. out SmoothingMode: TGPSmoothingMode): TGPStatus; stdcall; external GdiPlusDll;
  5114.  
  5115. { GdipSetPixelOffsetMode(GpGraphics* graphics, PixelOffsetMode pixelOffsetMode); }
  5116. function GdipSetPixelOffsetMode(Graphics: GpGraphics;
  5117. PixelOffsetMode: TGPPixelOffsetMode): TGPStatus; stdcall; external GdiPlusDll;
  5118.  
  5119. { GdipGetPixelOffsetMode(GpGraphics *graphics, PixelOffsetMode *pixelOffsetMode); }
  5120. function GdipGetPixelOffsetMode(Graphics: GpGraphics;
  5121. out PixelOffsetMode: TGPPixelOffsetMode): TGPStatus; stdcall; external GdiPlusDll;
  5122.  
  5123. { GdipSetTextRenderingHint(GpGraphics *graphics, TextRenderingHint mode); }
  5124. function GdipSetTextRenderingHint(Graphics: GpGraphics;
  5125. Mode: TGPTextRenderingHint): TGPStatus; stdcall; external GdiPlusDll;
  5126.  
  5127. { GdipGetTextRenderingHint(GpGraphics *graphics, TextRenderingHint *mode); }
  5128. function GdipGetTextRenderingHint(Graphics: GpGraphics;
  5129. out Mode: TGPTextRenderingHint): TGPStatus; stdcall; external GdiPlusDll;
  5130.  
  5131. { GdipSetTextContrast(GpGraphics *graphics, UINT contrast); }
  5132. function GdipSetTextContrast(Graphics: GpGraphics; Contrast: Integer): TGPStatus; stdcall;
  5133. external GdiPlusDll;
  5134.  
  5135. { GdipGetTextContrast(GpGraphics *graphics, UINT * contrast); }
  5136. function GdipGetTextContrast(Graphics: GpGraphics; out Contrast: Integer): TGPStatus; stdcall;
  5137. external GdiPlusDll;
  5138.  
  5139. { GdipSetInterpolationMode(GpGraphics *graphics, InterpolationMode interpolationMode); }
  5140. function GdipSetInterpolationMode(Graphics: GpGraphics;
  5141. InterpolationMode: TGPInterpolationMode): TGPStatus; stdcall; external GdiPlusDll;
  5142.  
  5143. { GdipGetInterpolationMode(GpGraphics *graphics, InterpolationMode *interpolationMode); }
  5144. function GdipGetInterpolationMode(Graphics: GpGraphics;
  5145. out InterpolationMode: TGPInterpolationMode): TGPStatus; stdcall; external GdiPlusDll;
  5146.  
  5147. { GdipSetWorldTransform(GpGraphics *graphics, GpMatrix *matrix); }
  5148. function GdipSetWorldTransform(Graphics: GpGraphics; Matrix: GpMatrix): TGPStatus; stdcall;
  5149. external GdiPlusDll;
  5150.  
  5151. { GdipResetWorldTransform(GpGraphics *graphics); }
  5152. function GdipResetWorldTransform(Graphics: GpGraphics): TGPStatus; stdcall;
  5153. external GdiPlusDll;
  5154.  
  5155. { GdipMultiplyWorldTransform(GpGraphics *graphics, GDIPCONST GpMatrix *matrix, GpMatrixOrder order); }
  5156. function GdipMultiplyWorldTransform(Graphics: GpGraphics;
  5157. const Matrix: GpMatrix; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  5158.  
  5159. { GdipTranslateWorldTransform(GpGraphics *graphics, REAL dx, REAL dy, GpMatrixOrder order); }
  5160. function GdipTranslateWorldTransform(Graphics: GpGraphics; Dx: Single;
  5161. Dy: Single; Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  5162.  
  5163. { GdipScaleWorldTransform(GpGraphics *graphics, REAL sx, REAL sy, GpMatrixOrder order); }
  5164. function GdipScaleWorldTransform(Graphics: GpGraphics; Sx: Single; Sy: Single;
  5165. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  5166.  
  5167. { GdipRotateWorldTransform(GpGraphics *graphics, REAL angle, GpMatrixOrder order); }
  5168. function GdipRotateWorldTransform(Graphics: GpGraphics; Angle: Single;
  5169. Order: TGPMatrixOrder): TGPStatus; stdcall; external GdiPlusDll;
  5170.  
  5171. { GdipGetWorldTransform(GpGraphics *graphics, GpMatrix *matrix); }
  5172. function GdipGetWorldTransform(Graphics: GpGraphics; Matrix: GpMatrix): TGPStatus; stdcall;
  5173. external GdiPlusDll;
  5174.  
  5175. { GdipResetPageTransform(GpGraphics *graphics); }
  5176. function GdipResetPageTransform(Graphics: GpGraphics): TGPStatus; stdcall;
  5177. external GdiPlusDll;
  5178.  
  5179. { GdipGetPageUnit(GpGraphics *graphics, GpUnit *unit); }
  5180. function GdipGetPageUnit(Graphics: GpGraphics; out AUnit: TGPUnit): TGPStatus; stdcall;
  5181. external GdiPlusDll;
  5182.  
  5183. { GdipGetPageScale(GpGraphics *graphics, REAL *scale); }
  5184. function GdipGetPageScale(Graphics: GpGraphics; out Scale: Single): TGPStatus; stdcall;
  5185. external GdiPlusDll;
  5186.  
  5187. { GdipSetPageUnit(GpGraphics *graphics, GpUnit unit); }
  5188. function GdipSetPageUnit(Graphics: GpGraphics; AUnit: TGPUnit): TGPStatus; stdcall;
  5189. external GdiPlusDll;
  5190.  
  5191. { GdipSetPageScale(GpGraphics *graphics, REAL scale); }
  5192. function GdipSetPageScale(Graphics: GpGraphics; Scale: Single): TGPStatus; stdcall;
  5193. external GdiPlusDll;
  5194.  
  5195. { GdipGetDpiX(GpGraphics *graphics, REAL* dpi); }
  5196. function GdipGetDpiX(Graphics: GpGraphics; out Dpi: Single): TGPStatus; stdcall;
  5197. external GdiPlusDll;
  5198.  
  5199. { GdipGetDpiY(GpGraphics *graphics, REAL* dpi); }
  5200. function GdipGetDpiY(Graphics: GpGraphics; out Dpi: Single): TGPStatus; stdcall;
  5201. external GdiPlusDll;
  5202.  
  5203. { GdipTransformPoints(GpGraphics *graphics, GpCoordinateSpace destSpace, GpCoordinateSpace srcSpace, GpPointF *points, INT count); }
  5204. function GdipTransformPoints(Graphics: GpGraphics; DestSpace: TGPCoordinateSpace;
  5205. SrcSpace: TGPCoordinateSpace; Points: PGPPointF; Count: Integer): TGPStatus; stdcall;
  5206. external GdiPlusDll;
  5207.  
  5208. { GdipTransformPointsI(GpGraphics *graphics, GpCoordinateSpace destSpace, GpCoordinateSpace srcSpace, GpPoint *points, INT count); }
  5209. function GdipTransformPointsI(Graphics: GpGraphics; DestSpace: TGPCoordinateSpace;
  5210. SrcSpace: TGPCoordinateSpace; Points: PGPPoint; Count: Integer): TGPStatus; stdcall;
  5211. external GdiPlusDll;
  5212.  
  5213. { GdipGetNearestColor(GpGraphics *graphics, ARGB* argb); }
  5214. function GdipGetNearestColor(Graphics: GpGraphics; Argb: PARGB): TGPStatus; stdcall;
  5215. external GdiPlusDll;
  5216.  
  5217. // Creates the Win9x Halftone Palette (even on NT) with correct Desktop colors
  5218. function GdipCreateHalftonePalette: HPalette; external GdiPlusDll;
  5219.  
  5220. { GdipDrawLine(GpGraphics *graphics, GpPen *pen, REAL x1, REAL y1, REAL x2, REAL y2); }
  5221. function GdipDrawLine(Graphics: GpGraphics; Pen: GpPen; X1: Single; Y1: Single;
  5222. X2: Single; Y2: Single): TGPStatus; stdcall; external GdiPlusDll;
  5223.  
  5224. { GdipDrawLineI(GpGraphics *graphics, GpPen *pen, INT x1, INT y1, INT x2, INT y2); }
  5225. function GdipDrawLineI(Graphics: GpGraphics; Pen: GpPen; X1: Integer;
  5226. Y1: Integer; X2: Integer; Y2: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5227.  
  5228. { GdipDrawLines(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count); }
  5229. function GdipDrawLines(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPointF;
  5230. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5231.  
  5232. { GdipDrawLinesI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count); }
  5233. function GdipDrawLinesI(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPoint;
  5234. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5235.  
  5236. { GdipDrawArc(GpGraphics *graphics, GpPen *pen, REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle); }
  5237. function GdipDrawArc(Graphics: GpGraphics; Pen: GpPen; X: Single; Y: Single;
  5238. Width: Single; Height: Single; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  5239. external GdiPlusDll;
  5240.  
  5241. { GdipDrawArcI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); }
  5242. function GdipDrawArcI(Graphics: GpGraphics; Pen: GpPen; X: Integer; Y: Integer;
  5243. Width: Integer; Height: Integer; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  5244. external GdiPlusDll;
  5245.  
  5246. { GdipDrawBezier(GpGraphics *graphics, GpPen *pen, REAL x1, REAL y1, REAL x2, REAL y2, REAL x3, REAL y3, REAL x4, REAL y4); }
  5247. function GdipDrawBezier(Graphics: GpGraphics; Pen: GpPen; X1: Single;
  5248. Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single; X4: Single;
  5249. Y4: Single): TGPStatus; stdcall; external GdiPlusDll;
  5250.  
  5251. { GdipDrawBezierI(GpGraphics *graphics, GpPen *pen, INT x1, INT y1, INT x2, INT y2, INT x3, INT y3, INT x4, INT y4); }
  5252. function GdipDrawBezierI(Graphics: GpGraphics; Pen: GpPen; X1: Integer;
  5253. Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer; X4: Integer;
  5254. Y4: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5255.  
  5256. { GdipDrawBeziers(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count); }
  5257. function GdipDrawBeziers(Graphics: GpGraphics; Pen: GpPen;
  5258. const Points: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5259.  
  5260. { GdipDrawBeziersI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count); }
  5261. function GdipDrawBeziersI(Graphics: GpGraphics; Pen: GpPen;
  5262. const Points: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5263.  
  5264. { GdipDrawRectangle(GpGraphics *graphics, GpPen *pen, REAL x, REAL y, REAL width, REAL height); }
  5265. function GdipDrawRectangle(Graphics: GpGraphics; Pen: GpPen; X: Single;
  5266. Y: Single; Width: Single; Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5267.  
  5268. { GdipDrawRectangleI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height); }
  5269. function GdipDrawRectangleI(Graphics: GpGraphics; Pen: GpPen; X: Integer;
  5270. Y: Integer; Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5271.  
  5272. { GdipDrawRectangles(GpGraphics *graphics, GpPen *pen, GDIPCONST GpRectF *rects, INT count); }
  5273. function GdipDrawRectangles(Graphics: GpGraphics; Pen: GpPen;
  5274. const Rects: PGPRectF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5275.  
  5276. { GdipDrawRectanglesI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpRect *rects, INT count); }
  5277. function GdipDrawRectanglesI(Graphics: GpGraphics; Pen: GpPen;
  5278. const Rects: PGPRect; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5279.  
  5280. { GdipDrawEllipse(GpGraphics *graphics, GpPen *pen, REAL x, REAL y, REAL width, REAL height); }
  5281. function GdipDrawEllipse(Graphics: GpGraphics; Pen: GpPen; X: Single; Y: Single;
  5282. Width: Single; Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5283.  
  5284. { GdipDrawEllipseI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height); }
  5285. function GdipDrawEllipseI(Graphics: GpGraphics; Pen: GpPen; X: Integer;
  5286. Y: Integer; Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5287.  
  5288. { GdipDrawPie(GpGraphics *graphics, GpPen *pen, REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle); }
  5289. function GdipDrawPie(Graphics: GpGraphics; Pen: GpPen; X: Single; Y: Single;
  5290. Width: Single; Height: Single; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  5291. external GdiPlusDll;
  5292.  
  5293. { GdipDrawPieI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); }
  5294. function GdipDrawPieI(Graphics: GpGraphics; Pen: GpPen; X: Integer; Y: Integer;
  5295. Width: Integer; Height: Integer; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  5296. external GdiPlusDll;
  5297.  
  5298. { GdipDrawPolygon(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count); }
  5299. function GdipDrawPolygon(Graphics: GpGraphics; Pen: GpPen;
  5300. const Points: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5301.  
  5302. { GdipDrawPolygonI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count); }
  5303. function GdipDrawPolygonI(Graphics: GpGraphics; Pen: GpPen;
  5304. const Points: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5305.  
  5306. { GdipDrawPath(GpGraphics *graphics, GpPen *pen, GpPath *path); }
  5307. function GdipDrawPath(Graphics: GpGraphics; Pen: GpPen; Path: GpPath): TGPStatus; stdcall;
  5308. external GdiPlusDll;
  5309.  
  5310. { GdipDrawCurve(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count); }
  5311. function GdipDrawCurve(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPointF;
  5312. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5313.  
  5314. { GdipDrawCurveI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count); }
  5315. function GdipDrawCurveI(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPoint;
  5316. Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5317.  
  5318. { GdipDrawCurve2(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count, REAL tension); }
  5319. function GdipDrawCurve2(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPointF;
  5320. Count: Integer; Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  5321.  
  5322. { GdipDrawCurve2I(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count, REAL tension); }
  5323. function GdipDrawCurve2I(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPoint;
  5324. Count: Integer; Tension: Single): TGPStatus; stdcall; external GdiPlusDll;
  5325.  
  5326. { GdipDrawCurve3(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count, INT offset, INT numberOfSegments, REAL tension); }
  5327. function GdipDrawCurve3(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPointF;
  5328. Count: Integer; Offset: Integer; NumberOfSegments: Integer; Tension: Single): TGPStatus; stdcall;
  5329. external GdiPlusDll;
  5330.  
  5331. { GdipDrawCurve3I(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count, INT offset, INT numberOfSegments, REAL tension); }
  5332. function GdipDrawCurve3I(Graphics: GpGraphics; Pen: GpPen; const Points: PGPPoint;
  5333. Count: Integer; Offset: Integer; NumberOfSegments: Integer; Tension: Single): TGPStatus; stdcall;
  5334. external GdiPlusDll;
  5335.  
  5336. { GdipDrawClosedCurve(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count); }
  5337. function GdipDrawClosedCurve(Graphics: GpGraphics; Pen: GpPen;
  5338. const Points: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5339.  
  5340. { GdipDrawClosedCurveI(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count); }
  5341. function GdipDrawClosedCurveI(Graphics: GpGraphics; Pen: GpPen;
  5342. const Points: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5343.  
  5344. { GdipDrawClosedCurve2(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPointF *points, INT count, REAL tension); }
  5345. function GdipDrawClosedCurve2(Graphics: GpGraphics; Pen: GpPen;
  5346. const Points: PGPPointF; Count: Integer; Tension: Single): TGPStatus; stdcall;
  5347. external GdiPlusDll;
  5348.  
  5349. { GdipDrawClosedCurve2I(GpGraphics *graphics, GpPen *pen, GDIPCONST GpPoint *points, INT count, REAL tension); }
  5350. function GdipDrawClosedCurve2I(Graphics: GpGraphics; Pen: GpPen;
  5351. const Points: PGPPoint; Count: Integer; Tension: Single): TGPStatus; stdcall;
  5352. external GdiPlusDll;
  5353.  
  5354. { GdipGraphicsClear(GpGraphics *graphics, ARGB color); }
  5355. function GdipGraphicsClear(Graphics: GpGraphics; Color: ARGB): TGPStatus; stdcall;
  5356. external GdiPlusDll;
  5357.  
  5358. { GdipFillRectangle(GpGraphics *graphics, GpBrush *brush, REAL x, REAL y, REAL width, REAL height); }
  5359. function GdipFillRectangle(Graphics: GpGraphics; Brush: GpBrush; X: Single;
  5360. Y: Single; Width: Single; Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5361.  
  5362. { GdipFillRectangleI(GpGraphics *graphics, GpBrush *brush, INT x, INT y, INT width, INT height); }
  5363. function GdipFillRectangleI(Graphics: GpGraphics; Brush: GpBrush; X: Integer;
  5364. Y: Integer; Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5365.  
  5366. { GdipFillRectangles(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpRectF *rects, INT count); }
  5367. function GdipFillRectangles(Graphics: GpGraphics; Brush: GpBrush;
  5368. const Rects: PGPRectF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5369.  
  5370. { GdipFillRectanglesI(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpRect *rects, INT count); }
  5371. function GdipFillRectanglesI(Graphics: GpGraphics; Brush: GpBrush;
  5372. const Rects: PGPRect; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5373.  
  5374. { GdipFillPolygon(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPointF *points, INT count, GpFillMode fillMode); }
  5375. function GdipFillPolygon(Graphics: GpGraphics; Brush: GpBrush;
  5376. const Points: PGPPointF; Count: Integer; FillMode: TGPFillMode): TGPStatus; stdcall;
  5377. external GdiPlusDll;
  5378.  
  5379. { GdipFillPolygonI(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPoint *points, INT count, GpFillMode fillMode); }
  5380. function GdipFillPolygonI(Graphics: GpGraphics; Brush: GpBrush;
  5381. const Points: PGPPoint; Count: Integer; FillMode: TGPFillMode): TGPStatus; stdcall;
  5382. external GdiPlusDll;
  5383.  
  5384. { GdipFillPolygon2(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPointF *points, INT count); }
  5385. function GdipFillPolygon2(Graphics: GpGraphics; Brush: GpBrush;
  5386. const Points: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5387.  
  5388. { GdipFillPolygon2I(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPoint *points, INT count); }
  5389. function GdipFillPolygon2I(Graphics: GpGraphics; Brush: GpBrush;
  5390. const Points: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5391.  
  5392. { GdipFillEllipse(GpGraphics *graphics, GpBrush *brush, REAL x, REAL y, REAL width, REAL height); }
  5393. function GdipFillEllipse(Graphics: GpGraphics; Brush: GpBrush; X: Single;
  5394. Y: Single; Width: Single; Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5395.  
  5396. { GdipFillEllipseI(GpGraphics *graphics, GpBrush *brush, INT x, INT y, INT width, INT height); }
  5397. function GdipFillEllipseI(Graphics: GpGraphics; Brush: GpBrush; X: Integer;
  5398. Y: Integer; Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5399.  
  5400. { GdipFillPie(GpGraphics *graphics, GpBrush *brush, REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle); }
  5401. function GdipFillPie(Graphics: GpGraphics; Brush: GpBrush; X: Single; Y: Single;
  5402. Width: Single; Height: Single; StartAngle: Single; SweepAngle: Single): TGPStatus; stdcall;
  5403. external GdiPlusDll;
  5404.  
  5405. { GdipFillPieI(GpGraphics *graphics, GpBrush *brush, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); }
  5406. function GdipFillPieI(Graphics: GpGraphics; Brush: GpBrush; X: Integer;
  5407. Y: Integer; Width: Integer; Height: Integer; StartAngle: Single;
  5408. SweepAngle: Single): TGPStatus; stdcall; external GdiPlusDll;
  5409.  
  5410. { GdipFillPath(GpGraphics *graphics, GpBrush *brush, GpPath *path); }
  5411. function GdipFillPath(Graphics: GpGraphics; Brush: GpBrush; Path: GpPath): TGPStatus; stdcall;
  5412. external GdiPlusDll;
  5413.  
  5414. { GdipFillClosedCurve(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPointF *points, INT count); }
  5415. function GdipFillClosedCurve(Graphics: GpGraphics; Brush: GpBrush;
  5416. const Points: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5417.  
  5418. { GdipFillClosedCurveI(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPoint *points, INT count); }
  5419. function GdipFillClosedCurveI(Graphics: GpGraphics; Brush: GpBrush;
  5420. const Points: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5421.  
  5422. { GdipFillClosedCurve2(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPointF *points, INT count, REAL tension, GpFillMode fillMode); }
  5423. function GdipFillClosedCurve2(Graphics: GpGraphics; Brush: GpBrush;
  5424. const Points: PGPPointF; Count: Integer; Tension: Single; FillMode: TGPFillMode): TGPStatus; stdcall;
  5425. external GdiPlusDll;
  5426.  
  5427. { GdipFillClosedCurve2I(GpGraphics *graphics, GpBrush *brush, GDIPCONST GpPoint *points, INT count, REAL tension, GpFillMode fillMode); }
  5428. function GdipFillClosedCurve2I(Graphics: GpGraphics; Brush: GpBrush;
  5429. const Points: PGPPoint; Count: Integer; Tension: Single; FillMode: TGPFillMode): TGPStatus; stdcall;
  5430. external GdiPlusDll;
  5431.  
  5432. { GdipFillRegion(GpGraphics *graphics, GpBrush *brush, GpRegion *region); }
  5433. function GdipFillRegion(Graphics: GpGraphics; Brush: GpBrush; Region: GpRegion): TGPStatus; stdcall;
  5434. external GdiPlusDll;
  5435.  
  5436. {$IF (GDIPVER >= $0110)}
  5437. { GdipDrawImageFX( GpGraphics *graphics, GpImage *image, GpRectF *source, GpMatrix *xForm, CGpEffect *effect, GpImageAttributes *imageAttributes, GpUnit srcUnit ); }
  5438. function GdipDrawImageFX(Graphics: GpGraphics; Image: GpImage; Source: PGPRectF;
  5439. XForm: GpMatrix; Effect: CGpEffect; ImageAttributes: GpImageAttributes;
  5440. SrcUnit: TGPUnit): TGPStatus; stdcall; external GdiPlusDll;
  5441. {$IFEND}
  5442.  
  5443. { GdipDrawImage(GpGraphics *graphics, GpImage *image, REAL x, REAL y); }
  5444. function GdipDrawImage(Graphics: GpGraphics; Image: GpImage; X: Single;
  5445. Y: Single): TGPStatus; stdcall; external GdiPlusDll;
  5446.  
  5447. { GdipDrawImageI(GpGraphics *graphics, GpImage *image, INT x, INT y); }
  5448. function GdipDrawImageI(Graphics: GpGraphics; Image: GpImage; X: Integer;
  5449. Y: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5450.  
  5451. { GdipDrawImageRect(GpGraphics *graphics, GpImage *image, REAL x, REAL y, REAL width, REAL height); }
  5452. function GdipDrawImageRect(Graphics: GpGraphics; Image: GpImage; X: Single;
  5453. Y: Single; Width: Single; Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5454.  
  5455. { GdipDrawImageRectI(GpGraphics *graphics, GpImage *image, INT x, INT y, INT width, INT height); }
  5456. function GdipDrawImageRectI(Graphics: GpGraphics; Image: GpImage; X: Integer;
  5457. Y: Integer; Width: Integer; Height: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5458.  
  5459. { GdipDrawImagePoints(GpGraphics *graphics, GpImage *image, GDIPCONST GpPointF *dstpoints, INT count); }
  5460. function GdipDrawImagePoints(Graphics: GpGraphics; Image: GpImage;
  5461. const Dstpoints: PGPPointF; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5462.  
  5463. { GdipDrawImagePointsI(GpGraphics *graphics, GpImage *image, GDIPCONST GpPoint *dstpoints, INT count); }
  5464. function GdipDrawImagePointsI(Graphics: GpGraphics; Image: GpImage;
  5465. const Dstpoints: PGPPoint; Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5466.  
  5467. { GdipDrawImagePointRect(GpGraphics *graphics, GpImage *image, REAL x, REAL y, REAL srcx, REAL srcy, REAL srcwidth, REAL srcheight, GpUnit srcUnit); }
  5468. function GdipDrawImagePointRect(Graphics: GpGraphics; Image: GpImage; X: Single;
  5469. Y: Single; Srcx: Single; Srcy: Single; Srcwidth: Single; Srcheight: Single;
  5470. SrcUnit: TGPUnit): TGPStatus; stdcall; external GdiPlusDll;
  5471.  
  5472. { GdipDrawImagePointRectI(GpGraphics *graphics, GpImage *image, INT x, INT y, INT srcx, INT srcy, INT srcwidth, INT srcheight, GpUnit srcUnit); }
  5473. function GdipDrawImagePointRectI(Graphics: GpGraphics; Image: GpImage;
  5474. X: Integer; Y: Integer; Srcx: Integer; Srcy: Integer; Srcwidth: Integer;
  5475. Srcheight: Integer; SrcUnit: TGPUnit): TGPStatus; stdcall; external GdiPlusDll;
  5476.  
  5477. { GdipDrawImageRectRect(GpGraphics *graphics, GpImage *image, REAL dstx, REAL dsty, REAL dstwidth, REAL dstheight, REAL srcx, REAL srcy, REAL srcwidth, REAL srcheight, GpUnit srcUnit, GDIPCONST GpImageAttributes* imageAttributes, DrawImageAbort callback, VOID * callbackData); }
  5478. function GdipDrawImageRectRect(Graphics: GpGraphics; Image: GpImage;
  5479. Dstx: Single; Dsty: Single; Dstwidth: Single; Dstheight: Single; Srcx: Single;
  5480. Srcy: Single; Srcwidth: Single; Srcheight: Single; SrcUnit: TGPUnit;
  5481. const ImageAttributes: GpImageAttributes; Callback: TGPDrawImageAbort;
  5482. CallbackData: Pointer): TGPStatus; stdcall; external GdiPlusDll;
  5483.  
  5484. { GdipDrawImageRectRectI(GpGraphics *graphics, GpImage *image, INT dstx, INT dsty, INT dstwidth, INT dstheight, INT srcx, INT srcy, INT srcwidth, INT srcheight, GpUnit srcUnit, GDIPCONST GpImageAttributes* imageAttributes, DrawImageAbort callback, VOID * callbackData); }
  5485. function GdipDrawImageRectRectI(Graphics: GpGraphics; Image: GpImage;
  5486. Dstx: Integer; Dsty: Integer; Dstwidth: Integer; Dstheight: Integer;
  5487. Srcx: Integer; Srcy: Integer; Srcwidth: Integer; Srcheight: Integer;
  5488. SrcUnit: TGPUnit; const ImageAttributes: GpImageAttributes;
  5489. Callback: TGPDrawImageAbort; CallbackData: Pointer): TGPStatus; stdcall;
  5490. external GdiPlusDll;
  5491.  
  5492. { GdipDrawImagePointsRect(GpGraphics *graphics, GpImage *image, GDIPCONST GpPointF *points, INT count, REAL srcx, REAL srcy, REAL srcwidth, REAL srcheight, GpUnit srcUnit, GDIPCONST GpImageAttributes* imageAttributes, DrawImageAbort callback, VOID * callbackData); }
  5493. function GdipDrawImagePointsRect(Graphics: GpGraphics; Image: GpImage;
  5494. const Points: PGPPointF; Count: Integer; Srcx: Single; Srcy: Single;
  5495. Srcwidth: Single; Srcheight: Single; SrcUnit: TGPUnit;
  5496. const ImageAttributes: GpImageAttributes; Callback: TGPDrawImageAbort;
  5497. CallbackData: Pointer): TGPStatus; stdcall; external GdiPlusDll;
  5498.  
  5499. { GdipDrawImagePointsRectI(GpGraphics *graphics, GpImage *image, GDIPCONST GpPoint *points, INT count, INT srcx, INT srcy, INT srcwidth, INT srcheight, GpUnit srcUnit, GDIPCONST GpImageAttributes* imageAttributes, DrawImageAbort callback, VOID * callbackData); }
  5500. function GdipDrawImagePointsRectI(Graphics: GpGraphics; Image: GpImage;
  5501. const Points: PGPPoint; Count: Integer; Srcx: Integer; Srcy: Integer;
  5502. Srcwidth: Integer; Srcheight: Integer; SrcUnit: TGPUnit;
  5503. const ImageAttributes: GpImageAttributes; Callback: TGPDrawImageAbort;
  5504. CallbackData: Pointer): TGPStatus; stdcall; external GdiPlusDll;
  5505.  
  5506. { GdipEnumerateMetafileDestPoint( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST PointF & destPoint, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5507. function GdipEnumerateMetafileDestPoint(Graphics: GpGraphics;
  5508. const Metafile: GpMetafile; const DestPoint: PGPPointF;
  5509. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5510. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5511.  
  5512. { GdipEnumerateMetafileDestPointI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Point & destPoint, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5513. function GdipEnumerateMetafileDestPointI(Graphics: GpGraphics;
  5514. const Metafile: GpMetafile; const DestPoint: PGPPoint;
  5515. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5516. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5517.  
  5518. { GdipEnumerateMetafileDestRect( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST RectF & destRect, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5519. function GdipEnumerateMetafileDestRect(Graphics: GpGraphics;
  5520. const Metafile: GpMetafile; const DestRect: PGPRectF;
  5521. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5522. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5523.  
  5524. { GdipEnumerateMetafileDestRectI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Rect & destRect, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5525. function GdipEnumerateMetafileDestRectI(Graphics: GpGraphics;
  5526. const Metafile: GpMetafile; const DestRect: PGPRect;
  5527. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5528. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5529.  
  5530. { GdipEnumerateMetafileDestPoints( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST PointF * destPoints, INT count, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5531. function GdipEnumerateMetafileDestPoints(Graphics: GpGraphics;
  5532. const Metafile: GpMetafile; const DestPoints: PGPPointF; Count: Integer;
  5533. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5534. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5535.  
  5536. { GdipEnumerateMetafileDestPointsI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Point * destPoints, INT count, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5537. function GdipEnumerateMetafileDestPointsI(Graphics: GpGraphics;
  5538. const Metafile: GpMetafile; const DestPoints: PGPPoint; Count: Integer;
  5539. Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5540. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5541.  
  5542. { GdipEnumerateMetafileSrcRectDestPoint( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST PointF & destPoint, GDIPCONST RectF & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5543. function GdipEnumerateMetafileSrcRectDestPoint(Graphics: GpGraphics;
  5544. const Metafile: GpMetafile; const DestPoint: PGPPointF; const SrcRect: PGPRectF;
  5545. SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5546. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5547.  
  5548. { GdipEnumerateMetafileSrcRectDestPointI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Point & destPoint, GDIPCONST Rect & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5549. function GdipEnumerateMetafileSrcRectDestPointI(Graphics: GpGraphics;
  5550. const Metafile: GpMetafile; const DestPoint: PGPPoint; const SrcRect: PGPRect;
  5551. SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5552. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5553.  
  5554. { GdipEnumerateMetafileSrcRectDestRect( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST RectF & destRect, GDIPCONST RectF & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5555. function GdipEnumerateMetafileSrcRectDestRect(Graphics: GpGraphics;
  5556. const Metafile: GpMetafile; const DestRect: PGPRectF; const SrcRect: PGPRectF;
  5557. SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5558. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5559.  
  5560. { GdipEnumerateMetafileSrcRectDestRectI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Rect & destRect, GDIPCONST Rect & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5561. function GdipEnumerateMetafileSrcRectDestRectI(Graphics: GpGraphics;
  5562. const Metafile: GpMetafile; const DestRect: PGPRect; const SrcRect: PGPRect;
  5563. SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc; CallbackData: Pointer;
  5564. const ImageAttributes: GpImageAttributes): TGPStatus; stdcall; external GdiPlusDll;
  5565.  
  5566. { GdipEnumerateMetafileSrcRectDestPoints( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST PointF * destPoints, INT count, GDIPCONST RectF & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5567. function GdipEnumerateMetafileSrcRectDestPoints(Graphics: GpGraphics;
  5568. const Metafile: GpMetafile; const DestPoints: PGPPointF; Count: Integer;
  5569. const SrcRect: PGPRectF; SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc;
  5570. CallbackData: Pointer; const ImageAttributes: GpImageAttributes): TGPStatus; stdcall;
  5571. external GdiPlusDll;
  5572.  
  5573. { GdipEnumerateMetafileSrcRectDestPointsI( GpGraphics * graphics, GDIPCONST GpMetafile * metafile, GDIPCONST Point * destPoints, INT count, GDIPCONST Rect & srcRect, Unit srcUnit, EnumerateMetafileProc callback, VOID * callbackData, GDIPCONST GpImageAttributes * imageAttributes ); }
  5574. function GdipEnumerateMetafileSrcRectDestPointsI(Graphics: GpGraphics;
  5575. const Metafile: GpMetafile; const DestPoints: PGPPoint; Count: Integer;
  5576. const SrcRect: PGPRect; SrcUnit: TGPUnit; Callback: TGPEnumerateMetafileProc;
  5577. CallbackData: Pointer; const ImageAttributes: GpImageAttributes): TGPStatus; stdcall;
  5578. external GdiPlusDll;
  5579.  
  5580. { GdipPlayMetafileRecord( GDIPCONST GpMetafile * metafile, EmfPlusRecordType recordType, UINT flags, UINT dataSize, GDIPCONST BYTE * data ); }
  5581. function GdipPlayMetafileRecord(const Metafile: GpMetafile;
  5582. RecordType: TEmfPlusRecordType; Flags: Cardinal; DataSize: Cardinal;
  5583. const Data: PByte): TGPStatus; stdcall; external GdiPlusDll;
  5584.  
  5585. { GdipSetClipGraphics(GpGraphics *graphics, GpGraphics *srcgraphics, CombineMode combineMode); }
  5586. function GdipSetClipGraphics(Graphics: GpGraphics; Srcgraphics: GpGraphics;
  5587. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  5588.  
  5589. { GdipSetClipRect(GpGraphics *graphics, REAL x, REAL y, REAL width, REAL height, CombineMode combineMode); }
  5590. function GdipSetClipRect(Graphics: GpGraphics; X: Single; Y: Single;
  5591. Width: Single; Height: Single; CombineMode: TGPCombineMode): TGPStatus; stdcall;
  5592. external GdiPlusDll;
  5593.  
  5594. { GdipSetClipRectI(GpGraphics *graphics, INT x, INT y, INT width, INT height, CombineMode combineMode); }
  5595. function GdipSetClipRectI(Graphics: GpGraphics; X: Integer; Y: Integer;
  5596. Width: Integer; Height: Integer; CombineMode: TGPCombineMode): TGPStatus; stdcall;
  5597. external GdiPlusDll;
  5598.  
  5599. { GdipSetClipPath(GpGraphics *graphics, GpPath *path, CombineMode combineMode); }
  5600. function GdipSetClipPath(Graphics: GpGraphics; Path: GpPath;
  5601. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  5602.  
  5603. { GdipSetClipRegion(GpGraphics *graphics, GpRegion *region, CombineMode combineMode); }
  5604. function GdipSetClipRegion(Graphics: GpGraphics; Region: GpRegion;
  5605. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  5606.  
  5607. { GdipSetClipHrgn(GpGraphics *graphics, HRGN hRgn, CombineMode combineMode); }
  5608. function GdipSetClipHrgn(Graphics: GpGraphics; HRgn: HRGN;
  5609. CombineMode: TGPCombineMode): TGPStatus; stdcall; external GdiPlusDll;
  5610.  
  5611. { GdipResetClip(GpGraphics *graphics); }
  5612. function GdipResetClip(Graphics: GpGraphics): TGPStatus; stdcall; external GdiPlusDll;
  5613.  
  5614. { GdipTranslateClip(GpGraphics *graphics, REAL dx, REAL dy); }
  5615. function GdipTranslateClip(Graphics: GpGraphics; Dx: Single; Dy: Single): TGPStatus; stdcall;
  5616. external GdiPlusDll;
  5617.  
  5618. { GdipTranslateClipI(GpGraphics *graphics, INT dx, INT dy); }
  5619. function GdipTranslateClipI(Graphics: GpGraphics; Dx: Integer; Dy: Integer): TGPStatus; stdcall;
  5620. external GdiPlusDll;
  5621.  
  5622. { GdipGetClip(GpGraphics *graphics, GpRegion *region); }
  5623. function GdipGetClip(Graphics: GpGraphics; Region: GpRegion): TGPStatus; stdcall;
  5624. external GdiPlusDll;
  5625.  
  5626. { GdipGetClipBounds(GpGraphics *graphics, GpRectF *rect); }
  5627. function GdipGetClipBounds(Graphics: GpGraphics; out Rect: TGPRectF): TGPStatus; stdcall;
  5628. external GdiPlusDll;
  5629.  
  5630. { GdipGetClipBoundsI(GpGraphics *graphics, GpRect *rect); }
  5631. function GdipGetClipBoundsI(Graphics: GpGraphics; out Rect: TGPRect): TGPStatus; stdcall;
  5632. external GdiPlusDll;
  5633.  
  5634. { GdipIsClipEmpty(GpGraphics *graphics, BOOL *result); }
  5635. function GdipIsClipEmpty(Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  5636. external GdiPlusDll;
  5637.  
  5638. { GdipGetVisibleClipBounds(GpGraphics *graphics, GpRectF *rect); }
  5639. function GdipGetVisibleClipBounds(Graphics: GpGraphics; out Rect: TGPRectF): TGPStatus; stdcall;
  5640. external GdiPlusDll;
  5641.  
  5642. { GdipGetVisibleClipBoundsI(GpGraphics *graphics, GpRect *rect); }
  5643. function GdipGetVisibleClipBoundsI(Graphics: GpGraphics; out Rect: TGPRect): TGPStatus; stdcall;
  5644. external GdiPlusDll;
  5645.  
  5646. { GdipIsVisibleClipEmpty(GpGraphics *graphics, BOOL *result); }
  5647. function GdipIsVisibleClipEmpty(Graphics: GpGraphics; out Result: Bool): TGPStatus; stdcall;
  5648. external GdiPlusDll;
  5649.  
  5650. { GdipIsVisiblePoint(GpGraphics *graphics, REAL x, REAL y, BOOL *result); }
  5651. function GdipIsVisiblePoint(Graphics: GpGraphics; X: Single; Y: Single;
  5652. out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5653.  
  5654. { GdipIsVisiblePointI(GpGraphics *graphics, INT x, INT y, BOOL *result); }
  5655. function GdipIsVisiblePointI(Graphics: GpGraphics; X: Integer; Y: Integer;
  5656. out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5657.  
  5658. { GdipIsVisibleRect(GpGraphics *graphics, REAL x, REAL y, REAL width, REAL height, BOOL *result); }
  5659. function GdipIsVisibleRect(Graphics: GpGraphics; X: Single; Y: Single;
  5660. Width: Single; Height: Single; out Result: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5661.  
  5662. { GdipIsVisibleRectI(GpGraphics *graphics, INT x, INT y, INT width, INT height, BOOL *result); }
  5663. function GdipIsVisibleRectI(Graphics: GpGraphics; X: Integer; Y: Integer;
  5664. Width: Integer; Height: Integer; out Result: Bool): TGPStatus; stdcall;
  5665. external GdiPlusDll;
  5666.  
  5667. { GdipSaveGraphics(GpGraphics *graphics, GraphicsState *state); }
  5668. function GdipSaveGraphics(Graphics: GpGraphics; out State: TGPGraphicsState): TGPStatus; stdcall;
  5669. external GdiPlusDll;
  5670.  
  5671. { GdipRestoreGraphics(GpGraphics *graphics, GraphicsState state); }
  5672. function GdipRestoreGraphics(Graphics: GpGraphics; State: TGPGraphicsState): TGPStatus; stdcall;
  5673. external GdiPlusDll;
  5674.  
  5675. { GdipBeginContainer(GpGraphics *graphics, GDIPCONST GpRectF* dstrect, GDIPCONST GpRectF *srcrect, GpUnit unit, GraphicsContainer *state); }
  5676. function GdipBeginContainer(Graphics: GpGraphics; const Dstrect: PGPRectF;
  5677. const Srcrect: PGPRectF; AUnit: TGPUnit; out State: TGPGraphicsContainer): TGPStatus; stdcall;
  5678. external GdiPlusDll;
  5679.  
  5680. { GdipBeginContainerI(GpGraphics *graphics, GDIPCONST GpRect* dstrect, GDIPCONST GpRect *srcrect, GpUnit unit, GraphicsContainer *state); }
  5681. function GdipBeginContainerI(Graphics: GpGraphics; const Dstrect: PGPRect;
  5682. const Srcrect: PGPRect; AUnit: TGPUnit; out State: TGPGraphicsContainer): TGPStatus; stdcall;
  5683. external GdiPlusDll;
  5684.  
  5685. { GdipBeginContainer2(GpGraphics *graphics, GraphicsContainer* state); }
  5686. function GdipBeginContainer2(Graphics: GpGraphics; out State: TGPGraphicsContainer): TGPStatus; stdcall;
  5687. external GdiPlusDll;
  5688.  
  5689. { GdipEndContainer(GpGraphics *graphics, GraphicsContainer state); }
  5690. function GdipEndContainer(Graphics: GpGraphics; State: TGPGraphicsContainer): TGPStatus; stdcall;
  5691. external GdiPlusDll;
  5692.  
  5693. { GdipGetMetafileHeaderFromWmf( HMETAFILE hWmf, GDIPCONST WmfPlaceableFileHeader * wmfPlaceableFileHeader, MetafileHeader * header ); }
  5694. function GdipGetMetafileHeaderFromWmf(HWmf: HMetaFile;
  5695. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader;
  5696. out Header: TGPMetafileHeader): TGPStatus; stdcall; external GdiPlusDll;
  5697.  
  5698. { GdipGetMetafileHeaderFromEmf( HENHMETAFILE hEmf, MetafileHeader * header ); }
  5699. function GdipGetMetafileHeaderFromEmf(HEmf: HEnhMetaFile;
  5700. out Header: TGPMetafileHeader): TGPStatus; stdcall; external GdiPlusDll;
  5701.  
  5702. { GdipGetMetafileHeaderFromFile( GDIPCONST WCHAR* filename, MetafileHeader * header ); }
  5703. function GdipGetMetafileHeaderFromFile(const Filename: PWideChar;
  5704. out Header: TGPMetafileHeader): TGPStatus; stdcall; external GdiPlusDll;
  5705.  
  5706. { GdipGetMetafileHeaderFromStream( IStream * stream, MetafileHeader * header ); }
  5707. function GdipGetMetafileHeaderFromStream(const Stream: IStream;
  5708. out Header: TGPMetafileHeader): TGPStatus; stdcall; external GdiPlusDll;
  5709.  
  5710. { GdipGetMetafileHeaderFromMetafile( GpMetafile * metafile, MetafileHeader * header ); }
  5711. function GdipGetMetafileHeaderFromMetafile(Metafile: GpMetafile;
  5712. out Header: TGPMetafileHeader): TGPStatus; stdcall; external GdiPlusDll;
  5713.  
  5714. { GdipGetHemfFromMetafile( GpMetafile * metafile, HENHMETAFILE * hEmf ); }
  5715. function GdipGetHemfFromMetafile(Metafile: GpMetafile;
  5716. out HEmf: HEnhMetaFile): TGPStatus; stdcall; external GdiPlusDll;
  5717.  
  5718. { GdipCreateStreamOnFile(GDIPCONST WCHAR * filename, UINT access, IStream **stream); }
  5719. function GdipCreateStreamOnFile(const Filename: PWideChar; Access: Cardinal;
  5720. const Stream: IStream): TGPStatus; stdcall; external GdiPlusDll;
  5721.  
  5722. { GdipCreateMetafileFromWmf(HMETAFILE hWmf, BOOL deleteWmf, GDIPCONST WmfPlaceableFileHeader * wmfPlaceableFileHeader, GpMetafile **metafile); }
  5723. function GdipCreateMetafileFromWmf(HWmf: HMetaFile; DeleteWmf: Bool;
  5724. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader;
  5725. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5726.  
  5727. { GdipCreateMetafileFromEmf(HENHMETAFILE hEmf, BOOL deleteEmf, GpMetafile **metafile); }
  5728. function GdipCreateMetafileFromEmf(HEmf: HEnhMetaFile; DeleteEmf: Bool;
  5729. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5730.  
  5731. { GdipCreateMetafileFromFile(GDIPCONST WCHAR* file, GpMetafile **metafile); }
  5732. function GdipCreateMetafileFromFile(const Filename: PWideChar;
  5733. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5734.  
  5735. { GdipCreateMetafileFromWmfFile(GDIPCONST WCHAR* file, GDIPCONST WmfPlaceableFileHeader * wmfPlaceableFileHeader, GpMetafile **metafile); }
  5736. function GdipCreateMetafileFromWmfFile(const Filename: PWideChar;
  5737. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader;
  5738. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5739.  
  5740. { GdipCreateMetafileFromStream(IStream * stream, GpMetafile **metafile); }
  5741. function GdipCreateMetafileFromStream(const Stream: IStream;
  5742. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5743.  
  5744.  
  5745. { GdipRecordMetafile( HDC referenceHdc, EmfType type, GDIPCONST GpRectF * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5746. function GdipRecordMetafile(ReferenceHdc: HDC; AType: TGPEmfType;
  5747. const FrameRect: PGPRectF; FrameUnit: TGPMetafileFrameUnit;
  5748. const Description: PWideChar; out Metafile: GpMetafile): TGPStatus; stdcall;
  5749. external GdiPlusDll;
  5750.  
  5751. { GdipRecordMetafileI( HDC referenceHdc, EmfType type, GDIPCONST GpRect * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5752. function GdipRecordMetafileI(ReferenceHdc: HDC; AType: TGPEmfType;
  5753. const FrameRect: PGPRect; FrameUnit: TGPMetafileFrameUnit;
  5754. const Description: PWideChar; out Metafile: GpMetafile): TGPStatus; stdcall;
  5755. external GdiPlusDll;
  5756.  
  5757. { GdipRecordMetafileFileName( GDIPCONST WCHAR* fileName, HDC referenceHdc, EmfType type, GDIPCONST GpRectF * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5758. function GdipRecordMetafileFileName(const FileName: PWideChar;
  5759. ReferenceHdc: HDC; AType: TGPEmfType; const FrameRect: PGPRectF;
  5760. FrameUnit: TGPMetafileFrameUnit; const Description: PWideChar;
  5761. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5762.  
  5763. { GdipRecordMetafileFileNameI( GDIPCONST WCHAR* fileName, HDC referenceHdc, EmfType type, GDIPCONST GpRect * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5764. function GdipRecordMetafileFileNameI(const FileName: PWideChar;
  5765. ReferenceHdc: HDC; AType: TGPEmfType; const FrameRect: PGPRect;
  5766. FrameUnit: TGPMetafileFrameUnit; const Description: PWideChar;
  5767. out Metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  5768.  
  5769. { GdipRecordMetafileStream( IStream * stream, HDC referenceHdc, EmfType type, GDIPCONST GpRectF * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5770. function GdipRecordMetafileStream(const Stream: IStream; ReferenceHdc: HDC;
  5771. AType: TGPEmfType; const FrameRect: PGPRectF; FrameUnit: TGPMetafileFrameUnit;
  5772. const Description: PWideChar; out Metafile: GpMetafile): TGPStatus; stdcall;
  5773. external GdiPlusDll;
  5774.  
  5775. { GdipRecordMetafileStreamI( IStream * stream, HDC referenceHdc, EmfType type, GDIPCONST GpRect * frameRect, MetafileFrameUnit frameUnit, GDIPCONST WCHAR * description, GpMetafile ** metafile ); }
  5776. function GdipRecordMetafileStreamI(const Stream: IStream; ReferenceHdc: HDC;
  5777. AType: TGPEmfType; const FrameRect: PGPRect; FrameUnit: TGPMetafileFrameUnit;
  5778. const Description: PWideChar; out Metafile: GpMetafile): TGPStatus; stdcall;
  5779. external GdiPlusDll;
  5780.  
  5781. { GdipSetMetafileDownLevelRasterizationLimit( GpMetafile * metafile, UINT metafileRasterizationLimitDpi ); }
  5782. function GdipSetMetafileDownLevelRasterizationLimit(Metafile: GpMetafile;
  5783. MetafileRasterizationLimitDpi: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  5784.  
  5785. { GdipGetMetafileDownLevelRasterizationLimit( GDIPCONST GpMetafile * metafile, UINT * metafileRasterizationLimitDpi ); }
  5786. function GdipGetMetafileDownLevelRasterizationLimit(const Metafile: GpMetafile;
  5787. out MetafileRasterizationLimitDpi: Cardinal): TGPStatus; stdcall; external GdiPlusDll;
  5788.  
  5789. { GdipGetImageDecodersSize(UINT *numDecoders, UINT *size); }
  5790. function GdipGetImageDecodersSize(out NumDecoders: Cardinal; out Size: Cardinal): TGPStatus; stdcall;
  5791. external GdiPlusDll;
  5792.  
  5793. { GdipGetImageDecoders(UINT numDecoders, UINT size, __out_bcount(size) ImageCodecInfo *decoders); }
  5794. function GdipGetImageDecoders(NumDecoders: Cardinal; Size: Cardinal;
  5795. Decoders: PGPNativeImageCodecInfo): TGPStatus; stdcall; external GdiPlusDll;
  5796.  
  5797. { GdipGetImageEncodersSize(UINT *numEncoders, UINT *size); }
  5798. function GdipGetImageEncodersSize(out NumEncoders: Cardinal; out Size: Cardinal): TGPStatus; stdcall;
  5799. external GdiPlusDll;
  5800.  
  5801. { GdipGetImageEncoders(UINT numEncoders, UINT size, __out_bcount(size) ImageCodecInfo *encoders); }
  5802. function GdipGetImageEncoders(NumEncoders: Cardinal; Size: Cardinal;
  5803. Encoders: PGPNativeImageCodecInfo): TGPStatus; stdcall; external GdiPlusDll;
  5804.  
  5805. { GdipComment(GpGraphics* graphics, UINT sizeData, GDIPCONST BYTE * data); }
  5806. function GdipComment(Graphics: GpGraphics; SizeData: Cardinal;
  5807. const Data: PByte): TGPStatus; stdcall; external GdiPlusDll;
  5808.  
  5809. //----------------------------------------------------------------------------
  5810. // FontFamily APIs
  5811. //----------------------------------------------------------------------------
  5812.  
  5813. { GdipCreateFontFamilyFromName(GDIPCONST WCHAR *name, GpFontCollection *fontCollection, GpFontFamily **fontFamily); }
  5814. function GdipCreateFontFamilyFromName(const Name: PWideChar;
  5815. FontCollection: GpFontCollection; out FontFamily: GpFontFamily): TGPStatus; stdcall;
  5816. external GdiPlusDll;
  5817.  
  5818. { GdipDeleteFontFamily(GpFontFamily *fontFamily); }
  5819. function GdipDeleteFontFamily(FontFamily: GpFontFamily): TGPStatus; stdcall;
  5820. external GdiPlusDll;
  5821.  
  5822. { GdipCloneFontFamily(GpFontFamily *fontFamily, GpFontFamily **clonedFontFamily); }
  5823. function GdipCloneFontFamily(FontFamily: GpFontFamily;
  5824. out ClonedFontFamily: GpFontFamily): TGPStatus; stdcall; external GdiPlusDll;
  5825.  
  5826. { GdipGetGenericFontFamilySansSerif(GpFontFamily **nativeFamily); }
  5827. function GdipGetGenericFontFamilySansSerif(out NativeFamily: GpFontFamily): TGPStatus; stdcall;
  5828. external GdiPlusDll;
  5829.  
  5830. { GdipGetGenericFontFamilySerif(GpFontFamily **nativeFamily); }
  5831. function GdipGetGenericFontFamilySerif(out NativeFamily: GpFontFamily): TGPStatus; stdcall;
  5832. external GdiPlusDll;
  5833.  
  5834. { GdipGetGenericFontFamilyMonospace(GpFontFamily **nativeFamily); }
  5835. function GdipGetGenericFontFamilyMonospace(out NativeFamily: GpFontFamily): TGPStatus; stdcall;
  5836. external GdiPlusDll;
  5837.  
  5838.  
  5839. { GdipGetFamilyName( GDIPCONST GpFontFamily *family, __out_ecount(LF_FACESIZE) LPWSTR name, LANGID language ); }
  5840. function GdipGetFamilyName(const Family: GpFontFamily; Name: PWideChar;
  5841. Language: LangID): TGPStatus; stdcall; external GdiPlusDll;
  5842.  
  5843. { GdipIsStyleAvailable(GDIPCONST GpFontFamily *family, INT style, BOOL * IsStyleAvailable); }
  5844. function GdipIsStyleAvailable(const Family: GpFontFamily; Style: TGPFontStyle;
  5845. out IsStyleAvailable: Bool): TGPStatus; stdcall; external GdiPlusDll;
  5846.  
  5847. { GdipFontCollectionEnumerable( GpFontCollection* fontCollection, GpGraphics* graphics, INT * numFound ); }
  5848. function GdipFontCollectionEnumerable(FontCollection: GpFontCollection;
  5849. Graphics: GpGraphics; NumFound: PInteger): TGPStatus; stdcall; external GdiPlusDll;
  5850.  
  5851. { GdipFontCollectionEnumerate( GpFontCollection* fontCollection, INT numSought, GpFontFamily* gpfamilies[], INT* numFound, GpGraphics* graphics ); }
  5852. function GdipFontCollectionEnumerate(FontCollection: GpFontCollection;
  5853. NumSought: Integer; Gpfamilies: PGpFontFamily; NumFound: PInteger;
  5854. Graphics: GpGraphics): TGPStatus; stdcall; external GdiPlusDll;
  5855.  
  5856. { GdipGetEmHeight(GDIPCONST GpFontFamily *family, INT style, UINT16 * EmHeight); }
  5857. function GdipGetEmHeight(const Family: GpFontFamily; Style: TGPFontStyle;
  5858. out EmHeight: UInt16): TGPStatus; stdcall; external GdiPlusDll;
  5859.  
  5860. { GdipGetCellAscent(GDIPCONST GpFontFamily *family, INT style, UINT16 * CellAscent); }
  5861. function GdipGetCellAscent(const Family: GpFontFamily; Style: TGPFontStyle;
  5862. out CellAscent: UInt16): TGPStatus; stdcall; external GdiPlusDll;
  5863.  
  5864. { GdipGetCellDescent(GDIPCONST GpFontFamily *family, INT style, UINT16 * CellDescent); }
  5865. function GdipGetCellDescent(const Family: GpFontFamily; Style: TGPFontStyle;
  5866. out CellDescent: UInt16): TGPStatus; stdcall; external GdiPlusDll;
  5867.  
  5868. { GdipGetLineSpacing(GDIPCONST GpFontFamily *family, INT style, UINT16 * LineSpacing); }
  5869. function GdipGetLineSpacing(const Family: GpFontFamily; Style: TGPFontStyle;
  5870. out LineSpacing: UInt16): TGPStatus; stdcall; external GdiPlusDll;
  5871.  
  5872. //----------------------------------------------------------------------------
  5873. // Font APIs
  5874. //----------------------------------------------------------------------------
  5875.  
  5876. { GdipCreateFontFromDC( HDC hdc, GpFont **font ); }
  5877. function GdipCreateFontFromDC(Hdc: HDC; out Font: GpFont): TGPStatus; stdcall;
  5878. external GdiPlusDll;
  5879.  
  5880. { GdipCreateFontFromLogfontA( HDC hdc, GDIPCONST LOGFONTA *logfont, GpFont **font ); }
  5881. function GdipCreateFontFromLogfontA(Hdc: HDC; const Logfont: PLogFontA;
  5882. out Font: GpFont): TGPStatus; stdcall; external GdiPlusDll;
  5883.  
  5884. { GdipCreateFontFromLogfontW( HDC hdc, GDIPCONST LOGFONTW *logfont, GpFont **font ); }
  5885. function GdipCreateFontFromLogfontW(Hdc: HDC; const Logfont: PLogFontW;
  5886. out Font: GpFont): TGPStatus; stdcall; external GdiPlusDll;
  5887.  
  5888. { GdipCreateFont( GDIPCONST GpFontFamily *fontFamily, REAL emSize, INT style, Unit unit, GpFont **font ); }
  5889. function GdipCreateFont(const FontFamily: GpFontFamily; EmSize: Single;
  5890. Style: TGPFontStyle; MeasureUnit: TGPUnit; out Font: GpFont): TGPStatus; stdcall;
  5891. external GdiPlusDll;
  5892.  
  5893. { GdipCloneFont(GpFont* font, GpFont** cloneFont); }
  5894. function GdipCloneFont(Font: GpFont; out CloneFont: GpFont): TGPStatus; stdcall;
  5895. external GdiPlusDll;
  5896.  
  5897. { GdipDeleteFont(GpFont* font); }
  5898. function GdipDeleteFont(Font: GpFont): TGPStatus; stdcall; external GdiPlusDll;
  5899.  
  5900. { GdipGetFamily(GpFont *font, GpFontFamily **family); }
  5901. function GdipGetFamily(Font: GpFont; out Family: GpFontFamily): TGPStatus; stdcall;
  5902. external GdiPlusDll;
  5903.  
  5904. { GdipGetFontStyle(GpFont *font, INT *style); }
  5905. function GdipGetFontStyle(Font: GpFont; out Style: TGPFontStyle): TGPStatus; stdcall;
  5906. external GdiPlusDll;
  5907.  
  5908. { GdipGetFontSize(GpFont *font, REAL *size); }
  5909. function GdipGetFontSize(Font: GpFont; out Size: Single): TGPStatus; stdcall;
  5910. external GdiPlusDll;
  5911.  
  5912. { GdipGetFontUnit(GpFont *font, Unit *unit); }
  5913. function GdipGetFontUnit(Font: GpFont; out MeasureUnit: TGPUnit): TGPStatus; stdcall;
  5914. external GdiPlusDll;
  5915.  
  5916. { GdipGetFontHeight(GDIPCONST GpFont *font, GDIPCONST GpGraphics *graphics, REAL *height); }
  5917. function GdipGetFontHeight(const Font: GpFont; const Graphics: GpGraphics;
  5918. out Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5919.  
  5920. { GdipGetFontHeightGivenDPI(GDIPCONST GpFont *font, REAL dpi, REAL *height); }
  5921. function GdipGetFontHeightGivenDPI(const Font: GpFont; Dpi: Single;
  5922. out Height: Single): TGPStatus; stdcall; external GdiPlusDll;
  5923.  
  5924. { GdipGetLogFontA(GpFont * font, GpGraphics *graphics, LOGFONTA * logfontA); }
  5925. function GdipGetLogFontA(Font: GpFont; Graphics: GpGraphics;
  5926. out LogfontA: TLogFontA): TGPStatus; stdcall; external GdiPlusDll;
  5927.  
  5928. { GdipGetLogFontW(GpFont * font, GpGraphics *graphics, LOGFONTW * logfontW); }
  5929. function GdipGetLogFontW(Font: GpFont; Graphics: GpGraphics;
  5930. out LogfontW: TLogFontW): TGPStatus; stdcall; external GdiPlusDll;
  5931.  
  5932. { GdipNewInstalledFontCollection(GpFontCollection** fontCollection); }
  5933. function GdipNewInstalledFontCollection(out FontCollection: GpFontCollection): TGPStatus; stdcall;
  5934. external GdiPlusDll;
  5935.  
  5936. { GdipNewPrivateFontCollection(GpFontCollection** fontCollection); }
  5937. function GdipNewPrivateFontCollection(out FontCollection: GpFontCollection): TGPStatus; stdcall;
  5938. external GdiPlusDll;
  5939.  
  5940. { GdipDeletePrivateFontCollection(GpFontCollection** fontCollection); }
  5941. function GdipDeletePrivateFontCollection(out FontCollection: GpFontCollection): TGPStatus; stdcall;
  5942. external GdiPlusDll;
  5943.  
  5944. { GdipGetFontCollectionFamilyCount( GpFontCollection* fontCollection, INT * numFound ); }
  5945. function GdipGetFontCollectionFamilyCount(FontCollection: GpFontCollection;
  5946. out NumFound: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5947.  
  5948. { GdipGetFontCollectionFamilyList( GpFontCollection* fontCollection, INT numSought, GpFontFamily* gpfamilies[], INT* numFound ); }
  5949. function GdipGetFontCollectionFamilyList(FontCollection: GpFontCollection;
  5950. NumSought: Integer; Gpfamilies: PGpFontFamily; out NumFound: Integer): TGPStatus; stdcall;
  5951. external GdiPlusDll;
  5952.  
  5953. { GdipPrivateAddFontFile( GpFontCollection* fontCollection, GDIPCONST WCHAR* filename ); }
  5954. function GdipPrivateAddFontFile(FontCollection: GpFontCollection;
  5955. const Filename: PWideChar): TGPStatus; stdcall; external GdiPlusDll;
  5956.  
  5957. { GdipPrivateAddMemoryFont( GpFontCollection* fontCollection, GDIPCONST void* memory, INT length ); }
  5958. function GdipPrivateAddMemoryFont(FontCollection: GpFontCollection;
  5959. const Memory: Pointer; Length: Integer): TGPStatus; stdcall; external GdiPlusDll;
  5960.  
  5961. //----------------------------------------------------------------------------
  5962. // Text APIs
  5963. //----------------------------------------------------------------------------
  5964.  
  5965. { GdipDrawString( GpGraphics *graphics, GDIPCONST WCHAR *string, INT length, GDIPCONST GpFont *font, GDIPCONST RectF *layoutRect, GDIPCONST GpStringFormat *stringFormat, GDIPCONST GpBrush *brush ); }
  5966. function GdipDrawString(Graphics: GpGraphics; const Str: PWideChar;
  5967. Length: Integer; const Font: GpFont; const LayoutRect: PGPRectF;
  5968. const StringFormat: GpStringFormat; const Brush: GpBrush): TGPStatus; stdcall;
  5969. external GdiPlusDll;
  5970.  
  5971. { GdipMeasureString( GpGraphics *graphics, GDIPCONST WCHAR *string, INT length, GDIPCONST GpFont *font, GDIPCONST RectF *layoutRect, GDIPCONST GpStringFormat *stringFormat, RectF *boundingBox, INT *codepointsFitted, INT *linesFilled ); }
  5972. function GdipMeasureString(Graphics: GpGraphics; const Str: PWideChar;
  5973. Length: Integer; const Font: GpFont; const LayoutRect: PGPRectF;
  5974. const StringFormat: GpStringFormat; out BoundingBox: TGPRectF;
  5975. CodepointsFitted: PInteger; LinesFilled: PInteger): TGPStatus; stdcall;
  5976. external GdiPlusDll;
  5977.  
  5978. { GdipMeasureCharacterRanges( GpGraphics *graphics, GDIPCONST WCHAR *string, INT length, GDIPCONST GpFont *font, GDIPCONST RectF &layoutRect, GDIPCONST GpStringFormat *stringFormat, INT regionCount, GpRegion **regions ); }
  5979. function GdipMeasureCharacterRanges(Graphics: GpGraphics; const Str: PWideChar;
  5980. Length: Integer; const Font: GpFont; const LayoutRect: PGPRectF;
  5981. const StringFormat: GpStringFormat; RegionCount: Integer;
  5982. Regions: PGpRegion): TGPStatus; stdcall; external GdiPlusDll;
  5983.  
  5984. { GdipDrawDriverString( GpGraphics *graphics, GDIPCONST UINT16 *text, INT length, GDIPCONST GpFont *font, GDIPCONST GpBrush *brush, GDIPCONST PointF *positions, INT flags, GDIPCONST GpMatrix *matrix ); }
  5985. function GdipDrawDriverString(Graphics: GpGraphics; const Text: PUInt16;
  5986. Length: Integer; const Font: GpFont; const Brush: GpBrush;
  5987. const Positions: PGPPointF; Flags: TGPDriverStringOptions; const Matrix: GpMatrix): TGPStatus; stdcall;
  5988. external GdiPlusDll;
  5989.  
  5990. { GdipMeasureDriverString( GpGraphics *graphics, GDIPCONST UINT16 *text, INT length, GDIPCONST GpFont *font, GDIPCONST PointF *positions, INT flags, GDIPCONST GpMatrix *matrix, RectF *boundingBox ); }
  5991. function GdipMeasureDriverString(Graphics: GpGraphics; const Text: PUInt16;
  5992. Length: Integer; const Font: GpFont; const Positions: PGPPointF; Flags: TGPDriverStringOptions;
  5993. const Matrix: GpMatrix; out BoundingBox: TGPRectF): TGPStatus; stdcall; external GdiPlusDll;
  5994.  
  5995. //----------------------------------------------------------------------------
  5996. // String format APIs
  5997. //----------------------------------------------------------------------------
  5998.  
  5999. { GdipCreateStringFormat( INT formatAttributes, LANGID language, GpStringFormat **format ); }
  6000. function GdipCreateStringFormat(FormatAttributes: TGPStringFormatFlags; Language: LANGID;
  6001. out Format: GpStringFormat): TGPStatus; stdcall; external GdiPlusDll;
  6002.  
  6003. { GdipStringFormatGetGenericDefault(GpStringFormat **format); }
  6004. function GdipStringFormatGetGenericDefault(out Format: GpStringFormat): TGPStatus; stdcall;
  6005. external GdiPlusDll;
  6006.  
  6007. { GdipStringFormatGetGenericTypographic(GpStringFormat **format); }
  6008. function GdipStringFormatGetGenericTypographic(out Format: GpStringFormat): TGPStatus; stdcall;
  6009. external GdiPlusDll;
  6010.  
  6011. { GdipDeleteStringFormat(GpStringFormat *format); }
  6012. function GdipDeleteStringFormat(Format: GpStringFormat): TGPStatus; stdcall;
  6013. external GdiPlusDll;
  6014.  
  6015. { GdipCloneStringFormat(GDIPCONST GpStringFormat *format, GpStringFormat **newFormat); }
  6016. function GdipCloneStringFormat(const Format: GpStringFormat;
  6017. out NewFormat: GpStringFormat): TGPStatus; stdcall; external GdiPlusDll;
  6018.  
  6019. { GdipSetStringFormatFlags(GpStringFormat *format, INT flags); }
  6020. function GdipSetStringFormatFlags(Format: GpStringFormat; Flags: TGPStringFormatFlags): TGPStatus; stdcall;
  6021. external GdiPlusDll;
  6022.  
  6023. { GdipGetStringFormatFlags(GDIPCONST GpStringFormat *format, INT *flags); }
  6024. function GdipGetStringFormatFlags(const Format: GpStringFormat;
  6025. out Flags: TGPStringFormatFlags): TGPStatus; stdcall; external GdiPlusDll;
  6026.  
  6027. { GdipSetStringFormatAlign(GpStringFormat *format, StringAlignment align); }
  6028. function GdipSetStringFormatAlign(Format: GpStringFormat;
  6029. Align: TGPStringAlignment): TGPStatus; stdcall; external GdiPlusDll;
  6030.  
  6031. { GdipGetStringFormatAlign(GDIPCONST GpStringFormat *format, StringAlignment *align); }
  6032. function GdipGetStringFormatAlign(const Format: GpStringFormat;
  6033. out Align: TGPStringAlignment): TGPStatus; stdcall; external GdiPlusDll;
  6034.  
  6035. { GdipSetStringFormatLineAlign(GpStringFormat *format, StringAlignment align); }
  6036. function GdipSetStringFormatLineAlign(Format: GpStringFormat;
  6037. Align: TGPStringAlignment): TGPStatus; stdcall; external GdiPlusDll;
  6038.  
  6039. { GdipGetStringFormatLineAlign(GDIPCONST GpStringFormat *format, StringAlignment *align); }
  6040. function GdipGetStringFormatLineAlign(const Format: GpStringFormat;
  6041. out Align: TGPStringAlignment): TGPStatus; stdcall; external GdiPlusDll;
  6042.  
  6043. { GdipSetStringFormatTrimming( GpStringFormat *format, StringTrimming trimming ); }
  6044. function GdipSetStringFormatTrimming(Format: GpStringFormat;
  6045. Trimming: TGPStringTrimming): TGPStatus; stdcall; external GdiPlusDll;
  6046.  
  6047. { GdipGetStringFormatTrimming( GDIPCONST GpStringFormat *format, StringTrimming *trimming ); }
  6048. function GdipGetStringFormatTrimming(const Format: GpStringFormat;
  6049. out Trimming: TGPStringTrimming): TGPStatus; stdcall; external GdiPlusDll;
  6050.  
  6051. { GdipSetStringFormatHotkeyPrefix(GpStringFormat *format, INT hotkeyPrefix); }
  6052. function GdipSetStringFormatHotkeyPrefix(Format: GpStringFormat;
  6053. HotkeyPrefix: TGPHotkeyPrefix): TGPStatus; stdcall; external GdiPlusDll;
  6054.  
  6055. { GdipGetStringFormatHotkeyPrefix(GDIPCONST GpStringFormat *format, INT *hotkeyPrefix); }
  6056. function GdipGetStringFormatHotkeyPrefix(const Format: GpStringFormat;
  6057. out HotkeyPrefix: TGPHotkeyPrefix): TGPStatus; stdcall; external GdiPlusDll;
  6058.  
  6059. { GdipSetStringFormatTabStops(GpStringFormat *format, REAL firstTabOffset, INT count, GDIPCONST REAL *tabStops); }
  6060. function GdipSetStringFormatTabStops(Format: GpStringFormat;
  6061. FirstTabOffset: Single; Count: Integer; const TabStops: PSingle): TGPStatus; stdcall;
  6062. external GdiPlusDll;
  6063.  
  6064. { GdipGetStringFormatTabStops(GDIPCONST GpStringFormat *format, INT count, REAL *firstTabOffset, REAL *tabStops); }
  6065. function GdipGetStringFormatTabStops(const Format: GpStringFormat;
  6066. Count: Integer; out FirstTabOffset: Single; TabStops: PSingle): TGPStatus; stdcall;
  6067. external GdiPlusDll;
  6068.  
  6069. { GdipGetStringFormatTabStopCount(GDIPCONST GpStringFormat *format, INT * count); }
  6070. function GdipGetStringFormatTabStopCount(const Format: GpStringFormat;
  6071. out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  6072.  
  6073. { GdipSetStringFormatDigitSubstitution(GpStringFormat *format, LANGID language, StringDigitSubstitute substitute); }
  6074. function GdipSetStringFormatDigitSubstitution(Format: GpStringFormat;
  6075. Language: LangID; Substitute: TGPStringDigitSubstitute): TGPStatus; stdcall;
  6076. external GdiPlusDll;
  6077.  
  6078. { GdipGetStringFormatDigitSubstitution(GDIPCONST GpStringFormat *format, LANGID *language, StringDigitSubstitute *substitute); }
  6079. function GdipGetStringFormatDigitSubstitution(const Format: GpStringFormat;
  6080. Language: PLangID; Substitute: PGPStringDigitSubstitute): TGPStatus; stdcall;
  6081. external GdiPlusDll;
  6082.  
  6083. { GdipGetStringFormatMeasurableCharacterRangeCount( GDIPCONST GpStringFormat *format, INT *count ); }
  6084. function GdipGetStringFormatMeasurableCharacterRangeCount(
  6085. const Format: GpStringFormat; out Count: Integer): TGPStatus; stdcall; external GdiPlusDll;
  6086.  
  6087. { GdipSetStringFormatMeasurableCharacterRanges( GpStringFormat *format, INT rangeCount, GDIPCONST CharacterRange *ranges ); }
  6088. function GdipSetStringFormatMeasurableCharacterRanges(Format: GpStringFormat;
  6089. RangeCount: Integer; const Ranges: PGPCharacterRange): TGPStatus; stdcall;
  6090. external GdiPlusDll;
  6091.  
  6092. //----------------------------------------------------------------------------
  6093. // Cached Bitmap APIs
  6094. //----------------------------------------------------------------------------
  6095.  
  6096. { GdipCreateCachedBitmap( GpBitmap *bitmap, GpGraphics *graphics, GpCachedBitmap **cachedBitmap ); }
  6097. function GdipCreateCachedBitmap(Bitmap: GpBitmap; Graphics: GpGraphics;
  6098. out CachedBitmap: GpCachedBitmap): TGPStatus; stdcall; external GdiPlusDll;
  6099.  
  6100. { GdipDeleteCachedBitmap(GpCachedBitmap *cachedBitmap); }
  6101. function GdipDeleteCachedBitmap(CachedBitmap: GpCachedBitmap): TGPStatus; stdcall;
  6102. external GdiPlusDll;
  6103.  
  6104. { GdipDrawCachedBitmap( GpGraphics *graphics, GpCachedBitmap *cachedBitmap, INT x, INT y ); }
  6105. function GdipDrawCachedBitmap(Graphics: GpGraphics;
  6106. CachedBitmap: GpCachedBitmap; X: Integer; Y: Integer): TGPStatus; stdcall;
  6107. external GdiPlusDll;
  6108.  
  6109. function GdipEmfToWmfBits(HEmf: HEnhMetaFile; cbData16: UINT; pData16: PByte;
  6110. MapMode: Integer; Flags: TGPEmfToWmfBitsFlags): UINT; stdcall; external GdiPlusDll;
  6111.  
  6112. { GdipSetImageAttributesCachedBackground( GpImageAttributes *imageattr, BOOL enableFlag ); }
  6113. function GdipSetImageAttributesCachedBackground(Imageattr: GpImageAttributes;
  6114. EnableFlag: Bool): TGPStatus; stdcall; external GdiPlusDll;
  6115.  
  6116. { GdipTestControl( GpTestControlEnum control, void * param ); }
  6117. function GdipTestControl(Control: TGPTestControlEnum; Param: Pointer): TGPStatus; stdcall;
  6118. external GdiPlusDll;
  6119.  
  6120. function GdiplusNotificationHook(out Token: ULONG): TGPStatus; stdcall; external GdiPlusDll;
  6121.  
  6122. procedure GdiplusNotificationUnhook(Token: ULONG); stdcall; external GdiPlusDll;
  6123.  
  6124. {$IF (GDIPVER >= $0110)}
  6125. { GdipConvertToEmfPlus( const GpGraphics* refGraphics, GpMetafile* metafile, INT* conversionFailureFlag, EmfType emfType, const WCHAR* description, GpMetafile** out_metafile ); }
  6126. function GdipConvertToEmfPlus(const RefGraphics: GpGraphics;
  6127. Metafile: GpMetafile; ConversionFailureFlag: PInteger; EmfType: TGPEmfType;
  6128. const Description: PWideChar; out Out_metafile: GpMetafile): TGPStatus; stdcall;
  6129. external GdiPlusDll;
  6130.  
  6131. { GdipConvertToEmfPlusToFile( const GpGraphics* refGraphics, GpMetafile* metafile, INT* conversionFailureFlag, const WCHAR* filename, EmfType emfType, const WCHAR* description, GpMetafile** out_metafile ); }
  6132. function GdipConvertToEmfPlusToFile(const RefGraphics: GpGraphics;
  6133. Metafile: GpMetafile; ConversionFailureFlag: PInteger;
  6134. const Filename: PWideChar; EmfType: TGPEmfType; const Description: PWideChar;
  6135. out Out_metafile: GpMetafile): TGPStatus; stdcall; external GdiPlusDll;
  6136.  
  6137. { GdipConvertToEmfPlusToStream( const GpGraphics* refGraphics, GpMetafile* metafile, INT* conversionFailureFlag, IStream* stream, EmfType emfType, const WCHAR* description, GpMetafile** out_metafile ); }
  6138. function GdipConvertToEmfPlusToStream(const RefGraphics: GpGraphics;
  6139. Metafile: GpMetafile; ConversionFailureFlag: PInteger; const Stream: IStream;
  6140. EmfType: TGPEmfType; const Description: PWideChar; out Out_metafile: GpMetafile): TGPStatus; stdcall;
  6141. external GdiPlusDll;
  6142. {$IFEND}
  6143. {$ENDREGION 'GdiplusFlat.h'}
  6144.  
  6145. {$REGION 'GdiplusGpStubs.h (2)'}
  6146. (*****************************************************************************
  6147. * GdiplusGpStubs.h
  6148. * Private GDI+ header file.
  6149. *****************************************************************************)
  6150.  
  6151.  
  6152. //---------------------------------------------------------------------------
  6153. // GDI+ classes for forward reference
  6154. //---------------------------------------------------------------------------
  6155.  
  6156. type
  6157. IGPGraphics = interface;
  6158. IGPPen = interface;
  6159. IGPBrush = interface;
  6160. IGPMatrix = interface;
  6161. IGPBitmap = interface;
  6162. IGPMetafile = interface;
  6163. IGPGraphicsPath = interface;
  6164. IGPGraphicsPathIterator = interface;
  6165. IGPRegion = interface;
  6166. IGPImage = interface;
  6167. IGPTextureBrush = interface;
  6168. IGPHatchBrush = interface;
  6169. IGPSolidBrush = interface;
  6170. IGPLinearGradientBrush = interface;
  6171. IGPPathGradientBrush = interface;
  6172. IGPFont = interface;
  6173. IGPFontFamily = interface;
  6174. IGPFontCollection = interface;
  6175. IGPInstalledFontCollection = interface;
  6176. IGPPrivateFontCollection = interface;
  6177. IGPImageAttributes = interface;
  6178. IGPCachedBitmap = interface;
  6179. {$ENDREGION 'GdiplusGpStubs.h (2)'}
  6180.  
  6181. {$REGION 'GdiplusRegion.h'}
  6182. (*****************************************************************************
  6183. * GdiplusRegion.h
  6184. * GDI+ Region class implementation
  6185. *****************************************************************************)
  6186.  
  6187. IGPRegionData = IGPBuffer;
  6188. IGPRegionScansF = IGPArray<TGPRectF>;
  6189. IGPRegionScans = IGPArray<TGPRect>;
  6190.  
  6191. IGPRegion = interface(IGdiPlusBase)
  6192. ['{BA76B8F7-FEF0-41AA-9E96-59946D279F4D}']
  6193. { Methods }
  6194. function Clone: IGPRegion;
  6195. procedure MakeInfinite;
  6196. procedure MakeEmpty;
  6197. function GetData: IGPRegionData;
  6198. procedure Intersect(const Rect: TGPRect); overload;
  6199. procedure Intersect(const Rect: TGPRectF); overload;
  6200. procedure Intersect(const Path: IGPGraphicsPath); overload;
  6201. procedure Intersect(const Region: IGPRegion); overload;
  6202. procedure Union(const Rect: TGPRect); overload;
  6203. procedure Union(const Rect: TGPRectF); overload;
  6204. procedure Union(const Path: IGPGraphicsPath); overload;
  6205. procedure Union(const Region: IGPRegion); overload;
  6206. procedure ExclusiveOr(const Rect: TGPRect); overload;
  6207. procedure ExclusiveOr(const Rect: TGPRectF); overload;
  6208. procedure ExclusiveOr(const Path: IGPGraphicsPath); overload;
  6209. procedure ExclusiveOr(const Region: IGPRegion); overload;
  6210. procedure Exclude(const Rect: TGPRect); overload;
  6211. procedure Exclude(const Rect: TGPRectF); overload;
  6212. procedure Exclude(const Path: IGPGraphicsPath); overload;
  6213. procedure Exclude(const Region: IGPRegion); overload;
  6214. procedure Complement(const Rect: TGPRect); overload;
  6215. procedure Complement(const Rect: TGPRectF); overload;
  6216. procedure Complement(const Path: IGPGraphicsPath); overload;
  6217. procedure Complement(const Region: IGPRegion); overload;
  6218. procedure Translate(const DX, DY: Single); overload;
  6219. procedure Translate(const DX, DY: Integer); overload;
  6220. procedure Transform(const Matrix: IGPMatrix);
  6221. procedure GetBounds(out Rect: TGPRect; const G: IGPGraphics); overload;
  6222. procedure GetBounds(out Rect: TGPRectF; const G: IGPGraphics); overload;
  6223. function GetHRGN(const G: IGPGraphics): HRGN;
  6224. function IsEmpty(const G: IGPGraphics): Boolean;
  6225. function IsInfinite(const G: IGPGraphics): Boolean;
  6226. function IsVisible(const X, Y: Integer; const G: IGPGraphics = nil): Boolean; overload;
  6227. function IsVisible(const Point: TGPPoint; const G: IGPGraphics = nil): Boolean; overload;
  6228. function IsVisible(const X, Y: Single; const G: IGPGraphics = nil): Boolean; overload;
  6229. function IsVisible(const Point: TGPPointF; const G: IGPGraphics = nil): Boolean; overload;
  6230. function IsVisible(const X, Y, Width, Height: Integer; const G: IGPGraphics = nil): Boolean; overload;
  6231. function IsVisible(const Rect: TGPRect; const G: IGPGraphics = nil): Boolean; overload;
  6232. function IsVisible(const X, Y, Width, Height: Single; const G: IGPGraphics = nil): Boolean; overload;
  6233. function IsVisible(const Rect: TGPRectF; const G: IGPGraphics = nil): Boolean; overload;
  6234. function Equals(const Region: IGPRegion; const G: IGPGraphics): Boolean;
  6235. function GetRegionScans(const Matrix: IGPMatrix): IGPRegionScansF;
  6236. function GetRegionScansI(const Matrix: IGPMatrix): IGPRegionScans;
  6237. end;
  6238.  
  6239. TGPRegion = class(TGdiplusBase, IGPRegion)
  6240. private
  6241. { IGPRegion }
  6242. function Clone: IGPRegion;
  6243. procedure MakeInfinite;
  6244. procedure MakeEmpty;
  6245. function GetData: IGPRegionData;
  6246. procedure Intersect(const Rect: TGPRect); overload;
  6247. procedure Intersect(const Rect: TGPRectF); overload;
  6248. procedure Intersect(const Path: IGPGraphicsPath); overload;
  6249. procedure Intersect(const Region: IGPRegion); overload;
  6250. procedure Union(const Rect: TGPRect); overload;
  6251. procedure Union(const Rect: TGPRectF); overload;
  6252. procedure Union(const Path: IGPGraphicsPath); overload;
  6253. procedure Union(const Region: IGPRegion); overload;
  6254. procedure ExclusiveOr(const Rect: TGPRect); overload;
  6255. procedure ExclusiveOr(const Rect: TGPRectF); overload;
  6256. procedure ExclusiveOr(const Path: IGPGraphicsPath); overload;
  6257. procedure ExclusiveOr(const Region: IGPRegion); overload;
  6258. procedure Exclude(const Rect: TGPRect); overload;
  6259. procedure Exclude(const Rect: TGPRectF); overload;
  6260. procedure Exclude(const Path: IGPGraphicsPath); overload;
  6261. procedure Exclude(const Region: IGPRegion); overload;
  6262. procedure Complement(const Rect: TGPRect); overload;
  6263. procedure Complement(const Rect: TGPRectF); overload;
  6264. procedure Complement(const Path: IGPGraphicsPath); overload;
  6265. procedure Complement(const Region: IGPRegion); overload;
  6266. procedure Translate(const DX, DY: Single); overload;
  6267. procedure Translate(const DX, DY: Integer); overload;
  6268. procedure Transform(const Matrix: IGPMatrix);
  6269. procedure GetBounds(out Rect: TGPRect; const G: IGPGraphics); overload;
  6270. procedure GetBounds(out Rect: TGPRectF; const G: IGPGraphics); overload;
  6271. function GetHRGN(const G: IGPGraphics): HRGN;
  6272. function IsEmpty(const G: IGPGraphics): Boolean;
  6273. function IsInfinite(const G: IGPGraphics): Boolean;
  6274. function IsVisible(const X, Y: Integer; const G: IGPGraphics = nil): Boolean; overload;
  6275. function IsVisible(const Point: TGPPoint; const G: IGPGraphics = nil): Boolean; overload;
  6276. function IsVisible(const X, Y: Single; const G: IGPGraphics = nil): Boolean; overload;
  6277. function IsVisible(const Point: TGPPointF; const G: IGPGraphics = nil): Boolean; overload;
  6278. function IsVisible(const X, Y, Width, Height: Integer; const G: IGPGraphics = nil): Boolean; overload;
  6279. function IsVisible(const Rect: TGPRect; const G: IGPGraphics = nil): Boolean; overload;
  6280. function IsVisible(const X, Y, Width, Height: Single; const G: IGPGraphics = nil): Boolean; overload;
  6281. function IsVisible(const Rect: TGPRectF; const G: IGPGraphics = nil): Boolean; overload;
  6282. function Equals(const Region: IGPRegion; const G: IGPGraphics): Boolean; reintroduce;
  6283. function GetRegionScans(const Matrix: IGPMatrix): IGPRegionScansF;
  6284. function GetRegionScansI(const Matrix: IGPMatrix): IGPRegionScans;
  6285. private
  6286. constructor Create(const NativeRegion: GpRegion); overload;
  6287. public
  6288. constructor Create; overload;
  6289. constructor Create(const Rect: TGPRectF); overload;
  6290. constructor Create(const Rect: TGPRect); overload;
  6291. constructor Create(const Path: IGPGraphicsPath); overload;
  6292. constructor Create(const RegionData: PByte; const Size: Integer); overload;
  6293. constructor Create(const HRgn: HRGN); overload;
  6294. destructor Destroy; override;
  6295.  
  6296. class function FromHRGN(const HRgn: HRGN): IGPRegion; static;
  6297. end;
  6298. {$ENDREGION 'GdiplusRegion.h'}
  6299.  
  6300. {$REGION 'GdiplusFontFamily.h'}
  6301. (*****************************************************************************
  6302. * GdiplusFontFamily.h
  6303. * GDI+ Font Family class
  6304. *****************************************************************************)
  6305.  
  6306. IGPFontFamily = interface(IGdiPlusBase)
  6307. ['{FC545EB0-E826-476E-9435-8ADAE2D191B4}']
  6308. { Property access method }
  6309. function GetFamilyNameInternal: String;
  6310.  
  6311. { Methods }
  6312. function GetFamilyName(const Language: LangID = 0): String;
  6313. function Clone: IGPFontFamily;
  6314. function IsAvailable: Boolean;
  6315. function IsStyleAvailable(const Style: TGPFontStyle): Boolean;
  6316. function GetEmHeight(const Style: TGPFontStyle): Word;
  6317. function GetCellAscent(const Style: TGPFontStyle): Word;
  6318. function GetCellDescent(const Style: TGPFontStyle): Word;
  6319. function GetLineSpacing(const Style: TGPFontStyle): Word;
  6320.  
  6321. { Properties }
  6322. property FamilyName: String read GetFamilyNameInternal;
  6323. end;
  6324.  
  6325. TGPFontFamily = class(TGdiplusBase, IGPFontFamily)
  6326. private
  6327. class var FGenericSansSerifFontFamily: IGPFontFamily;
  6328. class var FGenericSerifFontFamily: IGPFontFamily;
  6329. class var FGenericMonoSpaceFontFamily: IGPFontFamily;
  6330. private
  6331. { IGPFontFamily }
  6332. function GetFamilyNameInternal: String;
  6333. function GetFamilyName(const Language: LangID = 0): String;
  6334. function Clone: IGPFontFamily;
  6335. function IsAvailable: Boolean;
  6336. function IsStyleAvailable(const Style: TGPFontStyle): Boolean;
  6337. function GetEmHeight(const Style: TGPFontStyle): Word;
  6338. function GetCellAscent(const Style: TGPFontStyle): Word;
  6339. function GetCellDescent(const Style: TGPFontStyle): Word;
  6340. function GetLineSpacing(const Style: TGPFontStyle): Word;
  6341. private
  6342. constructor Create(const NativeFamily: GpFontFamily); overload;
  6343. public
  6344. constructor Create; overload;
  6345. constructor Create(const Name: String;
  6346. const FontCollection: IGPFontCollection = nil); overload;
  6347. destructor Destroy; override;
  6348.  
  6349. class function GenericSansSerif: IGPFontFamily; static;
  6350. class function GenericSerif: IGPFontFamily; static;
  6351. class function GenericMonospace: IGPFontFamily; static;
  6352. end;
  6353.  
  6354. {$ENDREGION 'GdiplusFontFamily.h'}
  6355.  
  6356. {$REGION 'GdiplusFont.h'}
  6357. (*****************************************************************************
  6358. * GdiplusFont.h
  6359. * GDI+ Font class
  6360. *****************************************************************************)
  6361.  
  6362. IGPFont = interface(IGdiPlusBase)
  6363. ['{63A81FE2-D0BC-4031-9DD8-0254A1CC732D}']
  6364. { Property access methods }
  6365. function GetStyle: TGPFontStyle;
  6366. function GetSize: Single;
  6367. function GetUnit: TGPUnit;
  6368. function GetFamily: IGPFontFamily;
  6369.  
  6370. { Methods }
  6371. function Clone: IGPFont;
  6372. function GetLogFontA(const G: IGPGraphics): TLogFontA;
  6373. function GetLogFontW(const G: IGPGraphics): TLogFontW;
  6374. function IsAvailable: Boolean;
  6375. function GetHeight(const Graphics: IGPGraphics): Single; overload;
  6376. function GetHeight(const Dpi: Single): Single; overload;
  6377.  
  6378. { Properties }
  6379. property Style: TGPFontStyle read GetStyle;
  6380. property Size: Single read GetSize;
  6381. property MeasureUnit: TGPUnit read GetUnit;
  6382. property Family: IGPFontFamily read GetFamily;
  6383. end;
  6384.  
  6385. TGPFont = class(TGdiPlusBase, IGPFont)
  6386. private
  6387. { IGPFont }
  6388. function GetStyle: TGPFontStyle;
  6389. function GetSize: Single;
  6390. function GetUnit: TGPUnit;
  6391. function Clone: IGPFont;
  6392. function GetLogFontA(const G: IGPGraphics): TLogFontA;
  6393. function GetLogFontW(const G: IGPGraphics): TLogFontW;
  6394. function IsAvailable: Boolean;
  6395. function GetHeight(const Graphics: IGPGraphics): Single; overload;
  6396. function GetHeight(const Dpi: Single): Single; overload;
  6397. function GetFamily: IGPFontFamily;
  6398. private
  6399. constructor Create(const NativeFont: GpFont); overload;
  6400. public
  6401. constructor Create(const DC: HDC); overload;
  6402. constructor Create(const DC: HDC; const LogFont: TLogFontA); overload;
  6403. constructor Create(const DC: HDC; const LogFont: TLogFontW); overload;
  6404. constructor Create(const DC: HDC; const FontHandle: HFont); overload;
  6405. constructor Create(const Family: IGPFontFamily; const EmSize: Single;
  6406. const Style: TGPFontStyle = FontStyleRegular;
  6407. const MeasureUnit: TGPUnit = UnitPoint); overload;
  6408. constructor Create(const FamilyName: String; const EmSize: Single;
  6409. const Style: TGPFontStyle = FontStyleRegular;
  6410. const MeasureUnit: TGPUnit = UnitPoint;
  6411. const FontCollection: IGPFontCollection = nil); overload;
  6412. destructor Destroy; override;
  6413. end;
  6414.  
  6415. {$ENDREGION 'GdiplusFont.h'}
  6416.  
  6417. {$REGION 'GdiplusFontCollection.h'}
  6418. (*****************************************************************************
  6419. * GdiplusFontCollection.h
  6420. * Font collections (Installed and Private)
  6421. *****************************************************************************)
  6422.  
  6423. IGPFontFamilies = IGPArray<IGPFontFamily>;
  6424.  
  6425. IGPFontCollection = interface(IGdiPlusBase)
  6426. ['{5040653F-C5E1-4CA1-9623-6CD258F6DD6C}']
  6427. { Property access methods }
  6428. function GetFamilies: IGPFontFamilies;
  6429.  
  6430. { Properties }
  6431. property Families: IGPFontFamilies read GetFamilies;
  6432. end;
  6433.  
  6434. TGPFontCollection = class(TGdiPlusBase, IGPFontCollection)
  6435. private
  6436. { IGPFontCollection }
  6437. function GetFamilies: IGPFontFamilies;
  6438. public
  6439. constructor Create;
  6440. end;
  6441.  
  6442. IGPInstalledFontCollection = interface(IGPFontCollection)
  6443. ['{168514BC-DC7E-40BC-808D-B2E949AE9F4F}']
  6444. end;
  6445.  
  6446. TGPInstalledFontCollection = class(TGPFontCollection, IGPInstalledFontCollection)
  6447. public
  6448. constructor Create;
  6449. end;
  6450.  
  6451. IGPPrivateFontCollection = interface(IGPFontCollection)
  6452. ['{75E3CC1B-16E4-4203-9796-05B47EB5F076}']
  6453. { Methods }
  6454. procedure AddFontFile(const Filename: String);
  6455. procedure AddMemoryFont(const Memory: Pointer; const Length: Integer);
  6456. end;
  6457.  
  6458. TGPPrivateFontCollection = class(TGPFontCollection, IGPPrivateFontCollection)
  6459. private
  6460. { IGPPrivateFontCollection }
  6461. procedure AddFontFile(const Filename: String);
  6462. procedure AddMemoryFont(const Memory: Pointer; const Length: Integer);
  6463. public
  6464. constructor Create;
  6465. destructor Destroy; override;
  6466. end;
  6467.  
  6468. {$ENDREGION 'GdiplusFontCollection.h'}
  6469.  
  6470. {$REGION 'GdiplusBitmap.h'}
  6471. (*****************************************************************************
  6472. * GdiplusBitmap.h
  6473. * GDI+ Bitmap class
  6474. *****************************************************************************)
  6475.  
  6476. IGPImageFormat = interface
  6477. ['{EDAB4D5F-527C-47D6-B53E-38DB9496725D}']
  6478. { Property access method }
  6479. function GetGuid: TGUID;
  6480. function GetCodecId: TGUID;
  6481.  
  6482. { Properties }
  6483. property Guid: TGUID read GetGUID;
  6484. property CodecId: TGUID read GetCodecId;
  6485. end;
  6486.  
  6487. TGPImageFormat = class(TInterfacedObject, IGPImageFormat)
  6488. private
  6489. FGuid: TGUID;
  6490. FCodecId: TGUID;
  6491. class var FInitialized: Boolean;
  6492. class var FBmp: IGPImageFormat;
  6493. class var FJpeg: IGPImageFormat;
  6494. class var FGif: IGPImageFormat;
  6495. class var FTiff: IGPImageFormat;
  6496. class var FPng: IGPImageFormat;
  6497. class function GetBmp: IGPImageFormat; static;
  6498. class function GetJpeg: IGPImageFormat; static;
  6499. class function GetGif: IGPImageFormat; static;
  6500. class function GetTiff: IGPImageFormat; static;
  6501. class function GetPng: IGPImageFormat; static;
  6502. class procedure InitializeCodecs; static;
  6503. private
  6504. { IGPImageFormat }
  6505. function GetGuid: TGuid;
  6506. function GetCodecId: TGUID;
  6507. public
  6508. constructor Create(const Guid: TGUID); overload;
  6509. constructor Create(const Guid, CodecId: TGUID); overload;
  6510. class function FindByFormatId(const lFormatId: TGUID): IGPImageFormat; static;
  6511.  
  6512. class property Bmp: IGPImageFormat read GetBmp;
  6513. class property Jpeg: IGPImageFormat read GetJpeg;
  6514. class property Gif: IGPImageFormat read GetGif;
  6515. class property Tiff: IGPImageFormat read GetTiff;
  6516. class property Png: IGPImageFormat read GetPng;
  6517. end;
  6518.  
  6519. IGPImageCodecInfo = interface
  6520. ['{4AAE3ECA-3AEA-4C20-8D17-865F07393536}']
  6521. { Property access methods }
  6522. function GetClsId: TGUID;
  6523. function GetCodecName: String;
  6524. function GetDllName: String;
  6525. function GetFilenameExtension: String;
  6526. function GetFlags: TGPImageCodecFlags;
  6527. function GetFormatDescription: String;
  6528. function GetFormatId: TGUID;
  6529. function GetMimeType: String;
  6530. function GetVersion: Integer;
  6531.  
  6532. { Properties }
  6533. property ClsId: TGUID read GetClsId;
  6534. property CodecName: String read GetCodecName;
  6535. property DllName: String read GetDllName;
  6536. property FilenameExtension: String read GetFilenameExtension;
  6537. property Flags: TGPImageCodecFlags read GetFlags;
  6538. property FormatDescription: String read GetFormatDescription;
  6539. property FormatId: TGUID read GetFormatId;
  6540. property MimeType: String read GetMimeType;
  6541. property Version: Integer read GetVersion;
  6542. end;
  6543.  
  6544. IGPImageCodecInfoArray = IGPArray<IGPImageCodecInfo>;
  6545.  
  6546. TGPImageCodecInfo = class(TInterfacedObject, IGPImageCodecInfo)
  6547. private
  6548. FInfo: TGPNativeImageCodecInfo;
  6549. private
  6550. { IGPImageCodecInfo }
  6551. function GetClsId: TGUID;
  6552. function GetCodecName: String;
  6553. function GetDllName: String;
  6554. function GetFilenameExtension: String;
  6555. function GetFlags: TGPImageCodecFlags;
  6556. function GetFormatDescription: String;
  6557. function GetFormatId: TGUID;
  6558. function GetMimeType: String;
  6559. function GetVersion: Integer;
  6560. public
  6561. constructor Create(const Info: TGPNativeImageCodecInfo);
  6562. class function GetImageDecoders: IGPImageCodecInfoArray; static;
  6563. class function GetImageEncoders: IGPImageCodecInfoArray; static;
  6564. end;
  6565.  
  6566. IGPEncoderParameters = interface;
  6567.  
  6568. TGPEncoderParameterEnumerator = class
  6569. private
  6570. FIndex: Integer;
  6571. FParams: IGPEncoderParameters;
  6572. public
  6573. constructor Create(const AParams: IGPEncoderParameters);
  6574. function GetCurrent: PGPNativeEncoderParameter;
  6575. function MoveNext: Boolean;
  6576. property Current: PGPNativeEncoderParameter read GetCurrent;
  6577. end;
  6578.  
  6579. IGPEncoderParameters = interface
  6580. ['{284A0A77-1831-483A-AF75-903FCFB50A56}']
  6581. { Property access methods }
  6582. function GetCount: Integer;
  6583. function GetParam(const Index: Integer): PGPNativeEncoderParameter;
  6584. function GetNativeParams: PGPNativeEncoderParameters;
  6585.  
  6586. { Methods }
  6587. function GetEnumerator: TGPEncoderParameterEnumerator;
  6588. procedure Clear;
  6589. procedure Add(const ParamType: TGUID; const Value: TGPEncoderValue); overload;
  6590. procedure Add(const ParamType: TGUID; const Value: array of TGPEncoderValue); overload;
  6591. procedure Add(const ParamType: TGUID; var Value: Byte); overload;
  6592. procedure Add(const ParamType: TGUID; const Value: array of Byte); overload;
  6593. procedure Add(const ParamType: TGUID; var Value: Int16); overload;
  6594. procedure Add(const ParamType: TGUID; const Value: array of Int16); overload;
  6595. procedure Add(const ParamType: TGUID; var Value: Int32); overload;
  6596. procedure Add(const ParamType: TGUID; const Value: array of Int32); overload;
  6597. procedure Add(const ParamType: TGUID; var Value: Int64); overload;
  6598. procedure Add(const ParamType: TGUID; const Value: array of Int64); overload;
  6599. procedure Add(const ParamType: TGUID; const Value: String); overload;
  6600. procedure Add(const ParamType: TGUID; const Value: Byte;
  6601. const Undefined: Boolean); overload;
  6602. procedure Add(const ParamType: TGUID; const Value: array of Byte;
  6603. const Undefined: Boolean); overload;
  6604. procedure Add(const ParamType: TGUID; var Numerator, Denominator: Int32); overload;
  6605. procedure Add(const ParamType: TGUID; const Numerators,
  6606. Denominators: array of Int32); overload;
  6607. procedure Add(const ParamType: TGUID; var RangeBegin, RangeEnd: Int64); overload;
  6608. procedure Add(const ParamType: TGUID; const RangesBegin,
  6609. RangesEnd: array of Int64); overload;
  6610. procedure Add(const ParamType: TGUID; const NumberOfValues: Integer;
  6611. const ValueType: TGPEncoderParameterValueType; const Value: Pointer); overload;
  6612. procedure Add(const ParamType: TGUID; const Numerator1, Denominator1,
  6613. Numerator2, Denominator2: Int32); overload;
  6614. procedure Add(const ParamType: TGUID; const Numerator1, Denominator1,
  6615. Numerator2, Denominator2: array of Int32); overload;
  6616.  
  6617. { Properties }
  6618. property Count: Integer read GetCount;
  6619. property Param[const Index: Integer]: PGPNativeEncoderParameter read GetParam; default;
  6620. property NativeParams: PGPNativeEncoderParameters read GetNativeParams;
  6621. end;
  6622.  
  6623. TGPEncoderParameters = class(TInterfacedObject, IGPEncoderParameters)
  6624. private
  6625. FParams: array of TGPNativeEncoderParameter;
  6626. FParamCount: Integer;
  6627. FValues: Pointer;
  6628. FValueSize: Integer;
  6629. FValueAllocated: Integer;
  6630. FNativeParams: PGPNativeEncoderParameters;
  6631. FModified: Boolean;
  6632. private
  6633. { IGPEncoderParameters }
  6634. function GetNativeParams: PGPNativeEncoderParameters;
  6635. function GetEnumerator: TGPEncoderParameterEnumerator;
  6636. function GetCount: Integer;
  6637. function GetParam(const Index: Integer): PGPNativeEncoderParameter;
  6638. procedure Clear;
  6639. procedure Add(const ParamType: TGUID; const Value: TGPEncoderValue); overload;
  6640. procedure Add(const ParamType: TGUID; const Value: array of TGPEncoderValue); overload;
  6641. procedure Add(const ParamType: TGUID; var Value: Byte); overload;
  6642. procedure Add(const ParamType: TGUID; const Value: array of Byte); overload;
  6643. procedure Add(const ParamType: TGUID; var Value: Int16); overload;
  6644. procedure Add(const ParamType: TGUID; const Value: array of Int16); overload;
  6645. procedure Add(const ParamType: TGUID; var Value: Int32); overload;
  6646. procedure Add(const ParamType: TGUID; const Value: array of Int32); overload;
  6647. procedure Add(const ParamType: TGUID; var Value: Int64); overload;
  6648. procedure Add(const ParamType: TGUID; const Value: array of Int64); overload;
  6649. procedure Add(const ParamType: TGUID; const Value: String); overload;
  6650. procedure Add(const ParamType: TGUID; const Value: Byte;
  6651. const Undefined: Boolean); overload;
  6652. procedure Add(const ParamType: TGUID; const Value: array of Byte;
  6653. const Undefined: Boolean); overload;
  6654. procedure Add(const ParamType: TGUID; var Numerator, Denominator: Int32); overload;
  6655. procedure Add(const ParamType: TGUID; const Numerators,
  6656. Denominators: array of Int32); overload;
  6657. procedure Add(const ParamType: TGUID; var RangeBegin, RangeEnd: Int64); overload;
  6658. procedure Add(const ParamType: TGUID; const RangesBegin,
  6659. RangesEnd: array of Int64); overload;
  6660. procedure Add(const ParamType: TGUID; const NumberOfValues: Integer;
  6661. const ValueType: TGPEncoderParameterValueType; const Value: Pointer); overload;
  6662. procedure Add(const ParamType: TGUID; const Numerator1, Denominator1,
  6663. Numerator2, Denominator2: Int32); overload;
  6664. procedure Add(const ParamType: TGUID; const Numerator1, Denominator1,
  6665. Numerator2, Denominator2: array of Int32); overload;
  6666. private
  6667. constructor Create(const Params: PGPNativeEncoderParameters); overload;
  6668. public
  6669. constructor Create; overload;
  6670. destructor Destroy; override;
  6671. end;
  6672.  
  6673. IGPColorPalette = interface
  6674. ['{17D63D7E-20F6-445F-AEFC-3D53FC8D01CE}']
  6675. { Property access methods }
  6676. function GetFlags: TGPPaletteFlags;
  6677. procedure SetFlags(const Value: TGPPaletteFlags);
  6678. function GetCount: Integer;
  6679. function GetEntry(const Index: Integer): ARGB;
  6680. procedure SetEntry(const Index: Integer; const Value: ARGB);
  6681. function GetEntryPtr: PARGB;
  6682. function GetNativePalette: PGPNativeColorPalette;
  6683.  
  6684. { Properties }
  6685. property Flags: TGPPaletteFlags read GetFlags write SetFlags;
  6686. property Count: Integer read GetCount;
  6687. property Entries[const Index: Integer]: ARGB read GetEntry write SetEntry; default;
  6688. property EntryPtr: PARGB read GetEntryPtr;
  6689. property NativePalette: PGPNativeColorPalette read GetNativePalette;
  6690. end;
  6691.  
  6692. TGPColorPalette = class(TInterfacedObject, IGPColorPalette)
  6693. private
  6694. FData: PGPNativeColorPalette;
  6695. FEntries: PARGB;
  6696. private
  6697. { IGPColorPalette }
  6698. function GetFlags: TGPPaletteFlags;
  6699. procedure SetFlags(const Value: TGPPaletteFlags);
  6700. function GetCount: Integer;
  6701. function GetEntry(const Index: Integer): ARGB;
  6702. procedure SetEntry(const Index: Integer; const Value: ARGB);
  6703. function GetEntryPtr: PARGB;
  6704. function GetNativePalette: PGPNativeColorPalette;
  6705. private
  6706. constructor Create(const NativePalette: PGPNativeColorPalette); overload;
  6707. public
  6708. constructor Create(const Count: Integer); overload;
  6709. destructor Destroy; override;
  6710. end;
  6711.  
  6712. IGPPropertyItem = interface
  6713. ['{8886FE82-91E0-4069-B7BA-EA4A99E28AB4}']
  6714. { Property access methods }
  6715. function GetId: TPropID;
  6716. procedure SetId(const Value: TPropID);
  6717. function GetLength: Cardinal;
  6718. procedure SetLength(const Value: Cardinal);
  6719. function GetValueType: Word;
  6720. procedure SetValueType(const Value: Word);
  6721. function GetValue: Pointer;
  6722. procedure SetValue(const Value: Pointer);
  6723. function GetNativeItem: PGPNativePropertyItem;
  6724.  
  6725. { Properties }
  6726. property Id: TPropID read GetId write SetId;
  6727. property Length: Cardinal read GetLength write SetLength;
  6728. property ValueType: Word read GetValueType write SetValueType;
  6729. property Value: Pointer read GetValue write SetValue;
  6730. property NativeItem: PGPNativePropertyItem read GetNativeItem;
  6731. end;
  6732.  
  6733. TGPPropertyItem = class(TInterfacedObject, IGPPropertyItem)
  6734. private
  6735. FData: PGPNativePropertyItem;
  6736. private
  6737. { IGPPropertyItem }
  6738. function GetId: TPropID;
  6739. procedure SetId(const Value: TPropID);
  6740. function GetLength: Cardinal;
  6741. procedure SetLength(const Value: Cardinal);
  6742. function GetValueType: Word;
  6743. procedure SetValueType(const Value: Word);
  6744. function GetValue: Pointer;
  6745. procedure SetValue(const Value: Pointer);
  6746. function GetNativeItem: PGPNativePropertyItem;
  6747. private
  6748. constructor Create(const Data: PGPNativePropertyItem); overload;
  6749. public
  6750. constructor Create; overload;
  6751. destructor Destroy; override;
  6752. end;
  6753.  
  6754. IGPFrameDimensions = IGPArray<TGUID>;
  6755. IGPPropertyIdList = IGPArray<TPropID>;
  6756. IGPPropertyItems = IGPArray<IGPPropertyItem>;
  6757.  
  6758. IGPImage = interface(IGdiPlusBase)
  6759. ['{9E494AC2-7002-41CD-9776-CA6B5A4E8426}']
  6760. { Property access methods }
  6761. function GetType: TGPImageType;
  6762. function GetWidth: Cardinal;
  6763. function GetHeight: Cardinal;
  6764. function GetHorizontalResolution: Single;
  6765. function GetVerticalResolution: Single;
  6766. function GetFlags: TGPImageFlags;
  6767. function GetRawFormat: TGUID;
  6768. function GetPixelFormat: TGPPixelFormat;
  6769. function GetPalette: IGPColorPalette;
  6770. procedure SetPalette(const Value: IGPColorPalette);
  6771. function GetPropertyIdList: IGPPropertyIdList;
  6772. function GetPropertyItems: IGPPropertyItems;
  6773.  
  6774. { Methods }
  6775. function Clone: IGPImage;
  6776. procedure Save(const Filename: String; const Format: IGPImageFormat;
  6777. const Params: IGPEncoderParameters = nil); overload;
  6778. procedure Save(const Filename: String; const Encoder: IGPImageCodecInfo;
  6779. const Params: IGPEncoderParameters = nil); overload;
  6780. procedure Save(const Stream: IStream; const Format: IGPImageFormat;
  6781. const Params: IGPEncoderParameters = nil); overload;
  6782. procedure Save(const Stream: IStream; const Encoder: IGPImageCodecInfo;
  6783. const Params: IGPEncoderParameters = nil); overload;
  6784. procedure SaveAdd(const Params: IGPEncoderParameters); overload;
  6785. procedure SaveAdd(const NewImage: IGPImage;
  6786. const Params: IGPEncoderParameters); overload;
  6787. procedure GetPhysicalDimension(out Size: TGPSizeF);
  6788. procedure GetBounds(out SrcRect: TGPRectF; out SrcUnit: TGPUnit);
  6789. function GetThumbnailImage(const ThumbWidth, ThumbHeight: Cardinal;
  6790. const Callback: TGPGetThumbnailImageAbort = nil;
  6791. const CallbackData: Pointer = nil): IGPImage;
  6792. function GetFrameDimensions: IGPFrameDimensions;
  6793. function GetFrameCount(const DimensionID: TGUID): Cardinal;
  6794. procedure SelectActiveFrame(const DimensionID: TGUID;
  6795. const FrameIndex: Cardinal);
  6796. procedure RotateFlip(const RotateFlipType: TGPRotateFlipType);
  6797. function GetPropertyItem(const PropId: TPropID): IGPPropertyItem;
  6798. procedure SetPropertyItem(const PropItem: IGPPropertyItem);
  6799. procedure RemovePropertyItem(const PropId: TPropID);
  6800. function GetEncoderParameterList(const lEncoder: TGUID): IGPEncoderParameters;
  6801. {$IF (GDIPVER >= $0110)}
  6802. procedure FindFirstItem(const Item: PGPImageItemData);
  6803. procedure FindNextItem(const Item: PGPImageItemData);
  6804. procedure GetItemData(const Item: PGPImageItemData);
  6805. procedure SetAbort(const Abort: TGdiplusAbort);
  6806. {$IFEND}
  6807.  
  6808. { Properties }
  6809. property ImageType: TGPImageType read GetType;
  6810. property Width: Cardinal read GetWidth;
  6811. property Height: Cardinal read GetHeight;
  6812. property HorizontalResolution: Single read GetHorizontalResolution;
  6813. property VerticalResolution: Single read GetVerticalResolution;
  6814. property Flags: TGPImageFlags read GetFlags;
  6815. property RawFormat: TGUID read GetRawFormat;
  6816. property PixelFormat: TGPPixelFormat read GetPixelFormat;
  6817. property Palette: IGPColorPalette read GetPalette write SetPalette;
  6818. property PropertyIdList: IGPPropertyIdList read GetPropertyIdList;
  6819. property PropertyItems: IGPPropertyItems read GetPropertyItems;
  6820. end;
  6821.  
  6822. TGPImage = class(TGdiplusBase, IGPImage)
  6823. private
  6824. { IGPImage }
  6825. function GetType: TGPImageType;
  6826. function GetWidth: Cardinal;
  6827. function GetHeight: Cardinal;
  6828. function GetHorizontalResolution: Single;
  6829. function GetVerticalResolution: Single;
  6830. function GetFlags: TGPImageFlags;
  6831. function GetRawFormat: TGUID;
  6832. function GetPixelFormat: TGPPixelFormat;
  6833. function GetPalette: IGPColorPalette;
  6834. procedure SetPalette(const Value: IGPColorPalette);
  6835. function GetPropertyIdList: IGPPropertyIdList;
  6836. function GetPropertyItems: IGPPropertyItems;
  6837.  
  6838. function Clone: IGPImage;
  6839. procedure Save(const Filename: String; const Format: IGPImageFormat;
  6840. const Params: IGPEncoderParameters = nil); overload;
  6841. procedure Save(const Filename: String; const Encoder: IGPImageCodecInfo;
  6842. const Params: IGPEncoderParameters = nil); overload;
  6843. procedure Save(const Stream: IStream; const Format: IGPImageFormat;
  6844. const Params: IGPEncoderParameters = nil); overload;
  6845. procedure Save(const Stream: IStream; const Encoder: IGPImageCodecInfo;
  6846. const Params: IGPEncoderParameters = nil); overload;
  6847. procedure SaveAdd(const Params: IGPEncoderParameters); overload;
  6848. procedure SaveAdd(const NewImage: IGPImage;
  6849. const Params: IGPEncoderParameters); overload;
  6850. procedure GetPhysicalDimension(out Size: TGPSizeF);
  6851. procedure GetBounds(out SrcRect: TGPRectF; out SrcUnit: TGPUnit);
  6852. function GetThumbnailImage(const ThumbWidth, ThumbHeight: Cardinal;
  6853. const Callback: TGPGetThumbnailImageAbort = nil;
  6854. const CallbackData: Pointer = nil): IGPImage;
  6855. function GetFrameDimensions: IGPFrameDimensions;
  6856. function GetFrameCount(const DimensionID: TGUID): Cardinal;
  6857. procedure SelectActiveFrame(const DimensionID: TGUID;
  6858. const FrameIndex: Cardinal);
  6859. procedure RotateFlip(const RotateFlipType: TGPRotateFlipType);
  6860. function GetPropertyItem(const PropId: TPropID): IGPPropertyItem;
  6861. procedure SetPropertyItem(const PropItem: IGPPropertyItem);
  6862. procedure RemovePropertyItem(const PropId: TPropID);
  6863. function GetEncoderParameterList(const lEncoder: TGUID): IGPEncoderParameters;
  6864. {$IF (GDIPVER >= $0110)}
  6865. procedure FindFirstItem(const Item: PGPImageItemData);
  6866. procedure FindNextItem(const Item: PGPImageItemData);
  6867. procedure GetItemData(const Item: PGPImageItemData);
  6868. procedure SetAbort(const Abort: TGdiplusAbort);
  6869. {$IFEND}
  6870. private
  6871. constructor Create(const NativeImage: GpImage); overload;
  6872. public
  6873. constructor Create(const Filename: String;
  6874. const UseEmbeddedColorManagement: Boolean = False); overload;
  6875. constructor Create(const Stream: IStream;
  6876. const UseEmbeddedColorManagement: Boolean = False); overload;
  6877. destructor Destroy; override;
  6878.  
  6879. class function FromFile(const Filename: String;
  6880. const UseEmbeddedColorManagement: Boolean = False): IGPImage; static;
  6881. class function FromStream(const Stream: IStream;
  6882. const UseEmbeddedColorManagement: Boolean = False): IGPImage; static;
  6883. // published
  6884. property ImageType: TGPImageType read GetType;
  6885. property Width: Cardinal read GetWidth;
  6886. property Height: Cardinal read GetHeight;
  6887. property HorizontalResolution: Single read GetHorizontalResolution;
  6888. property VerticalResolution: Single read GetVerticalResolution;
  6889. property Flags: TGPImageFlags read GetFlags;
  6890. property RawFormat: TGUID read GetRawFormat;
  6891. property PixelFormat: TGPPixelFormat read GetPixelFormat;
  6892. property Palette: IGPColorPalette read GetPalette write SetPalette;
  6893. property PropertyIdList: IGPPropertyIdList read GetPropertyIdList;
  6894. property PropertyItems: IGPPropertyItems read GetPropertyItems;
  6895.  
  6896. end;
  6897.  
  6898. {$IF (GDIPVER >= $0110)}
  6899. IGPHistogram = interface
  6900. ['{4449210B-46EF-46B0-9458-CE3277CBBA67}']
  6901. { Property access methods }
  6902. function GetChannelCount: Integer;
  6903. function GetEntryCount: Integer;
  6904. function GetValue(const ChannelIndex, EntryIndex: Integer): Cardinal;
  6905. function GetChannel0(const Index: Integer): Cardinal;
  6906. function GetChannel1(const Index: Integer): Cardinal;
  6907. function GetChannel2(const Index: Integer): Cardinal;
  6908. function GetChannel3(const Index: Integer): Cardinal;
  6909. function GetValuePtr(const ChannelIndex: Integer): PCardinal;
  6910. function GetChannel0Ptr: PCardinal;
  6911. function GetChannel1Ptr: PCardinal;
  6912. function GetChannel2Ptr: PCardinal;
  6913. function GetChannel3Ptr: PCardinal;
  6914.  
  6915. { Properties }
  6916. property ChannelCount: Integer read GetChannelCount;
  6917. property EntryCount: Integer read GetEntryCount;
  6918. property Values[const ChannelIndex, EntryIndex: Integer]: Cardinal read GetValue; default;
  6919. property Channel0[const Index: Integer]: Cardinal read GetChannel0;
  6920. property Channel1[const Index: Integer]: Cardinal read GetChannel1;
  6921. property Channel2[const Index: Integer]: Cardinal read GetChannel2;
  6922. property Channel3[const Index: Integer]: Cardinal read GetChannel3;
  6923. property ValuePtr[const ChannelIndex: Integer]: PCardinal read GetValuePtr;
  6924. property Channel0Ptr: PCardinal read GetChannel0Ptr;
  6925. property Channel1Ptr: PCardinal read GetChannel1Ptr;
  6926. property Channel2Ptr: PCardinal read GetChannel2Ptr;
  6927. property Channel3Ptr: PCardinal read GetChannel3Ptr;
  6928. end;
  6929.  
  6930. TGPHistogram = class(TInterfacedObject, IGPHistogram)
  6931. private
  6932. FChannelCount: Integer;
  6933. FEntryCount: Integer;
  6934. FChannels: array [0..3] of PCardinal;
  6935. private
  6936. { IGPHistogram }
  6937. function GetChannelCount: Integer;
  6938. function GetEntryCount: Integer;
  6939. function GetValue(const ChannelIndex, EntryIndex: Integer): Cardinal;
  6940. function GetChannel0(const Index: Integer): Cardinal;
  6941. function GetChannel1(const Index: Integer): Cardinal;
  6942. function GetChannel2(const Index: Integer): Cardinal;
  6943. function GetChannel3(const Index: Integer): Cardinal;
  6944. function GetValuePtr(const ChannelIndex: Integer): PCardinal;
  6945. function GetChannel0Ptr: PCardinal;
  6946. function GetChannel1Ptr: PCardinal;
  6947. function GetChannel2Ptr: PCardinal;
  6948. function GetChannel3Ptr: PCardinal;
  6949. private
  6950. constructor Create(const AChannelCount, AEntryCount: Integer;
  6951. const AChannel0, AChannel1, AChannel2, AChannel3: PCardinal);
  6952. public
  6953. destructor Destroy; override;
  6954. end;
  6955. {$IFEND}
  6956.  
  6957. IGPBitmap = interface(IGPImage)
  6958. ['{704FC1E3-DAFC-4775-9BCB-D7D70741BB54}']
  6959. { Property access methods }
  6960. function GetPixel(const X, Y: Integer): TGPColor;
  6961. procedure SetPixel(const X, Y: Integer; const Value: TGPColor);
  6962.  
  6963. { Methods }
  6964. function Clone: IGPBitmap; overload;
  6965. function Clone(const Rect: TGPRect; const Format: TGPPixelFormat): IGPBitmap; overload;
  6966. function Clone(const X, Y, Width, Height: Integer; const Format: TGPPixelFormat): IGPBitmap; overload;
  6967. function Clone(const Rect: TGPRectF; const Format: TGPPixelFormat): IGPBitmap; overload;
  6968. function Clone(const X, Y, Width, Height: Single; const Format: TGPPixelFormat): IGPBitmap; overload;
  6969. function LockBits(const Rect: TGPRect; const Mode: TGPImageLockMode;
  6970. const Format: TGPPixelFormat): TGPBitmapData;
  6971. procedure UnlockBits(const LockedBitmapData: TGPBitmapData);
  6972. {$IF (GDIPVER >= $0110)}
  6973. procedure ConvertFormat(const Format: TGPPixelFormat;
  6974. const DitherType: TGPDitherType; const PaletteType: TGPPaletteType;
  6975. const Palette: IGPColorPalette = nil; const AlphaThresholdPercent: Single = 0);
  6976. procedure ApplyEffect(const Effect: IGPEffect; const ROI: Windows.PRect = nil);
  6977. function GetHistogram(const Format: TGPHistogramFormat): IGPHistogram;
  6978. {$IFEND}
  6979. procedure SetResolution(const XDpi, YDpi: Single);
  6980. function GetHBitmap(const ColorBackground: TGPColor): HBitmap;
  6981. function GetHIcon: HIcon;
  6982.  
  6983. { Properties }
  6984. property Pixels[const X, Y: Integer]: TGPColor read GetPixel write SetPixel; default;
  6985. end;
  6986.  
  6987. TGPBitmap = class(TGPImage, IGPBitmap)
  6988. public
  6989. { IGPBitmap }
  6990. function GetPixel(const X, Y: Integer): TGPColor;
  6991. procedure SetPixel(const X, Y: Integer; const Value: TGPColor);
  6992.  
  6993. function Clone: IGPBitmap; overload;
  6994. function Clone(const Rect: TGPRect; const Format: TGPPixelFormat): IGPBitmap; overload;
  6995. function Clone(const X, Y, Width, Height: Integer; const Format: TGPPixelFormat): IGPBitmap; overload;
  6996. function Clone(const Rect: TGPRectF; const Format: TGPPixelFormat): IGPBitmap; overload;
  6997. function Clone(const X, Y, Width, Height: Single; const Format: TGPPixelFormat): IGPBitmap; overload;
  6998. function LockBits(const Rect: TGPRect; const Mode: TGPImageLockMode;
  6999. const Format: TGPPixelFormat): TGPBitmapData;
  7000. procedure UnlockBits(const LockedBitmapData: TGPBitmapData);
  7001. {$IF (GDIPVER >= $0110)}
  7002. procedure ConvertFormat(const Format: TGPPixelFormat;
  7003. const DitherType: TGPDitherType; const PaletteType: TGPPaletteType;
  7004. const Palette: IGPColorPalette; const AlphaThresholdPercent: Single);
  7005. procedure ApplyEffect(const Effect: IGPEffect; const ROI: Windows.PRect); overload;
  7006. function GetHistogram(const Format: TGPHistogramFormat): IGPHistogram;
  7007. {$IFEND}
  7008. procedure SetResolution(const XDpi, YDpi: Single);
  7009.  
  7010. function GetHBitmap(const ColorBackground: TGPColor): HBitmap;
  7011. function GetHIcon: HIcon;
  7012. private
  7013. constructor Create(const NativeBitmap: GpBitmap); overload;
  7014. public
  7015. constructor Create(const Filename: String;
  7016. const UseEmbeddedColorManagement: Boolean = False); overload;
  7017. constructor Create(const Stream: IStream;
  7018. const UseEmbeddedColorManagement: Boolean = False); overload;
  7019. constructor Create(const Width, Height, Stride: Integer;
  7020. const Format: TGPPixelFormat; const Scan0: Pointer); overload;
  7021. constructor Create(const Width, Height: Integer;
  7022. const Format: TGPPixelFormat = PixelFormat32bppARGB); overload;
  7023. constructor Create(const Width, Height: Integer;
  7024. const Target: IGPGraphics); overload;
  7025. constructor Create(const DirectDrawSurface7: IUnknown); overload;
  7026. constructor Create(const BitmapInfo: TBitmapInfo;
  7027. const BitmapData: Pointer); overload;
  7028. constructor Create(const BitmapHandle: HBitmap;
  7029. const Palette: HPalette); overload;
  7030. constructor Create(const IconHandle: HIcon); overload;
  7031. constructor Create(const Instance: HInst; const BitmapName: String); overload;
  7032.  
  7033. class function FromFile(const Filename: String;
  7034. const UseEmbeddedColorManagement: Boolean = False): IGPBitmap; static;
  7035. class function FromStream(const Stream: IStream;
  7036. const UseEmbeddedColorManagement: Boolean = False): IGPBitmap; static;
  7037. class function FromDirectDrawSurface7(const Surface: IUnknown): IGPBitmap;
  7038. class function FromBitmapInfo(const BitmapInfo: TBitmapInfo;
  7039. const BitmapData: Pointer): IGPBitmap;
  7040. class function FromHBitmap(const BitmapHandle: HBitmap;
  7041. const Palette: HPalette): IGPBitmap;
  7042. class function FromHIcon(const IconHandle: HIcon): IGPBitmap;
  7043. class function FromResource(const Instance: HInst;
  7044. const BitmapName: String): IGPBitmap;
  7045.  
  7046. {$IF (GDIPVER >= $0110)}
  7047. class function InitializePalette(const ColorCount: Integer;
  7048. const PaletteType: TGPPaletteType; const OptimalColors: Integer;
  7049. const UseTransparentColor: Boolean; const Bitmap: IGPBitmap): IGPColorPalette; static;
  7050. class function ApplyEffect(const Inputs: array of IGPBitmap;
  7051. const Effect: IGPEffect; const ROI, OutputRect: Windows.PRect): IGPBitmap; overload;
  7052. {$IFEND}
  7053. end;
  7054.  
  7055. {$ENDREGION 'GdiplusBitmap.h'}
  7056.  
  7057. {$REGION 'GdiplusLineCaps.h'}
  7058. (*****************************************************************************
  7059. * GdiplusLineCaps.h
  7060. * GDI+ CustomLineCap APIs
  7061. *****************************************************************************)
  7062.  
  7063. IGPCustomLineCap = interface(IGdiPlusBase)
  7064. ['{6BF10928-312C-42F6-83DE-76D98FFFCD7B}']
  7065. { Property access methods }
  7066. function GetStrokeJoin: TGPLineJoin;
  7067. procedure SetStrokeJoin(const Value: TGPLineJoin);
  7068. function GetBaseCap: TGPLineCap;
  7069. procedure SetBaseCap(const Value: TGPLineCap);
  7070. function GetBaseInset: Single;
  7071. procedure SetBaseInset(const Value: Single);
  7072. function GetWidthScale: Single;
  7073. procedure SetWidthScale(const Value: Single);
  7074.  
  7075. { Methods }
  7076. function Clone: IGPCustomLineCap;
  7077. procedure SetStrokeCap(const StrokeCap: TGPLineCap);
  7078. procedure SetStrokeCaps(const StartCap, EndCap: TGPLineCap);
  7079. procedure GetStrokeCaps(out StartCap, EndCap: TGPLineCap);
  7080.  
  7081. { Properties }
  7082. property StrokeJoin: TGPLineJoin read GetStrokeJoin write SetStrokeJoin;
  7083. property BaseCap: TGPLineCap read GetBaseCap write SetBaseCap;
  7084. property BaseInset: Single read GetBaseInset write SetBaseInset;
  7085. property WidthScale: Single read GetWidthScale write SetWidthScale;
  7086. end;
  7087.  
  7088. TGPCustomLineCap = class(TGdiplusBase, IGPCustomLineCap)
  7089. private
  7090. { IGPCustomLineCap }
  7091. function GetStrokeJoin: TGPLineJoin;
  7092. procedure SetStrokeJoin(const Value: TGPLineJoin);
  7093. function GetBaseCap: TGPLineCap;
  7094. procedure SetBaseCap(const Value: TGPLineCap);
  7095. function GetBaseInset: Single;
  7096. procedure SetBaseInset(const Value: Single);
  7097. function GetWidthScale: Single;
  7098. procedure SetWidthScale(const Value: Single);
  7099.  
  7100. function Clone: IGPCustomLineCap;
  7101. procedure SetStrokeCap(const StrokeCap: TGPLineCap);
  7102. procedure SetStrokeCaps(const StartCap, EndCap: TGPLineCap);
  7103. procedure GetStrokeCaps(out StartCap, EndCap: TGPLineCap);
  7104. private
  7105. constructor Create(const NativeLineCap: GpCustomLineCap); overload;
  7106. public
  7107. constructor Create(const FillPath, StrokePath: IGPGraphicsPath;
  7108. const BaseCap: TGPLineCap = LineCapFlat; const BaseInset: Single = 0); overload;
  7109. destructor Destroy; override;
  7110. end;
  7111.  
  7112. IGPAdjustableArrowCap = interface(IGPCustomLineCap)
  7113. ['{25BE82E3-DF7F-4143-B5EA-3E535BDD3A86}']
  7114. { Property access methods }
  7115. function GetHeight: Single;
  7116. procedure SetHeight(const Value: Single);
  7117. function GetWidth: Single;
  7118. procedure SetWidth(const Value: Single);
  7119. function GetMiddleInset: Single;
  7120. procedure SetMiddleInset(const Value: Single);
  7121. function GetFilled: Boolean;
  7122. procedure SetFilled(const Value: Boolean);
  7123.  
  7124. { Properties }
  7125. property Height: Single read GetHeight write SetHeight;
  7126. property Width: Single read GetWidth write SetWidth;
  7127. property MiddleInset: Single read GetMiddleInset write SetMiddleInset;
  7128. property Filled: Boolean read GetFilled write SetFilled;
  7129. end;
  7130.  
  7131. TGPAdjustableArrowCap = class(TGPCustomLineCap, IGPAdjustableArrowCap)
  7132. private
  7133. { IGPAdjustableArrowCap }
  7134. function GetHeight: Single;
  7135. procedure SetHeight(const Value: Single);
  7136. function GetWidth: Single;
  7137. procedure SetWidth(const Value: Single);
  7138. function GetMiddleInset: Single;
  7139. procedure SetMiddleInset(const Value: Single);
  7140. function GetFilled: Boolean;
  7141. procedure SetFilled(const Value: Boolean);
  7142. public
  7143. constructor Create(const Height, Width: Single;
  7144. const IsFilled: Boolean = True); overload;
  7145. end;
  7146. {$ENDREGION 'GdiplusLineCaps.h'}
  7147.  
  7148. {$REGION 'GdiplusCachedBitmap.h'}
  7149. (*****************************************************************************
  7150. * GdiplusCachedBitmap.h
  7151. * GDI+ CachedBitmap is a representation of an accelerated drawing
  7152. * that has restrictions on what operations are allowed in order
  7153. * to accelerate the drawing to the destination.
  7154. *****************************************************************************)
  7155.  
  7156. IGPCachedBitmap = interface(IGdiPlusBase)
  7157. ['{1F77CA35-C917-4167-87CF-BF9DBB23FCAB}']
  7158. end;
  7159.  
  7160. TGPCachedBitmap = class(TGdiplusBase, IGPCachedBitmap)
  7161. public
  7162. constructor Create(const Bitmap: IGPBitmap; const Graphics: IGPGraphics); overload;
  7163. destructor Destroy; override;
  7164. end;
  7165.  
  7166. {$ENDREGION 'GdiplusCachedBitmap.h'}
  7167.  
  7168. {$REGION 'GdiplusMetafile.h'}
  7169. (*****************************************************************************
  7170. * GdiplusMetafile.h
  7171. * GDI+ Metafile class
  7172. *****************************************************************************)
  7173.  
  7174. IGPMetafile = interface(IGPImage)
  7175. ['{BBA510DD-1D60-4067-839C-C77733BCC2AB}']
  7176. { Property access methods }
  7177. function GetDownLevelRasterizationLimit: Cardinal;
  7178. procedure SetDownLevelRasterizationLimit(const Value: Cardinal);
  7179.  
  7180. { Methods }
  7181. function GetMetafileHeader: TGPMetafileHeader;
  7182. function GetHEnhMetafile: HEnhMetafile;
  7183. procedure PlayRecord(const RecordType: TEmfPlusRecordType;
  7184. const Flags, DataSize: Integer; const Data: Pointer);
  7185. {$IF (GDIPVER >= $0110)}
  7186. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7187. const ConversionFailureFlag: PInteger = nil;
  7188. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7189. const Description: String = ''); overload;
  7190. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7191. const Filename: String; const ConversionFailureFlag: PInteger = nil;
  7192. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7193. const Description: String = ''); overload;
  7194. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7195. const Stream: IStream; const ConversionFailureFlag: PInteger = nil;
  7196. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7197. const Description: String = ''); overload;
  7198. {$IFEND}
  7199.  
  7200. { Properties }
  7201. property DownLevelRasterizationLimit: Cardinal read GetDownLevelRasterizationLimit write SetDownLevelRasterizationLimit;
  7202. end;
  7203.  
  7204. TGPMetafile = class(TGPImage, IGPMetafile)
  7205. private
  7206. { IGPMetafile }
  7207. function GetDownLevelRasterizationLimit: Cardinal;
  7208. procedure SetDownLevelRasterizationLimit(const Value: Cardinal);
  7209.  
  7210. function GetMetafileHeader: TGPMetafileHeader; overload;
  7211. function GetHEnhMetafile: HEnhMetafile;
  7212. procedure PlayRecord(const RecordType: TEmfPlusRecordType;
  7213. const Flags, DataSize: Integer; const Data: Pointer);
  7214. {$IF (GDIPVER >= $0110)}
  7215. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7216. const ConversionFailureFlag: PInteger = nil;
  7217. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7218. const Description: String = ''); overload;
  7219. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7220. const Filename: String; const ConversionFailureFlag: PInteger = nil;
  7221. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7222. const Description: String = ''); overload;
  7223. procedure ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  7224. const Stream: IStream; const ConversionFailureFlag: PInteger = nil;
  7225. const EmfType: TGPEmfType = EmfTypeEmfPlusOnly;
  7226. const Description: String = ''); overload;
  7227. {$IFEND}
  7228. public
  7229. constructor Create(const Wmf: HMetafile;
  7230. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader;
  7231. const DeleteWmf: Boolean = False); overload;
  7232. constructor Create(const Emf: HEnhMetafile; const DeleteEmf: Boolean = False); overload;
  7233. constructor Create(const Filename: String); overload;
  7234. constructor Create(const Filename: String;
  7235. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader); overload;
  7236. constructor Create(const Stream: IStream); overload;
  7237. constructor Create(const ReferenceDC: HDC;
  7238. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7239. const Description: String = ''); overload;
  7240. constructor Create(const ReferenceDC: HDC; const FrameRect: TGPRectF;
  7241. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7242. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7243. const Description: String = ''); overload;
  7244. constructor Create(const ReferenceDC: HDC; const FrameRect: TGPRect;
  7245. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7246. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7247. const Description: String = ''); overload;
  7248. constructor Create(const Filename: String; const ReferenceDC: HDC;
  7249. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7250. const Description: String = ''); overload;
  7251. constructor Create(const Filename: String; const ReferenceDC: HDC;
  7252. const FrameRect: TGPRectF;
  7253. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7254. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7255. const Description: String = ''); overload;
  7256. constructor Create(const Filename: String; const ReferenceDC: HDC;
  7257. const FrameRect: TGPRect;
  7258. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7259. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7260. const Description: String = ''); overload;
  7261. constructor Create(const Stream: IStream; const ReferenceDC: HDC;
  7262. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7263. const Description: String = ''); overload;
  7264. constructor Create(const Stream: IStream; const ReferenceDC: HDC;
  7265. const FrameRect: TGPRectF;
  7266. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7267. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7268. const Description: String = ''); overload;
  7269. constructor Create(const Stream: IStream; const ReferenceDC: HDC;
  7270. const FrameRect: TGPRect;
  7271. const FrameUnit: TGPMetafileFrameUnit = MetafileFrameUnitGdi;
  7272. const EmfType: TGPEmfType = EmfTypeEmfPlusDual;
  7273. const Description: String = ''); overload;
  7274.  
  7275. class function GetMetafileHeader(const Wmf: HMetafile;
  7276. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader): TGPMetafileHeader; overload; static;
  7277. class function GetMetafileHeader(const Emf: HEnhMetafile): TGPMetafileHeader; overload; static;
  7278. class function GetMetafileHeader(const Filename: String): TGPMetafileHeader; overload; static;
  7279. class function GetMetafileHeader(const Stream: IStream): TGPMetafileHeader; overload; static;
  7280.  
  7281. class function EmfToWmfBits(const Emf: HEnhMetafile;
  7282. const MapMode: Integer = MM_ANISOTROPIC;
  7283. const Flags: TGPEmfToWmfBitsFlags = EmfToWmfBitsFlagsDefault): IGPBuffer;
  7284. end;
  7285.  
  7286. {$ENDREGION 'GdiplusMetafile.h'}
  7287.  
  7288. {$REGION 'GdiplusImageAttributes.h'}
  7289.  
  7290. (*****************************************************************************
  7291. * GdiplusImageAttributes.h
  7292. * GDI+ Image Attributes used with Graphics.DrawImage
  7293. *****************************************************************************)
  7294.  
  7295. IGPImageAttributes = interface(IGdiPlusBase)
  7296. ['{840C6292-E52C-4A2D-8444-CCE2A91DB701}']
  7297. { Methods }
  7298. function Clone: IGPImageAttributes;
  7299. procedure SetToIdentity(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7300. procedure Reset(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7301. procedure SetColorMatrix(const ColorMatrix: TGPColorMatrix;
  7302. const Mode: TGPColorMatrixFlags = ColorMatrixFlagsDefault;
  7303. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7304. procedure ClearColorMatrix(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7305. procedure SetColorMatrices(const ColorMatrix, GrayMatrix: TGPColorMatrix;
  7306. const Mode: TGPColorMatrixFlags = ColorMatrixFlagsDefault;
  7307. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7308. procedure ClearColorMatrices(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7309. procedure SetThreshold(const Threshold: Single;
  7310. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7311. procedure ClearThreshold(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7312. procedure SetGamma(const Gamma: Single;
  7313. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7314. procedure ClearGamma(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7315. procedure SetNoOp(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7316. procedure ClearNoOp(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7317. procedure SetColorKey(const ColorLow, ColorHigh: TGPColor;
  7318. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7319. procedure ClearColorKey(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7320. procedure SetOutputChannel(const ChannelFlags: TGPColorChannelFlags;
  7321. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7322. procedure ClearOutputChannel(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7323. procedure SetOutputChannelColorProfile(const ColorProfileFilename: String;
  7324. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7325. procedure ClearOutputChannelColorProfile(
  7326. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7327. procedure SetRemapTable(const Map: array of TGPColorMap;
  7328. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7329. procedure ClearRemapTable(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7330. procedure SetBrushRemapTable(const Map: array of TGPColorMap);
  7331. procedure ClearBrushRemapTable;
  7332. procedure SetWrapMode(const Wrap: TGPWrapMode;
  7333. const Color: TGPColor; const Clamp: Boolean = False); overload;
  7334. procedure SetWrapMode(const Wrap: TGPWrapMode); overload;
  7335. procedure GetAdjustedPalette(const ColorPalette: IGPColorPalette;
  7336. const ColorAdjustType: TGPColorAdjustType);
  7337. end;
  7338.  
  7339. TGPImageAttributes = class(TGdiplusBase, IGPImageAttributes)
  7340. private
  7341. { IGPImageAttributes }
  7342. function Clone: IGPImageAttributes;
  7343. procedure SetToIdentity(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7344. procedure Reset(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7345. procedure SetColorMatrix(const ColorMatrix: TGPColorMatrix;
  7346. const Mode: TGPColorMatrixFlags = ColorMatrixFlagsDefault;
  7347. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7348. procedure ClearColorMatrix(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7349. procedure SetColorMatrices(const ColorMatrix, GrayMatrix: TGPColorMatrix;
  7350. const Mode: TGPColorMatrixFlags = ColorMatrixFlagsDefault;
  7351. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7352. procedure ClearColorMatrices(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7353. procedure SetThreshold(const Threshold: Single;
  7354. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7355. procedure ClearThreshold(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7356. procedure SetGamma(const Gamma: Single;
  7357. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7358. procedure ClearGamma(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7359. procedure SetNoOp(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7360. procedure ClearNoOp(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7361. procedure SetColorKey(const ColorLow, ColorHigh: TGPColor;
  7362. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7363. procedure ClearColorKey(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7364. procedure SetOutputChannel(const ChannelFlags: TGPColorChannelFlags;
  7365. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7366. procedure ClearOutputChannel(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7367. procedure SetOutputChannelColorProfile(const ColorProfileFilename: String;
  7368. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7369. procedure ClearOutputChannelColorProfile(
  7370. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7371. procedure SetRemapTable(const Map: array of TGPColorMap;
  7372. const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7373. procedure ClearRemapTable(const AdjustType: TGPColorAdjustType = ColorAdjustTypeDefault);
  7374. procedure SetBrushRemapTable(const Map: array of TGPColorMap);
  7375. procedure ClearBrushRemapTable;
  7376. procedure SetWrapMode(const Wrap: TGPWrapMode;
  7377. const Color: TGPColor; const Clamp: Boolean = False); overload;
  7378. procedure SetWrapMode(const Wrap: TGPWrapMode); overload;
  7379. procedure GetAdjustedPalette(const ColorPalette: IGPColorPalette;
  7380. const ColorAdjustType: TGPColorAdjustType);
  7381. private
  7382. constructor Create(const NativeAttributes: GpImageAttributes); overload;
  7383. public
  7384. constructor Create; overload;
  7385. destructor Destroy; override;
  7386. end;
  7387.  
  7388. {$ENDREGION 'GdiplusImageAttributes.h'}
  7389.  
  7390. {$REGION 'GdiplusMatrix.h'}
  7391.  
  7392. (*****************************************************************************
  7393. * GdiplusMatrix.h
  7394. * GDI+ Matrix class
  7395. *****************************************************************************)
  7396.  
  7397. TGPMatrixElements = record
  7398. case Integer of
  7399. 0: (M: array [0..5] of Single);
  7400. 1: (M11: Single;
  7401. M12: Single;
  7402. M21: Single;
  7403. M22: Single;
  7404. DX : Single;
  7405. DY : Single);
  7406. end;
  7407.  
  7408. TGPPlgPointsF = array [0..2] of TGPPointF;
  7409. TGPPlgPoints = array [0..2] of TGPPoint;
  7410.  
  7411. IGPMatrix = interface(IGdiPlusBase)
  7412. ['{2B5AA3D4-F4AA-436D-AB48-18321613FF99}']
  7413. { Property access methods }
  7414. function GetElements: TGPMatrixElements;
  7415. procedure SetElements(const Value: TGPMatrixElements); overload;
  7416. function GetOffsetX: Single;
  7417. function GetOffsetY: Single;
  7418. function GetIsInvertible: Boolean;
  7419. function GetIsIdentity: Boolean;
  7420.  
  7421. { Methods }
  7422. function Clone: IGPMatrix;
  7423. procedure Reset;
  7424. procedure SetElements(const M11, M12, M21, M22, DX, DY: Single); overload;
  7425. procedure Multiply(const Matrix: IGPMatrix;
  7426. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7427. procedure Translate(const OffsetX, OffsetY: Single;
  7428. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7429. procedure Scale(const ScaleX, ScaleY: Single;
  7430. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7431. procedure Rotate(const Angle: Single;
  7432. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7433. procedure RotateAt(const Angle: Single; const Center: TGPPointF;
  7434. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7435. procedure Shear(const ShearX, ShearY: Single;
  7436. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7437. procedure Invert;
  7438. procedure TransformPoint(var Point: TGPPointF); overload;
  7439. procedure TransformPoint(var Point: TGPPoint); overload;
  7440. procedure TransformPoints(const Points: array of TGPPointF); overload;
  7441. procedure TransformPoints(const Points: array of TGPPoint); overload;
  7442. procedure TransformVector(var Point: TGPPointF); overload;
  7443. procedure TransformVector(var Point: TGPPoint); overload;
  7444. procedure TransformVectors(const Points: array of TGPPointF); overload;
  7445. procedure TransformVectors(const Points: array of TGPPoint); overload;
  7446. function Equals(const Matrix: IGPMatrix): Boolean;
  7447.  
  7448. { Properties }
  7449. property Elements: TGPMatrixElements read GetElements write SetElements;
  7450. property OffsetX: Single read GetOffsetX;
  7451. property OffsetY: Single read GetOffsetY;
  7452. property IsInvertible: Boolean read GetIsInvertible;
  7453. property IsIdentity: Boolean read GetIsIdentity;
  7454. end;
  7455.  
  7456. TGPMatrix = class(TGdiplusBase, IGPMatrix)
  7457. private
  7458. { IGPMatrix }
  7459. function GetElements: TGPMatrixElements;
  7460. procedure SetElements(const Value: TGPMatrixElements); overload;
  7461. function GetOffsetX: Single;
  7462. function GetOffsetY: Single;
  7463. function GetIsInvertible: Boolean;
  7464. function GetIsIdentity: Boolean;
  7465.  
  7466. function Clone: IGPMatrix;
  7467. procedure Reset;
  7468. procedure SetElements(const M11, M12, M21, M22, DX, DY: Single); overload;
  7469. procedure Multiply(const Matrix: IGPMatrix;
  7470. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7471. procedure Translate(const OffsetX, OffsetY: Single;
  7472. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7473. procedure Scale(const ScaleX, ScaleY: Single;
  7474. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7475. procedure Rotate(const Angle: Single;
  7476. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7477. procedure RotateAt(const Angle: Single; const Center: TGPPointF;
  7478. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7479. procedure Shear(const ShearX, ShearY: Single;
  7480. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7481. procedure Invert;
  7482. procedure TransformPoint(var Point: TGPPointF); overload;
  7483. procedure TransformPoint(var Point: TGPPoint); overload;
  7484. procedure TransformPoints(const Points: array of TGPPointF); overload;
  7485. procedure TransformPoints(const Points: array of TGPPoint); overload;
  7486. procedure TransformVector(var Point: TGPPointF); overload;
  7487. procedure TransformVector(var Point: TGPPoint); overload;
  7488. procedure TransformVectors(const Points: array of TGPPointF); overload;
  7489. procedure TransformVectors(const Points: array of TGPPoint); overload;
  7490. function Equals(const Matrix: IGPMatrix): Boolean; reintroduce;
  7491. private
  7492. constructor Create(const NativeMatrix: GpMatrix); overload;
  7493. public
  7494. constructor Create; overload;
  7495. constructor Create(const M11, M12, M21, M22, DX, DY: Single); overload;
  7496. constructor Create(const Rect: TGPRectF; const DstPlg: TGPPlgPointsF); overload;
  7497. constructor Create(const Rect: TGPRect; const DstPlg: TGPPlgPoints); overload;
  7498. destructor Destroy; override;
  7499. end;
  7500. {$ENDREGION 'GdiplusMatrix.h'}
  7501.  
  7502. {$REGION 'GdiplusBrush.h'}
  7503.  
  7504. (*****************************************************************************
  7505. * GdiplusBrush.h
  7506. * GDI+ Brush class
  7507. *****************************************************************************)
  7508. IGPBrush = interface(IGdiPlusBase)
  7509. ['{E0A8536C-D389-43E9-984F-B6DB6B1AFBF2}']
  7510. { Property access methods }
  7511. function GetType: TGPBrushType;
  7512.  
  7513. { Methods }
  7514. function Clone: IGPBrush;
  7515.  
  7516. { Properties }
  7517. property BrushType: TGPBrushType read GetType;
  7518. end;
  7519.  
  7520. TGPBrush = class abstract(TGdiplusBase, IGPBrush)
  7521. private
  7522. { IGPBrush }
  7523. function GetType: TGPBrushType;
  7524. function Clone: IGPBrush;
  7525. private
  7526. constructor Create; overload;
  7527. constructor Create(const NativeBrush: GpBrush); overload;
  7528. public
  7529. destructor Destroy; override;
  7530. end;
  7531.  
  7532. IGPSolidBrush = interface(IGPBrush)
  7533. ['{5DC6D20E-74C1-48B8-83A1-00D213827298}']
  7534. { Property access methods }
  7535. function GetColor: TGPColor;
  7536. procedure SetColor(const Value: TGPColor);
  7537.  
  7538. { Properties }
  7539. property Color: TGPColor read GetColor write SetColor;
  7540. end;
  7541.  
  7542. TGPSolidBrush = class(TGPBrush, IGPSolidBrush)
  7543. private
  7544. { IGPSolidBrush }
  7545. function GetColor: TGPColor;
  7546. procedure SetColor(const Value: TGPColor);
  7547. private
  7548. constructor Create; overload;
  7549. public
  7550. constructor Create(const Color: TGPColor); overload;
  7551. end;
  7552.  
  7553. IGPTextureBrush = interface(IGPBrush)
  7554. ['{37076023-1AE9-4F95-BB6C-D09C4E647AC2}']
  7555. { Property access methods }
  7556. function GetTransform: IGPMatrix;
  7557. procedure SetTransform(const Value: IGPMatrix);
  7558. function GetWrapMode: TGPWrapMode;
  7559. procedure SetWrapMode(const Value: TGPWrapMode);
  7560. function GetImage: IGPImage;
  7561.  
  7562. { Methods }
  7563. procedure ResetTransform;
  7564. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7565. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7566. procedure TranslateTransform(const DX, DY: Single;
  7567. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7568. procedure ScaleTransform(const SX, SY: Single;
  7569. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7570. procedure RotateTransform(const Angle: Single;
  7571. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7572.  
  7573. { Properties }
  7574. property Transform: IGPMatrix read GetTransform write SetTransform;
  7575. property WrapMode: TGPWrapMode read GetWrapMode write SetWrapMode;
  7576. property Image: IGPImage read GetImage;
  7577. end;
  7578.  
  7579. TGPTextureBrush = class(TGPBrush, IGPTextureBrush)
  7580. private
  7581. { IGPTextureBrush }
  7582. function GetTransform: IGPMatrix;
  7583. procedure SetTransform(const Value: IGPMatrix);
  7584. function GetWrapMode: TGPWrapMode;
  7585. procedure SetWrapMode(const Value: TGPWrapMode);
  7586. function GetImage: IGPImage;
  7587.  
  7588. procedure ResetTransform;
  7589. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7590. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7591. procedure TranslateTransform(const DX, DY: Single;
  7592. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7593. procedure ScaleTransform(const SX, SY: Single;
  7594. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7595. procedure RotateTransform(const Angle: Single;
  7596. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7597. private
  7598. constructor Create; overload;
  7599. public
  7600. constructor Create(const Image: IGPImage;
  7601. const WrapMode: TGPWrapMode = WrapModeTile); overload;
  7602. constructor Create(const Image: IGPImage;
  7603. const WrapMode: TGPWrapMode; const DstRect: TGPRectF); overload;
  7604. constructor Create(const Image: IGPImage;
  7605. const WrapMode: TGPWrapMode; const DstRect: TGPRect); overload;
  7606. constructor Create(const Image: IGPImage; const DstRect: TGPRectF;
  7607. const ImageAttributes: IGPImageAttributes = nil); overload;
  7608. constructor Create(const Image: IGPImage; const DstRect: TGPRect;
  7609. const ImageAttributes: IGPImageAttributes = nil); overload;
  7610. constructor Create(const Image: IGPImage;
  7611. const WrapMode: TGPWrapMode; const DstX, DstY, DstWidth, DstHeight: Single); overload;
  7612. constructor Create(const Image: IGPImage;
  7613. const WrapMode: TGPWrapMode; const DstX, DstY, DstWidth, DstHeight: Integer); overload;
  7614. end;
  7615.  
  7616. TGPLinearColors = array [0..1] of TGPColor;
  7617.  
  7618. IGPBlend = interface
  7619. ['{497DDA96-3962-4037-B5D4-089D0C463378}']
  7620. { Property access methods }
  7621. function GetCount: Integer;
  7622. function GetFactor(const Index: Integer): Single;
  7623. procedure SetFactor(const Index: Integer; const Value: Single);
  7624. function GetPosition(const Index: Integer): Single;
  7625. procedure SetPosition(const Index: Integer; const Value: Single);
  7626. function GetFactorPtr: PSingle;
  7627. function GetPositionPtr: PSingle;
  7628.  
  7629. { Properties }
  7630. property Count: Integer read GetCount;
  7631. property Factors[const Index: Integer]: Single read GetFactor write SetFactor;
  7632. property Positions[const Index: Integer]: Single read GetPosition write SetPosition;
  7633. property FactorPtr: PSingle read GetFactorPtr;
  7634. property PositionPtr: PSingle read GetPositionPtr;
  7635. end;
  7636.  
  7637. TGPBlend = class(TInterfacedObject, IGPBlend)
  7638. private
  7639. FFactors: array of Single;
  7640. FPositions: array of Single;
  7641. private
  7642. { IGPBlend }
  7643. function GetCount: Integer;
  7644. function GetFactor(const Index: Integer): Single;
  7645. procedure SetFactor(const Index: Integer; const Value: Single);
  7646. function GetPosition(const Index: Integer): Single;
  7647. procedure SetPosition(const Index: Integer; const Value: Single);
  7648. function GetFactorPtr: PSingle;
  7649. function GetPositionPtr: PSingle;
  7650. private
  7651. constructor Create(const ACount: Integer); overload;
  7652. public
  7653. constructor Create(const AFactors, APositions: array of Single); overload;
  7654. end;
  7655.  
  7656. IGPColorBlend = interface
  7657. ['{5F3C0BE0-BFED-4275-A21B-7FF97687F271}']
  7658. { Property access methods }
  7659. function GetCount: Integer;
  7660. function GetColor(const Index: Integer): TGPColor;
  7661. procedure SetColor(const Index: Integer; const Value: TGPColor);
  7662. function GetPosition(const Index: Integer): Single;
  7663. procedure SetPosition(const Index: Integer; const Value: Single);
  7664. function GetColorPtr: PGPColor;
  7665. function GetPositionPtr: PSingle;
  7666.  
  7667. { Properties }
  7668. property Count: Integer read GetCount;
  7669. property Colors[const Index: Integer]: TGPColor read GetColor write SetColor;
  7670. property Positions[const Index: Integer]: Single read GetPosition write SetPosition;
  7671. property ColorPtr: PGPColor read GetColorPtr;
  7672. property PositionPtr: PSingle read GetPositionPtr;
  7673. end;
  7674.  
  7675. TGPColorBlend = class(TInterfacedObject, IGPColorBlend)
  7676. private
  7677. FColors: array of TGPColor;
  7678. FPositions: array of Single;
  7679. private
  7680. { IGPColorBlend }
  7681. function GetCount: Integer;
  7682. function GetColor(const Index: Integer): TGPColor;
  7683. procedure SetColor(const Index: Integer; const Value: TGPColor);
  7684. function GetPosition(const Index: Integer): Single;
  7685. procedure SetPosition(const Index: Integer; const Value: Single);
  7686. function GetColorPtr: PGPColor;
  7687. function GetPositionPtr: PSingle;
  7688. private
  7689. constructor Create(const ACount: Integer); overload;
  7690. public
  7691. constructor Create(const AColors: array of TGPColor;
  7692. const APositions: array of Single); overload;
  7693. end;
  7694.  
  7695. IGPLinearGradientBrush = interface(IGPBrush)
  7696. ['{85ECE5BB-FE0F-4CD9-9094-6608696C8475}']
  7697. { Property access methods }
  7698. function GetLinearColors: TGPLinearColors;
  7699. procedure SetLinearColors(const Value: TGPLinearColors);
  7700. function GetRectangle: TGPRectF; overload;
  7701. function GetGammaCorrection: Boolean;
  7702. procedure SetGammaCorrection(const Value: Boolean);
  7703. function GetBlend: IGPBlend;
  7704. procedure SetBlend(const Value: IGPBlend);
  7705. function GetInterpolationColors: IGPColorBlend;
  7706. procedure SetInterpolationColors(const Value: IGPColorBlend);
  7707. function GetTransform: IGPMatrix;
  7708. procedure SetTransform(const Value: IGPMatrix);
  7709. function GetWrapMode: TGPWrapMode;
  7710. procedure SetWrapMode(const Value: TGPWrapMode);
  7711.  
  7712. { Methods }
  7713. procedure GetRectangle(out Rect: TGPRectF); overload;
  7714. procedure GetRectangle(out Rect: TGPRect); overload;
  7715. procedure SetBlendBellShape(const Focus: Single; const Scale: Single = 1);
  7716. procedure SetBlendTriangularShape(const Focus: Single; const Scale: Single = 1);
  7717. procedure ResetTransform;
  7718. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7719. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7720. procedure TranslateTransform(const DX, DY: Single;
  7721. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7722. procedure ScaleTransform(const SX, SY: Single;
  7723. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7724. procedure RotateTransform(const Angle: Single;
  7725. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7726.  
  7727. { Properties }
  7728. property LinearColors: TGPLinearColors read GetLinearColors write SetLinearColors;
  7729. property Rectangle: TGPRectF read GetRectangle;
  7730. property GammaCorrection: Boolean read GetGammaCorrection write SetGammaCorrection;
  7731. property Blend: IGPBlend read GetBlend write SetBlend;
  7732. property InterpolationColors: IGPColorBlend read GetInterpolationColors write SetInterpolationColors;
  7733. property Transform: IGPMatrix read GetTransform write SetTransform;
  7734. property WrapMode: TGPWrapMode read GetWrapMode write SetWrapMode;
  7735. end;
  7736.  
  7737. TGPLinearGradientBrush = class(TGPBrush, IGPLinearGradientBrush)
  7738. private
  7739. { IGPLinearGradientBrush }
  7740. function GetLinearColors: TGPLinearColors;
  7741. procedure SetLinearColors(const Value: TGPLinearColors);
  7742. function GetRectangle: TGPRectF; overload;
  7743. function GetGammaCorrection: Boolean;
  7744. procedure SetGammaCorrection(const Value: Boolean);
  7745. function GetBlend: IGPBlend;
  7746. procedure SetBlend(const Value: IGPBlend);
  7747. function GetInterpolationColors: IGPColorBlend;
  7748. procedure SetInterpolationColors(const Value: IGPColorBlend);
  7749. function GetTransform: IGPMatrix;
  7750. procedure SetTransform(const Value: IGPMatrix);
  7751. function GetWrapMode: TGPWrapMode;
  7752. procedure SetWrapMode(const Value: TGPWrapMode);
  7753.  
  7754. procedure GetRectangle(out Rect: TGPRectF); overload;
  7755. procedure GetRectangle(out Rect: TGPRect); overload;
  7756. procedure SetBlendBellShape(const Focus: Single; const Scale: Single = 1);
  7757. procedure SetBlendTriangularShape(const Focus: Single; const Scale: Single = 1);
  7758. procedure ResetTransform;
  7759. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7760. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7761. procedure TranslateTransform(const DX, DY: Single;
  7762. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7763. procedure ScaleTransform(const SX, SY: Single;
  7764. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7765. procedure RotateTransform(const Angle: Single;
  7766. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7767. private
  7768. constructor Create; overload;
  7769. public
  7770. constructor Create(const Point1, Point2: TGPPointF;
  7771. const Color1, Color2: TGPColor); overload;
  7772. constructor Create(const Point1, Point2: TGPPoint;
  7773. const Color1, Color2: TGPColor); overload;
  7774. constructor Create(const Rect: TGPRectF; const Color1, Color2: TGPColor;
  7775. const Mode: TGPLinearGradientMode); overload;
  7776. constructor Create(const Rect: TGPRect; const Color1, Color2: TGPColor;
  7777. const Mode: TGPLinearGradientMode); overload;
  7778. constructor Create(const Rect: TGPRectF; const Color1, Color2: TGPColor;
  7779. const Angle: Single; const IsAngleScalable: Boolean = False); overload;
  7780. constructor Create(const Rect: TGPRect; const Color1, Color2: TGPColor;
  7781. const Angle: Single; const IsAngleScalable: Boolean = False); overload;
  7782. end;
  7783.  
  7784. IGPHatchBrush = interface(IGPBrush)
  7785. ['{5EED3025-99F4-435D-A854-FDF2B0A08FBD}']
  7786. { Property access methods }
  7787. function GetHatchStyle: TGPHatchStyle;
  7788. function GetForegroundColor: TGPColor;
  7789. function GetBackgroundColor: TGPColor;
  7790.  
  7791. { Properties }
  7792. property HatchStyle: TGPHatchStyle read GetHatchStyle;
  7793. property ForegroundColor: TGPColor read GetForegroundColor;
  7794. property BackgroundColor: TGPColor read GetBackgroundColor;
  7795. end;
  7796.  
  7797. TGPHatchBrush = class(TGPBrush, IGPHatchBrush)
  7798. private
  7799. { IGPHatchBrush }
  7800. function GetHatchStyle: TGPHatchStyle;
  7801. function GetForegroundColor: TGPColor;
  7802. function GetBackgroundColor: TGPColor;
  7803. private
  7804. constructor Create; overload;
  7805. public
  7806. constructor Create(const HatchStyle: TGPHatchStyle; const ForeColor,
  7807. BackColor: TGPColor); overload;
  7808. constructor Create(const HatchStyle: TGPHatchStyle; const ForeColor: TGPColor); overload;
  7809. end;
  7810.  
  7811. {$ENDREGION 'GdiplusBrush.h'}
  7812.  
  7813. {$REGION 'GdiplusPen.h'}
  7814.  
  7815. (*****************************************************************************
  7816. * GdiplusPen.h
  7817. * GDI+ Pen class
  7818. *****************************************************************************)
  7819.  
  7820. IGPDashPattern = IGPArray<Single>;
  7821. IGPCompoundArray = IGPArray<Single>;
  7822.  
  7823. IGPPen = interface(IGdiPlusBase)
  7824. ['{5F88EBBC-6104-44AC-BDCE-691DBEF21607}']
  7825. { Property access methods }
  7826. function GetWidth: Single;
  7827. procedure SetWidth(const Value: Single);
  7828. function GetStartCap: TGPLineCap;
  7829. procedure SetStartCap(const Value: TGPLineCap);
  7830. function GetEndCap: TGPLineCap;
  7831. procedure SetEndCap(const Value: TGPLineCap);
  7832. function GetDashCap: TGPDashCap;
  7833. procedure SetDashCap(const Value: TGPDashCap);
  7834. function GetLineJoin: TGPLineJoin;
  7835. procedure SetLineJoin(const Value: TGPLineJoin);
  7836. function GetCustomStartCap: IGPCustomLineCap;
  7837. procedure SetCustomStartCap(const Value: IGPCustomLineCap);
  7838. function GetCustomEndCap: IGPCustomLineCap;
  7839. procedure SetCustomEndCap(const Value: IGPCustomLineCap);
  7840. function GetMiterLimit: Single;
  7841. procedure SetMiterLimit(const Value: Single);
  7842. function GetAlignment: TGPPenAlignment;
  7843. procedure SetAlignment(const Value: TGPPenAlignment);
  7844. function GetTransform: IGPMatrix;
  7845. procedure SetTransform(const Value: IGPMatrix);
  7846. function GetPenType: TGPPenType;
  7847. function GetColor: TGPColor;
  7848. procedure SetColor(const Value: TGPColor);
  7849. function GetBrush: IGPBrush;
  7850. procedure SetBrush(const Value: IGPBrush);
  7851. function GetDashStyle: TGPDashStyle;
  7852. procedure SetDashStyle(const Value: TGPDashStyle);
  7853. function GetDashOffset: Single;
  7854. procedure SetDashOffset(const Value: Single);
  7855. function GetDashPattern: IGPDashPattern;
  7856. procedure SetDashPatternInternal(const Value: IGPDashPattern);
  7857. function GetCompoundArray: IGPCompoundArray;
  7858. procedure SetCompoundArray(const Value: IGPCompoundArray);
  7859.  
  7860. { Methods }
  7861. function Clone: IGPPen;
  7862. procedure SetLineCap(const StartCap, EndCap: TGPLineCap;
  7863. const DashCap: TGPDashCap);
  7864. procedure ResetTransform;
  7865. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7866. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7867. procedure TranslateTransform(const DX, DY: Single;
  7868. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7869. procedure ScaleTransform(const SX, SY: Single;
  7870. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7871. procedure RotateTransform(const Angle: Single;
  7872. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7873. procedure SetDashPattern(const Pattern: array of Single);
  7874.  
  7875. { Properties }
  7876. property Width: Single read GetWidth write SetWidth;
  7877. property StartCap: TGPLineCap read GetStartCap write SetStartCap;
  7878. property EndCap: TGPLineCap read GetEndCap write SetEndCap;
  7879. property DashCap: TGPDashCap read GetDashCap write SetDashCap;
  7880. property LineJoin: TGPLineJoin read GetLineJoin write SetLineJoin;
  7881. property CustomStartCap: IGPCustomLineCap read GetCustomStartCap write SetCustomStartCap;
  7882. property CustomEndCap: IGPCustomLineCap read GetCustomEndCap write SetCustomEndCap;
  7883. property MiterLimit: Single read GetMiterLimit write SetMiterLimit;
  7884. property Alignment: TGPPenAlignment read GetAlignment write SetAlignment;
  7885. property Transform: IGPMatrix read GetTransform write SetTransform;
  7886. property PenType: TGPPenType read GetPenType;
  7887. property Color: TGPColor read GetColor write SetColor;
  7888. property Brush: IGPBrush read GetBrush write SetBrush;
  7889. property DashStyle: TGPDashStyle read GetDashStyle write SetDashStyle;
  7890. property DashOffset: Single read GetDashOffset write SetDashOffset;
  7891. property DashPattern: IGPDashPattern read GetDashPattern write SetDashPatternInternal;
  7892. property CompoundArray: IGPCompoundArray read GetCompoundArray write SetCompoundArray;
  7893. end;
  7894.  
  7895. TGPPen = class(TGdiplusBase, IGPPen)
  7896. private
  7897. { IGPPen }
  7898. function GetWidth: Single;
  7899. procedure SetWidth(const Value: Single);
  7900. function GetStartCap: TGPLineCap;
  7901. procedure SetStartCap(const Value: TGPLineCap);
  7902. function GetEndCap: TGPLineCap;
  7903. procedure SetEndCap(const Value: TGPLineCap);
  7904. function GetDashCap: TGPDashCap;
  7905. procedure SetDashCap(const Value: TGPDashCap);
  7906. function GetLineJoin: TGPLineJoin;
  7907. procedure SetLineJoin(const Value: TGPLineJoin);
  7908. function GetCustomStartCap: IGPCustomLineCap;
  7909. procedure SetCustomStartCap(const Value: IGPCustomLineCap);
  7910. function GetCustomEndCap: IGPCustomLineCap;
  7911. procedure SetCustomEndCap(const Value: IGPCustomLineCap);
  7912. function GetMiterLimit: Single;
  7913. procedure SetMiterLimit(const Value: Single);
  7914. function GetAlignment: TGPPenAlignment;
  7915. procedure SetAlignment(const Value: TGPPenAlignment);
  7916. function GetTransform: IGPMatrix;
  7917. procedure SetTransform(const Value: IGPMatrix);
  7918. function GetPenType: TGPPenType;
  7919. function GetColor: TGPColor;
  7920. procedure SetColor(const Value: TGPColor);
  7921. function GetBrush: IGPBrush;
  7922. procedure SetBrush(const Value: IGPBrush);
  7923. function GetDashStyle: TGPDashStyle;
  7924. procedure SetDashStyle(const Value: TGPDashStyle);
  7925. function GetDashOffset: Single;
  7926. procedure SetDashOffset(const Value: Single);
  7927. function GetDashPattern: IGPDashPattern;
  7928. procedure SetDashPatternInternal(const Value: IGPDashPattern);
  7929. function GetCompoundArray: IGPCompoundArray;
  7930. procedure SetCompoundArray(const Value: IGPCompoundArray);
  7931.  
  7932. function Clone: IGPPen;
  7933. procedure SetLineCap(const StartCap, EndCap: TGPLineCap;
  7934. const DashCap: TGPDashCap);
  7935. procedure ResetTransform;
  7936. procedure MultiplyTransform(const Matrix: IGPMatrix;
  7937. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7938. procedure TranslateTransform(const DX, DY: Single;
  7939. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7940. procedure ScaleTransform(const SX, SY: Single;
  7941. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7942. procedure RotateTransform(const Angle: Single;
  7943. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  7944. procedure SetDashPattern(const Pattern: array of Single);
  7945. private
  7946. constructor Create(const NativePen: GpPen); overload;
  7947. public
  7948. constructor Create(const Color: TGPColor; const Width: Single = 1); overload;
  7949. constructor Create(const Brush: IGPBrush; const Width: Single = 1); overload;
  7950. destructor Destroy; override;
  7951. end;
  7952.  
  7953. {$ENDREGION 'GdiplusPen.h'}
  7954.  
  7955. {$REGION 'GdiplusStringFormat.h'}
  7956.  
  7957. (*****************************************************************************
  7958. * GdiplusStringFormat.h
  7959. * GDI+ StringFormat class
  7960. *****************************************************************************)
  7961.  
  7962. IGPTabStops = IGPArray<Single>;
  7963. IGPCharacterRanges = IGPArray<TGPCharacterRange>;
  7964.  
  7965. IGPStringFormat = interface(IGdiPlusBase)
  7966. ['{15875A7E-A799-4460-AC3B-4C5A966319E8}']
  7967. { Property access methods }
  7968. function GetFormatFlags: TGPStringFormatFlags;
  7969. procedure SetFormatFlags(const Value: TGPStringFormatFlags);
  7970. function GetAlignment: TGPStringAlignment;
  7971. procedure SetAlignment(const Value: TGPStringAlignment);
  7972. function GetLineAlignment: TGPStringAlignment;
  7973. procedure SetLineAlignment(const Value: TGPStringAlignment);
  7974. function GetHotkeyPrefix: TGPHotkeyPrefix;
  7975. procedure SetHotkeyPrefix(const Value: TGPHotkeyPrefix);
  7976. function GetDigitSubstitutionLanguage: LangID;
  7977. function GetDigitSubstitutionMethod: TGPStringDigitSubstitute;
  7978. function GetTrimming: TGPStringTrimming;
  7979. procedure SetTrimming(const Value: TGPStringTrimming);
  7980. function GetMeasurableCharacterRangeCount: Integer;
  7981.  
  7982. { Methods }
  7983. function Clone: IGPStringFormat;
  7984. function GetTabStops(out FirstTabOffset: Single): IGPTabStops;
  7985. procedure SetTabStops(const FirstTabOffset: Single;
  7986. const TabStops: array of Single);
  7987. procedure SetDigitSubstitution(const Language: LangID;
  7988. const Substitute: TGPStringDigitSubstitute);
  7989. procedure SetMeasurableCharacterRanges(const Ranges: IGPCharacterRanges);
  7990.  
  7991. { Properties }
  7992. property FormatFlags: TGPStringFormatFlags read GetFormatFlags write SetFormatFlags;
  7993. property Alignment: TGPStringAlignment read GetAlignment write SetAlignment;
  7994. property LineAlignment: TGPStringAlignment read GetLineAlignment write SetLineAlignment;
  7995. property HotkeyPrefix: TGPHotkeyPrefix read GetHotkeyPrefix write SetHotkeyPrefix;
  7996. property DigitSubstitutionLanguage: LangID read GetDigitSubstitutionLanguage;
  7997. property DigitSubstitutionMethod: TGPStringDigitSubstitute read GetDigitSubstitutionMethod;
  7998. property Trimming: TGPStringTrimming read GetTrimming write SetTrimming;
  7999. property MeasurableCharacterRangeCount: Integer read GetMeasurableCharacterRangeCount;
  8000. end;
  8001.  
  8002. TGPStringFormat = class(TGdiplusBase, IGPStringFormat)
  8003. private
  8004. class var FGenericDefault: IGPStringFormat;
  8005. class var FGenericTypographic: IGPStringFormat;
  8006. private
  8007. { IGPStringFormat }
  8008. function GetFormatFlags: TGPStringFormatFlags;
  8009. procedure SetFormatFlags(const Value: TGPStringFormatFlags);
  8010. function GetAlignment: TGPStringAlignment;
  8011. procedure SetAlignment(const Value: TGPStringAlignment);
  8012. function GetLineAlignment: TGPStringAlignment;
  8013. procedure SetLineAlignment(const Value: TGPStringAlignment);
  8014. function GetHotkeyPrefix: TGPHotkeyPrefix;
  8015. procedure SetHotkeyPrefix(const Value: TGPHotkeyPrefix);
  8016. function GetDigitSubstitutionLanguage: LangID;
  8017. function GetDigitSubstitutionMethod: TGPStringDigitSubstitute;
  8018. function GetTrimming: TGPStringTrimming;
  8019. procedure SetTrimming(const Value: TGPStringTrimming);
  8020. function GetMeasurableCharacterRangeCount: Integer;
  8021.  
  8022. function Clone: IGPStringFormat;
  8023. function GetTabStops(out FirstTabOffset: Single): IGPTabStops;
  8024. procedure SetTabStops(const FirstTabOffset: Single;
  8025. const TabStops: array of Single);
  8026. procedure SetDigitSubstitution(const Language: LangID;
  8027. const Substitute: TGPStringDigitSubstitute);
  8028. procedure SetMeasurableCharacterRanges(const Ranges: IGPCharacterRanges);
  8029. private
  8030. constructor Create(const NativeFormat: GpStringFormat); overload;
  8031. public
  8032. constructor Create(const FormatFlags: TGPStringFormatFlags = [];
  8033. const Language: LangID = LANG_NEUTRAL); overload;
  8034. constructor Create(const Format: IGPStringFormat); overload;
  8035. destructor Destroy; override;
  8036.  
  8037. class function GenericDefault: IGPStringFormat; static;
  8038. class function GenericTypographic: IGPStringFormat; static;
  8039. end;
  8040. {$ENDREGION 'GdiplusStringFormat.h'}
  8041.  
  8042. {$REGION 'GdiplusPath.h'}
  8043.  
  8044. (*****************************************************************************
  8045. * GdiplusPath.h
  8046. * GDI+ Graphics Path class
  8047. *****************************************************************************)
  8048.  
  8049. IGPPathTypes = IGPArray<Byte>;
  8050. IGPPathPoints = IGPArray<TGPPointF>;
  8051. IGPPathPointsI = IGPArray<TGPPoint>;
  8052.  
  8053. IGPPathData = interface
  8054. ['{2FC67BFC-7013-4279-839A-1FCD71BD0909}']
  8055. { Property access methods }
  8056. function GetCount: Integer;
  8057. procedure SetCount(const Value: Integer);
  8058. function GetPoint(const Index: Integer): TGPPointF;
  8059. function GetType(const Index: Integer): Byte;
  8060. function GetPointPtr: PGPPointF;
  8061. function GetTypePtr: PByte;
  8062. function GetNativePathData: TGPNativePathData;
  8063.  
  8064. { Properties }
  8065. property Count: Integer read GetCount write SetCount;
  8066. property Points[const Index: Integer]: TGPPointF read GetPoint;
  8067. property Types[const Index: Integer]: Byte read GetType;
  8068. property PointPtr: PGPPointF read GetPointPtr;
  8069. property TypePtr: PByte read GetTypePtr;
  8070. property NativePathData: TGPNativePathData read GetNativePathData;
  8071. end;
  8072.  
  8073. TGPPathData = class(TInterfacedObject, IGPPathData)
  8074. private
  8075. FPoints: array of TGPPointF;
  8076. FTypes: array of Byte;
  8077. private
  8078. { IGPPathData }
  8079. function GetCount: Integer;
  8080. procedure SetCount(const Value: Integer);
  8081. function GetPoint(const Index: Integer): TGPPointF;
  8082. function GetType(const Index: Integer): Byte;
  8083. function GetPointPtr: PGPPointF;
  8084. function GetTypePtr: PByte;
  8085. function GetNativePathData: TGPNativePathData;
  8086. private
  8087. constructor Create(const ACount: Integer);
  8088. end;
  8089.  
  8090. IGPGraphicsPath = interface(IGdiPlusBase)
  8091. ['{9F117627-F765-41C0-96BD-44AA9165BF07}']
  8092. { Property access methods }
  8093. function GetFillMode: TGPFillMode;
  8094. procedure SetFillMode(const Value: TGPFillMode);
  8095. function GetPathData: IGPPathData;
  8096. function GetPointCount: Integer;
  8097. function GetPathTypes: IGPPathTypes;
  8098. function GetPathPoints: IGPPathPoints;
  8099. function GetPathPointsI: IGPPathPointsI;
  8100.  
  8101. { Methods }
  8102. function Clone: IGPGraphicsPath;
  8103. procedure Reset;
  8104. procedure StartFigure;
  8105. procedure CloseFigure;
  8106. procedure CloseAllFigures;
  8107. procedure SetMarker;
  8108. procedure ClearMarkers;
  8109. procedure Reverse;
  8110. function GetLastPoint: TGPPointF;
  8111.  
  8112. procedure AddLine(const Pt1, Pt2: TGPPointF); overload;
  8113. procedure AddLine(const X1, Y1, X2, Y2: Single); overload;
  8114. procedure AddLine(const Pt1, Pt2: TGPPoint); overload;
  8115. procedure AddLine(const X1, Y1, X2, Y2: Integer); overload;
  8116.  
  8117. procedure AddLines(const Points: array of TGPPointF); overload;
  8118. procedure AddLines(const Points: array of TGPPoint); overload;
  8119.  
  8120. procedure AddArc(const Rect: TGPRectF; const StartAngle, SweepAngle: Single); overload;
  8121. procedure AddArc(const X, Y, Width, Height, StartAngle, SweepAngle: Single); overload;
  8122. procedure AddArc(const Rect: TGPRect; const StartAngle, SweepAngle: Single); overload;
  8123. procedure AddArc(const X, Y, Width, Height: Integer;
  8124. const StartAngle, SweepAngle: Single); overload;
  8125.  
  8126. procedure AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPointF); overload;
  8127. procedure AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single); overload;
  8128. procedure AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPoint); overload;
  8129. procedure AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); overload;
  8130.  
  8131. procedure AddBeziers(const Points: array of TGPPointF); overload;
  8132. procedure AddBeziers(const Points: array of TGPPoint); overload;
  8133.  
  8134. procedure AddCurve(const Points: array of TGPPointF); overload;
  8135. procedure AddCurve(const Points: array of TGPPointF;
  8136. const Tension: Single); overload;
  8137. procedure AddCurve(const Points: array of TGPPointF;
  8138. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8139. procedure AddCurve(const Points: array of TGPPoint); overload;
  8140. procedure AddCurve(const Points: array of TGPPoint;
  8141. const Tension: Single); overload;
  8142. procedure AddCurve(const Points: array of TGPPoint;
  8143. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8144.  
  8145. procedure AddClosedCurve(const Points: array of TGPPointF); overload;
  8146. procedure AddClosedCurve(const Points: array of TGPPointF;
  8147. const Tension: Single); overload;
  8148. procedure AddClosedCurve(const Points: array of TGPPoint); overload;
  8149. procedure AddClosedCurve(const Points: array of TGPPoint;
  8150. const Tension: Single); overload;
  8151.  
  8152. procedure AddRectangle(const Rect: TGPRectF); overload;
  8153. procedure AddRectangle(const Rect: TGPRect); overload;
  8154.  
  8155. procedure AddRectangles(const Rects: array of TGPRectF); overload;
  8156. procedure AddRectangles(const Rects: array of TGPRect); overload;
  8157.  
  8158. procedure AddEllipse(const Rect: TGPRectF); overload;
  8159. procedure AddEllipse(const X, Y, Width, Height: Single); overload;
  8160. procedure AddEllipse(const Rect: TGPRect); overload;
  8161. procedure AddEllipse(const X, Y, Width, Height: Integer); overload;
  8162.  
  8163. procedure AddPie(const Rect: TGPRectF; const StartAngle, SweepAngle: Single); overload;
  8164. procedure AddPie(const X, Y, Width, Height, StartAngle, SweepAngle: Single); overload;
  8165. procedure AddPie(const Rect: TGPRect; const StartAngle, SweepAngle: Single); overload;
  8166. procedure AddPie(const X, Y, Width, Height: Integer;
  8167. const StartAngle, SweepAngle: Single); overload;
  8168.  
  8169. procedure AddPolygon(const Points: array of TGPPointF); overload;
  8170. procedure AddPolygon(const Points: array of TGPPoint); overload;
  8171.  
  8172. procedure AddPath(const AddingPath: IGPGraphicsPath; const Connect: Boolean);
  8173.  
  8174. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8175. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPointF;
  8176. const Format: IGPStringFormat); overload;
  8177. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8178. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRectF;
  8179. const Format: IGPStringFormat); overload;
  8180. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8181. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPoint;
  8182. const Format: IGPStringFormat); overload;
  8183. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8184. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRect;
  8185. const Format: IGPStringFormat); overload;
  8186.  
  8187. procedure Transform(const Matrix: IGPMatrix);
  8188. procedure GetBounds(out Bounds: TGPRectF; const Matrix: IGPMatrix = nil;
  8189. const Pen: IGPPen = nil); overload;
  8190. procedure GetBounds(out Bounds: TGPRect; const Matrix: IGPMatrix = nil;
  8191. const Pen: IGPPen = nil); overload;
  8192. procedure Flatten(const Matrix: IGPMatrix = nil;
  8193. const Flatness: Single = FlatnessDefault);
  8194. procedure Widen(const Pen: IGPPen; const Matrix: IGPMatrix = nil;
  8195. const Flatness: Single = FlatnessDefault);
  8196. procedure Outline(const Matrix: IGPMatrix = nil;
  8197. const Flatness: Single = FlatnessDefault);
  8198. procedure Warp(const DestPoints: array of TGPPointF; const SrcRect: TGPRectF;
  8199. const Matrix: IGPMatrix = nil; const WarpMode: TGPWarpMode = WarpModePerspective;
  8200. const Flatness: Single = FlatnessDefault);
  8201.  
  8202. function IsVisible(const Point: TGPPointF; const G: IGPGraphics = nil): Boolean; overload;
  8203. function IsVisible(const X, Y: Single; const G: IGPGraphics = nil): Boolean; overload;
  8204. function IsVisible(const Point: TGPPoint; const G: IGPGraphics = nil): Boolean; overload;
  8205. function IsVisible(const X, Y: Integer; const G: IGPGraphics = nil): Boolean; overload;
  8206.  
  8207. function IsOutlineVisible(const Point: TGPPointF; const Pen: IGPPen;
  8208. const G: IGPGraphics = nil): Boolean; overload;
  8209. function IsOutlineVisible(const X, Y: Single; const Pen: IGPPen;
  8210. const G: IGPGraphics = nil): Boolean; overload;
  8211. function IsOutlineVisible(const Point: TGPPoint; const Pen: IGPPen;
  8212. const G: IGPGraphics = nil): Boolean; overload;
  8213. function IsOutlineVisible(const X, Y: Integer; const Pen: IGPPen;
  8214. const G: IGPGraphics = nil): Boolean; overload;
  8215.  
  8216. { Properties }
  8217. property FillMode: TGPFillMode read GetFillMode write SetFillMode;
  8218. property PathData: IGPPathData read GetPathData;
  8219. property PointCount: Integer read GetPointCount;
  8220. property PathTypes: IGPPathTypes read GetPathTypes;
  8221. property PathPoints: IGPPathPoints read GetPathPoints;
  8222. property PathPointsI: IGPPathPointsI read GetPathPointsI;
  8223. end;
  8224.  
  8225. TGPGraphicsPath = class(TGdiplusBase, IGPGraphicsPath)
  8226. private
  8227. { IGPGraphicsPath }
  8228. function GetFillMode: TGPFillMode;
  8229. procedure SetFillMode(const Value: TGPFillMode);
  8230. function GetPathData: IGPPathData;
  8231. function GetPointCount: Integer;
  8232. function GetPathTypes: IGPPathTypes;
  8233. function GetPathPoints: IGPPathPoints;
  8234. function GetPathPointsI: IGPPathPointsI;
  8235.  
  8236. function Clone: IGPGraphicsPath;
  8237. procedure Reset;
  8238. procedure StartFigure;
  8239. procedure CloseFigure;
  8240. procedure CloseAllFigures;
  8241. procedure SetMarker;
  8242. procedure ClearMarkers;
  8243. procedure Reverse;
  8244. function GetLastPoint: TGPPointF;
  8245. procedure AddLine(const Pt1, Pt2: TGPPointF); overload;
  8246. procedure AddLine(const X1, Y1, X2, Y2: Single); overload;
  8247. procedure AddLine(const Pt1, Pt2: TGPPoint); overload;
  8248. procedure AddLine(const X1, Y1, X2, Y2: Integer); overload;
  8249. procedure AddLines(const Points: array of TGPPointF); overload;
  8250. procedure AddLines(const Points: array of TGPPoint); overload;
  8251. procedure AddArc(const Rect: TGPRectF; const StartAngle, SweepAngle: Single); overload;
  8252. procedure AddArc(const X, Y, Width, Height, StartAngle, SweepAngle: Single); overload;
  8253. procedure AddArc(const Rect: TGPRect; const StartAngle, SweepAngle: Single); overload;
  8254. procedure AddArc(const X, Y, Width, Height: Integer;
  8255. const StartAngle, SweepAngle: Single); overload;
  8256. procedure AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPointF); overload;
  8257. procedure AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single); overload;
  8258. procedure AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPoint); overload;
  8259. procedure AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); overload;
  8260. procedure AddBeziers(const Points: array of TGPPointF); overload;
  8261. procedure AddBeziers(const Points: array of TGPPoint); overload;
  8262. procedure AddCurve(const Points: array of TGPPointF); overload;
  8263. procedure AddCurve(const Points: array of TGPPointF;
  8264. const Tension: Single); overload;
  8265. procedure AddCurve(const Points: array of TGPPointF;
  8266. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8267. procedure AddCurve(const Points: array of TGPPoint); overload;
  8268. procedure AddCurve(const Points: array of TGPPoint;
  8269. const Tension: Single); overload;
  8270. procedure AddCurve(const Points: array of TGPPoint;
  8271. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8272. procedure AddClosedCurve(const Points: array of TGPPointF); overload;
  8273. procedure AddClosedCurve(const Points: array of TGPPointF;
  8274. const Tension: Single); overload;
  8275. procedure AddClosedCurve(const Points: array of TGPPoint); overload;
  8276. procedure AddClosedCurve(const Points: array of TGPPoint;
  8277. const Tension: Single); overload;
  8278. procedure AddRectangle(const Rect: TGPRectF); overload;
  8279. procedure AddRectangle(const Rect: TGPRect); overload;
  8280. procedure AddRectangles(const Rects: array of TGPRectF); overload;
  8281. procedure AddRectangles(const Rects: array of TGPRect); overload;
  8282. procedure AddEllipse(const Rect: TGPRectF); overload;
  8283. procedure AddEllipse(const X, Y, Width, Height: Single); overload;
  8284. procedure AddEllipse(const Rect: TGPRect); overload;
  8285. procedure AddEllipse(const X, Y, Width, Height: Integer); overload;
  8286. procedure AddPie(const Rect: TGPRectF; const StartAngle, SweepAngle: Single); overload;
  8287. procedure AddPie(const X, Y, Width, Height, StartAngle, SweepAngle: Single); overload;
  8288. procedure AddPie(const Rect: TGPRect; const StartAngle, SweepAngle: Single); overload;
  8289. procedure AddPie(const X, Y, Width, Height: Integer;
  8290. const StartAngle, SweepAngle: Single); overload;
  8291. procedure AddPolygon(const Points: array of TGPPointF); overload;
  8292. procedure AddPolygon(const Points: array of TGPPoint); overload;
  8293. procedure AddPath(const AddingPath: IGPGraphicsPath; const Connect: Boolean);
  8294. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8295. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPointF;
  8296. const Format: IGPStringFormat); overload;
  8297. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8298. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRectF;
  8299. const Format: IGPStringFormat); overload;
  8300. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8301. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPoint;
  8302. const Format: IGPStringFormat); overload;
  8303. procedure AddString(const Str: String; const Family: IGPFontFamily;
  8304. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRect;
  8305. const Format: IGPStringFormat); overload;
  8306. procedure Transform(const Matrix: IGPMatrix);
  8307. procedure GetBounds(out Bounds: TGPRectF; const Matrix: IGPMatrix = nil;
  8308. const Pen: IGPPen = nil); overload;
  8309. procedure GetBounds(out Bounds: TGPRect; const Matrix: IGPMatrix = nil;
  8310. const Pen: IGPPen = nil); overload;
  8311. procedure Flatten(const Matrix: IGPMatrix = nil;
  8312. const Flatness: Single = FlatnessDefault);
  8313. procedure Widen(const Pen: IGPPen; const Matrix: IGPMatrix = nil;
  8314. const Flatness: Single = FlatnessDefault);
  8315. procedure Outline(const Matrix: IGPMatrix = nil;
  8316. const Flatness: Single = FlatnessDefault);
  8317. procedure Warp(const DestPoints: array of TGPPointF; const SrcRect: TGPRectF;
  8318. const Matrix: IGPMatrix = nil; const WarpMode: TGPWarpMode = WarpModePerspective;
  8319. const Flatness: Single = FlatnessDefault);
  8320. function IsVisible(const Point: TGPPointF; const G: IGPGraphics = nil): Boolean; overload;
  8321. function IsVisible(const X, Y: Single; const G: IGPGraphics = nil): Boolean; overload;
  8322. function IsVisible(const Point: TGPPoint; const G: IGPGraphics = nil): Boolean; overload;
  8323. function IsVisible(const X, Y: Integer; const G: IGPGraphics = nil): Boolean; overload;
  8324. function IsOutlineVisible(const Point: TGPPointF; const Pen: IGPPen;
  8325. const G: IGPGraphics = nil): Boolean; overload;
  8326. function IsOutlineVisible(const X, Y: Single; const Pen: IGPPen;
  8327. const G: IGPGraphics = nil): Boolean; overload;
  8328. function IsOutlineVisible(const Point: TGPPoint; const Pen: IGPPen;
  8329. const G: IGPGraphics = nil): Boolean; overload;
  8330. function IsOutlineVisible(const X, Y: Integer; const Pen: IGPPen;
  8331. const G: IGPGraphics = nil): Boolean; overload;
  8332. private
  8333. constructor Create(const NativePath: GpPath); overload;
  8334. public
  8335. constructor Create(const FillMode: TGPFillMode = FillModeAlternate); overload;
  8336. constructor Create(const Points: array of TGPPointF; const Types: array of Byte;
  8337. const FillMode: TGPFillMode = FillModeAlternate); overload;
  8338. constructor Create(const Points: array of TGPPoint; const Types: array of Byte;
  8339. const FillMode: TGPFillMode = FillModeAlternate); overload;
  8340. destructor Destroy; override;
  8341. end;
  8342.  
  8343. IGPGraphicsPathIterator = interface(IGdiPlusBase)
  8344. ['{4A37267A-F6EE-46C1-8D1D-08256ED3FCB8}']
  8345. { Property access methods }
  8346. function GetCount: Integer;
  8347. function GetSubpathCount: Integer;
  8348.  
  8349. { Methods }
  8350. function NextSubPath(out StartIndex, EndIndex: Integer;
  8351. out IsClosed: Boolean): Integer; overload;
  8352. function NextSubPath(const Path: IGPGraphicsPath;
  8353. out IsClosed: Boolean): Integer; overload;
  8354. function NextPathType(out PathType: Byte; out StartIndex,
  8355. EndIndex: Integer): Integer;
  8356. function NextMarker(out StartIndex, EndIndex: Integer): Integer; overload;
  8357. function NextMarker(const Path: IGPGraphicsPath): Integer; overload;
  8358. function HasCurve: Boolean;
  8359. procedure Rewind;
  8360. function Enumerate: IGPPathData;
  8361. function CopyData(const StartIndex, EndIndex: Integer): IGPPathData;
  8362.  
  8363. { Properties }
  8364. property Count: Integer read GetCount;
  8365. property SubpathCount: Integer read GetSubpathCount;
  8366. end;
  8367.  
  8368. TGPGraphicsPathIterator = class(TGdiplusBase, IGPGraphicsPathIterator)
  8369. private
  8370. { IGPGraphicsPathIterator }
  8371. function GetCount: Integer;
  8372. function GetSubpathCount: Integer;
  8373.  
  8374. function NextSubPath(out StartIndex, EndIndex: Integer;
  8375. out IsClosed: Boolean): Integer; overload;
  8376. function NextSubPath(const Path: IGPGraphicsPath;
  8377. out IsClosed: Boolean): Integer; overload;
  8378. function NextPathType(out PathType: Byte; out StartIndex,
  8379. EndIndex: Integer): Integer;
  8380. function NextMarker(out StartIndex, EndIndex: Integer): Integer; overload;
  8381. function NextMarker(const Path: IGPGraphicsPath): Integer; overload;
  8382. function HasCurve: Boolean;
  8383. procedure Rewind;
  8384. function Enumerate: IGPPathData;
  8385. function CopyData(const StartIndex, EndIndex: Integer): IGPPathData;
  8386. public
  8387. constructor Create(const Path: IGPGraphicsPath);
  8388. destructor Destroy; override;
  8389. end;
  8390.  
  8391. IGPColors = IGPArray<TGPColor>;
  8392.  
  8393. IGPPathGradientBrush = interface(IGPBrush)
  8394. ['{66013840-6B90-4179-B72A-031548138EBF}']
  8395. { Property access methods }
  8396. function GetCenterColor: TGPColor;
  8397. procedure SetCenterColor(const Value: TGPColor);
  8398. function GetPointCount: Integer;
  8399. function GetSurroundColors: IGPColors;
  8400. procedure SetSurroundColorsInternal(const Value: IGPColors);
  8401. function GetGraphicsPath: IGPGraphicsPath;
  8402. procedure SetGraphicsPath(const Value: IGPGraphicsPath);
  8403. function GetCenterPoint: TGPPointF;
  8404. procedure SetCenterPoint(const Value: TGPPointF);
  8405. function GetCenterPointI: TGPPoint;
  8406. procedure SetCenterPointI(const Value: TGPPoint);
  8407. function GetRectangle: TGPRectF;
  8408. function GetRectangleI: TGPRect;
  8409. function GetGammaCorrection: Boolean;
  8410. procedure SetGammaCorrection(const Value: Boolean);
  8411. function GetBlend: IGPBlend;
  8412. procedure SetBlend(const Value: IGPBlend);
  8413. function GetInterpolationColors: IGPColorBlend;
  8414. procedure SetInterpolationColors(const Value: IGPColorBlend);
  8415. function GetTransform: IGPMatrix;
  8416. procedure SetTransform(const Value: IGPMatrix);
  8417. function GetWrapMode: TGPWrapMode;
  8418. procedure SetWrapMode(const Value: TGPWrapMode);
  8419.  
  8420. { Methods }
  8421. procedure SetBlendBellShape(const Focus: Single; const Scale: Single = 1);
  8422. procedure SetBlendTriangularShape(const Focus: Single; const Scale: Single = 1);
  8423. procedure ResetTransform;
  8424. procedure MultiplyTransform(const Matrix: IGPMatrix;
  8425. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8426. procedure TranslateTransform(const DX, DY: Single;
  8427. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8428. procedure ScaleTransform(const SX, SY: Single;
  8429. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8430. procedure RotateTransform(const Angle: Single;
  8431. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8432. procedure GetFocusScales(out XScale, YScale: Single);
  8433. procedure SetFocusScales(const XScale, YScale: Single);
  8434. procedure SetSurroundColors(const Colors: array of TGPColor);
  8435.  
  8436. { Properties }
  8437. property CenterColor: TGPColor read GetCenterColor write SetCenterColor;
  8438. property PointCount: Integer read GetPointCount;
  8439. property SurroundColors: IGPColors read GetSurroundColors write SetSurroundColorsInternal;
  8440. property GraphicsPath: IGPGraphicsPath read GetGraphicsPath write SetGraphicsPath;
  8441. property CenterPoint: TGPPointF read GetCenterPoint write SetCenterPoint;
  8442. property CenterPointI: TGPPoint read GetCenterPointI write SetCenterPointI;
  8443. property Rectangle: TGPRectF read GetRectangle;
  8444. property RectangleI: TGPRect read GetRectangleI;
  8445. property GammaCorrection: Boolean read GetGammaCorrection write SetGammaCorrection;
  8446. property Blend: IGPBlend read GetBlend write SetBlend;
  8447. property InterpolationColors: IGPColorBlend read GetInterpolationColors write SetInterpolationColors;
  8448. property Transform: IGPMatrix read GetTransform write SetTransform;
  8449. property WrapMode: TGPWrapMode read GetWrapMode write SetWrapMode;
  8450. end;
  8451.  
  8452. TGPPathGradientBrush = class(TGPBrush, IGPPathGradientBrush)
  8453. private
  8454. { IGPPathGradientBrush }
  8455. function GetCenterColor: TGPColor;
  8456. procedure SetCenterColor(const Value: TGPColor);
  8457. function GetPointCount: Integer;
  8458. function GetSurroundColors: IGPColors;
  8459. procedure SetSurroundColorsInternal(const Value: IGPColors);
  8460. function GetGraphicsPath: IGPGraphicsPath;
  8461. procedure SetGraphicsPath(const Value: IGPGraphicsPath);
  8462. function GetCenterPoint: TGPPointF;
  8463. procedure SetCenterPoint(const Value: TGPPointF);
  8464. function GetCenterPointI: TGPPoint;
  8465. procedure SetCenterPointI(const Value: TGPPoint);
  8466. function GetRectangle: TGPRectF;
  8467. function GetRectangleI: TGPRect;
  8468. function GetGammaCorrection: Boolean;
  8469. procedure SetGammaCorrection(const Value: Boolean);
  8470. function GetBlend: IGPBlend;
  8471. procedure SetBlend(const Value: IGPBlend);
  8472. function GetInterpolationColors: IGPColorBlend;
  8473. procedure SetInterpolationColors(const Value: IGPColorBlend);
  8474. function GetTransform: IGPMatrix;
  8475. procedure SetTransform(const Value: IGPMatrix);
  8476. function GetWrapMode: TGPWrapMode;
  8477. procedure SetWrapMode(const Value: TGPWrapMode);
  8478.  
  8479. procedure SetBlendBellShape(const Focus: Single; const Scale: Single = 1);
  8480. procedure SetBlendTriangularShape(const Focus: Single; const Scale: Single = 1);
  8481. procedure ResetTransform;
  8482. procedure MultiplyTransform(const Matrix: IGPMatrix;
  8483. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8484. procedure TranslateTransform(const DX, DY: Single;
  8485. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8486. procedure ScaleTransform(const SX, SY: Single;
  8487. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8488. procedure RotateTransform(const Angle: Single;
  8489. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8490. procedure GetFocusScales(out XScale, YScale: Single);
  8491. procedure SetFocusScales(const XScale, YScale: Single);
  8492. procedure SetSurroundColors(const Colors: array of TGPColor);
  8493. public
  8494. constructor Create(const Points: array of TGPPointF;
  8495. const WrapMode: TGPWrapMode = WrapModeClamp); overload;
  8496. constructor Create(const Points: array of TGPPoint;
  8497. const WrapMode: TGPWrapMode = WrapModeClamp); overload;
  8498. constructor Create(const Path: IGPGraphicsPath); overload;
  8499. end;
  8500. {$ENDREGION 'GdiplusPath.h'}
  8501.  
  8502. {$REGION 'GdiplusGraphics.h'}
  8503.  
  8504. (*****************************************************************************
  8505. * GdiplusGraphics.h
  8506. * GDI+ Graphics class
  8507. *****************************************************************************)
  8508.  
  8509. IGPRegions = IGPArray<IGPRegion>;
  8510.  
  8511. IGPGraphics = interface(IGdiPlusBase)
  8512. ['{57F85BA4-CB01-4466-8441-948D03588F54}']
  8513. { Property access methods }
  8514. function GetRenderingOrigin: TGPPoint; overload;
  8515. procedure SetRenderingOrigin(const Value: TGPPoint); overload;
  8516. function GetCompositingMode: TGPCompositingMode;
  8517. procedure SetCompositingMode(const Value: TGPCompositingMode);
  8518. function GetCompositingQuality: TGPCompositingQuality;
  8519. procedure SetCompositingQuality(const Value: TGPCompositingQuality);
  8520. function GetTextRenderingHint: TGPTextRenderingHint;
  8521. procedure SetTextRenderingHint(const Value: TGPTextRenderingHint);
  8522. function GetTextContrast: Integer;
  8523. procedure SetTextContrast(const Value: Integer);
  8524. function GetInterpolationMode: TGPInterpolationMode;
  8525. procedure SetInterpolationMode(const Value: TGPInterpolationMode);
  8526. function GetSmoothingMode: TGPSmoothingMode;
  8527. procedure SetSmoothingMode(const Value: TGPSmoothingMode);
  8528. function GetPixelOffsetMode: TGPPixelOffsetMode;
  8529. procedure SetPixelOffsetMode(const Value: TGPPixelOffsetMode);
  8530. function GetTransform: IGPMatrix;
  8531. procedure SetTransform(const Value: IGPMatrix);
  8532. function GetPageUnit: TGPUnit;
  8533. procedure SetPageUnit(const Value: TGPUnit);
  8534. function GetPageScale: Single;
  8535. procedure SetPageScale(const Value: Single);
  8536. function GetDpiX: Single;
  8537. function GetDpiY: Single;
  8538. function GetClip: IGPRegion;
  8539. procedure SetClipReplace(const Value: IGPRegion);
  8540. function GetClipBounds: TGPRectF;
  8541. function GetClipBoundsI: TGPRect;
  8542. function GetIsClipEmpty: Boolean;
  8543. function GetVisibleClipBounds: TGPRectF;
  8544. function GetVisibleClipBoundsI: TGPRect;
  8545. function GetIsVisibleClipEmpty: Boolean;
  8546.  
  8547. { Methods }
  8548. procedure Flush(const Intention: TGPFlushIntention = FlushIntentionFlush);
  8549. function GetHDC: HDC;
  8550. procedure ReleaseHDC(const DC: HDC);
  8551. procedure GetRenderingOrigin(out X, Y: Integer); overload;
  8552. procedure SetRenderingOrigin(const X, Y: Integer); overload;
  8553. {$IF (GDIPVER >= $0110)}
  8554. procedure SetAbort(const IAbort: TGdiplusAbort);
  8555. {$IFEND}
  8556. procedure ResetTransform;
  8557. procedure MultiplyTransform(const Matrix: IGPMatrix;
  8558. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8559. procedure TranslateTransform(const DX, DY: Single;
  8560. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8561. procedure ScaleTransform(const SX, SY: Single;
  8562. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8563. procedure RotateTransform(const Angle: Single;
  8564. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8565. procedure TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  8566. const Points: array of TGPPointF); overload;
  8567. procedure TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  8568. const Points: array of TGPPoint); overload;
  8569. function GetNearestColor(const Color: TGPColor): TGPColor;
  8570.  
  8571. procedure DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPointF); overload;
  8572. procedure DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Single); overload;
  8573. procedure DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPoint); overload;
  8574. procedure DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Integer); overload;
  8575.  
  8576. procedure DrawLines(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8577. procedure DrawLines(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8578.  
  8579. procedure DrawArc(const Pen: IGPPen; const Rect: TGPRectF; const StartAngle,
  8580. SweepAngle: Single); overload;
  8581. procedure DrawArc(const Pen: IGPPen; const X, Y, Width, Height, StartAngle,
  8582. SweepAngle: Single); overload;
  8583. procedure DrawArc(const Pen: IGPPen; const Rect: TGPRect; const StartAngle,
  8584. SweepAngle: Single); overload;
  8585. procedure DrawArc(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  8586. const StartAngle, SweepAngle: Single); overload;
  8587.  
  8588. procedure DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3, Pt4: TGPPointF); overload;
  8589. procedure DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single); overload;
  8590. procedure DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3, Pt4: TGPPoint); overload;
  8591. procedure DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); overload;
  8592.  
  8593. procedure DrawBeziers(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8594. procedure DrawBeziers(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8595.  
  8596. procedure DrawRectangle(const Pen: IGPPen; const Rect: TGPRectF); overload;
  8597. procedure DrawRectangle(const Pen: IGPPen; const Rect: TGPRect); overload;
  8598. procedure DrawRectangle(const Pen: IGPPen; const X, Y, Width, Height: Single); overload;
  8599. procedure DrawRectangle(const Pen: IGPPen; const X, Y, Width, Height: Integer); overload;
  8600.  
  8601. procedure DrawRectangles(const Pen: IGPPen; const Rects: array of TGPRectF); overload;
  8602. procedure DrawRectangles(const Pen: IGPPen; const Rects: array of TGPRect); overload;
  8603.  
  8604. procedure DrawEllipse(const Pen: IGPPen; const Rect: TGPRectF); overload;
  8605. procedure DrawEllipse(const Pen: IGPPen; const X, Y, Width, Height: Single); overload;
  8606. procedure DrawEllipse(const Pen: IGPPen; const Rect: TGPRect); overload;
  8607. procedure DrawEllipse(const Pen: IGPPen; const X, Y, Width, Height: Integer); overload;
  8608.  
  8609. procedure DrawPie(const Pen: IGPPen; const Rect: TGPRectF;
  8610. const StartAngle, SweepAngle: Single); overload;
  8611. procedure DrawPie(const Pen: IGPPen; const X, Y, Width, Height,
  8612. StartAngle, SweepAngle: Single); overload;
  8613. procedure DrawPie(const Pen: IGPPen; const Rect: TGPRect;
  8614. const StartAngle, SweepAngle: Single); overload;
  8615. procedure DrawPie(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  8616. const StartAngle, SweepAngle: Single); overload;
  8617.  
  8618. procedure DrawPolygon(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8619. procedure DrawPolygon(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8620.  
  8621. procedure DrawPath(const Pen: IGPPen; const Path: IGPGraphicsPath);
  8622.  
  8623. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8624. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  8625. const Tension: Single); overload;
  8626. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  8627. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8628. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8629. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  8630. const Tension: Single); overload;
  8631. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  8632. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8633.  
  8634. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8635. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  8636. const Tension: Single); overload;
  8637. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8638. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  8639. const Tension: Single); overload;
  8640.  
  8641. procedure Clear(const Color: TGPColor);
  8642.  
  8643. procedure FillRectangle(const Brush: IGPBrush; const Rect: TGPRectF); overload;
  8644. procedure FillRectangle(const Brush: IGPBrush; const Rect: TGPRect); overload;
  8645. procedure FillRectangle(const Brush: IGPBrush; const X, Y, Width, Height: Single); overload;
  8646. procedure FillRectangle(const Brush: IGPBrush; const X, Y, Width, Height: Integer); overload;
  8647.  
  8648. procedure FillRectangles(const Brush: IGPBrush; const Rects: array of TGPRectF); overload;
  8649. procedure FillRectangles(const Brush: IGPBrush; const Rects: array of TGPRect); overload;
  8650.  
  8651. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPointF); overload;
  8652. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPoint); overload;
  8653. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPointF;
  8654. const FillMode: TGPFillMode); overload;
  8655. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPoint;
  8656. const FillMode: TGPFillMode); overload;
  8657.  
  8658. procedure FillEllipse(const Brush: IGPBrush; const Rect: TGPRectF); overload;
  8659. procedure FillEllipse(const Brush: IGPBrush; const X, Y, Width, Height: Single); overload;
  8660. procedure FillEllipse(const Brush: IGPBrush; const Rect: TGPRect); overload;
  8661. procedure FillEllipse(const Brush: IGPBrush; const X, Y, Width, Height: Integer); overload;
  8662.  
  8663. procedure FillPie(const Brush: IGPBrush; const Rect: TGPRectF;
  8664. const StartAngle, SweepAngle: Single); overload;
  8665. procedure FillPie(const Brush: IGPBrush; const X, Y, Width, Height,
  8666. StartAngle, SweepAngle: Single); overload;
  8667. procedure FillPie(const Brush: IGPBrush; const Rect: TGPRect;
  8668. const StartAngle, SweepAngle: Single); overload;
  8669. procedure FillPie(const Brush: IGPBrush; const X, Y, Width, Height: Integer;
  8670. const StartAngle, SweepAngle: Single); overload;
  8671.  
  8672. procedure FillPath(const Brush: IGPBrush; const Path: IGPGraphicsPath);
  8673.  
  8674. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPointF); overload;
  8675. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPointF;
  8676. const FillMode: TGPFillMode; const Tension: Single); overload;
  8677. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPoint); overload;
  8678. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPoint;
  8679. const FillMode: TGPFillMode; const Tension: Single); overload;
  8680.  
  8681. procedure FillRegion(const Brush: IGPBrush; const Region: IGPRegion);
  8682.  
  8683. procedure DrawString(const Str: String; const Font: IGPFont;
  8684. const Origin: TGPPointF; const Brush: IGPBrush); overload;
  8685. procedure DrawString(const Str: String; const Font: IGPFont;
  8686. const LayoutRect: TGPRectF; const Format: IGPStringFormat;
  8687. const Brush: IGPBrush); overload;
  8688. procedure DrawString(const Str: String; const Font: IGPFont;
  8689. const Origin: TGPPointF; const Format: IGPStringFormat;
  8690. const Brush: IGPBrush); overload;
  8691.  
  8692. function MeasureString(const Str: String; const Font: IGPFont;
  8693. const LayoutRect: TGPRectF; const Format: IGPStringFormat): TGPRectF; overload;
  8694. function MeasureString(const Str: String; const Font: IGPFont;
  8695. const LayoutRect: TGPRectF; const Format: IGPStringFormat;
  8696. out CodepointsFitted, LinesFilled: Integer): TGPRectF; overload;
  8697. function MeasureString(const Str: String; const Font: IGPFont;
  8698. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat): TGPSizeF; overload;
  8699. function MeasureString(const Str: String; const Font: IGPFont;
  8700. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat;
  8701. out CodepointsFitted, LinesFilled: Integer): TGPSizeF; overload;
  8702. function MeasureString(const Str: String; const Font: IGPFont;
  8703. const Origin: TGPPointF; const Format: IGPStringFormat): TGPRectF; overload;
  8704. function MeasureString(const Str: String; const Font: IGPFont;
  8705. const LayoutRect: TGPRectF): TGPRectF; overload;
  8706. function MeasureString(const Str: String; const Font: IGPFont;
  8707. const Origin: TGPPointF): TGPRectF; overload;
  8708.  
  8709. function MeasureCharacterRanges(const Str: String; const Font: IGPFont;
  8710. const LayoutRect: TGPRectF; const Format: IGPStringFormat): IGPRegions;
  8711. procedure DrawDriverString(const Text: PUInt16; const Length: Integer;
  8712. const Font: IGPFont; const Brush: IGPBrush; const Positions: PGPPointF;
  8713. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix);
  8714. function MeasureDriverString(const Text: PUInt16; const Length: Integer;
  8715. const Font: IGPFont; const Positions: PGPPointF;
  8716. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix): TGPRectF;
  8717.  
  8718. procedure DrawCachedBitmap(const CachedBitmap: IGPCachedBitmap;
  8719. const X, Y: Integer);
  8720.  
  8721. procedure DrawImage(const Image: IGPImage; const Point: TGPPointF); overload;
  8722. procedure DrawImage(const Image: IGPImage; const X, Y: Single); overload;
  8723. procedure DrawImage(const Image: IGPImage; const Rect: TGPRectF); overload;
  8724. procedure DrawImage(const Image: IGPImage; const X, Y, Width, Height: Single); overload;
  8725. procedure DrawImage(const Image: IGPImage; const Point: TGPPoint); overload;
  8726. procedure DrawImage(const Image: IGPImage; const X, Y: Integer); overload;
  8727. procedure DrawImage(const Image: IGPImage; const Rect: TGPRect); overload;
  8728. procedure DrawImage(const Image: IGPImage; const X, Y, Width, Height: Integer); overload;
  8729. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPointsF); overload;
  8730. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPoints); overload;
  8731. procedure DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY, SrcWidth,
  8732. SrcHeight: Single; const SrcUnit: TGPUnit); overload;
  8733. procedure DrawImage(const Image: IGPImage; const DestRect: TGPRectF;
  8734. const SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  8735. const ImageAttributes: IGPImageAttributes = nil;
  8736. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8737. procedure DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  8738. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  8739. const ImageAttributes: IGPImageAttributes = nil;
  8740. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8741. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPointsF;
  8742. const SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  8743. const ImageAttributes: IGPImageAttributes = nil;
  8744. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8745. procedure DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY, SrcWidth,
  8746. SrcHeight: Integer; const SrcUnit: TGPUnit); overload;
  8747. procedure DrawImage(const Image: IGPImage; const DestRect: TGPRect;
  8748. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  8749. const ImageAttributes: IGPImageAttributes = nil;
  8750. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8751. procedure DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  8752. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  8753. const ImageAttributes: IGPImageAttributes = nil;
  8754. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8755. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPoints;
  8756. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  8757. const ImageAttributes: IGPImageAttributes = nil;
  8758. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  8759. {$IF (GDIPVER >= $0110)}
  8760. procedure DrawImage(const Image: IGPImage; const DestRect, SourceRect: TGPRectF;
  8761. const SrcUnit: TGPUnit; const ImageAttributes: IGPImageAttributes = nil); overload;
  8762. procedure DrawImage(const Image: IGPImage; const SourceRect: TGPRectF;
  8763. const XForm: IGPMatrix; const Effect: IGPEffect;
  8764. const ImageAttributes: IGPImageAttributes; const SrcUnit: TGPUnit); overload;
  8765. {$IFEND}
  8766.  
  8767. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8768. const DestPoint: TGPPointF; const Callback: TGPEnumerateMetafileProc;
  8769. const CallbackData: Pointer = nil;
  8770. const ImageAttributes: IGPImageAttributes = nil); overload;
  8771. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8772. const DestPoint: TGPPoint; const Callback: TGPEnumerateMetafileProc;
  8773. const CallbackData: Pointer = nil;
  8774. const ImageAttributes: IGPImageAttributes = nil); overload;
  8775. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8776. const DestRect: TGPRectF; const Callback: TGPEnumerateMetafileProc;
  8777. const CallbackData: Pointer = nil;
  8778. const ImageAttributes: IGPImageAttributes = nil); overload;
  8779. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8780. const DestRect: TGPRect; const Callback: TGPEnumerateMetafileProc;
  8781. const CallbackData: Pointer = nil;
  8782. const ImageAttributes: IGPImageAttributes = nil); overload;
  8783. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8784. const DestPoints: TGPPlgPointsF; const Callback: TGPEnumerateMetafileProc;
  8785. const CallbackData: Pointer = nil;
  8786. const ImageAttributes: IGPImageAttributes = nil); overload;
  8787. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8788. const DestPoints: TGPPlgPoints; const Callback: TGPEnumerateMetafileProc;
  8789. const CallbackData: Pointer = nil;
  8790. const ImageAttributes: IGPImageAttributes = nil); overload;
  8791. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8792. const DestPoint: TGPPointF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  8793. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8794. const ImageAttributes: IGPImageAttributes = nil); overload;
  8795. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8796. const DestPoint: TGPPoint; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  8797. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8798. const ImageAttributes: IGPImageAttributes = nil); overload;
  8799. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8800. const DestRect, SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  8801. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8802. const ImageAttributes: IGPImageAttributes = nil); overload;
  8803. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8804. const DestRect, SrcRect: TGPRect; const SrcUnit: TGPUnit;
  8805. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8806. const ImageAttributes: IGPImageAttributes = nil); overload;
  8807. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8808. const DestPoints: TGPPlgPointsF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  8809. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8810. const ImageAttributes: IGPImageAttributes = nil); overload;
  8811. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  8812. const DestPoints: TGPPlgPoints; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  8813. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  8814. const ImageAttributes: IGPImageAttributes = nil); overload;
  8815.  
  8816. procedure SetClip(const G: IGPGraphics;
  8817. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8818. procedure SetClip(const Rect: TGPRectF;
  8819. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8820. procedure SetClip(const Rect: TGPRect;
  8821. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8822. procedure SetClip(const Path: IGPGraphicsPath;
  8823. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8824. procedure SetClip(const Region: IGPRegion;
  8825. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8826. procedure SetClip(const Region: HRgn;
  8827. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  8828.  
  8829. procedure IntersectClip(const Rect: TGPRectF); overload;
  8830. procedure IntersectClip(const Rect: TGPRect); overload;
  8831. procedure IntersectClip(const Region: IGPRegion); overload;
  8832. procedure ExcludeClip(const Rect: TGPRectF); overload;
  8833. procedure ExcludeClip(const Rect: TGPRect); overload;
  8834. procedure ExcludeClip(const Region: IGPRegion); overload;
  8835. procedure ResetClip;
  8836. procedure TranslateClip(const DX, DY: Single); overload;
  8837. procedure TranslateClip(const DX, DY: Integer); overload;
  8838.  
  8839. function IsVisible(const X, Y: Integer): Boolean; overload;
  8840. function IsVisible(const Point: TGPPoint): Boolean; overload;
  8841. function IsVisible(const X, Y, Width, Height: Integer): Boolean; overload;
  8842. function IsVisible(const Rect: TGPRect): Boolean; overload;
  8843. function IsVisible(const X, Y: Single): Boolean; overload;
  8844. function IsVisible(const Point: TGPPointF): Boolean; overload;
  8845. function IsVisible(const X, Y, Width, Height: Single): Boolean; overload;
  8846. function IsVisible(const Rect: TGPRectF): Boolean; overload;
  8847.  
  8848. function Save: TGPGraphicsState;
  8849. procedure Restore(const State: TGPGraphicsState);
  8850. function BeginContainer(const DstRect, SrcRect: TGPRectF;
  8851. const MeasureUnit: TGPUnit): TGPGraphicsContainer; overload;
  8852. function BeginContainer(const DstRect, SrcRect: TGPRect;
  8853. const MeasureUnit: TGPUnit): TGPGraphicsContainer; overload;
  8854. function BeginContainer: TGPGraphicsContainer; overload;
  8855. procedure EndContainer(const State: TGPGraphicsContainer);
  8856.  
  8857. procedure AddMetafileComment(const Data: array of Byte);
  8858.  
  8859. { Properties }
  8860. property RenderingOrigin: TGPPoint read GetRenderingOrigin write SetRenderingOrigin;
  8861. property CompositingMode: TGPCompositingMode read GetCompositingMode write SetCompositingMode;
  8862. property CompositingQuality: TGPCompositingQuality read GetCompositingQuality write SetCompositingQuality;
  8863. property TextRenderingHint: TGPTextRenderingHint read GetTextRenderingHint write SetTextRenderingHint;
  8864. property TextContrast: Integer read GetTextContrast write SetTextContrast;
  8865. property InterpolationMode: TGPInterpolationMode read GetInterpolationMode write SetInterpolationMode;
  8866. property SmoothingMode: TGPSmoothingMode read GetSmoothingMode write SetSmoothingMode;
  8867. property PixelOffsetMode: TGPPixelOffsetMode read GetPixelOffsetMode write SetPixelOffsetMode;
  8868. property Transform: IGPMatrix read GetTransform write SetTransform;
  8869. property PageUnit: TGPUnit read GetPageUnit write SetPageUnit;
  8870. property PageScale: Single read GetPageScale write SetPageScale;
  8871. property DpiX: Single read GetDpiX;
  8872. property DpiY: Single read GetDpiY;
  8873. property Clip: IGPRegion read GetClip write SetClipReplace;
  8874. property ClipBounds: TGPRectF read GetClipBounds;
  8875. property ClipBoundsI: TGPRect read GetClipBoundsI;
  8876. property IsClipEmpty: Boolean read GetIsClipEmpty;
  8877. property VisibleClipBounds: TGPRectF read GetVisibleClipBounds;
  8878. property VisibleClipBoundsI: TGPRect read GetVisibleClipBoundsI;
  8879. property IsVisibleClipEmpty: Boolean read GetIsVisibleClipEmpty;
  8880. end;
  8881.  
  8882. TGPGraphics = class(TGdiplusBase, IGPGraphics)
  8883. private
  8884. { IGPGraphics }
  8885. function GetRenderingOrigin: TGPPoint; overload;
  8886. procedure SetRenderingOrigin(const Value: TGPPoint); overload;
  8887. function GetCompositingMode: TGPCompositingMode;
  8888. procedure SetCompositingMode(const Value: TGPCompositingMode);
  8889. function GetCompositingQuality: TGPCompositingQuality;
  8890. procedure SetCompositingQuality(const Value: TGPCompositingQuality);
  8891. function GetTextRenderingHint: TGPTextRenderingHint;
  8892. procedure SetTextRenderingHint(const Value: TGPTextRenderingHint);
  8893. function GetTextContrast: Integer;
  8894. procedure SetTextContrast(const Value: Integer);
  8895. function GetInterpolationMode: TGPInterpolationMode;
  8896. procedure SetInterpolationMode(const Value: TGPInterpolationMode);
  8897. function GetSmoothingMode: TGPSmoothingMode;
  8898. procedure SetSmoothingMode(const Value: TGPSmoothingMode);
  8899. function GetPixelOffsetMode: TGPPixelOffsetMode;
  8900. procedure SetPixelOffsetMode(const Value: TGPPixelOffsetMode);
  8901. function GetTransform: IGPMatrix;
  8902. procedure SetTransform(const Value: IGPMatrix);
  8903. function GetPageUnit: TGPUnit;
  8904. procedure SetPageUnit(const Value: TGPUnit);
  8905. function GetPageScale: Single;
  8906. procedure SetPageScale(const Value: Single);
  8907. function GetDpiX: Single;
  8908. function GetDpiY: Single;
  8909. function GetClip: IGPRegion;
  8910. procedure SetClipReplace(const Value: IGPRegion);
  8911. function GetClipBounds: TGPRectF;
  8912. function GetClipBoundsI: TGPRect;
  8913. function GetIsClipEmpty: Boolean;
  8914. function GetVisibleClipBounds: TGPRectF;
  8915. function GetVisibleClipBoundsI: TGPRect;
  8916. function GetIsVisibleClipEmpty: Boolean;
  8917.  
  8918. procedure Flush(const Intention: TGPFlushIntention = FlushIntentionFlush);
  8919. function GetHDC: HDC;
  8920. procedure ReleaseHDC(const DC: HDC);
  8921. procedure GetRenderingOrigin(out X, Y: Integer); overload;
  8922. procedure SetRenderingOrigin(const X, Y: Integer); overload;
  8923. {$IF (GDIPVER >= $0110)}
  8924. procedure SetAbort(const IAbort: TGdiplusAbort);
  8925. {$IFEND}
  8926. procedure ResetTransform;
  8927. procedure MultiplyTransform(const Matrix: IGPMatrix;
  8928. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8929. procedure TranslateTransform(const DX, DY: Single;
  8930. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8931. procedure ScaleTransform(const SX, SY: Single;
  8932. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8933. procedure RotateTransform(const Angle: Single;
  8934. const Order: TGPMatrixOrder = MatrixOrderPrepend);
  8935. procedure TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  8936. const Points: array of TGPPointF); overload;
  8937. procedure TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  8938. const Points: array of TGPPoint); overload;
  8939. function GetNearestColor(const Color: TGPColor): TGPColor;
  8940.  
  8941. procedure DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPointF); overload;
  8942. procedure DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Single); overload;
  8943. procedure DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPoint); overload;
  8944. procedure DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Integer); overload;
  8945.  
  8946. procedure DrawLines(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8947. procedure DrawLines(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8948.  
  8949. procedure DrawArc(const Pen: IGPPen; const Rect: TGPRectF; const StartAngle,
  8950. SweepAngle: Single); overload;
  8951. procedure DrawArc(const Pen: IGPPen; const X, Y, Width, Height, StartAngle,
  8952. SweepAngle: Single); overload;
  8953. procedure DrawArc(const Pen: IGPPen; const Rect: TGPRect; const StartAngle,
  8954. SweepAngle: Single); overload;
  8955. procedure DrawArc(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  8956. const StartAngle, SweepAngle: Single); overload;
  8957.  
  8958. procedure DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3, Pt4: TGPPointF); overload;
  8959. procedure DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single); overload;
  8960. procedure DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3, Pt4: TGPPoint); overload;
  8961. procedure DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); overload;
  8962.  
  8963. procedure DrawBeziers(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8964. procedure DrawBeziers(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8965.  
  8966. procedure DrawRectangle(const Pen: IGPPen; const Rect: TGPRectF); overload;
  8967. procedure DrawRectangle(const Pen: IGPPen; const Rect: TGPRect); overload;
  8968. procedure DrawRectangle(const Pen: IGPPen; const X, Y, Width, Height: Single); overload;
  8969. procedure DrawRectangle(const Pen: IGPPen; const X, Y, Width, Height: Integer); overload;
  8970.  
  8971. procedure DrawRectangles(const Pen: IGPPen; const Rects: array of TGPRectF); overload;
  8972. procedure DrawRectangles(const Pen: IGPPen; const Rects: array of TGPRect); overload;
  8973.  
  8974. procedure DrawEllipse(const Pen: IGPPen; const Rect: TGPRectF); overload;
  8975. procedure DrawEllipse(const Pen: IGPPen; const X, Y, Width, Height: Single); overload;
  8976. procedure DrawEllipse(const Pen: IGPPen; const Rect: TGPRect); overload;
  8977. procedure DrawEllipse(const Pen: IGPPen; const X, Y, Width, Height: Integer); overload;
  8978.  
  8979. procedure DrawPie(const Pen: IGPPen; const Rect: TGPRectF;
  8980. const StartAngle, SweepAngle: Single); overload;
  8981. procedure DrawPie(const Pen: IGPPen; const X, Y, Width, Height,
  8982. StartAngle, SweepAngle: Single); overload;
  8983. procedure DrawPie(const Pen: IGPPen; const Rect: TGPRect;
  8984. const StartAngle, SweepAngle: Single); overload;
  8985. procedure DrawPie(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  8986. const StartAngle, SweepAngle: Single); overload;
  8987.  
  8988. procedure DrawPolygon(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8989. procedure DrawPolygon(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8990.  
  8991. procedure DrawPath(const Pen: IGPPen; const Path: IGPGraphicsPath);
  8992.  
  8993. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  8994. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  8995. const Tension: Single); overload;
  8996. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  8997. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  8998. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  8999. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  9000. const Tension: Single); overload;
  9001. procedure DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  9002. const Offset, NumberOfSegments: Integer; const Tension: Single); overload;
  9003.  
  9004. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPointF); overload;
  9005. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  9006. const Tension: Single); overload;
  9007. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPoint); overload;
  9008. procedure DrawClosedCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  9009. const Tension: Single); overload;
  9010.  
  9011. procedure Clear(const Color: TGPColor);
  9012.  
  9013. procedure FillRectangle(const Brush: IGPBrush; const Rect: TGPRectF); overload;
  9014. procedure FillRectangle(const Brush: IGPBrush; const Rect: TGPRect); overload;
  9015. procedure FillRectangle(const Brush: IGPBrush; const X, Y, Width, Height: Single); overload;
  9016. procedure FillRectangle(const Brush: IGPBrush; const X, Y, Width, Height: Integer); overload;
  9017.  
  9018. procedure FillRectangles(const Brush: IGPBrush; const Rects: array of TGPRectF); overload;
  9019. procedure FillRectangles(const Brush: IGPBrush; const Rects: array of TGPRect); overload;
  9020.  
  9021. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPointF); overload;
  9022. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPoint); overload;
  9023. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPointF;
  9024. const FillMode: TGPFillMode); overload;
  9025. procedure FillPolygon(const Brush: IGPBrush; const Points: array of TGPPoint;
  9026. const FillMode: TGPFillMode); overload;
  9027.  
  9028. procedure FillEllipse(const Brush: IGPBrush; const Rect: TGPRectF); overload;
  9029. procedure FillEllipse(const Brush: IGPBrush; const X, Y, Width, Height: Single); overload;
  9030. procedure FillEllipse(const Brush: IGPBrush; const Rect: TGPRect); overload;
  9031. procedure FillEllipse(const Brush: IGPBrush; const X, Y, Width, Height: Integer); overload;
  9032.  
  9033. procedure FillPie(const Brush: IGPBrush; const Rect: TGPRectF;
  9034. const StartAngle, SweepAngle: Single); overload;
  9035. procedure FillPie(const Brush: IGPBrush; const X, Y, Width, Height,
  9036. StartAngle, SweepAngle: Single); overload;
  9037. procedure FillPie(const Brush: IGPBrush; const Rect: TGPRect;
  9038. const StartAngle, SweepAngle: Single); overload;
  9039. procedure FillPie(const Brush: IGPBrush; const X, Y, Width, Height: Integer;
  9040. const StartAngle, SweepAngle: Single); overload;
  9041.  
  9042. procedure FillPath(const Brush: IGPBrush; const Path: IGPGraphicsPath);
  9043.  
  9044. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPointF); overload;
  9045. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPointF;
  9046. const FillMode: TGPFillMode; const Tension: Single); overload;
  9047. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPoint); overload;
  9048. procedure FillClosedCurve(const Brush: IGPBrush; const Points: array of TGPPoint;
  9049. const FillMode: TGPFillMode; const Tension: Single); overload;
  9050.  
  9051. procedure FillRegion(const Brush: IGPBrush; const Region: IGPRegion);
  9052.  
  9053. procedure DrawString(const Str: String; const Font: IGPFont;
  9054. const LayoutRect: TGPRectF; const Format: IGPStringFormat;
  9055. const Brush: IGPBrush); overload;
  9056. procedure DrawString(const Str: String; const Font: IGPFont;
  9057. const Origin: TGPPointF; const Format: IGPStringFormat;
  9058. const Brush: IGPBrush); overload;
  9059. procedure DrawString(const Str: String; const Font: IGPFont;
  9060. const Origin: TGPPointF; const Brush: IGPBrush); overload;
  9061.  
  9062. function MeasureString(const Str: String; const Font: IGPFont;
  9063. const LayoutRect: TGPRectF; const Format: IGPStringFormat): TGPRectF; overload;
  9064. function MeasureString(const Str: String; const Font: IGPFont;
  9065. const LayoutRect: TGPRectF; const Format: IGPStringFormat;
  9066. out CodepointsFitted, LinesFilled: Integer): TGPRectF; overload;
  9067. function MeasureString(const Str: String; const Font: IGPFont;
  9068. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat): TGPSizeF; overload;
  9069. function MeasureString(const Str: String; const Font: IGPFont;
  9070. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat;
  9071. out CodepointsFitted, LinesFilled: Integer): TGPSizeF; overload;
  9072. function MeasureString(const Str: String; const Font: IGPFont;
  9073. const Origin: TGPPointF; const Format: IGPStringFormat): TGPRectF; overload;
  9074. function MeasureString(const Str: String; const Font: IGPFont;
  9075. const LayoutRect: TGPRectF): TGPRectF; overload;
  9076. function MeasureString(const Str: String; const Font: IGPFont;
  9077. const Origin: TGPPointF): TGPRectF; overload;
  9078.  
  9079. function MeasureCharacterRanges(const Str: String; const Font: IGPFont;
  9080. const LayoutRect: TGPRectF; const Format: IGPStringFormat): IGPRegions;
  9081. procedure DrawDriverString(const Text: PUInt16; const Length: Integer;
  9082. const Font: IGPFont; const Brush: IGPBrush; const Positions: PGPPointF;
  9083. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix);
  9084. function MeasureDriverString(const Text: PUInt16; const Length: Integer;
  9085. const Font: IGPFont; const Positions: PGPPointF;
  9086. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix): TGPRectF;
  9087.  
  9088. procedure DrawCachedBitmap(const CachedBitmap: IGPCachedBitmap;
  9089. const X, Y: Integer);
  9090.  
  9091. procedure DrawImage(const Image: IGPImage; const Point: TGPPointF); overload;
  9092. procedure DrawImage(const Image: IGPImage; const X, Y: Single); overload;
  9093. procedure DrawImage(const Image: IGPImage; const Rect: TGPRectF); overload;
  9094. procedure DrawImage(const Image: IGPImage; const X, Y, Width, Height: Single); overload;
  9095. procedure DrawImage(const Image: IGPImage; const Point: TGPPoint); overload;
  9096. procedure DrawImage(const Image: IGPImage; const X, Y: Integer); overload;
  9097. procedure DrawImage(const Image: IGPImage; const Rect: TGPRect); overload;
  9098. procedure DrawImage(const Image: IGPImage; const X, Y, Width, Height: Integer); overload;
  9099. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPointsF); overload;
  9100. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPoints); overload;
  9101. procedure DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY, SrcWidth,
  9102. SrcHeight: Single; const SrcUnit: TGPUnit); overload;
  9103. procedure DrawImage(const Image: IGPImage; const DestRect: TGPRectF;
  9104. const SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  9105. const ImageAttributes: IGPImageAttributes = nil;
  9106. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9107. procedure DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  9108. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  9109. const ImageAttributes: IGPImageAttributes = nil;
  9110. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9111. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPointsF;
  9112. const SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  9113. const ImageAttributes: IGPImageAttributes = nil;
  9114. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9115. procedure DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY, SrcWidth,
  9116. SrcHeight: Integer; const SrcUnit: TGPUnit); overload;
  9117. procedure DrawImage(const Image: IGPImage; const DestRect: TGPRect;
  9118. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  9119. const ImageAttributes: IGPImageAttributes = nil;
  9120. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9121. procedure DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  9122. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  9123. const ImageAttributes: IGPImageAttributes = nil;
  9124. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9125. procedure DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPoints;
  9126. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  9127. const ImageAttributes: IGPImageAttributes = nil;
  9128. const Callback: TGPDrawImageAbort = nil; const CallbackData: Pointer = nil); overload;
  9129. {$IF (GDIPVER >= $0110)}
  9130. procedure DrawImage(const Image: IGPImage; const DestRect, SourceRect: TGPRectF;
  9131. const SrcUnit: TGPUnit; const ImageAttributes: IGPImageAttributes = nil); overload;
  9132. procedure DrawImage(const Image: IGPImage; const SourceRect: TGPRectF;
  9133. const XForm: IGPMatrix; const Effect: IGPEffect;
  9134. const ImageAttributes: IGPImageAttributes; const SrcUnit: TGPUnit); overload;
  9135. {$IFEND}
  9136.  
  9137. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9138. const DestPoint: TGPPointF; const Callback: TGPEnumerateMetafileProc;
  9139. const CallbackData: Pointer = nil;
  9140. const ImageAttributes: IGPImageAttributes = nil); overload;
  9141. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9142. const DestPoint: TGPPoint; const Callback: TGPEnumerateMetafileProc;
  9143. const CallbackData: Pointer = nil;
  9144. const ImageAttributes: IGPImageAttributes = nil); overload;
  9145. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9146. const DestRect: TGPRectF; const Callback: TGPEnumerateMetafileProc;
  9147. const CallbackData: Pointer = nil;
  9148. const ImageAttributes: IGPImageAttributes = nil); overload;
  9149. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9150. const DestRect: TGPRect; const Callback: TGPEnumerateMetafileProc;
  9151. const CallbackData: Pointer = nil;
  9152. const ImageAttributes: IGPImageAttributes = nil); overload;
  9153. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9154. const DestPoints: TGPPlgPointsF; const Callback: TGPEnumerateMetafileProc;
  9155. const CallbackData: Pointer = nil;
  9156. const ImageAttributes: IGPImageAttributes = nil); overload;
  9157. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9158. const DestPoints: TGPPlgPoints; const Callback: TGPEnumerateMetafileProc;
  9159. const CallbackData: Pointer = nil;
  9160. const ImageAttributes: IGPImageAttributes = nil); overload;
  9161. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9162. const DestPoint: TGPPointF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  9163. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9164. const ImageAttributes: IGPImageAttributes = nil); overload;
  9165. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9166. const DestPoint: TGPPoint; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  9167. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9168. const ImageAttributes: IGPImageAttributes = nil); overload;
  9169. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9170. const DestRect, SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  9171. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9172. const ImageAttributes: IGPImageAttributes = nil); overload;
  9173. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9174. const DestRect, SrcRect: TGPRect; const SrcUnit: TGPUnit;
  9175. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9176. const ImageAttributes: IGPImageAttributes = nil); overload;
  9177. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9178. const DestPoints: TGPPlgPointsF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  9179. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9180. const ImageAttributes: IGPImageAttributes = nil); overload;
  9181. procedure EnumerateMetafile(const Metafile: IGPMetafile;
  9182. const DestPoints: TGPPlgPoints; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  9183. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer = nil;
  9184. const ImageAttributes: IGPImageAttributes = nil); overload;
  9185.  
  9186. procedure SetClip(const G: IGPGraphics;
  9187. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9188. procedure SetClip(const Rect: TGPRectF;
  9189. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9190. procedure SetClip(const Rect: TGPRect;
  9191. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9192. procedure SetClip(const Path: IGPGraphicsPath;
  9193. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9194. procedure SetClip(const Region: IGPRegion;
  9195. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9196. procedure SetClip(const Region: HRgn;
  9197. const CombineMode: TGPCombineMode = CombineModeReplace); overload;
  9198.  
  9199. procedure IntersectClip(const Rect: TGPRectF); overload;
  9200. procedure IntersectClip(const Rect: TGPRect); overload;
  9201. procedure IntersectClip(const Region: IGPRegion); overload;
  9202. procedure ExcludeClip(const Rect: TGPRectF); overload;
  9203. procedure ExcludeClip(const Rect: TGPRect); overload;
  9204. procedure ExcludeClip(const Region: IGPRegion); overload;
  9205. procedure ResetClip;
  9206. procedure TranslateClip(const DX, DY: Single); overload;
  9207. procedure TranslateClip(const DX, DY: Integer); overload;
  9208.  
  9209. function IsVisible(const X, Y: Integer): Boolean; overload;
  9210. function IsVisible(const Point: TGPPoint): Boolean; overload;
  9211. function IsVisible(const X, Y, Width, Height: Integer): Boolean; overload;
  9212. function IsVisible(const Rect: TGPRect): Boolean; overload;
  9213. function IsVisible(const X, Y: Single): Boolean; overload;
  9214. function IsVisible(const Point: TGPPointF): Boolean; overload;
  9215. function IsVisible(const X, Y, Width, Height: Single): Boolean; overload;
  9216. function IsVisible(const Rect: TGPRectF): Boolean; overload;
  9217.  
  9218. function Save: TGPGraphicsState;
  9219. procedure Restore(const State: TGPGraphicsState);
  9220. function BeginContainer(const DstRect, SrcRect: TGPRectF;
  9221. const MeasureUnit: TGPUnit): TGPGraphicsContainer; overload;
  9222. function BeginContainer(const DstRect, SrcRect: TGPRect;
  9223. const MeasureUnit: TGPUnit): TGPGraphicsContainer; overload;
  9224. function BeginContainer: TGPGraphicsContainer; overload;
  9225. procedure EndContainer(const State: TGPGraphicsContainer);
  9226.  
  9227. procedure AddMetafileComment(const Data: array of Byte);
  9228. public
  9229. constructor Create(const DC: HDC); overload;
  9230. constructor Create(const DC: HDC; const Device: THandle); overload;
  9231. constructor Create(const Window: HWnd; const ICM: Boolean = False); overload;
  9232. constructor Create(const Image: IGPImage); overload;
  9233. destructor Destroy; override;
  9234.  
  9235. class function FromHDC(const DC: HDC): IGPGraphics; overload; static;
  9236. class function FromHDC(const DC: HDC; const Device: THandle): IGPGraphics; overload; static;
  9237. class function FromHWnd(const Window: HWnd;
  9238. const ICM: Boolean = False): IGPGraphics; static;
  9239. class function FromImage(const Image: IGPImage): IGPGraphics; static;
  9240. end;
  9241. {$ENDREGION 'GdiplusGraphics.h'}
  9242.  
  9243. {$REGION 'Utilities'}
  9244. type
  9245. EGdipError = class(Exception)
  9246. private
  9247. FStatus: TGPStatus;
  9248. public
  9249. constructor Create(const Status: TGPStatus);
  9250.  
  9251. property Status: TGPStatus read FStatus;
  9252. end;
  9253. {$ENDREGION 'Utilities'}
  9254.  
  9255. {$REGION 'Aliases'}
  9256. {$IFDEF GDIP_ALIAS}
  9257. type
  9258. TGraphicsState = TGPGraphicsState;
  9259. PGraphicsState = PGPGraphicsState;
  9260. TGraphicsContainer = TGPGraphicsContainer;
  9261. PGraphicsContainer = PGPGraphicsContainer;
  9262. TFillMode = TGPFillMode;
  9263. TQualityMode = TGPQualityMode;
  9264. TCompositingMode = TGPCompositingMode;
  9265. TCompositingQuality = TGPCompositingQuality;
  9266. TUnit = TGPUnit;
  9267. TMetafileFrameUnit = TGPMetafileFrameUnit;
  9268. TCoordinateSpace = TGPCoordinateSpace;
  9269. TWrapMode = TGPWrapMode;
  9270. THatchStyle = TGPHatchStyle;
  9271. TDashStyle = TGPDashStyle;
  9272. TDashCap = TGPDashCap;
  9273. TLineCap = TGPLineCap;
  9274. TCustomLineCapType = TGPCustomLineCapType;
  9275. TLineJoin = TGPLineJoin;
  9276. TPathPointType = TGPPathPointType;
  9277. TWarpMode = TGPWarpMode;
  9278. TLinearGradientMode = TGPLinearGradientMode;
  9279. TCombineMode = TGPCombineMode;
  9280. TImageType = TGPImageType;
  9281. TInterpolationMode = TGPInterpolationMode;
  9282. TPenAlignment = TGPPenAlignment;
  9283. TBrushType = TGPBrushType;
  9284. TPenType = TGPPenType;
  9285. TMatrixOrder = TGPMatrixOrder;
  9286. TGenericFontFamily = TGPGenericFontFamily;
  9287. TFontStyleEntry = TGPFontStyleEntry;
  9288. TFontStyle = TGPFontStyle;
  9289. TSmoothingMode = TGPSmoothingMode;
  9290. TPixelOffsetMode = TGPPixelOffsetMode;
  9291. TTextRenderingHint = TGPTextRenderingHint;
  9292. TMetafileType = TGPMetafileType;
  9293. TEmfType = TGPEmfType;
  9294. TObjectType = TGPObjectType;
  9295. TStringFormatFlag = TGPStringFormatFlag;
  9296. TStringFormatFlags = TGPStringFormatFlags;
  9297. TStringTrimming = TGPStringTrimming;
  9298. TStringDigitSubstitute = TGPStringDigitSubstitute;
  9299. PStringDigitSubstitute = PGPStringDigitSubstitute;
  9300. THotkeyPrefix = TGPHotkeyPrefix;
  9301. TStringAlignment = TGPStringAlignment;
  9302. TDriverStringOption = TGPDriverStringOption;
  9303. TDriverStringOptions = TGPDriverStringOptions;
  9304. TFlushIntention = TGPFlushIntention;
  9305. TEncoderParameterValueType = TGPEncoderParameterValueType;
  9306. TEncoderValue = TGPEncoderValue;
  9307. TEmfToWmfBitsFlag = TGPEmfToWmfBitsFlag;
  9308. TEmfToWmfBitsFlags = TGPEmfToWmfBitsFlags;
  9309. TTestControlEnum = TGPTestControlEnum;
  9310. TImageAbort = TGPImageAbort;
  9311. TDrawImageAbort = TGPDrawImageAbort;
  9312. TGetThumbnailImageAbort = TGPGetThumbnailImageAbort;
  9313. TEnumerateMetafileProc = TGPEnumerateMetafileProc;
  9314. TStatus = TGPStatus;
  9315. TSizeF = TGPSizeF;
  9316. PSizeF = PGPSizeF;
  9317. TSize = TGPSize;
  9318. PSize = PGPSize;
  9319. TPointF = TGPPointF;
  9320. PPointF = PGPPointF;
  9321. TPoint = TGPPoint;
  9322. PPoint = PGPPoint;
  9323. PRectF = PGPRectF;
  9324. TRectF = TGPRectF;
  9325. PRect = PGPRect;
  9326. TRect = TGPRect;
  9327. TNativePathData = TGPNativePathData;
  9328. PNativePathData = PGPNativePathData;
  9329. TCharacterRange = TGPCharacterRange;
  9330. PCharacterRange = PGPCharacterRange;
  9331. TDebugEventLevel = TGPDebugEventLevel;
  9332. TDebugEventProc = TGPDebugEventProc;
  9333. TNofificationHookProc = TGPNofificationHookProc;
  9334. TNofificationUnhookProc = TGPNofificationUnhookProc;
  9335. TPixelFormat = TGPPixelFormat;
  9336. TPaletteFlag = TGPPaletteFlag;
  9337. TPaletteFlags = TGPPaletteFlags;
  9338. TNativeColorPalette = TGPNativeColorPalette;
  9339. PNativeColorPalette = PGPNativeColorPalette;
  9340. TColorMode = TGPColorMode;
  9341. TColorChannelFlags = TGPColorChannelFlags;
  9342. TColor = TGPColor;
  9343. PColor = PGPColor;
  9344. TMetafileHeader = TGPMetafileHeader;
  9345. PMetafileHeader = PGPMetafileHeader;
  9346. IImageBytes = IGPImageBytes;
  9347. TImageCodecFlag = TGPImageCodecFlag;
  9348. TNativeImageCodecInfo = TGPNativeImageCodecInfo;
  9349. PNativeImageCodecInfo = PGPNativeImageCodecInfo;
  9350. TImageLockModeOption = TGPImageLockModeOption;
  9351. TImageLockMode = TGPImageLockMode;
  9352. TBitmapData = TGPBitmapData;
  9353. PBitmapData = PGPBitmapData;
  9354. TImageFlag = TGPImageFlag;
  9355. TImageFlags = TGPImageFlags;
  9356. TRotateFlipType = TGPRotateFlipType;
  9357. TNativeEncoderParameter = TGPNativeEncoderParameter;
  9358. PNativeEncoderParameter = PGPNativeEncoderParameter;
  9359. TNativeEncoderParameters = TGPNativeEncoderParameters;
  9360. PNativeEncoderParameters = PGPNativeEncoderParameters;
  9361. TNativePropertyItem = TGPNativePropertyItem;
  9362. PNativePropertyItem = PGPNativePropertyItem;
  9363. TColorMatrix = TGPColorMatrix;
  9364. PColorMatrix = PGPColorMatrix;
  9365. TColorMatrixFlags = TGPColorMatrixFlags;
  9366. TColorAdjustType = TGPColorAdjustType;
  9367. TColorMap = TGPColorMap;
  9368. PColorMap = PGPColorMap;
  9369. IRegionData = IGPRegionData;
  9370. IRegionScansF = IGPRegionScansF;
  9371. IRegionScans = IGPRegionScans;
  9372. IRegion = IGPRegion;
  9373. TRegion = TGPRegion;
  9374. IFontFamily = IGPFontFamily;
  9375. TFontFamily = TGPFontFamily;
  9376. IFont = IGPFont;
  9377. TFont = TGPFont;
  9378. IFontFamilies = IGPFontFamilies;
  9379. IFontCollection = IGPFontCollection;
  9380. TFontCollection = TGPFontCollection;
  9381. IInstalledFontCollection = IGPInstalledFontCollection;
  9382. TInstalledFontCollection = TGPInstalledFontCollection;
  9383. IPrivateFontCollection = IGPPrivateFontCollection;
  9384. TPrivateFontCollection = TGPPrivateFontCollection;
  9385. IImageFormat = IGPImageFormat;
  9386. TImageFormat = TGPImageFormat;
  9387. IImageCodecInfo = IGPImageCodecInfo;
  9388. IImageCodecInfoArray = IGPImageCodecInfoArray;
  9389. TImageCodecInfo = TGPImageCodecInfo;
  9390. IEncoderParameters = IGPEncoderParameters;
  9391. TEncoderParameterEnumerator = TGPEncoderParameterEnumerator;
  9392. TEncoderParameters = TGPEncoderParameters;
  9393. IColorPalette = IGPColorPalette;
  9394. TColorPalette = TGPColorPalette;
  9395. IPropertyItem = IGPPropertyItem;
  9396. TPropertyItem = TGPPropertyItem;
  9397. IFrameDimensions = IGPFrameDimensions;
  9398. IPropertyIdList = IGPPropertyIdList;
  9399. IPropertyItems = IGPPropertyItems;
  9400. IImage = IGPImage;
  9401. TImage = TGPImage;
  9402. IBitmap = IGPBitmap;
  9403. TBitmap = TGPBitmap;
  9404. ICustomLineCap = IGPCustomLineCap;
  9405. TCustomLineCap = TGPCustomLineCap;
  9406. IAdjustableArrowCap = IGPAdjustableArrowCap;
  9407. TAdjustableArrowCap = TGPAdjustableArrowCap;
  9408. ICachedBitmap = IGPCachedBitmap;
  9409. TCachedBitmap = TGPCachedBitmap;
  9410. IMetafile = IGPMetafile;
  9411. TMetafile = TGPMetafile;
  9412. IImageAttributes = IGPImageAttributes;
  9413. TImageAttributes = TGPImageAttributes;
  9414. TMatrixElements = TGPMatrixElements;
  9415. TPlgPointsF = TGPPlgPointsF;
  9416. TPlgPoints = TGPPlgPoints;
  9417. IMatrix = IGPMatrix;
  9418. TMatrix = TGPMatrix;
  9419. IBrush = IGPBrush;
  9420. TBrush = TGPBrush;
  9421. ISolidBrush = IGPSolidBrush;
  9422. TSolidBrush = TGPSolidBrush;
  9423. ITextureBrush = IGPTextureBrush;
  9424. TTextureBrush = TGPTextureBrush;
  9425. TLinearColors = TGPLinearColors;
  9426. IBlend = IGPBlend;
  9427. TBlend = TGPBlend;
  9428. IColorBlend = IGPColorBlend;
  9429. TColorBlend = TGPColorBlend;
  9430. ILinearGradientBrush = IGPLinearGradientBrush;
  9431. TLinearGradientBrush = TGPLinearGradientBrush;
  9432. IHatchBrush = IGPHatchBrush;
  9433. THatchBrush = TGPHatchBrush;
  9434. IDashPattern = IGPDashPattern;
  9435. ICompoundArray = IGPCompoundArray;
  9436. IPen = IGPPen;
  9437. TPen = TGPPen;
  9438. ITabStops = IGPTabStops;
  9439. ICharacterRanges = IGPCharacterRanges;
  9440. IStringFormat = IGPStringFormat;
  9441. TStringFormat = TGPStringFormat;
  9442. IPathTypes = IGPPathTypes;
  9443. IPathPoints = IGPPathPoints;
  9444. IPathPointsI = IGPPathPointsI;
  9445. IPathData = IGPPathData;
  9446. TPathData = TGPPathData;
  9447. IGraphicsPath = IGPGraphicsPath;
  9448. TGraphicsPath = TGPGraphicsPath;
  9449. IGraphicsPathIterator = IGPGraphicsPathIterator;
  9450. TGraphicsPathIterator = TGPGraphicsPathIterator;
  9451. IColors = IGPColors;
  9452. IPathGradientBrush = IGPPathGradientBrush;
  9453. TPathGradientBrush = TGPPathGradientBrush;
  9454. IRegions = IGPRegions;
  9455. IGraphics = IGPGraphics;
  9456. TGraphics = TGPGraphics;
  9457. {$IF (GDIPVER >= $0110)}
  9458. TConvertToEmfPlusFlags = TGPConvertToEmfPlusFlags;
  9459. TPaletteType = TGPPaletteType;
  9460. TDitherType = TGPDitherType;
  9461. TItemDataPosition = TGPItemDataPosition;
  9462. TImageItemData = TGPImageItemData;
  9463. PImageItemData = PGPImageItemData;
  9464. TColorChannelLUT = TGPColorChannelLUT;
  9465. THistogramFormat = TGPHistogramFormat;
  9466. IHistogram = IGPHistogram;
  9467. THistogram = TGPHistogram;
  9468. TSharpenParams = TGPSharpenParams;
  9469. PSharpenParams = PGPSharpenParams;
  9470. TBlurParams = TGPBlurParams;
  9471. PBlurParams = PGPBlurParams;
  9472. TBrightnessContrastParams = TGPBrightnessContrastParams;
  9473. PBrightnessContrastParams = PGPBrightnessContrastParams;
  9474. TRedEyeCorrectionParams = TGPRedEyeCorrectionParams;
  9475. PRedEyeCorrectionParams = PGPRedEyeCorrectionParams;
  9476. THueSaturationLightnessParams = TGPHueSaturationLightnessParams;
  9477. PHueSaturationLightnessParams = PGPHueSaturationLightnessParams;
  9478. TTintParams = TGPTintParams;
  9479. PTintParams = PGPTintParams;
  9480. TLevelsParams = TGPLevelsParams;
  9481. PLevelsParams = PGPLevelsParams;
  9482. TColorBalanceParams = TGPColorBalanceParams;
  9483. PColorBalanceParams = PGPColorBalanceParams;
  9484. TColorLUTParams = TGPColorLUTParams;
  9485. PColorLUTParams = PGPColorLUTParams;
  9486. TCurveAdjustments = TGPCurveAdjustments;
  9487. TCurveChannel = TGPCurveChannel;
  9488. TColorCurveParams = TGPColorCurveParams;
  9489. PColorCurveParams = PGPColorCurveParams;
  9490. IEffect = IGPEffect;
  9491. TEffect = TGPEffect;
  9492. IBlur = IGPBlur;
  9493. TBlur = TGPBlur;
  9494. ISharpen = IGPSharpen;
  9495. TSharpen = TGPSharpen;
  9496. IRedEyeCorrection = IGPRedEyeCorrection;
  9497. TRedEyeCorrection = TGPRedEyeCorrection;
  9498. IBrightnessContrast = IGPBrightnessContrast;
  9499. TBrightnessContrast = TGPBrightnessContrast;
  9500. IHueSaturationLightness = IGPHueSaturationLightness;
  9501. THueSaturationLightness = TGPHueSaturationLightness;
  9502. ILevels = IGPLevels;
  9503. TLevels = TGPLevels;
  9504. ITint = IGPTint;
  9505. TTint = TGPTint;
  9506. IColorBalance = IGPColorBalance;
  9507. TColorBalance = TGPColorBalance;
  9508. IColorMatrixEffect = IGPColorMatrixEffect;
  9509. TColorMatrixEffect = TGPColorMatrixEffect;
  9510. IColorLUT = IGPColorLUT;
  9511. TColorLUT = TGPColorLUT;
  9512. IColorCurve = IGPColorCurve;
  9513. TColorCurve = TGPColorCurve;
  9514. {$IFEND} // (GDIPVER >= $0110)
  9515. {$ENDIF} // GDIP_ALIAS
  9516. {$ENDREGION 'Aliases'}
  9517.  
  9518. implementation
  9519.  
  9520. {$POINTERMATH ON}
  9521.  
  9522. {$REGION 'Support classes'}
  9523.  
  9524. { TGPArray<T>.TEnumerator }
  9525.  
  9526. constructor TGPArray<T>.TEnumerator.Create(const AArray: TGPArray<T>);
  9527. begin
  9528. inherited Create;
  9529. FArray := AArray;
  9530. FIndex := -1;
  9531. end;
  9532.  
  9533. function TGPArray<T>.TEnumerator.DoGetCurrent: T;
  9534. begin
  9535. Result := GetCurrent;
  9536. end;
  9537.  
  9538. function TGPArray<T>.TEnumerator.DoMoveNext: Boolean;
  9539. begin
  9540. Result := MoveNext;
  9541. end;
  9542.  
  9543. function TGPArray<T>.TEnumerator.GetCurrent: T;
  9544. begin
  9545. Result := FArray.GetItem(FIndex);
  9546. end;
  9547.  
  9548. function TGPArray<T>.TEnumerator.MoveNext: Boolean;
  9549. begin
  9550. if (FIndex >= FArray.GetCount) then
  9551. Exit(False);
  9552. Inc(FIndex);
  9553. Result := (FIndex < FArray.GetCount);
  9554. end;
  9555.  
  9556. { TGPArray<T> }
  9557.  
  9558. constructor TGPArray<T>.Create(const Count: Integer);
  9559. begin
  9560. inherited Create;
  9561. SetLength(FItems, Count);
  9562. end;
  9563.  
  9564. function TGPArray<T>.GetCount: Integer;
  9565. begin
  9566. Result := Length(FItems);
  9567. end;
  9568.  
  9569. function TGPArray<T>.GetEnumerator: TEnumerator<T>;
  9570. begin
  9571. Result := TEnumerator.Create(Self);
  9572. end;
  9573.  
  9574. function TGPArray<T>.GetItem(const Index: Integer): T;
  9575. begin
  9576. Result := FItems[Index];
  9577. end;
  9578.  
  9579. function TGPArray<T>.GetItemPtr: Pointer;
  9580. begin
  9581. Result := @FItems[0];
  9582. end;
  9583.  
  9584. procedure TGPArray<T>.SetCount(const Value: Integer);
  9585. begin
  9586. if (Value <> Length(FItems)) then
  9587. SetLength(FItems, Value);
  9588. end;
  9589.  
  9590. procedure TGPArray<T>.SetItem(const Index: Integer; const Value: T);
  9591. begin
  9592. FItems[Index] := Value;
  9593. end;
  9594.  
  9595. { TGPBuffer }
  9596.  
  9597. constructor TGPBuffer.Create(const Data: Pointer; const Size: Cardinal);
  9598. begin
  9599. inherited Create;
  9600. FData := Data;
  9601. FSize := Size;
  9602. end;
  9603.  
  9604. destructor TGPBuffer.Destroy;
  9605. begin
  9606. FreeMem(FData);
  9607. inherited;
  9608. end;
  9609.  
  9610. function TGPBuffer.GetData: Pointer;
  9611. begin
  9612. Result := FData;
  9613. end;
  9614.  
  9615. function TGPBuffer.GetSize: Cardinal;
  9616. begin
  9617. Result := FSize;
  9618. end;
  9619.  
  9620. {$ENDREGION 'Support classes'}
  9621.  
  9622. {$REGION 'Utilities'}
  9623. procedure GdipCheck(const Status: TGPStatus); inline;
  9624. begin
  9625. if (Status <> Ok) then
  9626. raise EGdipError.Create(Status);
  9627. end;
  9628.  
  9629. function GdipHandle(const GpObject: IGdiplusBase): GpNativeHandle;
  9630. begin
  9631. if Assigned(GpObject) then
  9632. Result := GpObject.NativeHandle
  9633. else
  9634. Result := nil;
  9635. end;
  9636. { EGdipError }
  9637.  
  9638. constructor EGdipError.Create(const Status: TGPStatus);
  9639. var
  9640. S: String;
  9641. begin
  9642. case Status of
  9643. GenericError:
  9644. S := 'Generic Error';
  9645. InvalidParameter:
  9646. S := 'One of the arguments passed to the method was not valid';
  9647. OutOfMemory:
  9648. S := 'Out of Memory';
  9649. ObjectBusy:
  9650. S := 'One of the arguments is already in use in another thread';
  9651. InsufficientBuffer:
  9652. S := 'The specified buffer is not large enough to hold the data to be received';
  9653. NotImplemented:
  9654. S := 'Method is not implemented';
  9655. Win32Error:
  9656. S := 'Win32 Error: ' + SysErrorMessage(GetLastError);
  9657. WrongState:
  9658. S := 'The object is in an invalid state';
  9659. Aborted:
  9660. S := 'The method was aborted';
  9661. FileNotFound:
  9662. S := 'The specified image file or metafile cannot be found';
  9663. ValueOverflow:
  9664. S := 'The method performed an arithmetic operation that produces a numeric overflow';
  9665. AccessDenied:
  9666. S := 'A write operation is not allowed on the specified file';
  9667. UnknownImageFormat:
  9668. S := 'The specified image file format is not known';
  9669. FontFamilyNotFound:
  9670. S := 'The specified font family cannot be found';
  9671. FontStyleNotFound:
  9672. S := 'The specified style is not available for the specified font family';
  9673. NotTrueTypeFont:
  9674. S := 'The specified font is not a TrueType font';
  9675. UnsupportedGdiplusVersion:
  9676. S := 'The version of GDI+ installed on the system is incompatible with the requested version';
  9677. GdiplusNotInitialized:
  9678. S := 'GDI+ is not initialized';
  9679. PropertyNotFound:
  9680. S := 'The specified property does not exist in the image';
  9681. PropertyNotSupported:
  9682. S := 'The specified property is not supported by the format of the image';
  9683. {$IF (GDIPVER >= $0110)}
  9684. ProfileNotFound:
  9685. S := 'The color profile required to save an image in CMYK format was not found';
  9686. {$IFEND}
  9687. else
  9688. S := 'Unknown error: ' + IntToStr(Ord(Status));
  9689. end;
  9690. inherited Create('(GDI+ Error) ' + S);
  9691. end;
  9692. {$ENDREGION 'Utilities'}
  9693.  
  9694. {$REGION 'GdiplusBase.h'}
  9695. (*****************************************************************************
  9696. * GdiplusBase.h
  9697. * GDI+ base memory allocation class
  9698. *****************************************************************************)
  9699.  
  9700. { TGdiplusBase }
  9701.  
  9702. constructor TGdiplusBase.Create;
  9703. begin
  9704. inherited Create;
  9705. end;
  9706.  
  9707. procedure TGdiplusBase.FreeInstance;
  9708. begin
  9709. CleanupInstance;
  9710. GdipFree(Self);
  9711. end;
  9712.  
  9713. function TGdiplusBase.GetNativeHandle: GpNativeHandle;
  9714. begin
  9715. Result := FNativeHandle;
  9716. end;
  9717.  
  9718. class function TGdiplusBase.NewInstance: TObject;
  9719. begin
  9720. Result := InitInstance(GdipAlloc(InstanceSize));
  9721.  
  9722. { Set an implicit refcount so that refcounting during construction won't
  9723. destroy the object (see TInterfacedObject.NewInstance) }
  9724. TGdiplusBase(Result).FRefCount := 1;
  9725. end;
  9726.  
  9727. procedure TGdiplusBase.SetNativeHandle(const Value: GpNativeHandle);
  9728. begin
  9729. FNativeHandle := Value;
  9730. end;
  9731.  
  9732. {$ENDREGION 'GdiplusBase.h'}
  9733.  
  9734. {$REGION 'GdiplusEnums.h'}
  9735. (*****************************************************************************
  9736. * GdiplusEnums.h
  9737. * GDI+ Enumeration Types
  9738. *****************************************************************************)
  9739.  
  9740. function ObjectTypeIsValid(const ObjectType: TGPObjectType): Boolean; inline;
  9741. begin
  9742. Result := (ObjectType >= ObjectTypeMin) and (ObjectType <= ObjectTypeMax);
  9743. end;
  9744. {$ENDREGION 'GdiplusEnums.h' }
  9745.  
  9746. {$REGION 'GdiplusTypes.h'}
  9747.  
  9748. { TGPSizeF }
  9749.  
  9750. class operator TGPSizeF.Add(const A, B: TGPSizeF): TGPSizeF;
  9751. begin
  9752. Result.Initialize(A.Width + B.Width, A.Height + B.Height);
  9753. end;
  9754.  
  9755. class function TGPSizeF.Create(const Size: TGPSizeF): TGPSizeF;
  9756. begin
  9757. Result.Initialize(Size);
  9758. end;
  9759.  
  9760. class function TGPSizeF.Create(const AWidth, AHeight: Single): TGPSizeF;
  9761. begin
  9762. Result.Initialize(AWidth, AHeight);
  9763. end;
  9764.  
  9765. function TGPSizeF.Empty: Boolean;
  9766. begin
  9767. Result := (Width = 0) and (Height = 0);
  9768. end;
  9769.  
  9770. function TGPSizeF.Equals(const Size: TGPSizeF): Boolean;
  9771. begin
  9772. Result := (Width = Size.Width) and (Height = Size.Height);
  9773. end;
  9774.  
  9775. procedure TGPSizeF.Initialize;
  9776. begin
  9777. Width := 0;
  9778. Height := 0;
  9779. end;
  9780.  
  9781. procedure TGPSizeF.Initialize(const AWidth, AHeight: Single);
  9782. begin
  9783. Width := AWidth;
  9784. Height := AHeight;
  9785. end;
  9786.  
  9787. procedure TGPSizeF.Initialize(const Size: TGPSizeF);
  9788. begin
  9789. Width := Size.Width;
  9790. Height := Size.Height;
  9791. end;
  9792.  
  9793. class operator TGPSizeF.Subtract(const A, B: TGPSizeF): TGPSizeF;
  9794. begin
  9795. Result.Initialize(A.Width - B.Width, A.Height - B.Height);
  9796. end;
  9797.  
  9798. { TGPSize }
  9799.  
  9800. class operator TGPSize.Add(const A, B: TGPSize): TGPSize;
  9801. begin
  9802. Result.Initialize(A.Width + B.Width, A.Height + B.Height);
  9803. end;
  9804.  
  9805. class function TGPSize.Create(const Size: TGPSize): TGPSize;
  9806. begin
  9807. Result.Initialize(Size);
  9808. end;
  9809.  
  9810. class function TGPSize.Create(const AWidth, AHeight: Integer): TGPSize;
  9811. begin
  9812. Result.Initialize(AWidth, AHeight);
  9813. end;
  9814.  
  9815. function TGPSize.Empty: Boolean;
  9816. begin
  9817. Result := (Width = 0) and (Height = 0);
  9818. end;
  9819.  
  9820. function TGPSize.Equals(const Size: TGPSize): Boolean;
  9821. begin
  9822. Result := (Width = Size.Width) and (Height = Size.Height);
  9823. end;
  9824.  
  9825. procedure TGPSize.Initialize;
  9826. begin
  9827. Width := 0;
  9828. Height := 0;
  9829. end;
  9830.  
  9831. procedure TGPSize.Initialize(const AWidth, AHeight: Integer);
  9832. begin
  9833. Width := AWidth;
  9834. Height := AHeight;
  9835. end;
  9836.  
  9837. procedure TGPSize.Initialize(const Size: TGPSize);
  9838. begin
  9839. Width := Size.Width;
  9840. Height := Size.Height;
  9841. end;
  9842.  
  9843. class operator TGPSize.Subtract(const A, B: TGPSize): TGPSize;
  9844. begin
  9845. Result.Initialize(A.Width - B.Width, A.Height - B.Height);
  9846. end;
  9847.  
  9848. { TGPPointF }
  9849.  
  9850. class operator TGPPointF.Add(const A, B: TGPPointF): TGPPointF;
  9851. begin
  9852. Result.Initialize(A.X + B.X, A.Y + B.Y);
  9853. end;
  9854.  
  9855. class function TGPPointF.Create(const Point: TGPPointF): TGPPointF;
  9856. begin
  9857. Result.Initialize(Point);
  9858. end;
  9859.  
  9860. class function TGPPointF.Create(const Size: TGPSizeF): TGPPointF;
  9861. begin
  9862. Result.Initialize(Size);
  9863. end;
  9864.  
  9865. class function TGPPointF.Create(const AX, AY: Single): TGPPointF;
  9866. begin
  9867. Result.Initialize(AX, AY);
  9868. end;
  9869.  
  9870. function TGPPointF.Equals(const Point: TGPPointF): Boolean;
  9871. begin
  9872. Result := (X = Point.X) and (Y = Point.Y);
  9873. end;
  9874.  
  9875. procedure TGPPointF.Initialize;
  9876. begin
  9877. X := 0;
  9878. Y := 0;
  9879. end;
  9880.  
  9881. procedure TGPPointF.Initialize(const Point: TGPPointF);
  9882. begin
  9883. X := Point.X;
  9884. Y := Point.Y;
  9885. end;
  9886.  
  9887. procedure TGPPointF.Initialize(const AX, AY: Single);
  9888. begin
  9889. X := AX;
  9890. Y := AY;
  9891. end;
  9892.  
  9893. procedure TGPPointF.Initialize(const Size: TGPSizeF);
  9894. begin
  9895. X := Size.Width;
  9896. Y := Size.Height;
  9897. end;
  9898.  
  9899. class operator TGPPointF.Subtract(const A, B: TGPPointF): TGPPointF;
  9900. begin
  9901. Result.Initialize(A.X - B.X, A.Y - B.Y);
  9902. end;
  9903.  
  9904. { TGPPoint }
  9905.  
  9906. class operator TGPPoint.Add(const A, B: TGPPoint): TGPPoint;
  9907. begin
  9908. Result.Initialize(A.X + B.X, A.Y + B.Y);
  9909. end;
  9910.  
  9911. class function TGPPoint.Create(const Point: TGPPoint): TGPPoint;
  9912. begin
  9913. Result.Initialize(Point);
  9914. end;
  9915.  
  9916. class function TGPPoint.Create(const Size: TGPSize): TGPPoint;
  9917. begin
  9918. Result.Initialize(Size);
  9919. end;
  9920.  
  9921. class function TGPPoint.Create(const AX, AY: Integer): TGPPoint;
  9922. begin
  9923. Result.Initialize(AX, AY);
  9924. end;
  9925.  
  9926. function TGPPoint.Equals(const Point: TGPPoint): Boolean;
  9927. begin
  9928. Result := (X = Point.X) and (Y = Point.Y);
  9929. end;
  9930.  
  9931. procedure TGPPoint.Initialize;
  9932. begin
  9933. X := 0;
  9934. Y := 0;
  9935. end;
  9936.  
  9937. procedure TGPPoint.Initialize(const Point: TGPPoint);
  9938. begin
  9939. X := Point.X;
  9940. Y := Point.Y;
  9941. end;
  9942.  
  9943. procedure TGPPoint.Initialize(const AX, AY: Integer);
  9944. begin
  9945. X := AX;
  9946. Y := AY;
  9947. end;
  9948.  
  9949. procedure TGPPoint.Initialize(const Size: TGPSize);
  9950. begin
  9951. X := Size.Width;
  9952. Y := Size.Height;
  9953. end;
  9954.  
  9955. class operator TGPPoint.Subtract(const A, B: TGPPoint): TGPPoint;
  9956. begin
  9957. Result.Initialize(A.X - B.X, A.Y - B.Y);
  9958. end;
  9959.  
  9960. { TGPRectF }
  9961.  
  9962. function TGPRectF.Clone: TGPRectF;
  9963. begin
  9964. Result := Self;
  9965. end;
  9966.  
  9967. function TGPRectF.Contains(const Rect: TGPRectF): Boolean;
  9968. begin
  9969. Result := (X <= Rect.X) and (Rect.Right <= Right)
  9970. and (Y <= Rect.Y) and (Rect.Bottom <= Bottom);
  9971. end;
  9972.  
  9973. class function TGPRectF.Create(const AX, AY, AWidth, AHeight: Single): TGPRectF;
  9974. begin
  9975. Result.Initialize(AX, AY, AWidth, AHeight);
  9976. end;
  9977.  
  9978. class function TGPRectF.Create(const Location: TGPPointF;
  9979. const Size: TGPSizeF): TGPRectF;
  9980. begin
  9981. Result.Initialize(Location, Size);
  9982. end;
  9983.  
  9984. function TGPRectF.Contains(const Point: TGPPointF): Boolean;
  9985. begin
  9986. Result := Contains(Point.X, Point.Y);
  9987. end;
  9988.  
  9989. function TGPRectF.Contains(const AX, AY: Single): Boolean;
  9990. begin
  9991. Result := (AX >= X) and (AX < (X + Width)) and (AY >= Y) and (AY < (Y + Height));
  9992. end;
  9993.  
  9994. function TGPRectF.Equals(const Rect: TGPRectF): Boolean;
  9995. begin
  9996. Result := (X = Rect.X) and (Y = Rect.Y) and (Width = Rect.Width) and (Height = Rect.Height);
  9997. end;
  9998.  
  9999. function TGPRectF.GetBottom: Single;
  10000. begin
  10001. Result := Y + Height;
  10002. end;
  10003.  
  10004. function TGPRectF.GetBounds: TGPRectF;
  10005. begin
  10006. Result := Self;
  10007. end;
  10008.  
  10009. function TGPRectF.GetLocation: TGPPointF;
  10010. begin
  10011. Result.X := X;
  10012. Result.Y := Y;
  10013. end;
  10014.  
  10015. function TGPRectF.GetRight: Single;
  10016. begin
  10017. Result := X + Width;
  10018. end;
  10019.  
  10020. function TGPRectF.GetSize: TGPSizeF;
  10021. begin
  10022. Result.Width := Width;
  10023. Result.Height := Height;
  10024. end;
  10025.  
  10026. procedure TGPRectF.Inflate(const Point: TGPPointF);
  10027. begin
  10028. Inflate(Point.X, Point.Y);
  10029. end;
  10030.  
  10031. procedure TGPRectF.Inflate(const DX, DY: Single);
  10032. begin
  10033. X := X - DX;
  10034. Y := Y - DY;
  10035. Width := Width + (2 * DX);
  10036. Height := Height + (2 * DY);
  10037. end;
  10038.  
  10039. procedure TGPRectF.Initialize;
  10040. begin
  10041. X := 0;
  10042. Y := 0;
  10043. Width := 0;
  10044. Height := 0;
  10045. end;
  10046.  
  10047. procedure TGPRectF.Initialize(const AX, AY, AWidth, AHeight: Single);
  10048. begin
  10049. X := AX;
  10050. Y := AY;
  10051. Width := AWidth;
  10052. Height := AHeight;
  10053. end;
  10054.  
  10055. procedure TGPRectF.Inflate(const DXY: Single);
  10056. begin
  10057. Inflate(DXY, DXY);
  10058. end;
  10059.  
  10060. procedure TGPRectF.Initialize(const Location: TGPPointF; const Size: TGPSizeF);
  10061. begin
  10062. X := Location.X;
  10063. Y := Location.Y;
  10064. Width := Size.Width;
  10065. Height := Size.Height;
  10066. end;
  10067.  
  10068. procedure TGPRectF.InitializeFromLTRB(const Left, Top, Right, Bottom: Single);
  10069. begin
  10070. X := Left;
  10071. Y := Top;
  10072. Width := Right - Left;
  10073. Height := Bottom - Top;
  10074. end;
  10075.  
  10076. class function TGPRectF.Intersect(out C: TGPRectF; const A, B: TGPRectF): Boolean;
  10077. var
  10078. Right, Bottom, Left, Top: Single;
  10079. begin
  10080. Right := Min(A.Right, B.Right);
  10081. Bottom := Min(A.Bottom, B.Bottom);
  10082. Left := Max(A.Left, B.Left);
  10083. Top := Max(A.Top, B.Top);
  10084.  
  10085. C.X := Left;
  10086. C.Y := Top;
  10087. C.Width := Right - Left;
  10088. C.Height := Bottom - Top;
  10089. Result := (not C.IsEmptyArea);
  10090. end;
  10091.  
  10092. function TGPRectF.Intersect(const Rect: TGPRectF): Boolean;
  10093. begin
  10094. Result := Intersect(Self, Self, Rect);
  10095. end;
  10096.  
  10097. function TGPRectF.IntersectsWith(const Rect: TGPRectF): Boolean;
  10098. begin
  10099. Result := (Left < Rect.Right) and (Top < Rect.Bottom)
  10100. and (Right > Rect.Left) and (Bottom > Rect.Top);
  10101. end;
  10102.  
  10103. function TGPRectF.IsEmptyArea: Boolean;
  10104. begin
  10105. Result := (Width <= REAL_EPSILON) or (Height <= REAL_EPSILON);
  10106. end;
  10107.  
  10108. procedure TGPRectF.Offset(const DX, DY: Single);
  10109. begin
  10110. X := X + DX;
  10111. Y := Y + DY;
  10112. end;
  10113.  
  10114. function TGPRectF.Union(const Rect: TGPRectF): Boolean;
  10115. begin
  10116. Result := Union(Self, Self, Rect);
  10117. end;
  10118.  
  10119. procedure TGPRectF.Offset(const Point: TGPPointF);
  10120. begin
  10121. Offset(Point.X, Point.Y);
  10122. end;
  10123.  
  10124. class function TGPRectF.Union(out C: TGPRectF; const A, B: TGPRectF): Boolean;
  10125. var
  10126. Right, Bottom, Left, Top: Single;
  10127. begin
  10128. Right := Max(A.Right, B.Right);
  10129. Bottom := Max(A.Bottom, B.Bottom);
  10130. Left := Min(A.Left, B.Left);
  10131. Top := Min(A.Top, B.Top);
  10132.  
  10133. C.X := Left;
  10134. C.Y := Top;
  10135. C.Width := Right - Left;
  10136. C.Height := Bottom - Top;
  10137. Result := (not C.IsEmptyArea);
  10138. end;
  10139.  
  10140. { TGPRect }
  10141.  
  10142. function TGPRect.Clone: TGPRect;
  10143. begin
  10144. Result := Self;
  10145. end;
  10146.  
  10147. function TGPRect.Contains(const Rect: TGPRect): Boolean;
  10148. begin
  10149. Result := (X <= Rect.X) and (Rect.Right <= Right)
  10150. and (Y <= Rect.Y) and (Rect.Bottom <= Bottom);
  10151. end;
  10152.  
  10153. class function TGPRect.Create(const AX, AY, AWidth, AHeight: Integer): TGPRect;
  10154. begin
  10155. Result.Initialize(AX, AY, AWidth, AHeight);
  10156. end;
  10157.  
  10158. class function TGPRect.Create(const Location: TGPPoint; const Size: TGPSize): TGPRect;
  10159. begin
  10160. Result.Initialize(Location, Size);
  10161. end;
  10162.  
  10163. class function TGPRect.Create(const Rect: Windows.TRect): TGPRect;
  10164. begin
  10165. Result.Initialize(Rect);
  10166. end;
  10167.  
  10168. function TGPRect.Contains(const Point: TGPPoint): Boolean;
  10169. begin
  10170. Result := Contains(Point.X, Point.Y);
  10171. end;
  10172.  
  10173. function TGPRect.Contains(const AX, AY: Integer): Boolean;
  10174. begin
  10175. Result := (AX >= X) and (AX < (X + Width)) and (AY >= Y) and (AY < (Y + Height));
  10176. end;
  10177.  
  10178. function TGPRect.Equals(const Rect: TGPRect): Boolean;
  10179. begin
  10180. Result := (X = Rect.X) and (Y = Rect.Y) and (Width = Rect.Width) and (Height = Rect.Height);
  10181. end;
  10182.  
  10183. function TGPRect.GetBottom: Integer;
  10184. begin
  10185. Result := Y + Height;
  10186. end;
  10187.  
  10188. function TGPRect.GetBounds: TGPRect;
  10189. begin
  10190. Result := Self;
  10191. end;
  10192.  
  10193. function TGPRect.GetLocation: TGPPoint;
  10194. begin
  10195. Result.X := X;
  10196. Result.Y := Y;
  10197. end;
  10198.  
  10199. function TGPRect.GetRight: Integer;
  10200. begin
  10201. Result := X + Width;
  10202. end;
  10203.  
  10204. function TGPRect.GetSize: TGPSize;
  10205. begin
  10206. Result.Width := Width;
  10207. Result.Height := Height;
  10208. end;
  10209.  
  10210. procedure TGPRect.Inflate(const Point: TGPPoint);
  10211. begin
  10212. Inflate(Point.X, Point.Y);
  10213. end;
  10214.  
  10215. procedure TGPRect.Inflate(const DX, DY: Integer);
  10216. begin
  10217. X := X - DX;
  10218. Y := Y - DY;
  10219. Width := Width + (2 * DX);
  10220. Height := Height + (2 * DY);
  10221. end;
  10222.  
  10223. procedure TGPRect.Initialize;
  10224. begin
  10225. X := 0;
  10226. Y := 0;
  10227. Width := 0;
  10228. Height := 0;
  10229. end;
  10230.  
  10231. procedure TGPRect.Initialize(const AX, AY, AWidth, AHeight: Integer);
  10232. begin
  10233. X := AX;
  10234. Y := AY;
  10235. Width := AWidth;
  10236. Height := AHeight;
  10237. end;
  10238.  
  10239. procedure TGPRect.Initialize(const Location: TGPPoint; const Size: TGPSize);
  10240. begin
  10241. X := Location.X;
  10242. Y := Location.Y;
  10243. Width := Size.Width;
  10244. Height := Size.Height;
  10245. end;
  10246.  
  10247. procedure TGPRect.Initialize(const Rect: Windows.TRect);
  10248. begin
  10249. X := Rect.Left;
  10250. Y := Rect.Top;
  10251. Width := Rect.Right - Rect.Left;
  10252. Height := Rect.Bottom - Rect.Top;
  10253. end;
  10254.  
  10255. procedure TGPRect.InitializeFromLTRB(const Left, Top, Right, Bottom: Integer);
  10256. begin
  10257. X := Left;
  10258. Y := Top;
  10259. Width := Right - Left;
  10260. Height := Bottom - Top;
  10261. end;
  10262.  
  10263. class function TGPRect.Intersect(out C: TGPRect; const A, B: TGPRect): Boolean;
  10264. var
  10265. Right, Bottom, Left, Top: Integer;
  10266. begin
  10267. Right := Min(A.Right, B.Right);
  10268. Bottom := Min(A.Bottom, B.Bottom);
  10269. Left := Max(A.Left, B.Left);
  10270. Top := Max(A.Top, B.Top);
  10271.  
  10272. C.X := Left;
  10273. C.Y := Top;
  10274. C.Width := Right - Left;
  10275. C.Height := Bottom - Top;
  10276. Result := (not C.IsEmptyArea);
  10277. end;
  10278.  
  10279. function TGPRect.Intersect(const Rect: TGPRect): Boolean;
  10280. begin
  10281. Result := Intersect(Self, Self, Rect);
  10282. end;
  10283.  
  10284. function TGPRect.IntersectsWith(const Rect: TGPRect): Boolean;
  10285. begin
  10286. Result := (Left < Rect.Right) and (Top < Rect.Bottom)
  10287. and (Right > Rect.Left) and (Bottom > Rect.Top);
  10288. end;
  10289.  
  10290. function TGPRect.IsEmptyArea: Boolean;
  10291. begin
  10292. Result := (Width <= REAL_EPSILON) or (Height <= REAL_EPSILON);
  10293. end;
  10294.  
  10295. procedure TGPRect.Offset(const DX, DY: Integer);
  10296. begin
  10297. X := X + DX;
  10298. Y := Y + DY;
  10299. end;
  10300.  
  10301. function TGPRect.Union(const Rect: TGPRect): Boolean;
  10302. begin
  10303. Result := Union(Self, Self, Rect);
  10304. end;
  10305.  
  10306. procedure TGPRect.Offset(const Point: TGPPoint);
  10307. begin
  10308. Offset(Point.X, Point.Y);
  10309. end;
  10310.  
  10311. class function TGPRect.Union(out C: TGPRect; const A, B: TGPRect): Boolean;
  10312. var
  10313. Right, Bottom, Left, Top: Integer;
  10314. begin
  10315. Right := Max(A.Right, B.Right);
  10316. Bottom := Max(A.Bottom, B.Bottom);
  10317. Left := Min(A.Left, B.Left);
  10318. Top := Min(A.Top, B.Top);
  10319.  
  10320. C.X := Left;
  10321. C.Y := Top;
  10322. C.Width := Right - Left;
  10323. C.Height := Bottom - Top;
  10324. Result := (not C.IsEmptyArea);
  10325. end;
  10326.  
  10327. { TGPCharacterRange }
  10328.  
  10329. procedure TGPCharacterRange.Initialize;
  10330. begin
  10331. First := 0;
  10332. Length := 0;
  10333. end;
  10334.  
  10335. procedure TGPCharacterRange.Initialize(const AFirst, ALength: Integer);
  10336. begin
  10337. First := AFirst;
  10338. Length := ALength;
  10339. end;
  10340. {$ENDREGION 'GdiplusTypes.h'}
  10341.  
  10342. {$REGION 'GdiplusInit.h'}
  10343.  
  10344. { TGdiplusStartupInput }
  10345.  
  10346. procedure TGdiplusStartupInput.Intialize(
  10347. const ADebugEventCallback: TGPDebugEventProc; const ASuppressBackgroundThread,
  10348. ASuppressExternalCodecs: Boolean);
  10349. begin
  10350. GdiplusVersion := 1;
  10351. DebugEventCallback := ADebugEventCallback;
  10352. SuppressBackgroundThread := ASuppressBackgroundThread;
  10353. SuppressExternalCodecs := ASuppressExternalCodecs;
  10354. end;
  10355.  
  10356. {$IF (GDIPVER >= $0110)}
  10357.  
  10358. { TGdiplusStartupInputEx }
  10359.  
  10360. procedure TGdiplusStartupInputEx.Intialize(const AStartupParameters: Integer;
  10361. const ADebugEventCallback: TGPDebugEventProc; const ASuppressBackgroundThread,
  10362. ASuppressExternalCodecs: Boolean);
  10363. begin
  10364. GdiplusVersion := 2;
  10365. DebugEventCallback := ADebugEventCallback;
  10366. SuppressBackgroundThread := ASuppressBackgroundThread;
  10367. SuppressExternalCodecs := ASuppressExternalCodecs;
  10368. StartupParameters := AStartupParameters;
  10369. end;
  10370. {$IFEND}
  10371.  
  10372. {$ENDREGION 'GdiplusInit.h'}
  10373.  
  10374. {$REGION 'GdiplusPixelFormats.h'}
  10375. function GetPixelFormatSize(const PixFmt: TGPPixelFormat): Integer; inline;
  10376. begin
  10377. Result := (PixFmt shr 8) and $FF;
  10378. end;
  10379.  
  10380. function IsIndexedPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  10381. begin
  10382. Result := ((PixFmt and PixelFormatIndexed) <> 0);
  10383. end;
  10384.  
  10385. function IsAlphaPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  10386. begin
  10387. Result := ((PixFmt and PixelFormatAlpha) <> 0);
  10388. end;
  10389.  
  10390. function IsExtendedPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  10391. begin
  10392. Result := ((PixFmt and PixelFormatExtended) <> 0);
  10393. end;
  10394.  
  10395. function IsCanonicalPixelFormat(const PixFmt: TGPPixelFormat): Boolean; inline;
  10396. begin
  10397. Result := ((PixFmt and PixelFormatCanonical) <> 0);
  10398. end;
  10399.  
  10400. {$ENDREGION 'GdiplusPixelFormats.h'}
  10401.  
  10402. {$REGION 'GdiplusColor.h'}
  10403.  
  10404. { TGPColor }
  10405.  
  10406. class function TGPColor.Create(const AArgb: ARGB): TGPColor;
  10407. begin
  10408. Result.FArgb := AArgb;
  10409. end;
  10410.  
  10411. class function TGPColor.CreateFromColorRef(const A: Byte; const ColorRef: TColorRef): TGPColor;
  10412. begin
  10413. if (ColorRef < 0) then
  10414. Result.FArgb := GetSysColor(ColorRef and $000000FF)
  10415. else
  10416. Result.FArgb := ColorRef;
  10417.  
  10418. Result.FArgb := MakeARGB(A, Byte(Result.FArgb), Byte(Result.FArgb shr 8), Byte(Result.FArgb shr 16));
  10419. end;
  10420.  
  10421. class function TGPColor.CreateFromColorRef(const ColorRef: TColorRef): TGPColor;
  10422. begin
  10423. Result.SetColorRef(ColorRef);
  10424. end;
  10425.  
  10426. class function TGPColor.Create(const R, G, B: Byte): TGPColor;
  10427. begin
  10428. Result.FArgb := MakeARGB(255, R, G, B);
  10429. end;
  10430.  
  10431. class function TGPColor.Create(const A, R, G, B: Byte): TGPColor;
  10432. begin
  10433. Result.FArgb := MakeARGB(A, R, G, B);
  10434. end;
  10435.  
  10436. function TGPColor.GetAlpha: Byte;
  10437. begin
  10438. Result := Byte(FArgb shr AlphaShift);
  10439. end;
  10440.  
  10441. function TGPColor.GetBlue: Byte;
  10442. begin
  10443. Result := Byte(FArgb shr BlueShift);
  10444. end;
  10445.  
  10446. function TGPColor.GetColorRef: TColorRef;
  10447. begin
  10448. Result := GetRed or (GetGreen shl 8) or (GetBlue shl 16);
  10449. end;
  10450.  
  10451. function TGPColor.GetGreen: Byte;
  10452. begin
  10453. Result := Byte(FArgb shr GreenShift);
  10454. end;
  10455.  
  10456. function TGPColor.GetRed: Byte;
  10457. begin
  10458. Result := Byte(FArgb shr RedShift);
  10459. end;
  10460.  
  10461. procedure TGPColor.Initialize(const R, G, B: Byte);
  10462. begin
  10463. FArgb := MakeARGB(255, R, G, B);
  10464. end;
  10465.  
  10466. procedure TGPColor.Initialize;
  10467. begin
  10468. FArgb := Black;
  10469. end;
  10470.  
  10471. class operator TGPColor.Implicit(const AArgb: ARGB): TGPColor;
  10472. begin
  10473. Result.FArgb := AArgb;
  10474. end;
  10475.  
  10476. class operator TGPColor.Implicit(const Color: TGPColor): ARGB;
  10477. begin
  10478. Result := Color.FArgb;
  10479. end;
  10480.  
  10481. procedure TGPColor.Initialize(const AArgb: ARGB);
  10482. begin
  10483. FArgb := AArgb;
  10484. end;
  10485.  
  10486. procedure TGPColor.InitializeFromColorRef(const ColorRef: TColorRef);
  10487. begin
  10488. SetColorRef(ColorRef);
  10489. end;
  10490.  
  10491. procedure TGPColor.Initialize(const A, R, G, B: Byte);
  10492. begin
  10493. FArgb := MakeARGB(A, R, G, B)
  10494. end;
  10495.  
  10496. class function TGPColor.MakeARGB(const A, R, G, B: Byte): ARGB;
  10497. begin
  10498. Result := (ARGB(B) shl BlueShift) or
  10499. (ARGB(G) shl GreenShift) or
  10500. (ARGB(R) shl RedShift) or
  10501. (ARGB(A) shl AlphaShift);
  10502. end;
  10503.  
  10504. procedure TGPColor.SetAlpha(const Value: Byte);
  10505. begin
  10506. FArgb := (FArgb and (not AlphaMask)) or (Value shl AlphaShift);
  10507. end;
  10508.  
  10509. procedure TGPColor.SetBlue(const Value: Byte);
  10510. begin
  10511. FArgb := (FArgb and (not BlueMask)) or (Value shl BlueShift);
  10512. end;
  10513.  
  10514. procedure TGPColor.SetColorRef(const Value: TColorRef);
  10515. begin
  10516. if (Value < 0) then
  10517. FArgb := GetSysColor(Value and $000000FF)
  10518. else
  10519. FArgb := Value;
  10520. FArgb := MakeARGB(255, Byte(FArgb), Byte(FArgb shr 8), Byte(FArgb shr 16));
  10521. end;
  10522.  
  10523. procedure TGPColor.SetGreen(const Value: Byte);
  10524. begin
  10525. FArgb := (FArgb and (not GreenMask)) or (Value shl GreenShift);
  10526. end;
  10527.  
  10528. procedure TGPColor.SetRed(const Value: Byte);
  10529. begin
  10530. FArgb := (FArgb and (not RedMask)) or (Value shl RedShift);
  10531. end;
  10532.  
  10533. {$ENDREGION 'GdiplusColor.h'}
  10534.  
  10535. {$REGION 'GdiplusMetaHeader.h'}
  10536.  
  10537. { TGPMetafileHeader }
  10538.  
  10539. function TGPMetafileHeader.GetBounds: TGPRect;
  10540. begin
  10541. Result.Initialize(FX, FY, FWidth, FHeight);
  10542. end;
  10543.  
  10544. function TGPMetafileHeader.GetEmfHeader: PEnhMetaHeader3;
  10545. begin
  10546. if (IsEmfOrEmfPlus) then
  10547. Result := @FHeader.EmfHeader
  10548. else
  10549. Result := nil;
  10550. end;
  10551.  
  10552. function TGPMetafileHeader.GetWmfHeader: PMetaHeader;
  10553. begin
  10554. if (IsWmf) then
  10555. Result := @FHeader.WmfHeader
  10556. else
  10557. Result := nil;
  10558. end;
  10559.  
  10560. function TGPMetafileHeader.IsDisplay: Boolean;
  10561. begin
  10562. Result := IsEmfPlus and ((FEmfPlusFlags and GDIP_EMFPLUSFLAGS_DISPLAY) <> 0);
  10563. end;
  10564.  
  10565. function TGPMetafileHeader.IsEmf: Boolean;
  10566. begin
  10567. Result := (FMetafileType = MetafileTypeEmf);
  10568. end;
  10569.  
  10570. function TGPMetafileHeader.IsEmfOrEmfPlus: Boolean;
  10571. begin
  10572. Result := (FMetafileType >= MetafileTypeEmf);
  10573. end;
  10574.  
  10575. function TGPMetafileHeader.IsEmfPlus: Boolean;
  10576. begin
  10577. Result := (FMetafileType >= MetafileTypeEmfPlusOnly);
  10578. end;
  10579.  
  10580. function TGPMetafileHeader.IsEmfPlusDual: Boolean;
  10581. begin
  10582. Result := (FMetafileType = MetafileTypeEmfPlusDual);
  10583. end;
  10584.  
  10585. function TGPMetafileHeader.IsEmfPlusOnly: Boolean;
  10586. begin
  10587. Result := (FMetafileType = MetafileTypeEmfPlusOnly);
  10588. end;
  10589.  
  10590. function TGPMetafileHeader.IsWmf: Boolean;
  10591. begin
  10592. Result := (FMetafileType in [MetafileTypeWmf, MetafileTypeWmfPlaceable]);
  10593. end;
  10594.  
  10595. function TGPMetafileHeader.IsWmfPlaceable: Boolean;
  10596. begin
  10597. Result := (FMetafileType = MetafileTypeWmfPlaceable);
  10598. end;
  10599. {$ENDREGION 'GdiplusMetaHeader.h'}
  10600.  
  10601. {$REGION 'GdiplusColorMatrix.h'}
  10602. procedure TGPColorMatrix.SetToIdentity;
  10603. begin
  10604. FillChar(M, SizeOf(M), 0);
  10605. M[0,0] := 1;
  10606. M[1,1] := 1;
  10607. M[2,2] := 1;
  10608. M[3,3] := 1;
  10609. M[4,4] := 1;
  10610. end;
  10611. {$ENDREGION 'GdiplusColorMatrix.h'}
  10612.  
  10613. {$REGION 'GdiplusEffects.h'}
  10614. {$IF (GDIPVER >= $0110)}
  10615.  
  10616. { TGPEffect }
  10617.  
  10618. destructor TGPEffect.Destroy;
  10619. begin
  10620. ReleaseAuxData;
  10621.  
  10622. // Release the native Effect.
  10623. GdipCheck(GdipDeleteEffect(FNativeHandle));
  10624. inherited;
  10625. end;
  10626.  
  10627. function TGPEffect.GetAuxData: Pointer;
  10628. begin
  10629. Result := FAuxData;
  10630. end;
  10631.  
  10632. function TGPEffect.GetAuxDataSize: Integer;
  10633. begin
  10634. Result := FAuxDataSize;
  10635. end;
  10636.  
  10637. procedure TGPEffect.GetParameters(var Size: Cardinal; Params: Pointer);
  10638. begin
  10639. GdipCheck(GdipGetEffectParameters(FNativeHandle, Size, Params));
  10640. end;
  10641.  
  10642. function TGPEffect.GetParameterSize: Cardinal;
  10643. begin
  10644. GdipCheck(GdipGetEffectParameterSize(FNativeHandle, Result));
  10645. end;
  10646.  
  10647. function TGPEffect.GetUseAuxData: Boolean;
  10648. begin
  10649. Result := FUseAuxData;
  10650. end;
  10651.  
  10652. procedure TGPEffect.ReleaseAuxData;
  10653. begin
  10654. // pvData is allocated by ApplyEffect. Return the pointer so that
  10655. // it can be freed by the appropriate memory manager.
  10656. GdipFree(FAuxData);
  10657. FAuxData := nil;
  10658. FAuxDataSize := 0;
  10659. end;
  10660.  
  10661. procedure TGPEffect.SetAuxData(const Data: Pointer; const Size: Integer);
  10662. begin
  10663. ReleaseAuxData;
  10664. FAuxData := Data;
  10665. FAuxDataSize := Size;
  10666. end;
  10667.  
  10668. procedure TGPEffect.SetParameters(const Params: Pointer; const Size: Cardinal);
  10669. begin
  10670. GdipCheck(GdipSetEffectParameters(FNativeHandle, Params, Size));
  10671. end;
  10672.  
  10673. procedure TGPEffect.SetUseAuxData(const Value: Boolean);
  10674. begin
  10675. FUseAuxData := Value;
  10676. end;
  10677.  
  10678. { TGPBlur }
  10679.  
  10680. constructor TGPBlur.Create;
  10681. begin
  10682. inherited Create;
  10683. GdipCheck(GdipCreateEffect(BlurEffectGuid, FNativeHandle));
  10684. end;
  10685.  
  10686. function TGPBlur.GetParameters: TGPBlurParams;
  10687. var
  10688. Size: Cardinal;
  10689. begin
  10690. Size := SizeOf(Result);
  10691. inherited GetParameters(Size, @Result);
  10692. end;
  10693.  
  10694. procedure TGPBlur.SetParameters(const Value: TGPBlurParams);
  10695. begin
  10696. inherited SetParameters(@Value, SizeOf(Value));
  10697. end;
  10698.  
  10699. { TGPSharpen }
  10700.  
  10701. constructor TGPSharpen.Create;
  10702. begin
  10703. inherited Create;
  10704. GdipCheck(GdipCreateEffect(SharpenEffectGuid, FNativeHandle));
  10705. end;
  10706.  
  10707. function TGPSharpen.GetParameters: TGPSharpenParams;
  10708. var
  10709. Size: Cardinal;
  10710. begin
  10711. Size := SizeOf(Result);
  10712. inherited GetParameters(Size, @Result);
  10713. end;
  10714.  
  10715. procedure TGPSharpen.SetParameters(const Value: TGPSharpenParams);
  10716. begin
  10717. inherited SetParameters(@Value, SizeOf(Value));
  10718. end;
  10719.  
  10720. { TGPRedEyeCorrection }
  10721.  
  10722. constructor TGPRedEyeCorrection.Create;
  10723. begin
  10724. inherited Create;
  10725. GdipCheck(GdipCreateEffect(RedEyeCorrectionEffectGuid, FNativeHandle));
  10726. end;
  10727.  
  10728. function TGPRedEyeCorrection.GetParameters: TGPRedEyeCorrectionParams;
  10729. var
  10730. Size: Cardinal;
  10731. begin
  10732. Size := SizeOf(Result);
  10733. inherited GetParameters(Size, @Result);
  10734. end;
  10735.  
  10736. procedure TGPRedEyeCorrection.SetParameters(const Value: TGPRedEyeCorrectionParams);
  10737. begin
  10738. inherited SetParameters(@Value, SizeOf(Value)
  10739. + (Value.NumberOfAreas * SizeOf(Windows.TRect)));
  10740. end;
  10741.  
  10742. { TGPBrightnessContrast }
  10743.  
  10744. constructor TGPBrightnessContrast.Create;
  10745. begin
  10746. inherited Create;
  10747. GdipCheck(GdipCreateEffect(BrightnessContrastEffectGuid, FNativeHandle));
  10748. end;
  10749.  
  10750. function TGPBrightnessContrast.GetParameters: TGPBrightnessContrastParams;
  10751. var
  10752. Size: Cardinal;
  10753. begin
  10754. Size := SizeOf(Result);
  10755. inherited GetParameters(Size, @Result);
  10756. end;
  10757.  
  10758. procedure TGPBrightnessContrast.SetParameters(
  10759. const Value: TGPBrightnessContrastParams);
  10760. begin
  10761. inherited SetParameters(@Value, SizeOf(Value));
  10762. end;
  10763.  
  10764. { TGPHueSaturationLightness }
  10765.  
  10766. constructor TGPHueSaturationLightness.Create;
  10767. begin
  10768. inherited Create;
  10769. GdipCheck(GdipCreateEffect(HueSaturationLightnessEffectGuid, FNativeHandle));
  10770. end;
  10771.  
  10772. function TGPHueSaturationLightness.GetParameters: TGPHueSaturationLightnessParams;
  10773. var
  10774. Size: Cardinal;
  10775. begin
  10776. Size := SizeOf(Result);
  10777. inherited GetParameters(Size, @Result);
  10778. end;
  10779.  
  10780. procedure TGPHueSaturationLightness.SetParameters(
  10781. const Value: TGPHueSaturationLightnessParams);
  10782. begin
  10783. inherited SetParameters(@Value, SizeOf(Value));
  10784. end;
  10785.  
  10786. { TGPLevels }
  10787.  
  10788. constructor TGPLevels.Create;
  10789. begin
  10790. inherited Create;
  10791. GdipCheck(GdipCreateEffect(LevelsEffectGuid, FNativeHandle));
  10792. end;
  10793.  
  10794. function TGPLevels.GetParameters: TGPLevelsParams;
  10795. var
  10796. Size: Cardinal;
  10797. begin
  10798. Size := SizeOf(Result);
  10799. inherited GetParameters(Size, @Result);
  10800. end;
  10801.  
  10802. procedure TGPLevels.SetParameters(const Value: TGPLevelsParams);
  10803. begin
  10804. inherited SetParameters(@Value, SizeOf(Value));
  10805. end;
  10806.  
  10807. { TGPTint }
  10808.  
  10809. constructor TGPTint.Create;
  10810. begin
  10811. inherited Create;
  10812. GdipCheck(GdipCreateEffect(TintEffectGuid, FNativeHandle));
  10813. end;
  10814.  
  10815. function TGPTint.GetParameters: TGPTintParams;
  10816. var
  10817. Size: Cardinal;
  10818. begin
  10819. Size := SizeOf(Result);
  10820. inherited GetParameters(Size, @Result);
  10821. end;
  10822.  
  10823. procedure TGPTint.SetParameters(const Value: TGPTintParams);
  10824. begin
  10825. inherited SetParameters(@Value, SizeOf(Value));
  10826. end;
  10827.  
  10828. { TGPColorBalance }
  10829.  
  10830. constructor TGPColorBalance.Create;
  10831. begin
  10832. inherited Create;
  10833. GdipCheck(GdipCreateEffect(ColorBalanceEffectGuid, FNativeHandle));
  10834. end;
  10835.  
  10836. function TGPColorBalance.GetParameters: TGPColorBalanceParams;
  10837. var
  10838. Size: Cardinal;
  10839. begin
  10840. Size := SizeOf(Result);
  10841. inherited GetParameters(Size, @Result);
  10842. end;
  10843.  
  10844. procedure TGPColorBalance.SetParameters(const Value: TGPColorBalanceParams);
  10845. begin
  10846. inherited SetParameters(@Value, SizeOf(Value));
  10847. end;
  10848.  
  10849. { TGPColorMatrixEffect }
  10850.  
  10851. constructor TGPColorMatrixEffect.Create;
  10852. begin
  10853. inherited Create;
  10854. GdipCheck(GdipCreateEffect(ColorMatrixEffectGuid, FNativeHandle));
  10855. end;
  10856.  
  10857. function TGPColorMatrixEffect.GetParameters: TGPColorMatrix;
  10858. var
  10859. Size: Cardinal;
  10860. begin
  10861. Size := SizeOf(Result);
  10862. inherited GetParameters(Size, @Result);
  10863. end;
  10864.  
  10865. procedure TGPColorMatrixEffect.SetParameters(const Value: TGPColorMatrix);
  10866. begin
  10867. inherited SetParameters(@Value, SizeOf(Value));
  10868. end;
  10869.  
  10870. { TGPColorLUT }
  10871.  
  10872. constructor TGPColorLUT.Create;
  10873. begin
  10874. inherited Create;
  10875. GdipCheck(GdipCreateEffect(ColorLUTEffectGuid, FNativeHandle));
  10876. end;
  10877.  
  10878. function TGPColorLUT.GetParameters: TGPColorLUTParams;
  10879. var
  10880. Size: Cardinal;
  10881. begin
  10882. Size := SizeOf(Result);
  10883. inherited GetParameters(Size, @Result);
  10884. end;
  10885.  
  10886. procedure TGPColorLUT.SetParameters(const Value: TGPColorLUTParams);
  10887. begin
  10888. inherited SetParameters(@Value, SizeOf(Value));
  10889. end;
  10890.  
  10891. { TGPColorCurve }
  10892.  
  10893. constructor TGPColorCurve.Create;
  10894. begin
  10895. inherited Create;
  10896. GdipCheck(GdipCreateEffect(ColorCurveEffectGuid, FNativeHandle));
  10897. end;
  10898.  
  10899. function TGPColorCurve.GetParameters: TGPColorCurveParams;
  10900. var
  10901. Size: Cardinal;
  10902. begin
  10903. Size := SizeOf(Result);
  10904. inherited GetParameters(Size, @Result);
  10905. end;
  10906.  
  10907. procedure TGPColorCurve.SetParameters(const Value: TGPColorCurveParams);
  10908. begin
  10909. inherited SetParameters(@Value, SizeOf(Value));
  10910. end;
  10911.  
  10912. {$IFEND}
  10913. {$ENDREGION 'GdiplusEffects.h'}
  10914.  
  10915. {$REGION 'GdiplusRegion.h'}
  10916.  
  10917. { TGPRegion }
  10918.  
  10919. function TGPRegion.Clone: IGPRegion;
  10920. var
  10921. NativeClone: GpRegion;
  10922. begin
  10923. NativeClone := nil;
  10924. GdipCheck(GdipCloneRegion(FNativeHandle, NativeClone));
  10925. Result := TGPRegion.Create(NativeClone);
  10926. end;
  10927.  
  10928. constructor TGPRegion.Create(const NativeRegion: GpRegion);
  10929. begin
  10930. inherited Create;
  10931. FNativeHandle := NativeRegion;
  10932. end;
  10933.  
  10934. constructor TGPRegion.Create(const Path: IGPGraphicsPath);
  10935. begin
  10936. inherited Create;
  10937. GdipCheck(GdipCreateRegionPath(Path.NativeHandle, FNativeHandle));
  10938. end;
  10939.  
  10940. constructor TGPRegion.Create(const Rect: TGPRect);
  10941. begin
  10942. inherited Create;
  10943. GdipCheck(GdipCreateRegionRectI(@Rect, FNativeHandle));
  10944. end;
  10945.  
  10946. constructor TGPRegion.Create(const HRgn: HRGN);
  10947. begin
  10948. inherited Create;
  10949. GdipCheck(GdipCreateRegionHrgn(HRgn, FNativeHandle));
  10950. end;
  10951.  
  10952. constructor TGPRegion.Create(const RegionData: PByte; const Size: Integer);
  10953. begin
  10954. inherited Create;
  10955. GdipCheck(GdipCreateRegionRgnData(RegionData, Size, FNativeHandle));
  10956. end;
  10957.  
  10958. constructor TGPRegion.Create;
  10959. begin
  10960. inherited Create;
  10961. GdipCheck(GdipCreateRegion(FNativeHandle));
  10962. end;
  10963.  
  10964. constructor TGPRegion.Create(const Rect: TGPRectF);
  10965. begin
  10966. inherited Create;
  10967. GdipCheck(GdipCreateRegionRect(@Rect, FNativeHandle));
  10968. end;
  10969.  
  10970. procedure TGPRegion.Complement(const Rect: TGPRectF);
  10971. begin
  10972. GdipCheck(GdipCombineRegionRect(FNativeHandle, @Rect, CombineModeComplement));
  10973. end;
  10974.  
  10975. procedure TGPRegion.Complement(const Rect: TGPRect);
  10976. begin
  10977. GdipCheck(GdipCombineRegionRectI(FNativeHandle, @Rect, CombineModeComplement));
  10978. end;
  10979.  
  10980. procedure TGPRegion.Complement(const Path: IGPGraphicsPath);
  10981. begin
  10982. GdipCheck(GdipCombineRegionRect(FNativeHandle, Path.NativeHandle, CombineModeComplement));
  10983. end;
  10984.  
  10985. procedure TGPRegion.Complement(const Region: IGPRegion);
  10986. begin
  10987. GdipCheck(GdipCombineRegionRect(FNativeHandle, Region.NativeHandle, CombineModeComplement));
  10988. end;
  10989.  
  10990. destructor TGPRegion.Destroy;
  10991. begin
  10992. GdipDeleteRegion(FNativeHandle);
  10993. inherited;
  10994. end;
  10995.  
  10996. function TGPRegion.Equals(const Region: IGPRegion; const G: IGPGraphics): Boolean;
  10997. var
  10998. B: Bool;
  10999. begin
  11000. B := False;
  11001. GdipCheck(GdipIsEqualRegion(FNativeHandle, Region.NativeHandle, G.NativeHandle, B));
  11002. Result := B;
  11003. end;
  11004.  
  11005. procedure TGPRegion.ExclusiveOr(const Rect: TGPRectF);
  11006. begin
  11007. GdipCheck(GdipCombineRegionRect(FNativeHandle, @Rect, CombineModeXor));
  11008. end;
  11009.  
  11010. procedure TGPRegion.ExclusiveOr(const Rect: TGPRect);
  11011. begin
  11012. GdipCheck(GdipCombineRegionRectI(FNativeHandle, @Rect, CombineModeXor));
  11013. end;
  11014.  
  11015. procedure TGPRegion.Exclude(const Rect: TGPRectF);
  11016. begin
  11017. GdipCheck(GdipCombineRegionRect(FNativeHandle, @Rect, CombineModeExclude));
  11018. end;
  11019.  
  11020. procedure TGPRegion.Exclude(const Rect: TGPRect);
  11021. begin
  11022. GdipCheck(GdipCombineRegionRectI(FNativeHandle, @Rect, CombineModeExclude));
  11023. end;
  11024.  
  11025. procedure TGPRegion.Exclude(const Region: IGPRegion);
  11026. begin
  11027. GdipCheck(GdipCombineRegionRegion(FNativeHandle, Region.NativeHandle, CombineModeExclude));
  11028. end;
  11029.  
  11030. procedure TGPRegion.Exclude(const Path: IGPGraphicsPath);
  11031. begin
  11032. GdipCheck(GdipCombineRegionPath(FNativeHandle, Path.NativeHandle, CombineModeExclude));
  11033. end;
  11034.  
  11035. procedure TGPRegion.ExclusiveOr(const Region: IGPRegion);
  11036. begin
  11037. GdipCheck(GdipCombineRegionRegion(FNativeHandle, Region.NativeHandle, CombineModeXor));
  11038. end;
  11039.  
  11040. procedure TGPRegion.ExclusiveOr(const Path: IGPGraphicsPath);
  11041. begin
  11042. GdipCheck(GdipCombineRegionPath(FNativeHandle, Path.NativeHandle, CombineModeXor));
  11043. end;
  11044.  
  11045. class function TGPRegion.FromHRGN(const HRgn: HRGN): IGPRegion;
  11046. var
  11047. NativeRegion: GpRegion;
  11048. begin
  11049. NativeRegion := nil;
  11050. if (GdipCreateRegionHrgn(HRgn, NativeRegion) = Ok) then
  11051. Result := TGPRegion.Create(NativeRegion)
  11052. else
  11053. Result := nil;
  11054. end;
  11055.  
  11056. procedure TGPRegion.GetBounds(out Rect: TGPRectF; const G: IGPGraphics);
  11057. begin
  11058. GdipCheck(GdipGetRegionBounds(FNativeHandle, G.NativeHandle, Rect));
  11059. end;
  11060.  
  11061. procedure TGPRegion.GetBounds(out Rect: TGPRect; const G: IGPGraphics);
  11062. begin
  11063. GdipCheck(GdipGetRegionBoundsI(FNativeHandle, G.NativeHandle, Rect));
  11064. end;
  11065.  
  11066. function TGPRegion.GetData: IGPRegionData;
  11067. var
  11068. Data: Pointer;
  11069. Size: Cardinal;
  11070. begin
  11071. Data := nil;
  11072. Size := 0;
  11073. GdipCheck(GdipGetRegionDataSize(FNativeHandle, Size));
  11074. if (Size > 0) then
  11075. begin
  11076. GetMem(Data, Size);
  11077. GdipCheck(GdipGetRegionData(FNativeHandle, Data, Size, nil));
  11078. end;
  11079. Result := TGPBuffer.Create(Data, Size);
  11080. end;
  11081.  
  11082. function TGPRegion.GetHRGN(const G: IGPGraphics): HRGN;
  11083. begin
  11084. GdipCheck(GdipGetRegionHRgn(FNativeHandle, G.NativeHandle, Result));
  11085. end;
  11086.  
  11087. function TGPRegion.GetRegionScans(const Matrix: IGPMatrix): IGPRegionScansF;
  11088. var
  11089. Count: Integer;
  11090. begin
  11091. Count := 0;
  11092. GdipCheck(GdipGetRegionScansCount(FNativeHandle, Count, Matrix.NativeHandle));
  11093. Result := TGPArray<TGPRectF>.Create(Count);
  11094. if (Count > 0) then
  11095. GdipCheck(GdipGetRegionScans(FNativeHandle, Result.ItemPtr, Count, Matrix.NativeHandle));
  11096. end;
  11097.  
  11098. function TGPRegion.GetRegionScansI(const Matrix: IGPMatrix): IGPRegionScans;
  11099. var
  11100. Count: Integer;
  11101. begin
  11102. Count := 0;
  11103. GdipCheck(GdipGetRegionScansCount(FNativeHandle, Count, Matrix.NativeHandle));
  11104. Result := TGPArray<TGPRect>.Create(Count);
  11105. if (Count > 0) then
  11106. GdipCheck(GdipGetRegionScansI(FNativeHandle, Result.ItemPtr, Count, Matrix.NativeHandle));
  11107. end;
  11108.  
  11109. procedure TGPRegion.Intersect(const Rect: TGPRectF);
  11110. begin
  11111. GdipCheck(GdipCombineRegionRect(FNativeHandle, @Rect, CombineModeIntersect));
  11112. end;
  11113.  
  11114. procedure TGPRegion.Intersect(const Path: IGPGraphicsPath);
  11115. begin
  11116. GdipCheck(GdipCombineRegionPath(FNativeHandle, Path.NativeHandle, CombineModeIntersect));
  11117. end;
  11118.  
  11119. procedure TGPRegion.Intersect(const Region: IGPRegion);
  11120. begin
  11121. GdipCheck(GdipCombineRegionRegion(FNativeHandle, Region.NativeHandle, CombineModeIntersect));
  11122. end;
  11123.  
  11124. procedure TGPRegion.Intersect(const Rect: TGPRect);
  11125. begin
  11126. GdipCheck(GdipCombineRegionRectI(FNativeHandle, @Rect, CombineModeIntersect));
  11127. end;
  11128.  
  11129. function TGPRegion.IsEmpty(const G: IGPGraphics): Boolean;
  11130. var
  11131. B: Bool;
  11132. begin
  11133. B := False;
  11134. GdipCheck(GdipIsEmptyRegion(FNativeHandle, G.NativeHandle, B));
  11135. Result := B;
  11136. end;
  11137.  
  11138. function TGPRegion.IsInfinite(const G: IGPGraphics): Boolean;
  11139. var
  11140. B: Bool;
  11141. begin
  11142. B := False;
  11143. GdipCheck(GdipIsInfiniteRegion(FNativeHandle, G.NativeHandle, B));
  11144. Result := B;
  11145. end;
  11146.  
  11147. function TGPRegion.IsVisible(const Rect: TGPRect; const G: IGPGraphics): Boolean;
  11148. var
  11149. B: Bool;
  11150. begin
  11151. B := False;
  11152. GdipCheck(GdipIsVisibleRegionRectI(FNativeHandle, Rect.X, Rect.Y,
  11153. Rect.Width, Rect.Height, GdipHandle(G), B));
  11154. Result := B;
  11155. end;
  11156.  
  11157. function TGPRegion.IsVisible(const X, Y, Width, Height: Integer;
  11158. const G: IGPGraphics): Boolean;
  11159. begin
  11160. Result := IsVisible(TGPRect.Create(X, Y, Width, Height), G);
  11161. end;
  11162.  
  11163. function TGPRegion.IsVisible(const Rect: TGPRectF; const G: IGPGraphics): Boolean;
  11164. var
  11165. B: Bool;
  11166. begin
  11167. B := False;
  11168. GdipCheck(GdipIsVisibleRegionRect(FNativeHandle, Rect.X, Rect.Y,
  11169. Rect.Width, Rect.Height, GdipHandle(G), B));
  11170. Result := B;
  11171. end;
  11172.  
  11173. function TGPRegion.IsVisible(const X, Y, Width, Height: Single;
  11174. const G: IGPGraphics): Boolean;
  11175. begin
  11176. Result := IsVisible(TGPRectF.Create(X, Y, Width, Height), G);
  11177. end;
  11178.  
  11179. function TGPRegion.IsVisible(const Point: TGPPoint; const G: IGPGraphics): Boolean;
  11180. var
  11181. B: Bool;
  11182. begin
  11183. B := False;
  11184. GdipCheck(GdipIsVisibleRegionPointI(FNativeHandle, Point.X, Point.Y, GdipHandle(G), B));
  11185. Result := B;
  11186. end;
  11187.  
  11188. function TGPRegion.IsVisible(const X, Y: Integer; const G: IGPGraphics): Boolean;
  11189. begin
  11190. Result := IsVisible(TGPPoint.Create(X, Y), G);
  11191. end;
  11192.  
  11193. function TGPRegion.IsVisible(const Point: TGPPointF; const G: IGPGraphics): Boolean;
  11194. var
  11195. B: Bool;
  11196. begin
  11197. B := False;
  11198. GdipCheck(GdipIsVisibleRegionPoint(FNativeHandle, Point.X, Point.Y, GdipHandle(G), B));
  11199. Result := B;
  11200. end;
  11201.  
  11202. function TGPRegion.IsVisible(const X, Y: Single; const G: IGPGraphics): Boolean;
  11203. begin
  11204. Result := IsVisible(TGPPointF.Create(X, Y), G);
  11205. end;
  11206.  
  11207. procedure TGPRegion.MakeEmpty;
  11208. begin
  11209. GdipCheck(GdipSetEmpty(FNativeHandle));
  11210. end;
  11211.  
  11212. procedure TGPRegion.MakeInfinite;
  11213. begin
  11214. GdipCheck(GdipSetInfinite(FNativeHandle));
  11215. end;
  11216.  
  11217. procedure TGPRegion.Transform(const Matrix: IGPMatrix);
  11218. begin
  11219. GdipCheck(GdipTransformRegion(FNativeHandle, Matrix.NativeHandle));
  11220. end;
  11221.  
  11222. procedure TGPRegion.Translate(const DX, DY: Single);
  11223. begin
  11224. GdipCheck(GdipTranslateRegion(FNativeHandle, DX, DY));
  11225. end;
  11226.  
  11227. procedure TGPRegion.Translate(const DX, DY: Integer);
  11228. begin
  11229. GdipCheck(GdipTranslateRegionI(FNativeHandle, DX, DY));
  11230. end;
  11231.  
  11232. procedure TGPRegion.Union(const Rect: TGPRect);
  11233. begin
  11234. GdipCheck(GdipCombineRegionRectI(FNativeHandle, @Rect, CombineModeUnion));
  11235. end;
  11236.  
  11237. procedure TGPRegion.Union(const Rect: TGPRectF);
  11238. begin
  11239. GdipCheck(GdipCombineRegionRect(FNativeHandle, @Rect, CombineModeUnion));
  11240. end;
  11241.  
  11242. procedure TGPRegion.Union(const Path: IGPGraphicsPath);
  11243. begin
  11244. GdipCheck(GdipCombineRegionPath(FNativeHandle, Path.NativeHandle, CombineModeUnion));
  11245. end;
  11246.  
  11247. procedure TGPRegion.Union(const Region: IGPRegion);
  11248. begin
  11249. GdipCheck(GdipCombineRegionRegion(FNativeHandle, Region.NativeHandle, CombineModeUnion));
  11250. end;
  11251. {$ENDREGION 'GdiplusRegion.h'}
  11252.  
  11253. {$REGION 'GdiplusFontFamily.h'}
  11254. { TGPFontFamily }
  11255.  
  11256. function TGPFontFamily.Clone: IGPFontFamily;
  11257. var
  11258. ClonedFamily: GpFontFamily;
  11259. begin
  11260. ClonedFamily := nil;
  11261. GdipCheck(GdipCloneFontFamily(FNativeHandle, ClonedFamily));
  11262. Result := TGPFontFamily.Create(ClonedFamily);
  11263. end;
  11264.  
  11265. constructor TGPFontFamily.Create(const NativeFamily: GpFontFamily);
  11266. begin
  11267. inherited Create;
  11268. FNativeHandle := NativeFamily;
  11269. end;
  11270.  
  11271. constructor TGPFontFamily.Create;
  11272. begin
  11273. inherited Create;
  11274. end;
  11275.  
  11276. constructor TGPFontFamily.Create(const Name: String;
  11277. const FontCollection: IGPFontCollection);
  11278. begin
  11279. inherited Create;
  11280. GdipCheck(GdipCreateFontFamilyFromName(PWideChar(Name), GdipHandle(FontCollection), FNativeHandle));
  11281. end;
  11282.  
  11283. destructor TGPFontFamily.Destroy;
  11284. begin
  11285. GdipDeleteFontFamily(FNativeHandle);
  11286. inherited;
  11287. end;
  11288.  
  11289. class function TGPFontFamily.GenericMonospace: IGPFontFamily;
  11290. var
  11291. NativeFamily: GpFontFamily;
  11292. begin
  11293. if (FGenericMonospaceFontFamily = nil) then
  11294. begin
  11295. GdipCheck(GdipGetGenericFontFamilyMonospace(NativeFamily));
  11296. FGenericMonospaceFontFamily := TGPFontFamily.Create(NativeFamily);
  11297. end;
  11298. Result := FGenericMonospaceFontFamily;
  11299. end;
  11300.  
  11301. class function TGPFontFamily.GenericSansSerif: IGPFontFamily;
  11302. var
  11303. NativeFamily: GpFontFamily;
  11304. begin
  11305. if (FGenericSansSerifFontFamily = nil) then
  11306. begin
  11307. GdipCheck(GdipGetGenericFontFamilySansSerif(NativeFamily));
  11308. FGenericSansSerifFontFamily := TGPFontFamily.Create(NativeFamily);
  11309. end;
  11310. Result := FGenericSansSerifFontFamily;
  11311. end;
  11312.  
  11313. class function TGPFontFamily.GenericSerif: IGPFontFamily;
  11314. var
  11315. NativeFamily: GpFontFamily;
  11316. begin
  11317. if (FGenericSerifFontFamily = nil) then
  11318. begin
  11319. GdipCheck(GdipGetGenericFontFamilySerif(NativeFamily));
  11320. FGenericSerifFontFamily := TGPFontFamily.Create(NativeFamily);
  11321. end;
  11322. Result := FGenericSerifFontFamily;
  11323. end;
  11324.  
  11325. function TGPFontFamily.GetCellAscent(const Style: TGPFontStyle): Word;
  11326. begin
  11327. GdipCheck(GdipGetCellAscent(FNativeHandle, Style, Result));
  11328. end;
  11329.  
  11330. function TGPFontFamily.GetCellDescent(const Style: TGPFontStyle): Word;
  11331. begin
  11332. GdipCheck(GdipGetCellDescent(FNativeHandle, Style, Result));
  11333. end;
  11334.  
  11335. function TGPFontFamily.GetEmHeight(const Style: TGPFontStyle): Word;
  11336. begin
  11337. GdipCheck(GdipGetEmHeight(FNativeHandle, Style, Result));
  11338. end;
  11339.  
  11340. function TGPFontFamily.GetFamilyName(const Language: LangID = 0): String;
  11341. var
  11342. Name: array [0..LF_FACESIZE - 1] of WideChar;
  11343. begin
  11344. GdipCheck(GdipGetFamilyName(FNativeHandle, Name, Language));
  11345. Result := Name;
  11346. end;
  11347.  
  11348. function TGPFontFamily.GetFamilyNameInternal: String;
  11349. begin
  11350. Result := GetFamilyName(0);
  11351. end;
  11352.  
  11353. function TGPFontFamily.GetLineSpacing(const Style: TGPFontStyle): Word;
  11354. begin
  11355. GdipCheck(GdipGetLineSpacing(FNativeHandle, Style, Result));
  11356. end;
  11357.  
  11358. function TGPFontFamily.IsAvailable: Boolean;
  11359. begin
  11360. Result := Assigned(FNativeHandle);
  11361. end;
  11362.  
  11363. function TGPFontFamily.IsStyleAvailable(const Style: TGPFontStyle): Boolean;
  11364. var
  11365. B: Bool;
  11366. begin
  11367. if (GdipIsStyleAvailable(FNativeHandle, Style, B) <> Ok) then
  11368. Result := False
  11369. else
  11370. Result := B;
  11371. end;
  11372. {$ENDREGION 'GdiplusFontFamily.h'}
  11373.  
  11374. {$REGION 'GdiplusFont.h'}
  11375.  
  11376. { TGPFont }
  11377.  
  11378. function TGPFont.Clone: IGPFont;
  11379. var
  11380. NativeClone: GpFont;
  11381. begin
  11382. NativeClone := nil;
  11383. GdipCheck(GdipCloneFont(FNativeHandle, NativeClone));
  11384. Result := TGPFont.Create(NativeClone);
  11385. end;
  11386.  
  11387. constructor TGPFont.Create(const DC: HDC; const LogFont: TLogFontA);
  11388. begin
  11389. GdipCheck(GdipCreateFontFromLogfontA(DC, @LogFont, FNativeHandle))
  11390. end;
  11391.  
  11392. constructor TGPFont.Create(const DC: HDC);
  11393. begin
  11394. inherited Create;
  11395. GdipCheck(GdipCreateFontFromDC(DC, FNativeHandle));
  11396. end;
  11397.  
  11398. constructor TGPFont.Create(const NativeFont: GpFont);
  11399. begin
  11400. inherited Create;
  11401. FNativeHandle := NativeFont;
  11402. end;
  11403.  
  11404. constructor TGPFont.Create(const Family: IGPFontFamily; const EmSize: Single;
  11405. const Style: TGPFontStyle; const MeasureUnit: TGPUnit);
  11406. begin
  11407. inherited Create;
  11408. GdipCheck(GdipCreateFont(GdipHandle(Family), EmSize, Style, MeasureUnit, FNativeHandle))
  11409. end;
  11410.  
  11411. constructor TGPFont.Create(const FamilyName: String; const EmSize: Single;
  11412. const Style: TGPFontStyle; const MeasureUnit: TGPUnit;
  11413. const FontCollection: IGPFontCollection);
  11414. var
  11415. Family: IGPFontFamily;
  11416. NativeFamily: GpFontFamily;
  11417. begin
  11418. inherited Create;
  11419. try
  11420. Family := TGPFontFamily.Create(FamilyName, FontCollection);
  11421. NativeFamily := Family.NativeHandle;
  11422. except
  11423. NativeFamily := TGPFontFamily.GenericSansSerif.NativeHandle;
  11424. end;
  11425. GdipCheck(GdipCreateFont(NativeFamily, EmSize, Style, MeasureUnit, FNativeHandle))
  11426. end;
  11427.  
  11428. constructor TGPFont.Create(const DC: HDC; const LogFont: TLogFontW);
  11429. begin
  11430. inherited Create;
  11431. GdipCheck(GdipCreateFontFromLogfontW(DC, @LogFont, FNativeHandle))
  11432. end;
  11433.  
  11434. constructor TGPFont.Create(const DC: HDC; const FontHandle: HFont);
  11435. var
  11436. LogFont: TLogFontA;
  11437. begin
  11438. inherited Create;
  11439. if (FontHandle <> 0) then
  11440. begin
  11441. if (GetObjectA(FontHandle, SizeOf(LogFont), @LogFont) <> 0) then
  11442. GdipCheck(GdipCreateFontFromLogfontA(DC, @LogFont, FNativeHandle))
  11443. else
  11444. GdipCheck(GdipCreateFontFromDC(DC, FNativeHandle));
  11445. end
  11446. else
  11447. GdipCheck(GdipCreateFontFromDC(DC, FNativeHandle));
  11448. end;
  11449.  
  11450. destructor TGPFont.Destroy;
  11451. begin
  11452. GdipDeleteFont(FNativeHandle);
  11453. inherited;
  11454. end;
  11455.  
  11456. function TGPFont.GetFamily: IGPFontFamily;
  11457. var
  11458. NativeFamily: GpFontFamily;
  11459. begin
  11460. GdipCheck(GdipGetFamily(FNativeHandle, NativeFamily));
  11461. Result := TGPFontFamily.Create(NativeFamily);
  11462. end;
  11463.  
  11464. function TGPFont.GetHeight(const Dpi: Single): Single;
  11465. begin
  11466. GdipCheck(GdipGetFontHeightGivenDPI(FNativeHandle, Dpi, Result));
  11467. end;
  11468.  
  11469. function TGPFont.GetHeight(const Graphics: IGPGraphics): Single;
  11470. begin
  11471. GdipCheck(GdipGetFontHeight(FNativeHandle, GdipHandle(Graphics), Result));
  11472. end;
  11473.  
  11474. function TGPFont.GetLogFontA(const G: IGPGraphics): TLogFontA;
  11475. begin
  11476. GdipCheck(GdipGetLogFontA(FNativeHandle, GdipHandle(G), Result));
  11477. end;
  11478.  
  11479. function TGPFont.GetLogFontW(const G: IGPGraphics): TLogFontW;
  11480. begin
  11481. GdipCheck(GdipGetLogFontW(FNativeHandle, GdipHandle(G), Result));
  11482. end;
  11483.  
  11484. function TGPFont.GetSize: Single;
  11485. begin
  11486. GdipCheck(GdipGetFontSize(FNativeHandle, Result));
  11487. end;
  11488.  
  11489. function TGPFont.GetStyle: TGPFontStyle;
  11490. begin
  11491. GdipCheck(GdipGetFontStyle(FNativeHandle, Result));
  11492. end;
  11493.  
  11494. function TGPFont.GetUnit: TGPUnit;
  11495. begin
  11496. GdipCheck(GdipGetFontUnit(FNativeHandle, Result));
  11497. end;
  11498.  
  11499. function TGPFont.IsAvailable: Boolean;
  11500. begin
  11501. Result := Assigned(FNativeHandle);
  11502. end;
  11503. {$ENDREGION 'GdiplusFont.h'}
  11504.  
  11505. {$REGION 'GdiplusFontCollection.h'}
  11506.  
  11507. { TGPFontCollection }
  11508.  
  11509. constructor TGPFontCollection.Create;
  11510. begin
  11511. inherited Create;
  11512. FNativeHandle := nil;
  11513. end;
  11514.  
  11515. function TGPFontCollection.GetFamilies: IGPFontFamilies;
  11516. var
  11517. NativeFamilyList: array of GpFontFamily;
  11518. NativeClone: GpFontFamily;
  11519. Count, ActualCount, I: Integer;
  11520. begin
  11521. Count := 0;
  11522. GdipCheck(GdipGetFontCollectionFamilyCount(FNativeHandle, Count));
  11523.  
  11524. SetLength(NativeFamilyList, Count);
  11525. GdipCheck(GdipGetFontCollectionFamilyList(FNativeHandle, Count,
  11526. @NativeFamilyList[0], ActualCount));
  11527.  
  11528. Result := TGPArray<IGPFontFamily>.Create(ActualCount);
  11529. for I := 0 to ActualCount - 1 do
  11530. begin
  11531. GdipCheck(GdipCloneFontFamily(NativeFamilyList[I], NativeClone));
  11532. Result[I] := TGPFontFamily.Create(NativeClone);
  11533. end;
  11534. end;
  11535.  
  11536. { TGPInstalledFontCollection }
  11537.  
  11538. constructor TGPInstalledFontCollection.Create;
  11539. begin
  11540. inherited Create;
  11541. GdipCheck(GdipNewInstalledFontCollection(FNativeHandle));
  11542. end;
  11543.  
  11544. { TGPPrivateFontCollection }
  11545.  
  11546. procedure TGPPrivateFontCollection.AddFontFile(const Filename: String);
  11547. begin
  11548. GdipCheck(GdipPrivateAddFontFile(FNativeHandle, PWideChar(Filename)));
  11549. end;
  11550.  
  11551. procedure TGPPrivateFontCollection.AddMemoryFont(const Memory: Pointer;
  11552. const Length: Integer);
  11553. begin
  11554. GdipCheck(GdipPrivateAddMemoryFont(FNativeHandle, Memory, Length));
  11555. end;
  11556.  
  11557. constructor TGPPrivateFontCollection.Create;
  11558. begin
  11559. inherited Create;
  11560. GdipCheck(GdipNewPrivateFontCollection(FNativeHandle));
  11561. end;
  11562.  
  11563. destructor TGPPrivateFontCollection.Destroy;
  11564. begin
  11565. GdipDeletePrivateFontCollection(FNativeHandle);
  11566. inherited;
  11567. end;
  11568. {$ENDREGION 'GdiplusFontCollection.h'}
  11569.  
  11570. {$REGION 'GdiplusBitmap.h'}
  11571. { TGPImageFormat }
  11572.  
  11573. constructor TGPImageFormat.Create(const Guid: TGUID);
  11574. begin
  11575. inherited Create;
  11576. FGuid := Guid;
  11577. end;
  11578.  
  11579. constructor TGPImageFormat.Create(const Guid, CodecId: TGUID);
  11580. begin
  11581. inherited Create;
  11582. FGuid := Guid;
  11583. FCodecId := CodecId;
  11584. end;
  11585.  
  11586. class function TGPImageFormat.FindByFormatId(
  11587. const lFormatId: TGUID): IGPImageFormat;
  11588. begin
  11589. InitializeCodecs;
  11590. if IsEqualGUID(lFormatId, FBmp.Guid) then
  11591. Result := FBmp
  11592. else if IsEqualGUID(lFormatId, FGif.Guid) then
  11593. Result := FGif
  11594. else if IsEqualGUID(lFormatId, FJpeg.Guid) then
  11595. Result := FJpeg
  11596. else if IsEqualGUID(lFormatId, FPng.Guid) then
  11597. Result := FPng
  11598. else if IsEqualGUID(lFormatId, FTiff.Guid) then
  11599. Result := FTiff
  11600. else
  11601. Result := nil;
  11602. end;
  11603.  
  11604. class function TGPImageFormat.GetBmp: IGPImageFormat;
  11605. begin
  11606. InitializeCodecs;
  11607. Result := FBmp;
  11608. end;
  11609.  
  11610. function TGPImageFormat.GetCodecId: TGUID;
  11611. begin
  11612. Result := FCodecId;
  11613. end;
  11614.  
  11615. class function TGPImageFormat.GetGif: IGPImageFormat;
  11616. begin
  11617. InitializeCodecs;
  11618. Result := FGif;
  11619. end;
  11620.  
  11621. function TGPImageFormat.GetGuid: TGuid;
  11622. begin
  11623. Result := FGuid;
  11624. end;
  11625.  
  11626. class function TGPImageFormat.GetJpeg: IGPImageFormat;
  11627. begin
  11628. InitializeCodecs;
  11629. Result := FJpeg;
  11630. end;
  11631.  
  11632. class function TGPImageFormat.GetPng: IGPImageFormat;
  11633. begin
  11634. InitializeCodecs;
  11635. Result := FPng;
  11636. end;
  11637.  
  11638. class function TGPImageFormat.GetTiff: IGPImageFormat;
  11639. begin
  11640. InitializeCodecs;
  11641. Result := FTiff;
  11642. end;
  11643.  
  11644. class procedure TGPImageFormat.InitializeCodecs;
  11645. var
  11646. I, Count, Size: Cardinal;
  11647. List, Info: PGPNativeImageCodecInfo;
  11648. begin
  11649. if (not FInitialized) then
  11650. begin
  11651. FInitialized := True;
  11652. GdipCheck(GdipGetImageEncodersSize(Count, Size));
  11653. if (Size > 0) then
  11654. begin
  11655. GetMem(List, Size);
  11656. try
  11657. GdipCheck(GdipGetImageEncoders(Count, Size, List));
  11658. Info := List;
  11659. for I := 0 to Count - 1 do
  11660. begin
  11661. if IsEqualGUID(Info.FormatId, ImageFormatBMP) then
  11662. FBmp := TGPImageFormat.Create(Info.FormatId, Info.ClsId)
  11663. else
  11664. if IsEqualGUID(Info.FormatId, ImageFormatJPEG) then
  11665. FJpeg := TGPImageFormat.Create(Info.FormatId, Info.ClsId)
  11666. else
  11667. if IsEqualGUID(Info.FormatId, ImageFormatGIF) then
  11668. FGif := TGPImageFormat.Create(Info.FormatId, Info.ClsId)
  11669. else
  11670. if IsEqualGUID(Info.FormatId, ImageFormatTIFF) then
  11671. FTiff := TGPImageFormat.Create(Info.FormatId, Info.ClsId)
  11672. else
  11673. if IsEqualGUID(Info.FormatId, ImageFormatPNG) then
  11674. FPng := TGPImageFormat.Create(Info.FormatId, Info.ClsId);
  11675. Inc(Info);
  11676. end;
  11677. finally
  11678. FreeMem(List);
  11679. end;
  11680. end;
  11681. Assert(Assigned(FBmp));
  11682. Assert(Assigned(FJpeg));
  11683. Assert(Assigned(FGif));
  11684. Assert(Assigned(FTiff));
  11685. Assert(Assigned(FPng));
  11686. end;
  11687. end;
  11688.  
  11689. { TGPImageCodecInfo }
  11690.  
  11691. constructor TGPImageCodecInfo.Create(const Info: TGPNativeImageCodecInfo);
  11692. begin
  11693. inherited Create;
  11694. FInfo := Info;
  11695. end;
  11696.  
  11697. function TGPImageCodecInfo.GetClsId: TGUID;
  11698. begin
  11699. Result := FInfo.ClsId;
  11700. end;
  11701.  
  11702. function TGPImageCodecInfo.GetCodecName: String;
  11703. begin
  11704. Result := FInfo.CodecName;
  11705. end;
  11706.  
  11707. function TGPImageCodecInfo.GetDllName: String;
  11708. begin
  11709. Result := FInfo.DllName;
  11710. end;
  11711.  
  11712. function TGPImageCodecInfo.GetFilenameExtension: String;
  11713. begin
  11714. Result := FInfo.FilenameExtension;
  11715. end;
  11716.  
  11717. function TGPImageCodecInfo.GetFlags: TGPImageCodecFlags;
  11718. begin
  11719. Result := FInfo.Flags;
  11720. end;
  11721.  
  11722. function TGPImageCodecInfo.GetFormatDescription: String;
  11723. begin
  11724. Result := FInfo.FormatDescription;
  11725. end;
  11726.  
  11727. function TGPImageCodecInfo.GetFormatId: TGUID;
  11728. begin
  11729. Result := FInfo.FormatId;
  11730. end;
  11731.  
  11732. class function TGPImageCodecInfo.GetImageDecoders: IGPImageCodecInfoArray;
  11733. var
  11734. I, Count, Size: Cardinal;
  11735. List, Info: PGPNativeImageCodecInfo;
  11736. begin
  11737. GdipCheck(GdipGetImageDecodersSize(Count, Size));
  11738. if (Count > 0) then
  11739. begin
  11740. Result := TGPArray<IGPImageCodecInfo>.Create(Count);
  11741. GetMem(List, Size);
  11742. try
  11743. GdipCheck(GdipGetImageDecoders(Count, Size, List));
  11744. Info := List;
  11745. for I := 0 to Count - 1 do
  11746. begin
  11747. Result[I] := TGPImageCodecInfo.Create(Info^);
  11748. Inc(Info);
  11749. end;
  11750. finally
  11751. FreeMem(List);
  11752. end;
  11753. end
  11754. else
  11755. Result := nil;
  11756. end;
  11757.  
  11758. class function TGPImageCodecInfo.GetImageEncoders: IGPImageCodecInfoArray;
  11759. var
  11760. I, Count, Size: Cardinal;
  11761. List, Info: PGPNativeImageCodecInfo;
  11762. begin
  11763. GdipCheck(GdipGetImageEncodersSize(Count, Size));
  11764. if (Count > 0) then
  11765. begin
  11766. Result := TGPArray<IGPImageCodecInfo>.Create(Count);
  11767. GetMem(List, Size);
  11768. try
  11769. GdipCheck(GdipGetImageEncoders(Count, Size, List));
  11770. Info := List;
  11771. for I := 0 to Count - 1 do
  11772. begin
  11773. Result[I] := TGPImageCodecInfo.Create(Info^);
  11774. Inc(Info);
  11775. end;
  11776. finally
  11777. FreeMem(List);
  11778. end;
  11779. end
  11780. else
  11781. Result := nil;
  11782. end;
  11783.  
  11784. function TGPImageCodecInfo.GetMimeType: String;
  11785. begin
  11786. Result := FInfo.MimeType;
  11787. end;
  11788.  
  11789. function TGPImageCodecInfo.GetVersion: Integer;
  11790. begin
  11791. Result := FInfo.Version;
  11792. end;
  11793.  
  11794. { TGPEncoderParameterEnumerator }
  11795.  
  11796. constructor TGPEncoderParameterEnumerator.Create(
  11797. const AParams: IGPEncoderParameters);
  11798. begin
  11799. inherited Create;
  11800. FParams := AParams;
  11801. FIndex := -1;
  11802. end;
  11803.  
  11804. function TGPEncoderParameterEnumerator.GetCurrent: PGPNativeEncoderParameter;
  11805. begin
  11806. Result := FParams.Param[FIndex];
  11807. end;
  11808.  
  11809. function TGPEncoderParameterEnumerator.MoveNext: Boolean;
  11810. begin
  11811. Result := (FIndex < FParams.Count - 1);
  11812. if Result then
  11813. Inc(FIndex);
  11814. end;
  11815.  
  11816. { TGPEncoderParameters }
  11817.  
  11818. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var Value: Int64);
  11819. var
  11820. Value32: Int32;
  11821. begin
  11822. Value32 := Value;
  11823. Add(ParamType, 1, EncoderParameterValueTypeLong, @Value32);
  11824. end;
  11825.  
  11826. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11827. const Value: array of Int32);
  11828. begin
  11829. Assert(Length(Value) > 0);
  11830. Add(ParamType, Length(Value), EncoderParameterValueTypeLong, @Value[0]);
  11831. end;
  11832.  
  11833. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const Value: String);
  11834. var
  11835. AnsiValue: AnsiString;
  11836. begin
  11837. {$WARNINGS OFF}
  11838. AnsiValue := AnsiString(Value);
  11839. {$WARNINGS ON}
  11840. Assert(Length(AnsiValue) > 0);
  11841. Add(ParamType, Length(AnsiValue) + 1, EncoderParameterValueTypeASCII, @AnsiValue[1]);
  11842. end;
  11843.  
  11844. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11845. const Value: array of Int64);
  11846. var
  11847. Value32: array of Int32;
  11848. I: Integer;
  11849. begin
  11850. Assert(Length(Value) > 0);
  11851. SetLength(Value32, Length(Value));
  11852. for I := 0 to Length(Value) - 1 do
  11853. Value32[I] := Value[I];
  11854. Add(ParamType, Length(Value), EncoderParameterValueTypeLong, @Value32[0]);
  11855. end;
  11856.  
  11857. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var Value: Int32);
  11858. begin
  11859. Add(ParamType, 1, EncoderParameterValueTypeLong, @Value);
  11860. end;
  11861.  
  11862. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11863. const Value: array of Byte);
  11864. begin
  11865. Assert(Length(Value) > 0);
  11866. Add(ParamType, Length(Value), EncoderParameterValueTypeByte, @Value[0]);
  11867. end;
  11868.  
  11869. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var Value: Byte);
  11870. begin
  11871. Add(ParamType, 1, EncoderParameterValueTypeByte, @Value);
  11872. end;
  11873.  
  11874. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11875. const Value: array of Int16);
  11876. begin
  11877. Assert(Length(Value) > 0);
  11878. Add(ParamType, Length(Value), EncoderParameterValueTypeShort, @Value[0]);
  11879. end;
  11880.  
  11881. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var Value: Int16);
  11882. begin
  11883. Add(ParamType, 1, EncoderParameterValueTypeShort, @Value);
  11884. end;
  11885.  
  11886. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11887. const NumberOfValues: Integer; const ValueType: TGPEncoderParameterValueType;
  11888. const Value: Pointer);
  11889. var
  11890. ValueSize: Integer;
  11891. ValuePtr: PByte;
  11892. begin
  11893. FModified := True;
  11894. if (FParamCount >= Length(FParams)) then
  11895. SetLength(FParams, FParamCount + 4);
  11896.  
  11897. case ValueType of
  11898. EncoderParameterValueTypeByte,
  11899. EncoderParameterValueTypeASCII,
  11900. EncoderParameterValueTypeUndefined:
  11901. ValueSize := 1;
  11902. EncoderParameterValueTypeShort:
  11903. ValueSize := 2;
  11904. EncoderParameterValueTypeLong:
  11905. ValueSize := 4;
  11906. EncoderParameterValueTypeRational,
  11907. EncoderParameterValueTypeLongRange:
  11908. ValueSize := 8;
  11909. EncoderParameterValueTypeRationalRange:
  11910. ValueSize := 16;
  11911.  
  11912. {$IF (GDIPVER >= $0110)}
  11913. EncoderParameterValueTypePointer:
  11914. ValueSize := 1;
  11915. {$IFEND}
  11916. else
  11917. begin
  11918. ValueSize := 1;
  11919. Assert(False);
  11920. end;
  11921. end;
  11922. ValueSize := ValueSize * NumberOfValues;
  11923. if ((FValueSize + ValueSize) > FValueAllocated) then
  11924. begin
  11925. FValueAllocated := FValueSize + ValueSize + 64;
  11926. ReallocMem(FValues, FValueAllocated);
  11927. end;
  11928. ValuePtr := FValues;
  11929. Inc(ValuePtr, FValueSize);
  11930. Inc(FValueSize, ValueSize);
  11931. Move(Value^, ValuePtr^, ValueSize);
  11932.  
  11933. FParams[FParamCount].Guid := ParamType;
  11934. FParams[FParamCount].NumberOfValues := NumberOfValues;
  11935. FParams[FParamCount].ValueType := ValueType;
  11936. FParams[FParamCount].Value := ValuePtr;
  11937.  
  11938. Inc(FParamCount);
  11939. end;
  11940.  
  11941. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const RangesBegin,
  11942. RangesEnd: array of Int64);
  11943. var
  11944. Ranges: array of Int32;
  11945. I: Integer;
  11946. begin
  11947. Assert(Length(RangesBegin) > 0);
  11948. Assert(Length(RangesBegin) = Length(RangesEnd));
  11949. SetLength(Ranges, Length(RangesBegin) * 2);
  11950. for I := 0 to Length(RangesBegin) - 1 do
  11951. begin
  11952. Ranges[I * 2 + 0] := RangesBegin[I];
  11953. Ranges[I * 2 + 1] := RangesEnd[I];
  11954. end;
  11955. Add(ParamType, Length(RangesBegin), EncoderParameterValueTypeLongRange, @Ranges[0]);
  11956. end;
  11957.  
  11958. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const Numerator1,
  11959. Denominator1, Numerator2, Denominator2: array of Int32);
  11960. var
  11961. Values: array of Int32;
  11962. I: Integer;
  11963. begin
  11964. Assert(Length(Numerator1) > 0);
  11965. Assert(Length(Numerator1) = Length(Numerator2));
  11966. Assert(Length(Numerator1) = Length(Denominator1));
  11967. Assert(Length(Numerator1) = Length(Denominator2));
  11968. SetLength(Values, Length(Numerator1) * 4);
  11969. for I := 0 to Length(Numerator1) - 1 do
  11970. begin
  11971. Values[I * 4 + 0] := Numerator1[I];
  11972. Values[I * 4 + 1] := Denominator1[I];
  11973. Values[I * 4 + 2] := Numerator2[I];
  11974. Values[I * 4 + 3] := Denominator2[I];
  11975. end;
  11976. Add(ParamType, Length(Numerator1), EncoderParameterValueTypeRationalRange, @Values[0]);
  11977. end;
  11978.  
  11979. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11980. const Value: array of TGPEncoderValue);
  11981. begin
  11982. Assert(Length(Value) > 0);
  11983. Add(ParamType, Length(Value), EncoderParameterValueTypeLong, @Value[0]);
  11984. end;
  11985.  
  11986. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  11987. const Value: TGPEncoderValue);
  11988. begin
  11989. Add(ParamType, 1, EncoderParameterValueTypeLong, @Value);
  11990. end;
  11991.  
  11992. procedure TGPEncoderParameters.Clear;
  11993. begin
  11994. FParamCount := 0;
  11995. FValueSize := 0;
  11996. FModified := True;
  11997. end;
  11998.  
  11999. constructor TGPEncoderParameters.Create;
  12000. begin
  12001. inherited Create;
  12002. end;
  12003.  
  12004. constructor TGPEncoderParameters.Create(const Params: PGPNativeEncoderParameters);
  12005. var
  12006. Param: PGPNativeEncoderParameter;
  12007. I: Integer;
  12008. begin
  12009. inherited Create;
  12010. if Assigned(Params) then
  12011. begin
  12012. SetLength(FParams, Params.Count);
  12013. if (Params.Count > 0) then
  12014. begin
  12015. Param := @Params.Parameter[0];
  12016. for I := 0 to Params.Count - 1 do
  12017. begin
  12018. Add(Param.Guid, Param.NumberOfValues, Param.ValueType, Param.Value);
  12019. Inc(Param);
  12020. end;
  12021. end;
  12022. end;
  12023. end;
  12024.  
  12025. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const Numerator1,
  12026. Denominator1, Numerator2, Denominator2: Int32);
  12027. var
  12028. Values: array [0..3] of Int32;
  12029. begin
  12030. Values[0] := Numerator1;
  12031. Values[1] := Denominator1;
  12032. Values[2] := Numerator2;
  12033. Values[3] := Denominator2;
  12034. Add(ParamType, 1, EncoderParameterValueTypeRationalRange, @Values[0]);
  12035. end;
  12036.  
  12037. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var RangeBegin,
  12038. RangeEnd: Int64);
  12039. var
  12040. Values: array [0..1] of Int32;
  12041. begin
  12042. Values[0] := RangeBegin;
  12043. Values[1] := RangeEnd;
  12044. Add(ParamType, 1, EncoderParameterValueTypeLongRange, @Values[0]);
  12045. end;
  12046.  
  12047. procedure TGPEncoderParameters.Add(const ParamType: TGUID;
  12048. const Value: array of Byte; const Undefined: Boolean);
  12049. begin
  12050. Assert(Length(Value) > 0);
  12051. if (Undefined) then
  12052. Add(ParamType, Length(Value), EncoderParameterValueTypeUndefined, @Value[0])
  12053. else
  12054. Add(ParamType, Length(Value), EncoderParameterValueTypeByte, @Value[0]);
  12055. end;
  12056.  
  12057. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const Value: Byte;
  12058. const Undefined: Boolean);
  12059. begin
  12060. if (Undefined) then
  12061. Add(ParamType, 1, EncoderParameterValueTypeUndefined, @Value)
  12062. else
  12063. Add(ParamType, 1, EncoderParameterValueTypeByte, @Value);
  12064. end;
  12065.  
  12066. procedure TGPEncoderParameters.Add(const ParamType: TGUID; const Numerators,
  12067. Denominators: array of Int32);
  12068. var
  12069. Values: array of Int32;
  12070. I: Integer;
  12071. begin
  12072. Assert(Length(Numerators) > 0);
  12073. Assert(Length(Numerators) = Length(Denominators));
  12074. SetLength(Values, Length(Numerators) * 2);
  12075. for I := 0 to Length(Numerators) - 1 do
  12076. begin
  12077. Values[I * 2 + 0] := Numerators[I];
  12078. Values[I * 2 + 1] := Denominators[I];
  12079. end;
  12080. Add(ParamType, Length(Numerators), EncoderParameterValueTypeRational, @Values[0]);
  12081. end;
  12082.  
  12083. procedure TGPEncoderParameters.Add(const ParamType: TGUID; var Numerator,
  12084. Denominator: Int32);
  12085. var
  12086. Values: array [0..1] of Int32;
  12087. begin
  12088. Values[0] := Numerator;
  12089. Values[1] := Denominator;
  12090. Add(ParamType, 1, EncoderParameterValueTypeRational, @Values[0]);
  12091. end;
  12092.  
  12093. destructor TGPEncoderParameters.Destroy;
  12094. begin
  12095. FreeMem(FNativeParams);
  12096. FreeMem(FValues);
  12097. inherited;
  12098. end;
  12099.  
  12100. function TGPEncoderParameters.GetCount: Integer;
  12101. begin
  12102. Result := FParamCount;
  12103. end;
  12104.  
  12105. function TGPEncoderParameters.GetEnumerator: TGPEncoderParameterEnumerator;
  12106. begin
  12107. Result := TGPEncoderParameterEnumerator.Create(Self);
  12108. end;
  12109.  
  12110. function TGPEncoderParameters.GetNativeParams: PGPNativeEncoderParameters;
  12111. begin
  12112. if (FNativeParams = nil) or (FModified) then
  12113. begin
  12114. ReallocMem(FNativeParams, 4 + FParamCount * SizeOf(TGPNativeEncoderParameter));
  12115. FNativeParams.Count := FParamCount;
  12116. if (FParamCount > 0) then
  12117. Move(FParams[0], FNativeParams.Parameter[0], FParamCount * SizeOf(TGPNativeEncoderParameter));
  12118. FModified := False;
  12119. end;
  12120. Result := FNativeParams;
  12121. end;
  12122.  
  12123. function TGPEncoderParameters.GetParam(const Index: Integer): PGPNativeEncoderParameter;
  12124. begin
  12125. Result := @FParams[Index];
  12126. end;
  12127.  
  12128. { TGPColorPalette }
  12129.  
  12130. constructor TGPColorPalette.Create(const Count: Integer);
  12131. begin
  12132. inherited Create;
  12133. GetMem(FData, SizeOf(TGPNativeColorPalette) + Count * SizeOf(ARGB));
  12134. FData.Count := Count;
  12135. FData.Flags := [];
  12136. FEntries := Pointer(FData);
  12137. Inc(PByte(FEntries), SizeOf(TGPNativeColorPalette));
  12138. end;
  12139.  
  12140. constructor TGPColorPalette.Create(const NativePalette: PGPNativeColorPalette);
  12141. begin
  12142. if (NativePalette = nil) then
  12143. begin
  12144. Create(1);
  12145. FData.Count := 0;
  12146. end
  12147. else
  12148. begin
  12149. inherited Create;
  12150. FData := NativePalette;
  12151. FEntries := Pointer(FData);
  12152. Inc(PByte(FEntries), SizeOf(TGPNativeColorPalette));
  12153. end;
  12154. end;
  12155.  
  12156. destructor TGPColorPalette.Destroy;
  12157. begin
  12158. FreeMem(FData);
  12159. inherited;
  12160. end;
  12161.  
  12162. function TGPColorPalette.GetCount: Integer;
  12163. begin
  12164. Result := FData.Count;
  12165. end;
  12166.  
  12167. function TGPColorPalette.GetEntry(const Index: Integer): ARGB;
  12168. begin
  12169. Result := FEntries[Index];
  12170. end;
  12171.  
  12172. function TGPColorPalette.GetEntryPtr: PARGB;
  12173. begin
  12174. Result := FEntries;
  12175. end;
  12176.  
  12177. function TGPColorPalette.GetFlags: TGPPaletteFlags;
  12178. begin
  12179. Result := FData.Flags;
  12180. end;
  12181.  
  12182. function TGPColorPalette.GetNativePalette: PGPNativeColorPalette;
  12183. begin
  12184. Result := FData;
  12185. end;
  12186.  
  12187. procedure TGPColorPalette.SetEntry(const Index: Integer; const Value: ARGB);
  12188. begin
  12189. FEntries[Index] := Value;
  12190. end;
  12191.  
  12192. procedure TGPColorPalette.SetFlags(const Value: TGPPaletteFlags);
  12193. begin
  12194. FData.Flags := Value;
  12195. end;
  12196.  
  12197. { TGPPropertyItem }
  12198.  
  12199. constructor TGPPropertyItem.Create(const Data: PGPNativePropertyItem);
  12200. begin
  12201. inherited Create;
  12202. FData := Data;
  12203. end;
  12204.  
  12205. constructor TGPPropertyItem.Create;
  12206. begin
  12207. inherited Create;
  12208. GetMem(FData, SizeOf(TGPNativePropertyItem));
  12209. end;
  12210.  
  12211. destructor TGPPropertyItem.Destroy;
  12212. begin
  12213. FreeMem(FData);
  12214. inherited;
  12215. end;
  12216.  
  12217. function TGPPropertyItem.GetId: TPropID;
  12218. begin
  12219. Result := FData.Id;
  12220. end;
  12221.  
  12222. function TGPPropertyItem.GetLength: Cardinal;
  12223. begin
  12224. Result := FData.Length;
  12225. end;
  12226.  
  12227. function TGPPropertyItem.GetNativeItem: PGPNativePropertyItem;
  12228. begin
  12229. Result := FData;
  12230. end;
  12231.  
  12232. function TGPPropertyItem.GetValue: Pointer;
  12233. begin
  12234. Result := FData.Value;
  12235. end;
  12236.  
  12237. function TGPPropertyItem.GetValueType: Word;
  12238. begin
  12239. Result := FData.ValueType;
  12240. end;
  12241.  
  12242. procedure TGPPropertyItem.SetId(const Value: TPropID);
  12243. begin
  12244. FData.Id := Value;
  12245. end;
  12246.  
  12247. procedure TGPPropertyItem.SetLength(const Value: Cardinal);
  12248. begin
  12249. FData.Length := Value;
  12250. end;
  12251.  
  12252. procedure TGPPropertyItem.SetValue(const Value: Pointer);
  12253. begin
  12254. FData.Value := Value;
  12255. end;
  12256.  
  12257. procedure TGPPropertyItem.SetValueType(const Value: Word);
  12258. begin
  12259. FData.ValueType := Value;
  12260. end;
  12261.  
  12262. { TGPImage }
  12263.  
  12264. function TGPImage.Clone: IGPImage;
  12265. var
  12266. NativeClone: GpImage;
  12267. begin
  12268. NativeClone := nil;
  12269. GdipCheck(GdipCloneImage(FNativeHandle, NativeClone));
  12270. Result := TGPImage.Create(NativeClone);
  12271. end;
  12272.  
  12273. constructor TGPImage.Create(const Stream: IStream;
  12274. const UseEmbeddedColorManagement: Boolean);
  12275. begin
  12276. inherited Create;
  12277. if (UseEmbeddedColorManagement) then
  12278. GdipCheck(GdipLoadImageFromStreamICM(Stream, FNativeHandle))
  12279. else
  12280. GdipCheck(GdipLoadImageFromStream(Stream, FNativeHandle))
  12281. end;
  12282.  
  12283. constructor TGPImage.Create(const Filename: String;
  12284. const UseEmbeddedColorManagement: Boolean);
  12285. begin
  12286. inherited Create;
  12287. if (UseEmbeddedColorManagement) then
  12288. GdipCheck(GdipLoadImageFromFileICM(PWideChar(Filename), FNativeHandle))
  12289. else
  12290. GdipCheck(GdipLoadImageFromFile(PWideChar(Filename), FNativeHandle))
  12291. end;
  12292.  
  12293. constructor TGPImage.Create(const NativeImage: GpImage);
  12294. begin
  12295. inherited Create;
  12296. FNativeHandle := NativeImage;
  12297. end;
  12298.  
  12299. destructor TGPImage.Destroy;
  12300. begin
  12301. GdipDisposeImage(FNativeHandle);
  12302. inherited;
  12303. end;
  12304.  
  12305. {$IF (GDIPVER >= $0110)}
  12306. procedure TGPImage.FindFirstItem(const Item: PGPImageItemData);
  12307. begin
  12308. GdipCheck(GdipFindFirstImageItem(FNativeHandle, Item));
  12309. end;
  12310.  
  12311. procedure TGPImage.FindNextItem(const Item: PGPImageItemData);
  12312. begin
  12313. GdipCheck(GdipFindNextImageItem(FNativeHandle, Item));
  12314. end;
  12315.  
  12316. procedure TGPImage.GetItemData(const Item: PGPImageItemData);
  12317. begin
  12318. GdipCheck(GdipGetImageItemData(FNativeHandle, Item));
  12319. end;
  12320.  
  12321. procedure TGPImage.SetAbort(const Abort: TGdiplusAbort);
  12322. begin
  12323. GdipCheck(GdipImageSetAbort(FNativeHandle, @Abort));
  12324. end;
  12325. {$IFEND}
  12326.  
  12327. class function TGPImage.FromFile(const Filename: String;
  12328. const UseEmbeddedColorManagement: Boolean): IGPImage;
  12329. begin
  12330. Result := TGPImage.Create(Filename, UseEmbeddedColorManagement);
  12331. end;
  12332.  
  12333. class function TGPImage.FromStream(const Stream: IStream;
  12334. const UseEmbeddedColorManagement: Boolean): IGPImage;
  12335. begin
  12336. Result := TGPImage.Create(Stream, UseEmbeddedColorManagement);
  12337. end;
  12338.  
  12339. procedure TGPImage.GetBounds(out SrcRect: TGPRectF; out SrcUnit: TGPUnit);
  12340. begin
  12341. GdipCheck(GdipGetImageBounds(FNativeHandle, SrcRect, SrcUnit));
  12342. end;
  12343.  
  12344. function TGPImage.GetEncoderParameterList(const lEncoder: TGUID): IGPEncoderParameters;
  12345. var
  12346. Size: Cardinal;
  12347. Params: PGPNativeEncoderParameters;
  12348. begin
  12349. Size := 0;
  12350. Params := nil;
  12351. try
  12352. if (GdipGetEncoderParameterListSize(FNativeHandle, @lEncoder, Size) = Ok) and (Size > 0) then
  12353. begin
  12354. GetMem(Params, Size);
  12355. GdipCheck(GdipGetEncoderParameterList(FNativeHandle, @lEncoder, Size, Params));
  12356. end;
  12357. Result := TGPEncoderParameters.Create(Params);
  12358. finally
  12359. FreeMem(Params);
  12360. end;
  12361. end;
  12362.  
  12363. function TGPImage.GetFlags: TGPImageFlags;
  12364. begin
  12365. Result := [];
  12366. GdipCheck(GdipGetImageFlags(FNativeHandle, Result));
  12367. end;
  12368.  
  12369. function TGPImage.GetFrameCount(const DimensionID: TGUID): Cardinal;
  12370. begin
  12371. Result := 0;
  12372. GdipCheck(GdipImageGetFrameCount(FNativeHandle, DimensionID, Result));
  12373. end;
  12374.  
  12375. function TGPImage.GetFrameDimensions: IGPFrameDimensions;
  12376. var
  12377. Count: Cardinal;
  12378. begin
  12379. Count := 0;
  12380. GdipCheck(GdipImageGetFrameDimensionsCount(FNativeHandle, Count));
  12381. Result := TGPArray<TGUID>.Create(Count);
  12382. if (Count > 0) then
  12383. GdipCheck(GdipImageGetFrameDimensionsList(FNativeHandle, Result.ItemPtr, Count));
  12384. end;
  12385.  
  12386. function TGPImage.GetHeight: Cardinal;
  12387. begin
  12388. Result := 0;
  12389. GdipCheck(GdipGetImageHeight(FNativeHandle, Result));
  12390. end;
  12391.  
  12392. function TGPImage.GetHorizontalResolution: Single;
  12393. begin
  12394. Result := 0;
  12395. GdipCheck(GdipGetImageHorizontalResolution(FNativeHandle, Result));
  12396. end;
  12397.  
  12398. function TGPImage.GetPalette: IGPColorPalette;
  12399. var
  12400. Size: Integer;
  12401. Palette: PGPNativeColorPalette;
  12402. begin
  12403. Palette := nil;
  12404. Size := 0;
  12405. GdipCheck(GdipGetImagePaletteSize(FNativeHandle, Size));
  12406. if (Size > 0) then
  12407. begin
  12408. GetMem(Palette, Size);
  12409. GdipCheck(GdipGetImagePalette(FNativeHandle, Palette, Size));
  12410. end;
  12411. Result := TGPColorPalette.Create(Palette);
  12412. end;
  12413.  
  12414. procedure TGPImage.GetPhysicalDimension(out Size: TGPSizeF);
  12415. begin
  12416. GdipCheck(GdipGetImageDimension(FNativeHandle, Size.Width, Size.Height));
  12417. end;
  12418.  
  12419. function TGPImage.GetPixelFormat: TGPPixelFormat;
  12420. begin
  12421. GdipCheck(GdipGetImagePixelFormat(FNativeHandle, Result));
  12422. end;
  12423.  
  12424. function TGPImage.GetPropertyIdList: IGPPropertyIdList;
  12425. var
  12426. Count: Cardinal;
  12427. begin
  12428. Count := 0;
  12429. GdipCheck(GdipGetPropertyCount(FNativeHandle, Count));
  12430. Result := TGPArray<TPropID>.Create(Count);
  12431. if (Count > 0) then
  12432. GdipCheck(GdipGetPropertyIdList(FNativeHandle, Count, Result.ItemPtr));
  12433. end;
  12434.  
  12435. function TGPImage.GetPropertyItem(const PropId: TPropID): IGPPropertyItem;
  12436. var
  12437. Size: Cardinal;
  12438. Data: PGPNativePropertyItem;
  12439. begin
  12440. Size := 0;
  12441. Data := nil;
  12442. GdipCheck(GdipGetPropertyItemSize(FNativeHandle, PropId, Size));
  12443. if (Size > 0) then
  12444. begin
  12445. GetMem(Data, Size);
  12446. GdipCheck(GdipGetPropertyItem(FNativeHandle, PropId, Size, Data));
  12447. end;
  12448. Result := TGPPropertyItem.Create(Data);
  12449. end;
  12450.  
  12451. function TGPImage.GetPropertyItems: IGPPropertyItems;
  12452. var
  12453. I, TotalBufferSize, NumProperties, PropSize: Cardinal;
  12454. AllProperties, CurProp, Data: PGPNativePropertyItem;
  12455. begin
  12456. GdipCheck(GdipGetPropertySize(FNativeHandle, TotalBufferSize, NumProperties));
  12457. Result := TGPArray<IGPPropertyItem>.Create(NumProperties);
  12458. if (TotalBufferSize > 0) then
  12459. begin
  12460. GetMem(AllProperties, TotalBufferSize);
  12461. try
  12462. GdipCheck(GdipGetAllPropertyItems(FNativeHandle, TotalBufferSize,
  12463. NumProperties, AllProperties));
  12464. CurProp := AllProperties;
  12465. PropSize := TotalBufferSize div SizeOf(TGPNativePropertyItem);
  12466. for I := 0 to NumProperties - 1 do
  12467. begin
  12468. GetMem(Data, PropSize);
  12469. Move(CurProp^, Data^, PropSize);
  12470. Result[I] := TGPPropertyItem.Create(Data);
  12471. Inc(CurProp);
  12472. end;
  12473. finally
  12474. FreeMem(AllProperties);
  12475. end;
  12476. end;
  12477. end;
  12478.  
  12479. function TGPImage.GetRawFormat: TGUID;
  12480. begin
  12481. GdipCheck(GdipGetImageRawFormat(FNativeHandle, Result));
  12482. end;
  12483.  
  12484. function TGPImage.GetThumbnailImage(const ThumbWidth, ThumbHeight: Cardinal;
  12485. const Callback: TGPGetThumbnailImageAbort; const CallbackData: Pointer): IGPImage;
  12486. var
  12487. NativeThumbnail: GpImage;
  12488. begin
  12489. NativeThumbnail := nil;
  12490. GdipCheck(GdipGetImageThumbnail(FNativeHandle, ThumbWidth, ThumbHeight,
  12491. NativeThumbnail, Callback, CallbackData));
  12492. Result := TGPImage.Create(NativeThumbnail);
  12493. end;
  12494.  
  12495. function TGPImage.GetType: TGPImageType;
  12496. begin
  12497. Result := ImageTypeUnknown;
  12498. GdipCheck(GdipGetImageType(FNativeHandle, Result));
  12499. end;
  12500.  
  12501. function TGPImage.GetVerticalResolution: Single;
  12502. begin
  12503. Result := 0;
  12504. GdipCheck(GdipGetImageVerticalResolution(FNativeHandle, Result));
  12505. end;
  12506.  
  12507. function TGPImage.GetWidth: Cardinal;
  12508. begin
  12509. Result := 0;
  12510. GdipCheck(GdipGetImageWidth(FNativeHandle, Result));
  12511. end;
  12512.  
  12513. procedure TGPImage.RemovePropertyItem(const PropId: TPropID);
  12514. begin
  12515. GdipCheck(GdipRemovePropertyItem(FNativeHandle, PropId));
  12516. end;
  12517.  
  12518. procedure TGPImage.RotateFlip(const RotateFlipType: TGPRotateFlipType);
  12519. begin
  12520. GdipCheck(GdipImageRotateFlip(FNativeHandle, RotateFlipType));
  12521. end;
  12522.  
  12523. procedure TGPImage.Save(const Filename: String; const Encoder: IGPImageCodecInfo;
  12524. const Params: IGPEncoderParameters);
  12525. var
  12526. NativeParams: PGPNativeEncoderParameters;
  12527. begin
  12528. Assert(Assigned(Encoder));
  12529. if Assigned(Params) then
  12530. NativeParams := Params.NativeParams
  12531. else
  12532. NativeParams := nil;
  12533. GdipCheck(GdipSaveImageToFile(FNativeHandle, PWideChar(Filename),
  12534. Encoder.ClsId, NativeParams));
  12535. end;
  12536.  
  12537. procedure TGPImage.Save(const Stream: IStream; const Format: IGPImageFormat;
  12538. const Params: IGPEncoderParameters);
  12539. var
  12540. NativeParams: PGPNativeEncoderParameters;
  12541. begin
  12542. Assert(Assigned(Format));
  12543. if Assigned(Params) then
  12544. NativeParams := Params.NativeParams
  12545. else
  12546. NativeParams := nil;
  12547. GdipCheck(GdipSaveImageToStream(FNativeHandle, Stream, Format.CodecId, NativeParams));
  12548. end;
  12549.  
  12550. procedure TGPImage.Save(const Stream: IStream; const Encoder: IGPImageCodecInfo;
  12551. const Params: IGPEncoderParameters);
  12552. var
  12553. NativeParams: PGPNativeEncoderParameters;
  12554. begin
  12555. Assert(Assigned(Encoder));
  12556. if Assigned(Params) then
  12557. NativeParams := Params.NativeParams
  12558. else
  12559. NativeParams := nil;
  12560. GdipCheck(GdipSaveImageToStream(FNativeHandle, Stream, Encoder.ClsId, NativeParams));
  12561. end;
  12562.  
  12563. procedure TGPImage.Save(const Filename: String; const Format: IGPImageFormat;
  12564. const Params: IGPEncoderParameters);
  12565. var
  12566. NativeParams: PGPNativeEncoderParameters;
  12567. begin
  12568. Assert(Assigned(Format));
  12569. if Assigned(Params) then
  12570. NativeParams := Params.NativeParams
  12571. else
  12572. NativeParams := nil;
  12573. GdipCheck(GdipSaveImageToFile(FNativeHandle, PWideChar(Filename),
  12574. Format.CodecId, NativeParams));
  12575. end;
  12576.  
  12577. procedure TGPImage.SaveAdd(const NewImage: IGPImage;
  12578. const Params: IGPEncoderParameters);
  12579. begin
  12580. Assert(Assigned(Params));
  12581. if (NewImage = nil) then
  12582. GdipCheck(InvalidParameter);
  12583. GdipCheck(GdipSaveAddImage(FNativeHandle, NewImage.NativeHandle, Params.NativeParams));
  12584. end;
  12585.  
  12586. procedure TGPImage.SaveAdd(const Params: IGPEncoderParameters);
  12587. begin
  12588. Assert(Assigned(Params));
  12589. GdipCheck(GdipSaveAdd(FNativeHandle, Params.NativeParams));
  12590. end;
  12591.  
  12592. procedure TGPImage.SelectActiveFrame(const DimensionID: TGUID;
  12593. const FrameIndex: Cardinal);
  12594. begin
  12595. GdipCheck(GdipImageSelectActiveFrame(FNativeHandle, DimensionID, FrameIndex));
  12596. end;
  12597.  
  12598. procedure TGPImage.SetPalette(const Value: IGPColorPalette);
  12599. begin
  12600. Assert(Assigned(Value));
  12601. GdipCheck(GdipSetImagePalette(FNativeHandle, Value.NativePalette));
  12602. end;
  12603.  
  12604. procedure TGPImage.SetPropertyItem(const PropItem: IGPPropertyItem);
  12605. begin
  12606. Assert(Assigned(PropItem));
  12607. GdipCheck(GdipSetPropertyItem(FNativeHandle, PropItem.NativeItem));
  12608. end;
  12609.  
  12610. {$IF (GDIPVER >= $0110)}
  12611.  
  12612. { TGPHistogram }
  12613.  
  12614. constructor TGPHistogram.Create(const AChannelCount, AEntryCount: Integer; const AChannel0, AChannel1,
  12615. AChannel2, AChannel3: PCardinal);
  12616. begin
  12617. inherited Create;
  12618. FChannelCount := AChannelCount;
  12619. FEntryCount := AEntryCount;
  12620. FChannels[0] := AChannel0;
  12621. FChannels[1] := AChannel1;
  12622. FChannels[2] := AChannel2;
  12623. FChannels[3] := AChannel3;
  12624. end;
  12625.  
  12626. destructor TGPHistogram.Destroy;
  12627. begin
  12628. FreeMem(FChannels[3]);
  12629. FreeMem(FChannels[2]);
  12630. FreeMem(FChannels[1]);
  12631. FreeMem(FChannels[0]);
  12632. inherited;
  12633. end;
  12634.  
  12635. function TGPHistogram.GetChannel0(const Index: Integer): Cardinal;
  12636. begin
  12637. Result := FChannels[0, Index];
  12638. end;
  12639.  
  12640. function TGPHistogram.GetChannel0Ptr: PCardinal;
  12641. begin
  12642. Result := FChannels[0];
  12643. end;
  12644.  
  12645. function TGPHistogram.GetChannel1(const Index: Integer): Cardinal;
  12646. begin
  12647. Result := FChannels[1,Index];
  12648. end;
  12649.  
  12650. function TGPHistogram.GetChannel1Ptr: PCardinal;
  12651. begin
  12652. Result := FChannels[1];
  12653. end;
  12654.  
  12655. function TGPHistogram.GetChannel2(const Index: Integer): Cardinal;
  12656. begin
  12657. Result := FChannels[2,Index];
  12658. end;
  12659.  
  12660. function TGPHistogram.GetChannel2Ptr: PCardinal;
  12661. begin
  12662. Result := FChannels[2];
  12663. end;
  12664.  
  12665. function TGPHistogram.GetChannel3(const Index: Integer): Cardinal;
  12666. begin
  12667. Result := FChannels[3,Index];
  12668. end;
  12669.  
  12670. function TGPHistogram.GetChannel3Ptr: PCardinal;
  12671. begin
  12672. Result := FChannels[3];
  12673. end;
  12674.  
  12675. function TGPHistogram.GetChannelCount: Integer;
  12676. begin
  12677. Result := FChannelCount;
  12678. end;
  12679.  
  12680. function TGPHistogram.GetEntryCount: Integer;
  12681. begin
  12682. Result := FEntryCount;
  12683. end;
  12684.  
  12685. function TGPHistogram.GetValue(const ChannelIndex, EntryIndex: Integer): Cardinal;
  12686. begin
  12687. Result := FChannels[ChannelIndex, EntryIndex];
  12688. end;
  12689.  
  12690. function TGPHistogram.GetValuePtr(const ChannelIndex: Integer): PCardinal;
  12691. begin
  12692. Result := FChannels[ChannelIndex];
  12693. end;
  12694. {$IFEND}
  12695.  
  12696. { TGPBitmap }
  12697.  
  12698. {$IF (GDIPVER >= $0110)}
  12699. procedure TGPBitmap.ApplyEffect(const Effect: IGPEffect; const ROI: Windows.PRect);
  12700. var
  12701. AuxData: Pointer;
  12702. AuxDataSize: Integer;
  12703. begin
  12704. Effect.ReleaseAuxData;
  12705. AuxData := nil;
  12706. AuxDataSize := 0;
  12707. GdipCheck(GdipBitmapApplyEffect(FNativeHandle, Effect.NativeHandle, ROI,
  12708. Effect.UseAuxData, AuxData, AuxDataSize));
  12709. Effect.SetAuxData(AuxData, AuxDataSize);
  12710. end;
  12711.  
  12712. class function TGPBitmap.ApplyEffect(const Inputs: array of IGPBitmap;
  12713. const Effect: IGPEffect; const ROI, OutputRect: Windows.PRect): IGPBitmap;
  12714. var
  12715. NativeInputs: array of GpBitmap;
  12716. NativeOutput: GpBitmap;
  12717. I, AuxDataSize: Integer;
  12718. AuxData: Pointer;
  12719. begin
  12720. SetLength(NativeInputs, Length(Inputs));
  12721. for I := 0 to Length(Inputs) - 1 do
  12722. NativeInputs[I] := Inputs[I].NativeHandle;
  12723.  
  12724. Effect.ReleaseAuxData;
  12725. AuxData := nil;
  12726. AuxDataSize := 0;
  12727.  
  12728. GdipCheck(GdipBitmapCreateApplyEffect(@NativeInputs[0], Length(Inputs),
  12729. Effect.NativeHandle, ROI, OutputRect, NativeOutput, Effect.UseAuxData,
  12730. AuxData, AuxDataSize));
  12731.  
  12732. Effect.SetAuxData(AuxData, AuxDataSize);
  12733. Result := TGPBitmap.Create(NativeOutput);
  12734. end;
  12735. {$IFEND}
  12736.  
  12737. function TGPBitmap.Clone(const Rect: TGPRectF; const Format: TGPPixelFormat): IGPBitmap;
  12738. begin
  12739. Result := Clone(Rect.X, Rect.Y, Rect.Width, Rect.Height, Format);
  12740. end;
  12741.  
  12742. function TGPBitmap.Clone(const X, Y, Width, Height: Single;
  12743. const Format: TGPPixelFormat): IGPBitmap;
  12744. var
  12745. NativeClone: GpBitmap;
  12746. begin
  12747. GdipCheck(GdipCloneBitmapArea(X, Y, Width, Height, Format, FNativeHandle, NativeClone));
  12748. Result := TGPBitmap.Create(NativeClone);
  12749. end;
  12750.  
  12751. function TGPBitmap.Clone: IGPBitmap;
  12752. begin
  12753. Result := Clone(0, 0, GetWidth, GetHeight, GetPixelFormat);
  12754. end;
  12755.  
  12756. function TGPBitmap.Clone(const X, Y, Width, Height: Integer;
  12757. const Format: TGPPixelFormat): IGPBitmap;
  12758. var
  12759. NativeClone: GpBitmap;
  12760. begin
  12761. GdipCheck(GdipCloneBitmapAreaI(X, Y, Width, Height, Format, FNativeHandle, NativeClone));
  12762. Result := TGPBitmap.Create(NativeClone);
  12763. end;
  12764.  
  12765. function TGPBitmap.Clone(const Rect: TGPRect; const Format: TGPPixelFormat): IGPBitmap;
  12766. begin
  12767. Result := Clone(Rect.X, Rect.Y, Rect.Width, Rect.Height, Format);
  12768. end;
  12769.  
  12770. {$IF (GDIPVER >= $0110)}
  12771. procedure TGPBitmap.ConvertFormat(const Format: TGPPixelFormat;
  12772. const DitherType: TGPDitherType; const PaletteType: TGPPaletteType;
  12773. const Palette: IGPColorPalette; const AlphaThresholdPercent: Single);
  12774. var
  12775. NativePalette: PGPNativeColorPalette;
  12776. begin
  12777. if Assigned(Palette) then
  12778. NativePalette := Palette.NativePalette
  12779. else
  12780. NativePalette := nil;
  12781. GdipCheck(GdipBitmapConvertFormat(FNativeHandle, Format, DitherType,
  12782. PaletteType, NativePalette, AlphaThresholdPercent));
  12783. end;
  12784. {$IFEND}
  12785.  
  12786. constructor TGPBitmap.Create(const Filename: String;
  12787. const UseEmbeddedColorManagement: Boolean);
  12788. begin
  12789. inherited Create;
  12790. if (UseEmbeddedColorManagement) then
  12791. GdipCheck(GdipCreateBitmapFromFileICM(PWideChar(Filename), FNativeHandle))
  12792. else
  12793. GdipCheck(GdipCreateBitmapFromFile(PWideChar(Filename), FNativeHandle))
  12794. end;
  12795.  
  12796. constructor TGPBitmap.Create(const NativeBitmap: GpBitmap);
  12797. begin
  12798. inherited Create(NativeBitmap);
  12799. end;
  12800.  
  12801. constructor TGPBitmap.Create(const BitmapHandle: HBitmap;
  12802. const Palette: HPalette);
  12803. begin
  12804. inherited Create;
  12805. GdipCheck(GdipCreateBitmapFromHBITMAP(BitmapHandle, Palette, FNativeHandle))
  12806. end;
  12807.  
  12808. constructor TGPBitmap.Create(const BitmapInfo: TBitmapInfo;
  12809. const BitmapData: Pointer);
  12810. begin
  12811. inherited Create;
  12812. GdipCheck(GdipCreateBitmapFromGdiDib(@BitmapInfo, BitmapData, FNativeHandle))
  12813. end;
  12814.  
  12815. constructor TGPBitmap.Create(const Instance: HInst; const BitmapName: String);
  12816. begin
  12817. inherited Create;
  12818. GdipCheck(GdipCreateBitmapFromResource(Instance, PWideChar(BitmapName), FNativeHandle))
  12819. end;
  12820.  
  12821. constructor TGPBitmap.Create(const IconHandle: HIcon);
  12822. begin
  12823. inherited Create;
  12824. GdipCheck(GdipCreateBitmapFromHICON(IconHandle, FNativeHandle))
  12825. end;
  12826.  
  12827. constructor TGPBitmap.Create(const DirectDrawSurface7: IInterface);
  12828. {$IFOPT C+}
  12829. const
  12830. IID_IDirectDrawSurface7: TGUID = '{15e65ec0-3b9c-11d2-b92f-00609797ea5b}';
  12831. {$ENDIF}
  12832. begin
  12833. {$IFOPT C+}
  12834. Assert(Supports(DirectDrawSurface7, IID_IDirectDrawSurface7));
  12835. {$ENDIF}
  12836. inherited Create;
  12837. GdipCheck(GdipCreateBitmapFromDirectDrawSurface(DirectDrawSurface7, FNativeHandle))
  12838. end;
  12839.  
  12840. constructor TGPBitmap.Create(const Stream: IStream;
  12841. const UseEmbeddedColorManagement: Boolean);
  12842. begin
  12843. inherited Create;
  12844. if (UseEmbeddedColorManagement) then
  12845. GdipCheck(GdipCreateBitmapFromStreamICM(Stream, FNativeHandle))
  12846. else
  12847. GdipCheck(GdipCreateBitmapFromStream(Stream, FNativeHandle))
  12848. end;
  12849.  
  12850. constructor TGPBitmap.Create(const Width, Height, Stride: Integer;
  12851. const Format: TGPPixelFormat; const Scan0: Pointer);
  12852. begin
  12853. inherited Create;
  12854. GdipCheck(GdipCreateBitmapFromScan0(Width, Height, Stride, Format, Scan0, FNativeHandle));
  12855. end;
  12856.  
  12857. constructor TGPBitmap.Create(const Width, Height: Integer;
  12858. const Target: IGPGraphics);
  12859. begin
  12860. inherited Create;
  12861. GdipCheck(GdipCreateBitmapFromGraphics(Width, Height, Target.NativeHandle, FNativeHandle));
  12862. end;
  12863.  
  12864. constructor TGPBitmap.Create(const Width, Height: Integer;
  12865. const Format: TGPPixelFormat);
  12866. begin
  12867. inherited Create;
  12868. GdipCheck(GdipCreateBitmapFromScan0(Width, Height, 0, Format, nil, FNativeHandle));
  12869. end;
  12870.  
  12871. class function TGPBitmap.FromBitmapInfo(const BitmapInfo: TBitmapInfo;
  12872. const BitmapData: Pointer): IGPBitmap;
  12873. begin
  12874. Result := TGPBitmap.Create(BitmapInfo, BitmapData);
  12875. end;
  12876.  
  12877. class function TGPBitmap.FromDirectDrawSurface7(
  12878. const Surface: IInterface): IGPBitmap;
  12879. begin
  12880. Result := TGPBitmap.Create(Surface);
  12881. end;
  12882.  
  12883. class function TGPBitmap.FromFile(const Filename: String;
  12884. const UseEmbeddedColorManagement: Boolean): IGPBitmap;
  12885. begin
  12886. Result := TGPBitmap.Create(Filename, UseEmbeddedColorManagement);
  12887. end;
  12888.  
  12889. class function TGPBitmap.FromHBitmap(const BitmapHandle: HBitmap;
  12890. const Palette: HPalette): IGPBitmap;
  12891. begin
  12892. Result := TGPBitmap.Create(BitmapHandle, Palette);
  12893. end;
  12894.  
  12895. class function TGPBitmap.FromHIcon(const IconHandle: HIcon): IGPBitmap;
  12896. begin
  12897. Result := TGPBitmap.Create(IconHandle);
  12898. end;
  12899.  
  12900. class function TGPBitmap.FromResource(const Instance: HInst;
  12901. const BitmapName: String): IGPBitmap;
  12902. begin
  12903. Result := TGPBitmap.Create(Instance, BitmapName);
  12904. end;
  12905.  
  12906. class function TGPBitmap.FromStream(const Stream: IStream;
  12907. const UseEmbeddedColorManagement: Boolean): IGPBitmap;
  12908. begin
  12909. Result := TGPBitmap.Create(Stream, UseEmbeddedColorManagement);
  12910. end;
  12911.  
  12912. function TGPBitmap.GetHBitmap(const ColorBackground: TGPColor): HBitmap;
  12913. begin
  12914. GdipCheck(GdipCreateHBITMAPFromBitmap(FNativeHandle, Result, ColorBackground.Value));
  12915. end;
  12916.  
  12917. function TGPBitmap.GetHIcon: HIcon;
  12918. begin
  12919. GdipCheck(GdipCreateHICONFromBitmap(FNativeHandle, Result));
  12920. end;
  12921.  
  12922. {$IF (GDIPVER >= $0110)}
  12923. function TGPBitmap.GetHistogram(const Format: TGPHistogramFormat): IGPHistogram;
  12924. var
  12925. ChannelCount, EntryCount: Cardinal;
  12926. Channel0, Channel1, Channel2, Channel3: PCardinal;
  12927. begin
  12928. case Format of
  12929. HistogramFormatARGB,
  12930. HistogramFormatPARGB:
  12931. ChannelCount := 4;
  12932. HistogramFormatRGB:
  12933. ChannelCount := 3;
  12934. else
  12935. ChannelCount := 1;
  12936. end;
  12937. EntryCount := 0;
  12938. Channel0 := nil;
  12939. Channel1 := nil;
  12940. Channel2 := nil;
  12941. Channel3 := nil;
  12942. GdipCheck(GdipBitmapGetHistogramSize(Format, EntryCount));
  12943. if (EntryCount > 0) then
  12944. begin
  12945. GetMem(Channel0, EntryCount * SizeOf(Cardinal));
  12946. if (ChannelCount > 1) then
  12947. begin
  12948. GetMem(Channel1, EntryCount * SizeOf(Cardinal));
  12949. GetMem(Channel2, EntryCount * SizeOf(Cardinal));
  12950. if (ChannelCount > 3) then
  12951. GetMem(Channel3, EntryCount * SizeOf(Cardinal));
  12952. end;
  12953.  
  12954. try
  12955. GdipCheck(GdipBitmapGetHistogram(FNativeHandle, Format, EntryCount,
  12956. Channel0, Channel1, Channel2, Channel3));
  12957. except
  12958. FreeMem(Channel3);
  12959. FreeMem(Channel2);
  12960. FreeMem(Channel2);
  12961. FreeMem(Channel0);
  12962. Channel0 := nil;
  12963. Channel1 := nil;
  12964. Channel2 := nil;
  12965. Channel3 := nil;
  12966. end;
  12967. end;
  12968. Result := TGPHistogram.Create(ChannelCount, EntryCount, Channel0, Channel1, Channel2, Channel3);
  12969. end;
  12970. {$IFEND}
  12971.  
  12972. function TGPBitmap.GetPixel(const X, Y: Integer): TGPColor;
  12973. begin
  12974. GdipCheck(GdipBitmapGetPixel(FNativeHandle, X, Y, Result.FArgb));
  12975. end;
  12976.  
  12977. {$IF (GDIPVER >= $0110)}
  12978. class function TGPBitmap.InitializePalette(const ColorCount: Integer;
  12979. const PaletteType: TGPPaletteType; const OptimalColors: Integer;
  12980. const UseTransparentColor: Boolean; const Bitmap: IGPBitmap): IGPColorPalette;
  12981. var
  12982. NativePalette: PGPNativeColorPalette;
  12983. begin
  12984. GetMem(NativePalette, SizeOf(TGPNativeColorPalette) + ColorCount * SizeOf(ARGB));
  12985. NativePalette.Flags := [];
  12986. NativePalette.Count := ColorCount;
  12987. try
  12988. GdipCheck(GdipInitializePalette(NativePalette, PaletteType, OptimalColors,
  12989. UseTransparentColor, GdipHandle(Bitmap)));
  12990. except
  12991. FreeMem(NativePalette);
  12992. raise;
  12993. end;
  12994. Result := TGPColorPalette.Create(NativePalette);
  12995. end;
  12996. {$IFEND}
  12997.  
  12998. function TGPBitmap.LockBits(const Rect: TGPRect; const Mode: TGPImageLockMode;
  12999. const Format: TGPPixelFormat): TGPBitmapData;
  13000. begin
  13001. GdipCheck(GdipBitmapLockBits(FNativeHandle, @Rect, Mode, Format, Result));
  13002. end;
  13003.  
  13004. procedure TGPBitmap.SetPixel(const X, Y: Integer; const Value: TGPColor);
  13005. begin
  13006. GdipCheck(GdipBitmapSetPixel(FNativeHandle, X, Y, Value.Value));
  13007. end;
  13008.  
  13009. procedure TGPBitmap.SetResolution(const XDpi, YDpi: Single);
  13010. begin
  13011. GdipCheck(GdipBitmapSetResolution(FNativeHandle, XDpi, YDpi));
  13012. end;
  13013.  
  13014. procedure TGPBitmap.UnlockBits(const LockedBitmapData: TGPBitmapData);
  13015. begin
  13016. GdipCheck(GdipBitmapUnlockBits(FNativeHandle, LockedBitmapData));
  13017. end;
  13018. {$ENDREGION 'GdiplusBitmap.h'}
  13019.  
  13020. {$REGION 'GdiplusLineCaps.h'}
  13021.  
  13022. { TGPCustomLineCap }
  13023.  
  13024. function TGPCustomLineCap.Clone: IGPCustomLineCap;
  13025. var
  13026. NativeClone: GpCustomLineCap;
  13027. begin
  13028. NativeClone := nil;
  13029. GdipCheck(GdipCloneCustomLineCap(FNativeHandle, NativeClone));
  13030. Result := TGPCustomLineCap.Create(NativeClone);
  13031. end;
  13032.  
  13033. constructor TGPCustomLineCap.Create(const NativeLineCap: GpCustomLineCap);
  13034. begin
  13035. inherited Create;
  13036. FNativeHandle := NativeLineCap;
  13037. end;
  13038.  
  13039. constructor TGPCustomLineCap.Create(const FillPath, StrokePath: IGPGraphicsPath;
  13040. const BaseCap: TGPLineCap; const BaseInset: Single);
  13041. begin
  13042. inherited Create;
  13043. GdipCheck(GdipCreateCustomLineCap(GdipHandle(FillPath), GdipHandle(StrokePath),
  13044. BaseCap, BaseInset, FNativeHandle));
  13045. end;
  13046.  
  13047. destructor TGPCustomLineCap.Destroy;
  13048. begin
  13049. GdipDeleteCustomLineCap(FNativeHandle);
  13050. inherited;
  13051. end;
  13052.  
  13053. function TGPCustomLineCap.GetBaseCap: TGPLineCap;
  13054. begin
  13055. GdipCheck(GdipGetCustomLineCapBaseCap(FNativeHandle, Result));
  13056. end;
  13057.  
  13058. function TGPCustomLineCap.GetBaseInset: Single;
  13059. begin
  13060. GdipCheck(GdipGetCustomLineCapBaseInset(FNativeHandle, Result));
  13061. end;
  13062.  
  13063. procedure TGPCustomLineCap.GetStrokeCaps(out StartCap, EndCap: TGPLineCap);
  13064. begin
  13065. GdipCheck(GdipGetCustomLineCapStrokeCaps(FNativeHandle, StartCap, EndCap));
  13066. end;
  13067.  
  13068. function TGPCustomLineCap.GetStrokeJoin: TGPLineJoin;
  13069. begin
  13070. GdipCheck(GdipGetCustomLineCapStrokeJoin(FNativeHandle, Result));
  13071. end;
  13072.  
  13073. function TGPCustomLineCap.GetWidthScale: Single;
  13074. begin
  13075. GdipCheck(GdipGetCustomLineCapWidthScale(FNativeHandle, Result));
  13076. end;
  13077.  
  13078. procedure TGPCustomLineCap.SetBaseCap(const Value: TGPLineCap);
  13079. begin
  13080. GdipCheck(GdipSetCustomLineCapBaseCap(FNativeHandle, Value));
  13081. end;
  13082.  
  13083. procedure TGPCustomLineCap.SetBaseInset(const Value: Single);
  13084. begin
  13085. GdipCheck(GdipSetCustomLineCapBaseInset(FNativeHandle, Value));
  13086. end;
  13087.  
  13088. procedure TGPCustomLineCap.SetStrokeCap(const StrokeCap: TGPLineCap);
  13089. begin
  13090. SetStrokeCaps(StrokeCap, StrokeCap);
  13091. end;
  13092.  
  13093. procedure TGPCustomLineCap.SetStrokeCaps(const StartCap, EndCap: TGPLineCap);
  13094. begin
  13095. GdipCheck(GdipSetCustomLineCapStrokeCaps(FNativeHandle, StartCap, EndCap));
  13096. end;
  13097.  
  13098. procedure TGPCustomLineCap.SetStrokeJoin(const Value: TGPLineJoin);
  13099. begin
  13100. GdipCheck(GdipSetCustomLineCapStrokeJoin(FNativeHandle, Value));
  13101. end;
  13102.  
  13103. procedure TGPCustomLineCap.SetWidthScale(const Value: Single);
  13104. begin
  13105. GdipCheck(GdipSetCustomLineCapWidthScale(FNativeHandle, Value));
  13106. end;
  13107.  
  13108. { TGPAdjustableArrowCap }
  13109.  
  13110. constructor TGPAdjustableArrowCap.Create(const Height, Width: Single;
  13111. const IsFilled: Boolean);
  13112. begin
  13113. GdipCheck(GdipCreateAdjustableArrowCap(Height, Width, IsFilled, FNativeHandle));
  13114. end;
  13115.  
  13116. function TGPAdjustableArrowCap.GetFilled: Boolean;
  13117. var
  13118. B: Bool;
  13119. begin
  13120. GdipCheck(GdipGetAdjustableArrowCapFillState(FNativeHandle, B));
  13121. Result := B;
  13122. end;
  13123.  
  13124. function TGPAdjustableArrowCap.GetHeight: Single;
  13125. begin
  13126. GdipCheck(GdipGetAdjustableArrowCapHeight(FNativeHandle, Result));
  13127. end;
  13128.  
  13129. function TGPAdjustableArrowCap.GetMiddleInset: Single;
  13130. begin
  13131. GdipCheck(GdipGetAdjustableArrowCapMiddleInset(FNativeHandle, Result));
  13132. end;
  13133.  
  13134. function TGPAdjustableArrowCap.GetWidth: Single;
  13135. begin
  13136. GdipCheck(GdipGetAdjustableArrowCapWidth(FNativeHandle, Result));
  13137. end;
  13138.  
  13139. procedure TGPAdjustableArrowCap.SetFilled(const Value: Boolean);
  13140. begin
  13141. GdipCheck(GdipSetAdjustableArrowCapFillState(FNativeHandle, Value));
  13142. end;
  13143.  
  13144. procedure TGPAdjustableArrowCap.SetHeight(const Value: Single);
  13145. begin
  13146. GdipCheck(GdipSetAdjustableArrowCapHeight(FNativeHandle, Value));
  13147. end;
  13148.  
  13149. procedure TGPAdjustableArrowCap.SetMiddleInset(const Value: Single);
  13150. begin
  13151. GdipCheck(GdipSetAdjustableArrowCapMiddleInset(FNativeHandle, Value));
  13152. end;
  13153.  
  13154. procedure TGPAdjustableArrowCap.SetWidth(const Value: Single);
  13155. begin
  13156. GdipCheck(GdipSetAdjustableArrowCapWidth(FNativeHandle, Value));
  13157. end;
  13158. {$ENDREGION 'GdiplusLineCaps.h'}
  13159.  
  13160. {$REGION 'GdiplusCachedBitmap.h'}
  13161.  
  13162. { TGPCachedBitmap }
  13163.  
  13164. constructor TGPCachedBitmap.Create(const Bitmap: IGPBitmap;
  13165. const Graphics: IGPGraphics);
  13166. begin
  13167. inherited Create;
  13168. GdipCheck(GdipCreateCachedBitmap(Bitmap.NativeHandle, Graphics.NativeHandle, FNativeHandle));
  13169. end;
  13170.  
  13171. destructor TGPCachedBitmap.Destroy;
  13172. begin
  13173. GdipDeleteCachedBitmap(FNativeHandle);
  13174. inherited;
  13175. end;
  13176. {$ENDREGION 'GdiplusCachedBitmap.h'}
  13177.  
  13178. {$REGION 'GdiplusMetafile.h'}
  13179.  
  13180. { TGPMetafile }
  13181.  
  13182. {$IF (GDIPVER >= $0110)}
  13183. procedure TGPMetafile.ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  13184. const ConversionFailureFlag: PInteger; const EmfType: TGPEmfType;
  13185. const Description: String);
  13186. var
  13187. Metafile: GpMetafile;
  13188. begin
  13189. Metafile := nil;
  13190. GdipCheck(GdipConvertToEmfPlus(RefGraphics.NativeHandle, FNativeHandle,
  13191. ConversionFailureFlag, EmfType, PWideChar(Description), Metafile));
  13192. GdipDisposeImage(FNativeHandle);
  13193. FNativeHandle := Metafile;
  13194. end;
  13195.  
  13196. procedure TGPMetafile.ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  13197. const Filename: String; const ConversionFailureFlag: PInteger;
  13198. const EmfType: TGPEmfType; const Description: String);
  13199. var
  13200. Metafile: GpMetafile;
  13201. begin
  13202. Metafile := nil;
  13203. GdipCheck(GdipConvertToEmfPlusToFile(RefGraphics.NativeHandle, FNativeHandle,
  13204. ConversionFailureFlag, PWideChar(Filename), EmfType, PWideChar(Description), Metafile));
  13205. GdipDisposeImage(FNativeHandle);
  13206. FNativeHandle := Metafile;
  13207. end;
  13208.  
  13209. procedure TGPMetafile.ConvertToEmfPlus(const RefGraphics: IGPGraphics;
  13210. const Stream: IStream; const ConversionFailureFlag: PInteger;
  13211. const EmfType: TGPEmfType; const Description: String);
  13212. var
  13213. Metafile: GpMetafile;
  13214. begin
  13215. Metafile := nil;
  13216. GdipCheck(GdipConvertToEmfPlusToStream(RefGraphics.NativeHandle, FNativeHandle,
  13217. ConversionFailureFlag, Stream, EmfType, PWideChar(Description), Metafile));
  13218. GdipDisposeImage(FNativeHandle);
  13219. FNativeHandle := Metafile;
  13220. end;
  13221. {$IFEND}
  13222.  
  13223. constructor TGPMetafile.Create(const Filename: String;
  13224. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader);
  13225. begin
  13226. inherited Create;
  13227. GdipCheck(GdipCreateMetafileFromWmfFile(PWideChar(Filename), WmfPlaceableFileHeader, FNativeHandle));
  13228. end;
  13229.  
  13230. constructor TGPMetafile.Create(const Stream: IStream);
  13231. begin
  13232. inherited Create;
  13233. GdipCheck(GdipCreateMetafileFromStream(Stream, FNativeHandle));
  13234. end;
  13235.  
  13236. constructor TGPMetafile.Create(const ReferenceDC: HDC; const EmfType: TGPEmfType;
  13237. const Description: String);
  13238. begin
  13239. inherited Create;
  13240. GdipCheck(GdipRecordMetafile(ReferenceDC, EmfType, nil, MetafileFrameUnitGdi,
  13241. PWideChar(Description), FNativeHandle));
  13242. end;
  13243.  
  13244. constructor TGPMetafile.Create(const Filename: String);
  13245. begin
  13246. inherited Create;
  13247. GdipCheck(GdipCreateMetafileFromFile(PWideChar(Filename), FNativeHandle));
  13248. end;
  13249.  
  13250. constructor TGPMetafile.Create(const Wmf: HMetafile;
  13251. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader;
  13252. const DeleteWmf: Boolean);
  13253. begin
  13254. inherited Create;
  13255. GdipCheck(GdipCreateMetafileFromWmf(Wmf, DeleteWmf, WmfPlaceableFileHeader, FNativeHandle));
  13256. end;
  13257.  
  13258. constructor TGPMetafile.Create(const Emf: HEnhMetafile; const DeleteEmf: Boolean);
  13259. begin
  13260. inherited Create;
  13261. GdipCheck(GdipCreateMetafileFromEmf(Emf, DeleteEmf, FNativeHandle));
  13262. end;
  13263.  
  13264. constructor TGPMetafile.Create(const ReferenceDC: HDC; const FrameRect: TGPRectF;
  13265. const FrameUnit: TGPMetafileFrameUnit; const EmfType: TGPEmfType;
  13266. const Description: String);
  13267. begin
  13268. inherited Create;
  13269. GdipCheck(GdipRecordMetafile(ReferenceDC, EmfType, @FrameRect, FrameUnit,
  13270. PWideChar(Description), FNativeHandle));
  13271. end;
  13272.  
  13273. constructor TGPMetafile.Create(const Stream: IStream; const ReferenceDC: HDC;
  13274. const EmfType: TGPEmfType; const Description: String);
  13275. begin
  13276. inherited Create;
  13277. GdipCheck(GdipRecordMetafileStream(Stream, ReferenceDC, EmfType, nil,
  13278. MetafileFrameUnitGdi, PWideChar(Description), FNativeHandle));
  13279. end;
  13280.  
  13281. constructor TGPMetafile.Create(const Stream: IStream; const ReferenceDC: HDC;
  13282. const FrameRect: TGPRectF; const FrameUnit: TGPMetafileFrameUnit;
  13283. const EmfType: TGPEmfType; const Description: String);
  13284. begin
  13285. inherited Create;
  13286. GdipCheck(GdipRecordMetafileStream(Stream, ReferenceDC, EmfType, @FrameRect,
  13287. FrameUnit, PWideChar(Description), FNativeHandle));
  13288. end;
  13289.  
  13290. constructor TGPMetafile.Create(const Stream: IStream; const ReferenceDC: HDC;
  13291. const FrameRect: TGPRect; const FrameUnit: TGPMetafileFrameUnit;
  13292. const EmfType: TGPEmfType; const Description: String);
  13293. begin
  13294. inherited Create;
  13295. GdipCheck(GdipRecordMetafileStreamI(Stream, ReferenceDC, EmfType, @FrameRect,
  13296. FrameUnit, PWideChar(Description), FNativeHandle));
  13297. end;
  13298.  
  13299. constructor TGPMetafile.Create(const Filename: String; const ReferenceDC: HDC;
  13300. const FrameRect: TGPRect; const FrameUnit: TGPMetafileFrameUnit;
  13301. const EmfType: TGPEmfType; const Description: String);
  13302. begin
  13303. inherited Create;
  13304. GdipCheck(GdipRecordMetafileFileNameI(PWideChar(Filename), ReferenceDC,
  13305. EmfType, @FrameRect, FrameUnit, PWideChar(Description), FNativeHandle));
  13306. end;
  13307.  
  13308. constructor TGPMetafile.Create(const ReferenceDC: HDC; const FrameRect: TGPRect;
  13309. const FrameUnit: TGPMetafileFrameUnit; const EmfType: TGPEmfType;
  13310. const Description: String);
  13311. begin
  13312. inherited Create;
  13313. GdipCheck(GdipRecordMetafileI(ReferenceDC, EmfType, @FrameRect, FrameUnit,
  13314. PWideChar(Description), FNativeHandle));
  13315. end;
  13316.  
  13317. constructor TGPMetafile.Create(const Filename: String; const ReferenceDC: HDC;
  13318. const EmfType: TGPEmfType; const Description: String);
  13319. begin
  13320. inherited Create;
  13321. GdipCheck(GdipRecordMetafileFileName(PWideChar(Filename), ReferenceDC,
  13322. EmfType, nil, MetafileFrameUnitGdi, PWideChar(Description), FNativeHandle));
  13323. end;
  13324.  
  13325. constructor TGPMetafile.Create(const Filename: String; const ReferenceDC: HDC;
  13326. const FrameRect: TGPRectF; const FrameUnit: TGPMetafileFrameUnit;
  13327. const EmfType: TGPEmfType; const Description: String);
  13328. begin
  13329. inherited Create;
  13330. GdipCheck(GdipRecordMetafileFileName(PWideChar(Filename), ReferenceDC,
  13331. EmfType, @FrameRect, FrameUnit, PWideChar(Description), FNativeHandle));
  13332. end;
  13333.  
  13334. class function TGPMetafile.EmfToWmfBits(const Emf: HEnhMetafile;
  13335. const MapMode: Integer; const Flags: TGPEmfToWmfBitsFlags): IGPBuffer;
  13336. var
  13337. Data: Pointer;
  13338. Size: Integer;
  13339. begin
  13340. Data := nil;
  13341. Size := GdipEmfToWmfBits(Emf, 0, nil, MapMode, Flags);
  13342. if (Size > 0) then
  13343. begin
  13344. GetMem(Data, Size);
  13345. GdipEmfToWmfBits(Emf, Size, Data, MapMode, Flags);
  13346. end;
  13347. Result := TGPBuffer.Create(Data, Size);
  13348. end;
  13349.  
  13350. function TGPMetafile.GetDownLevelRasterizationLimit: Cardinal;
  13351. begin
  13352. GdipCheck(GdipGetMetafileDownLevelRasterizationLimit(FNativeHandle, Result));
  13353. end;
  13354.  
  13355. function TGPMetafile.GetHEnhMetafile: HEnhMetafile;
  13356. begin
  13357. GdipCheck(GdipGetHemfFromMetafile(FNativeHandle, Result));
  13358. end;
  13359.  
  13360. class function TGPMetafile.GetMetafileHeader(
  13361. const Emf: HEnhMetafile): TGPMetafileHeader;
  13362. begin
  13363. GdipCheck(GdipGetMetafileHeaderFromEmf(Emf, Result));
  13364. end;
  13365.  
  13366. class function TGPMetafile.GetMetafileHeader(const Wmf: HMetafile;
  13367. const WmfPlaceableFileHeader: TWmfPlaceableFileHeader): TGPMetafileHeader;
  13368. begin
  13369. GdipCheck(GdipGetMetafileHeaderFromWmf(Wmf, WmfPlaceableFileHeader, Result));
  13370. end;
  13371.  
  13372. function TGPMetafile.GetMetafileHeader: TGPMetafileHeader;
  13373. begin
  13374. GdipCheck(GdipGetMetafileHeaderFromMetafile(FNativeHandle, Result));
  13375. end;
  13376.  
  13377. class function TGPMetafile.GetMetafileHeader(
  13378. const Filename: String): TGPMetafileHeader;
  13379. begin
  13380. GdipCheck(GdipGetMetafileHeaderFromFile(PWideChar(Filename), Result));
  13381. end;
  13382.  
  13383. class function TGPMetafile.GetMetafileHeader(
  13384. const Stream: IStream): TGPMetafileHeader;
  13385. begin
  13386. GdipCheck(GdipGetMetafileHeaderFromStream(Stream, Result));
  13387. end;
  13388.  
  13389. procedure TGPMetafile.PlayRecord(const RecordType: TEmfPlusRecordType;
  13390. const Flags, DataSize: Integer; const Data: Pointer);
  13391. begin
  13392. GdipCheck(GdipPlayMetafileRecord(FNativeHandle, RecordType, Flags, DataSize, Data));
  13393. end;
  13394.  
  13395. procedure TGPMetafile.SetDownLevelRasterizationLimit(const Value: Cardinal);
  13396. begin
  13397. GdipCheck(GdipSetMetafileDownLevelRasterizationLimit(FNativeHandle, Value));
  13398. end;
  13399. {$ENDREGION 'GdiplusMetafile.h'}
  13400.  
  13401. {$REGION 'GdiplusImageAttributes.h'}
  13402.  
  13403. { TGPImageAttributes }
  13404.  
  13405. procedure TGPImageAttributes.ClearBrushRemapTable;
  13406. begin
  13407. ClearRemapTable(ColorAdjustTypeBrush);
  13408. end;
  13409.  
  13410. procedure TGPImageAttributes.ClearColorKey(const AdjustType: TGPColorAdjustType);
  13411. begin
  13412. GdipCheck(GdipSetImageAttributesColorKeys(FNativeHandle, AdjustType, False,
  13413. 0, 0));
  13414. end;
  13415.  
  13416. procedure TGPImageAttributes.ClearColorMatrices(
  13417. const AdjustType: TGPColorAdjustType);
  13418. begin
  13419. GdipCheck(GdipSetImageAttributesColorMatrix(FNativeHandle, AdjustType,
  13420. False, nil, nil, ColorMatrixFlagsDefault));
  13421. end;
  13422.  
  13423. procedure TGPImageAttributes.ClearColorMatrix(const AdjustType: TGPColorAdjustType);
  13424. begin
  13425. GdipCheck(GdipSetImageAttributesColorMatrix(FNativeHandle, AdjustType,
  13426. False, nil, nil, ColorMatrixFlagsDefault));
  13427. end;
  13428.  
  13429. procedure TGPImageAttributes.ClearGamma(const AdjustType: TGPColorAdjustType);
  13430. begin
  13431. GdipCheck(GdipSetImageAttributesGamma(FNativeHandle, AdjustType,
  13432. False, 0));
  13433. end;
  13434.  
  13435. procedure TGPImageAttributes.ClearNoOp(const AdjustType: TGPColorAdjustType);
  13436. begin
  13437. GdipCheck(GdipSetImageAttributesNoOp(FNativeHandle, AdjustType, False));
  13438. end;
  13439.  
  13440. procedure TGPImageAttributes.ClearOutputChannel(
  13441. const AdjustType: TGPColorAdjustType);
  13442. begin
  13443. GdipCheck(GdipSetImageAttributesOutputChannel(FNativeHandle, AdjustType, False,
  13444. ColorChannelFlagsLast));
  13445. end;
  13446.  
  13447. procedure TGPImageAttributes.ClearOutputChannelColorProfile(
  13448. const AdjustType: TGPColorAdjustType);
  13449. begin
  13450. GdipCheck(GdipSetImageAttributesOutputChannelColorProfile(FNativeHandle,
  13451. AdjustType, False, nil));
  13452. end;
  13453.  
  13454. procedure TGPImageAttributes.ClearRemapTable(const AdjustType: TGPColorAdjustType);
  13455. begin
  13456. GdipCheck(GdipSetImageAttributesRemapTable(FNativeHandle, AdjustType, False,
  13457. 0, nil));
  13458. end;
  13459.  
  13460. procedure TGPImageAttributes.ClearThreshold(const AdjustType: TGPColorAdjustType);
  13461. begin
  13462. GdipCheck(GdipSetImageAttributesThreshold(FNativeHandle, AdjustType,
  13463. False, 0));
  13464. end;
  13465.  
  13466. function TGPImageAttributes.Clone: IGPImageAttributes;
  13467. var
  13468. NativeClone: GpImageAttributes;
  13469. begin
  13470. GdipCheck(GdipCloneImageAttributes(FNativeHandle, NativeClone));
  13471. Result := TGPImageAttributes.Create(NativeClone);
  13472. end;
  13473.  
  13474. constructor TGPImageAttributes.Create(const NativeAttributes: GpImageAttributes);
  13475. begin
  13476. inherited Create;
  13477. FNativeHandle := NativeAttributes;
  13478. end;
  13479.  
  13480. constructor TGPImageAttributes.Create;
  13481. begin
  13482. inherited Create;
  13483. GdipCheck(GdipCreateImageAttributes(FNativeHandle));
  13484. end;
  13485.  
  13486. destructor TGPImageAttributes.Destroy;
  13487. begin
  13488. GdipDisposeImageAttributes(FNativeHandle);
  13489. inherited;
  13490. end;
  13491.  
  13492. procedure TGPImageAttributes.GetAdjustedPalette(const ColorPalette: IGPColorPalette;
  13493. const ColorAdjustType: TGPColorAdjustType);
  13494. begin
  13495. Assert(Assigned(ColorPalette));
  13496. GdipCheck(GdipGetImageAttributesAdjustedPalette(FNativeHandle,
  13497. ColorPalette.NativePalette, ColorAdjustType));
  13498. end;
  13499.  
  13500. procedure TGPImageAttributes.Reset(const AdjustType: TGPColorAdjustType);
  13501. begin
  13502. GdipCheck(GdipResetImageAttributes(FNativeHandle, AdjustType));
  13503. end;
  13504.  
  13505. procedure TGPImageAttributes.SetBrushRemapTable(const Map: array of TGPColorMap);
  13506. begin
  13507. SetRemapTable(Map, ColorAdjustTypeBrush);
  13508. end;
  13509.  
  13510. procedure TGPImageAttributes.SetColorKey(const ColorLow, ColorHigh: TGPColor;
  13511. const AdjustType: TGPColorAdjustType);
  13512. begin
  13513. GdipCheck(GdipSetImageAttributesColorKeys(FNativeHandle, AdjustType, True,
  13514. ColorLow.Value, ColorHigh.Value));
  13515. end;
  13516.  
  13517. procedure TGPImageAttributes.SetColorMatrices(const ColorMatrix,
  13518. GrayMatrix: TGPColorMatrix; const Mode: TGPColorMatrixFlags;
  13519. const AdjustType: TGPColorAdjustType);
  13520. begin
  13521. GdipCheck(GdipSetImageAttributesColorMatrix(FNativeHandle, AdjustType,
  13522. True, @ColorMatrix, @GrayMatrix, Mode));
  13523. end;
  13524.  
  13525. procedure TGPImageAttributes.SetColorMatrix(const ColorMatrix: TGPColorMatrix;
  13526. const Mode: TGPColorMatrixFlags; const AdjustType: TGPColorAdjustType);
  13527. begin
  13528. GdipCheck(GdipSetImageAttributesColorMatrix(FNativeHandle, AdjustType,
  13529. True, @ColorMatrix, nil, Mode));
  13530. end;
  13531.  
  13532. procedure TGPImageAttributes.SetGamma(const Gamma: Single;
  13533. const AdjustType: TGPColorAdjustType);
  13534. begin
  13535. GdipCheck(GdipSetImageAttributesGamma(FNativeHandle, AdjustType,
  13536. True, Gamma));
  13537. end;
  13538.  
  13539. procedure TGPImageAttributes.SetNoOp(const AdjustType: TGPColorAdjustType);
  13540. begin
  13541. GdipCheck(GdipSetImageAttributesNoOp(FNativeHandle, AdjustType, True));
  13542. end;
  13543.  
  13544. procedure TGPImageAttributes.SetOutputChannel(
  13545. const ChannelFlags: TGPColorChannelFlags; const AdjustType: TGPColorAdjustType);
  13546. begin
  13547. GdipCheck(GdipSetImageAttributesOutputChannel(FNativeHandle, AdjustType, True,
  13548. ChannelFlags));
  13549. end;
  13550.  
  13551. procedure TGPImageAttributes.SetOutputChannelColorProfile(
  13552. const ColorProfileFilename: String; const AdjustType: TGPColorAdjustType);
  13553. begin
  13554. GdipCheck(GdipSetImageAttributesOutputChannelColorProfile(FNativeHandle,
  13555. AdjustType, True, PWideChar(ColorProfileFilename)));
  13556. end;
  13557.  
  13558. procedure TGPImageAttributes.SetRemapTable(const Map: array of TGPColorMap;
  13559. const AdjustType: TGPColorAdjustType);
  13560. begin
  13561. Assert(Length(Map) > 0);
  13562. GdipCheck(GdipSetImageAttributesRemapTable(FNativeHandle, AdjustType, True,
  13563. Length(Map), @Map[0]));
  13564. end;
  13565.  
  13566. procedure TGPImageAttributes.SetThreshold(const Threshold: Single;
  13567. const AdjustType: TGPColorAdjustType);
  13568. begin
  13569. GdipCheck(GdipSetImageAttributesThreshold(FNativeHandle, AdjustType,
  13570. True, Threshold));
  13571. end;
  13572.  
  13573. procedure TGPImageAttributes.SetToIdentity(const AdjustType: TGPColorAdjustType);
  13574. begin
  13575. GdipCheck(GdipSetImageAttributesToIdentity(FNativeHandle, AdjustType));
  13576. end;
  13577.  
  13578. procedure TGPImageAttributes.SetWrapMode(const Wrap: TGPWrapMode;
  13579. const Color: TGPColor; const Clamp: Boolean);
  13580. begin
  13581. GdipCheck(GdipSetImageAttributesWrapMode(FNativeHandle, Wrap, Color.Value,
  13582. Clamp));
  13583. end;
  13584.  
  13585. procedure TGPImageAttributes.SetWrapMode(const Wrap: TGPWrapMode);
  13586. var
  13587. Color: TGPColor;
  13588. begin
  13589. Color := TGPColor.Black;
  13590. SetWrapMode(Wrap, Color);
  13591. end;
  13592.  
  13593. {$ENDREGION 'GdiplusImageAttributes.h'}
  13594.  
  13595. {$REGION 'GdiplusMatrix.h'}
  13596.  
  13597. { TGPMatrix }
  13598.  
  13599. function TGPMatrix.Clone: IGPMatrix;
  13600. var
  13601. NativeClone: GpMatrix;
  13602. begin
  13603. NativeClone := nil;
  13604. GdipCheck(GdipCloneMatrix(FNativeHandle, NativeClone));
  13605. Result := TGPMatrix.Create(NativeClone);
  13606. end;
  13607.  
  13608. constructor TGPMatrix.Create;
  13609. begin
  13610. inherited Create;
  13611. GdipCheck(GdipCreateMatrix(FNativeHandle));
  13612. end;
  13613.  
  13614. constructor TGPMatrix.Create(const NativeMatrix: GpMatrix);
  13615. begin
  13616. inherited Create;
  13617. FNativeHandle := NativeMatrix;
  13618. end;
  13619.  
  13620. constructor TGPMatrix.Create(const Rect: TGPRect; const DstPlg: TGPPlgPoints);
  13621. begin
  13622. inherited Create;
  13623. GdipCheck(GdipCreateMatrix3I(@Rect, @DstPlg, FNativeHandle));
  13624. end;
  13625.  
  13626. constructor TGPMatrix.Create(const Rect: TGPRectF; const DstPlg: TGPPlgPointsF);
  13627. begin
  13628. inherited Create;
  13629. GdipCheck(GdipCreateMatrix3(@Rect, @DstPlg, FNativeHandle));
  13630. end;
  13631.  
  13632. constructor TGPMatrix.Create(const M11, M12, M21, M22, DX, DY: Single);
  13633. begin
  13634. inherited Create;
  13635. GdipCheck(GdipCreateMatrix2(M11, M12, M21, M22, DX, DY, FNativeHandle));
  13636. end;
  13637.  
  13638. destructor TGPMatrix.Destroy;
  13639. begin
  13640. GdipDeleteMatrix(FNativeHandle);
  13641. inherited;
  13642. end;
  13643.  
  13644. function TGPMatrix.Equals(const Matrix: IGPMatrix): Boolean;
  13645. var
  13646. B: Bool;
  13647. begin
  13648. B := False;
  13649. GdipCheck(GdipIsMatrixEqual(FNativeHandle, Matrix.NativeHandle, B));
  13650. Result := B;
  13651. end;
  13652.  
  13653. function TGPMatrix.GetElements: TGPMatrixElements;
  13654. begin
  13655. GdipCheck(GdipGetMatrixElements(FNativeHandle, @Result.M[0]));
  13656. end;
  13657.  
  13658. function TGPMatrix.GetIsIdentity: Boolean;
  13659. var
  13660. B: Bool;
  13661. begin
  13662. B := False;
  13663. GdipCheck(GdipIsMatrixIdentity(FNativeHandle, B));
  13664. Result := B;
  13665. end;
  13666.  
  13667. function TGPMatrix.GetIsInvertible: Boolean;
  13668. var
  13669. B: Bool;
  13670. begin
  13671. B := False;
  13672. GdipCheck(GdipIsMatrixInvertible(FNativeHandle, B));
  13673. Result := B;
  13674. end;
  13675.  
  13676. function TGPMatrix.GetOffsetX: Single;
  13677. var
  13678. Elements: TGPMatrixElements;
  13679. begin
  13680. Elements := GetElements;
  13681. Result := Elements.DX;
  13682. end;
  13683.  
  13684. function TGPMatrix.GetOffsetY: Single;
  13685. var
  13686. Elements: TGPMatrixElements;
  13687. begin
  13688. Elements := GetElements;
  13689. Result := Elements.DY;
  13690. end;
  13691.  
  13692. procedure TGPMatrix.Invert;
  13693. begin
  13694. GdipCheck(GdipInvertMatrix(FNativeHandle));
  13695. end;
  13696.  
  13697. procedure TGPMatrix.Multiply(const Matrix: IGPMatrix; const Order: TGPMatrixOrder);
  13698. begin
  13699. GdipCheck(GdipMultiplyMatrix(FNativeHandle, Matrix.NativeHandle, Order));
  13700. end;
  13701.  
  13702. procedure TGPMatrix.Reset;
  13703. begin
  13704. GdipCheck(GdipSetMatrixElements(FNativeHandle, 1, 0, 0, 1, 0, 0));
  13705. end;
  13706.  
  13707. procedure TGPMatrix.Rotate(const Angle: Single; const Order: TGPMatrixOrder);
  13708. begin
  13709. GdipCheck(GdipRotateMatrix(FNativeHandle, Angle, Order));
  13710. end;
  13711.  
  13712. procedure TGPMatrix.RotateAt(const Angle: Single; const Center: TGPPointF;
  13713. const Order: TGPMatrixOrder);
  13714. begin
  13715. if (Order = MatrixOrderPrepend) then
  13716. begin
  13717. GdipCheck(GdipTranslateMatrix(FNativeHandle, Center.X, Center.Y, Order));
  13718. GdipCheck(GdipRotateMatrix(FNativeHandle, Angle, Order));
  13719. GdipCheck(GdipTranslateMatrix(FNativeHandle, -Center.X, -Center.Y, Order));
  13720. end
  13721. else
  13722. begin
  13723. GdipCheck(GdipTranslateMatrix(FNativeHandle, -Center.X, -Center.Y, Order));
  13724. GdipCheck(GdipRotateMatrix(FNativeHandle, Angle, Order));
  13725. GdipCheck(GdipTranslateMatrix(FNativeHandle, Center.X, Center.Y, Order));
  13726. end;
  13727. end;
  13728.  
  13729. procedure TGPMatrix.Scale(const ScaleX, ScaleY: Single;
  13730. const Order: TGPMatrixOrder);
  13731. begin
  13732. GdipCheck(GdipScaleMatrix(FNativeHandle, ScaleX, ScaleY, Order));
  13733. end;
  13734.  
  13735. procedure TGPMatrix.SetElements(const M11, M12, M21, M22, DX, DY: Single);
  13736. begin
  13737. GdipCheck(GdipSetMatrixElements(FNativeHandle, M11, M12, M21, M22, DX, DY));
  13738. end;
  13739.  
  13740. procedure TGPMatrix.SetElements(const Value: TGPMatrixElements);
  13741. begin
  13742. GdipCheck(GdipSetMatrixElements(FNativeHandle, Value.M11, Value.M12,
  13743. Value.M21, Value.M22, Value.DX, Value.DY));
  13744. end;
  13745.  
  13746. procedure TGPMatrix.Shear(const ShearX, ShearY: Single;
  13747. const Order: TGPMatrixOrder);
  13748. begin
  13749. GdipCheck(GdipShearMatrix(FNativeHandle, ShearX, ShearY, Order));
  13750. end;
  13751.  
  13752. procedure TGPMatrix.TransformPoint(var Point: TGPPointF);
  13753. begin
  13754. GdipCheck(GdipTransformMatrixPoints(FNativeHandle, @Point, 1));
  13755. end;
  13756.  
  13757. procedure TGPMatrix.TransformPoint(var Point: TGPPoint);
  13758. begin
  13759. GdipCheck(GdipTransformMatrixPointsI(FNativeHandle, @Point, 1));
  13760. end;
  13761.  
  13762. procedure TGPMatrix.TransformPoints(const Points: array of TGPPointF);
  13763. begin
  13764. Assert(Length(Points) > 0);
  13765. GdipCheck(GdipTransformMatrixPoints(FNativeHandle, @Points[0], Length(Points)));
  13766. end;
  13767.  
  13768. procedure TGPMatrix.TransformPoints(const Points: array of TGPPoint);
  13769. begin
  13770. Assert(Length(Points) > 0);
  13771. GdipCheck(GdipTransformMatrixPointsI(FNativeHandle, @Points[0], Length(Points)));
  13772. end;
  13773.  
  13774. procedure TGPMatrix.TransformVector(var Point: TGPPoint);
  13775. begin
  13776. GdipCheck(GdipVectorTransformMatrixPointsI(FNativeHandle, @Point, 1));
  13777. end;
  13778.  
  13779. procedure TGPMatrix.TransformVector(var Point: TGPPointF);
  13780. begin
  13781. GdipCheck(GdipVectorTransformMatrixPoints(FNativeHandle, @Point, 1));
  13782. end;
  13783.  
  13784. procedure TGPMatrix.TransformVectors(const Points: array of TGPPoint);
  13785. begin
  13786. Assert(Length(Points) > 0);
  13787. GdipCheck(GdipVectorTransformMatrixPointsI(FNativeHandle, @Points[0], Length(Points)));
  13788. end;
  13789.  
  13790. procedure TGPMatrix.TransformVectors(const Points: array of TGPPointF);
  13791. begin
  13792. Assert(Length(Points) > 0);
  13793. GdipCheck(GdipVectorTransformMatrixPoints(FNativeHandle, @Points[0], Length(Points)));
  13794. end;
  13795.  
  13796. procedure TGPMatrix.Translate(const OffsetX, OffsetY: Single;
  13797. const Order: TGPMatrixOrder);
  13798. begin
  13799. GdipCheck(GdipTranslateMatrix(FNativeHandle, OffsetX, OffsetY, Order));
  13800. end;
  13801. {$ENDREGION 'GdiplusMatrix.h'}
  13802.  
  13803. {$REGION 'GdiplusBrush.h'}
  13804.  
  13805. { TGPBrush }
  13806.  
  13807. function TGPBrush.Clone: IGPBrush;
  13808. var
  13809. NativeClone: GpBrush;
  13810. begin
  13811. GdipCheck(GdipCloneBrush(FNativeHandle, NativeClone));
  13812. Result := TGPBrush.Create(NativeClone);
  13813. end;
  13814.  
  13815. constructor TGPBrush.Create(const NativeBrush: GpBrush);
  13816. begin
  13817. inherited Create;
  13818. FNativeHandle := NativeBrush;
  13819. end;
  13820.  
  13821. constructor TGPBrush.Create;
  13822. begin
  13823. inherited Create;
  13824. end;
  13825.  
  13826. destructor TGPBrush.Destroy;
  13827. begin
  13828. GdipDeleteBrush(FNativeHandle);
  13829. inherited;
  13830. end;
  13831.  
  13832. function TGPBrush.GetType: TGPBrushType;
  13833. begin
  13834. Result := TGPBrushType(-1);
  13835. GdipCheck(GdipGetBrushType(FNativeHandle, Result));
  13836. end;
  13837.  
  13838. { TGPSolidBrush }
  13839.  
  13840. constructor TGPSolidBrush.Create(const Color: TGPColor);
  13841. begin
  13842. inherited Create;
  13843. GdipCheck(GdipCreateSolidFill(Color.Value, FNativeHandle));
  13844. end;
  13845.  
  13846. constructor TGPSolidBrush.Create;
  13847. begin
  13848. inherited Create;
  13849. end;
  13850.  
  13851. function TGPSolidBrush.GetColor: TGPColor;
  13852. begin
  13853. GdipCheck(GdipGetSolidFillColor(FNativeHandle, Result.FArgb));
  13854. end;
  13855.  
  13856. procedure TGPSolidBrush.SetColor(const Value: TGPColor);
  13857. begin
  13858. GdipCheck(GdipSetSolidFillColor(FNativeHandle, Value.FArgb));
  13859. end;
  13860.  
  13861. { TGPTextureBrush }
  13862.  
  13863. constructor TGPTextureBrush.Create(const Image: IGPImage; const WrapMode: TGPWrapMode;
  13864. const DstRect: TGPRect);
  13865. begin
  13866. inherited Create;
  13867. GdipCheck(GdipCreateTexture2I(Image.NativeHandle, WrapMode, DstRect.X,
  13868. DstRect.Y, DstRect.Width, DstRect.Height, FNativeHandle));
  13869. end;
  13870.  
  13871. constructor TGPTextureBrush.Create(const Image: IGPImage; const WrapMode: TGPWrapMode;
  13872. const DstRect: TGPRectF);
  13873. begin
  13874. inherited Create;
  13875. GdipCheck(GdipCreateTexture2(Image.NativeHandle, WrapMode, DstRect.X,
  13876. DstRect.Y, DstRect.Width, DstRect.Height, FNativeHandle));
  13877. end;
  13878.  
  13879. constructor TGPTextureBrush.Create(const Image: IGPImage;
  13880. const WrapMode: TGPWrapMode);
  13881. begin
  13882. inherited Create;
  13883. GdipCheck(GdipCreateTexture(Image.NativeHandle, WrapMode, FNativeHandle));
  13884. end;
  13885.  
  13886. constructor TGPTextureBrush.Create(const Image: IGPImage; const DstRect: TGPRectF;
  13887. const ImageAttributes: IGPImageAttributes);
  13888. begin
  13889. inherited Create;
  13890. GdipCheck(GdipCreateTextureIA(Image.NativeHandle, GdipHandle(ImageAttributes),
  13891. DstRect.X, DstRect.Y, DstRect.Width, DstRect.Height, FNativeHandle));
  13892. end;
  13893.  
  13894. constructor TGPTextureBrush.Create(const Image: IGPImage; const WrapMode: TGPWrapMode;
  13895. const DstX, DstY, DstWidth, DstHeight: Integer);
  13896. begin
  13897. inherited Create;
  13898. GdipCheck(GdipCreateTexture2I(Image.NativeHandle, WrapMode, DstX, DstY,
  13899. DstWidth, DstHeight, FNativeHandle));
  13900. end;
  13901.  
  13902. constructor TGPTextureBrush.Create;
  13903. begin
  13904. inherited Create;
  13905. end;
  13906.  
  13907. constructor TGPTextureBrush.Create(const Image: IGPImage; const WrapMode: TGPWrapMode;
  13908. const DstX, DstY, DstWidth, DstHeight: Single);
  13909. begin
  13910. inherited Create;
  13911. GdipCheck(GdipCreateTexture2(Image.NativeHandle, WrapMode, DstX, DstY,
  13912. DstWidth, DstHeight, FNativeHandle));
  13913. end;
  13914.  
  13915. constructor TGPTextureBrush.Create(const Image: IGPImage; const DstRect: TGPRect;
  13916. const ImageAttributes: IGPImageAttributes);
  13917. begin
  13918. inherited Create;
  13919. GdipCheck(GdipCreateTextureIAI(Image.NativeHandle, GdipHandle(ImageAttributes),
  13920. DstRect.X, DstRect.Y, DstRect.Width, DstRect.Height, FNativeHandle));
  13921. end;
  13922.  
  13923. function TGPTextureBrush.GetImage: IGPImage;
  13924. var
  13925. NativeImage: GpImage;
  13926. begin
  13927. GdipCheck(GdipGetTextureImage(FNativeHandle, NativeImage));
  13928. Result := TGPImage.Create(NativeImage);
  13929. end;
  13930.  
  13931. function TGPTextureBrush.GetTransform: IGPMatrix;
  13932. begin
  13933. Result := TGPMatrix.Create;
  13934. GdipCheck(GdipGetTextureTransform(FNativeHandle, Result.NativeHandle));
  13935. end;
  13936.  
  13937. function TGPTextureBrush.GetWrapMode: TGPWrapMode;
  13938. begin
  13939. GdipCheck(GdipGetTextureWrapMode(FNativeHandle, Result));
  13940. end;
  13941.  
  13942. procedure TGPTextureBrush.MultiplyTransform(const Matrix: IGPMatrix;
  13943. const Order: TGPMatrixOrder);
  13944. begin
  13945. GdipCheck(GdipMultiplyTextureTransform(FNativeHandle, Matrix.NativeHandle,
  13946. Order));
  13947. end;
  13948.  
  13949. procedure TGPTextureBrush.ResetTransform;
  13950. begin
  13951. GdipCheck(GdipResetTextureTransform(FNativeHandle));
  13952. end;
  13953.  
  13954. procedure TGPTextureBrush.RotateTransform(const Angle: Single;
  13955. const Order: TGPMatrixOrder);
  13956. begin
  13957. GdipCheck(GdipRotateTextureTransform(FNativeHandle, Angle, Order));
  13958. end;
  13959.  
  13960. procedure TGPTextureBrush.ScaleTransform(const SX, SY: Single;
  13961. const Order: TGPMatrixOrder);
  13962. begin
  13963. GdipCheck(GdipScaleTextureTransform(FNativeHandle, SX, SY, Order));
  13964. end;
  13965.  
  13966. procedure TGPTextureBrush.SetTransform(const Value: IGPMatrix);
  13967. begin
  13968. GdipCheck(GdipSetTextureTransform(FNativeHandle, Value.NativeHandle));
  13969. end;
  13970.  
  13971. procedure TGPTextureBrush.SetWrapMode(const Value: TGPWrapMode);
  13972. begin
  13973. GdipCheck(GdipSetTextureWrapMode(FNativeHandle, Value));
  13974. end;
  13975.  
  13976. procedure TGPTextureBrush.TranslateTransform(const DX, DY: Single;
  13977. const Order: TGPMatrixOrder);
  13978. begin
  13979. GdipCheck(GdipTranslateTextureTransform(FNativeHandle, DX, DY, Order));
  13980. end;
  13981.  
  13982. { TGPBlend }
  13983.  
  13984. constructor TGPBlend.Create(const ACount: Integer);
  13985. begin
  13986. inherited Create;
  13987. SetLength(FFactors, ACount);
  13988. SetLength(FPositions, ACount);
  13989. end;
  13990.  
  13991. constructor TGPBlend.Create(const AFactors, APositions: array of Single);
  13992. begin
  13993. Assert(Length(AFactors) > 0);
  13994. Assert(Length(APositions) = Length(AFactors));
  13995. Create(Length(AFactors));
  13996. Move(AFactors[0], FFactors[0], Length(AFactors) * SizeOf(Single));
  13997. Move(APositions[0], FPositions[0], Length(APositions) * SizeOf(Single));
  13998. end;
  13999.  
  14000. function TGPBlend.GetCount: Integer;
  14001. begin
  14002. Result := Length(FFactors);
  14003. end;
  14004.  
  14005. function TGPBlend.GetFactor(const Index: Integer): Single;
  14006. begin
  14007. Result := FFactors[Index];
  14008. end;
  14009.  
  14010. function TGPBlend.GetFactorPtr: PSingle;
  14011. begin
  14012. Result := @FFactors[0];
  14013. end;
  14014.  
  14015. function TGPBlend.GetPosition(const Index: Integer): Single;
  14016. begin
  14017. Result := FPositions[Index];
  14018. end;
  14019.  
  14020. function TGPBlend.GetPositionPtr: PSingle;
  14021. begin
  14022. Result := @FPositions[0];
  14023. end;
  14024.  
  14025. procedure TGPBlend.SetFactor(const Index: Integer; const Value: Single);
  14026. begin
  14027. FFactors[Index] := Value;
  14028. end;
  14029.  
  14030. procedure TGPBlend.SetPosition(const Index: Integer; const Value: Single);
  14031. begin
  14032. FPositions[Index] := Value;
  14033. end;
  14034.  
  14035. { TGPColorBlend }
  14036.  
  14037. constructor TGPColorBlend.Create(const ACount: Integer);
  14038. begin
  14039. inherited Create;
  14040. SetLength(FColors, ACount);
  14041. SetLength(FPositions, ACount);
  14042. end;
  14043.  
  14044. constructor TGPColorBlend.Create(const AColors: array of TGPColor;
  14045. const APositions: array of Single);
  14046. begin
  14047. Assert(Length(AColors) > 0);
  14048. Assert(Length(AColors) = Length(APositions));
  14049. Create(Length(AColors));
  14050. Move(AColors[0], FColors[0], Length(AColors) * SizeOf(TGPColor));
  14051. Move(APositions[0], FPositions[0], Length(APositions) * SizeOf(Single));
  14052. end;
  14053.  
  14054. function TGPColorBlend.GetColor(const Index: Integer): TGPColor;
  14055. begin
  14056. Result := FColors[Index];
  14057. end;
  14058.  
  14059. function TGPColorBlend.GetColorPtr: PGPColor;
  14060. begin
  14061. Result := @FColors[0];
  14062. end;
  14063.  
  14064. function TGPColorBlend.GetCount: Integer;
  14065. begin
  14066. Result := Length(FColors);
  14067. end;
  14068.  
  14069. function TGPColorBlend.GetPosition(const Index: Integer): Single;
  14070. begin
  14071. Result := FPositions[Index];
  14072. end;
  14073.  
  14074. function TGPColorBlend.GetPositionPtr: PSingle;
  14075. begin
  14076. Result := @FPositions[0];
  14077. end;
  14078.  
  14079. procedure TGPColorBlend.SetColor(const Index: Integer; const Value: TGPColor);
  14080. begin
  14081. FColors[Index] := Value;
  14082. end;
  14083.  
  14084. procedure TGPColorBlend.SetPosition(const Index: Integer; const Value: Single);
  14085. begin
  14086. FPositions[Index] := Value;
  14087. end;
  14088.  
  14089. { TGPLinearGradientBrush }
  14090.  
  14091. constructor TGPLinearGradientBrush.Create(const Rect: TGPRectF; const Color1,
  14092. Color2: TGPColor; const Mode: TGPLinearGradientMode);
  14093. begin
  14094. inherited Create;
  14095. GdipCheck(GdipCreateLineBrushFromRect(@Rect, Color1.Value, Color2.Value,
  14096. Mode, WrapModeTile, FNativeHandle));
  14097. end;
  14098.  
  14099. constructor TGPLinearGradientBrush.Create(const Rect: TGPRect; const Color1,
  14100. Color2: TGPColor; const Mode: TGPLinearGradientMode);
  14101. begin
  14102. inherited Create;
  14103. GdipCheck(GdipCreateLineBrushFromRectI(@Rect, Color1.Value, Color2.Value,
  14104. Mode, WrapModeTile, FNativeHandle));
  14105. end;
  14106.  
  14107. constructor TGPLinearGradientBrush.Create(const Point1, Point2: TGPPointF;
  14108. const Color1, Color2: TGPColor);
  14109. begin
  14110. inherited Create;
  14111. GdipCheck(GdipCreateLineBrush(@Point1, @Point2, Color1.Value, Color2.Value,
  14112. WrapModeTile, FNativeHandle));
  14113. end;
  14114.  
  14115. constructor TGPLinearGradientBrush.Create(const Point1, Point2: TGPPoint;
  14116. const Color1, Color2: TGPColor);
  14117. begin
  14118. inherited Create;
  14119. GdipCheck(GdipCreateLineBrushI(@Point1, @Point2, Color1.Value, Color2.Value,
  14120. WrapModeTile, FNativeHandle));
  14121. end;
  14122.  
  14123. constructor TGPLinearGradientBrush.Create(const Rect: TGPRectF; const Color1,
  14124. Color2: TGPColor; const Angle: Single; const IsAngleScalable: Boolean);
  14125. begin
  14126. inherited Create;
  14127. GdipCheck(GdipCreateLineBrushFromRectWithAngle(@Rect, Color1.Value, Color2.Value,
  14128. Angle, IsAngleScalable, WrapModeTile, FNativeHandle));
  14129. end;
  14130.  
  14131. constructor TGPLinearGradientBrush.Create(const Rect: TGPRect; const Color1,
  14132. Color2: TGPColor; const Angle: Single; const IsAngleScalable: Boolean);
  14133. begin
  14134. inherited Create;
  14135. GdipCheck(GdipCreateLineBrushFromRectWithAngleI(@Rect, Color1.Value, Color2.Value,
  14136. Angle, IsAngleScalable, WrapModeTile, FNativeHandle));
  14137. end;
  14138.  
  14139. constructor TGPLinearGradientBrush.Create;
  14140. begin
  14141. inherited Create;
  14142. end;
  14143.  
  14144. function TGPLinearGradientBrush.GetBlend: IGPBlend;
  14145. var
  14146. Count: Integer;
  14147. begin
  14148. Count := 0;
  14149. GdipCheck(GdipGetLineBlendCount(FNativeHandle, Count));
  14150. Result := TGPBlend.Create(Count);
  14151. if (Count > 0) then
  14152. GdipCheck(GdipGetLineBlend(FNativeHandle, Result.FactorPtr,
  14153. Result.PositionPtr, Count));
  14154. end;
  14155.  
  14156. function TGPLinearGradientBrush.GetGammaCorrection: Boolean;
  14157. var
  14158. B: Bool;
  14159. begin
  14160. GdipCheck(GdipGetLineGammaCorrection(FNativeHandle, B));
  14161. Result := B;
  14162. end;
  14163.  
  14164. function TGPLinearGradientBrush.GetInterpolationColors: IGPColorBlend;
  14165. var
  14166. Count: Integer;
  14167. begin
  14168. Count := 0;
  14169. GdipCheck(GdipGetLinePresetBlendCount(FNativeHandle, Count));
  14170. Result := TGPColorBlend.Create(Count);
  14171. if (Count > 0) then
  14172. GdipCheck(GdipGetLinePresetBlend(FNativeHandle, PARGB(Result.ColorPtr),
  14173. Result.PositionPtr, Count));
  14174. end;
  14175.  
  14176. function TGPLinearGradientBrush.GetLinearColors: TGPLinearColors;
  14177. begin
  14178. GdipCheck(GdipGetLineColors(FNativeHandle, @Result[0]));
  14179. end;
  14180.  
  14181. procedure TGPLinearGradientBrush.GetRectangle(out Rect: TGPRectF);
  14182. begin
  14183. GdipCheck(GdipGetLineRect(FNativeHandle, Rect));
  14184. end;
  14185.  
  14186. function TGPLinearGradientBrush.GetRectangle: TGPRectF;
  14187. begin
  14188. GdipCheck(GdipGetLineRect(FNativeHandle, Result));
  14189. end;
  14190.  
  14191. procedure TGPLinearGradientBrush.GetRectangle(out Rect: TGPRect);
  14192. begin
  14193. GdipCheck(GdipGetLineRectI(FNativeHandle, Rect));
  14194. end;
  14195.  
  14196. function TGPLinearGradientBrush.GetTransform: IGPMatrix;
  14197. begin
  14198. Result := TGPMatrix.Create;
  14199. GdipCheck(GdipGetLineTransform(FNativeHandle, Result.NativeHandle));
  14200. end;
  14201.  
  14202. function TGPLinearGradientBrush.GetWrapMode: TGPWrapMode;
  14203. begin
  14204. GdipCheck(GdipGetLineWrapMode(FNativeHandle, Result));
  14205. end;
  14206.  
  14207. procedure TGPLinearGradientBrush.MultiplyTransform(const Matrix: IGPMatrix;
  14208. const Order: TGPMatrixOrder);
  14209. begin
  14210. GdipCheck(GdipMultiplyLineTransform(FNativeHandle, Matrix.NativeHandle, Order));
  14211. end;
  14212.  
  14213. procedure TGPLinearGradientBrush.ResetTransform;
  14214. begin
  14215. GdipCheck(GdipResetLineTransform(FNativeHandle));
  14216. end;
  14217.  
  14218. procedure TGPLinearGradientBrush.RotateTransform(const Angle: Single;
  14219. const Order: TGPMatrixOrder);
  14220. begin
  14221. GdipCheck(GdipRotateLineTransform(FNativeHandle, Angle, Order));
  14222. end;
  14223.  
  14224. procedure TGPLinearGradientBrush.ScaleTransform(const SX, SY: Single;
  14225. const Order: TGPMatrixOrder);
  14226. begin
  14227. GdipCheck(GdipScaleLineTransform(FNativeHandle, SX, SY, Order));
  14228. end;
  14229.  
  14230. procedure TGPLinearGradientBrush.SetBlend(const Value: IGPBlend);
  14231. begin
  14232. Assert(Assigned(Value));
  14233. GdipCheck(GdipSetLineBlend(FNativeHandle, Value.FactorPtr,
  14234. Value.PositionPtr, Value.Count));
  14235. end;
  14236.  
  14237. procedure TGPLinearGradientBrush.SetBlendBellShape(const Focus, Scale: Single);
  14238. begin
  14239. GdipCheck(GdipSetLineSigmaBlend(FNativeHandle, Focus, Scale));
  14240. end;
  14241.  
  14242. procedure TGPLinearGradientBrush.SetBlendTriangularShape(const Focus,
  14243. Scale: Single);
  14244. begin
  14245. GdipCheck(GdipSetLineLinearBlend(FNativeHandle, Focus, Scale));
  14246. end;
  14247.  
  14248. procedure TGPLinearGradientBrush.SetGammaCorrection(const Value: Boolean);
  14249. begin
  14250. GdipCheck(GdipSetLineGammaCorrection(FNativeHandle, Value));
  14251. end;
  14252.  
  14253. procedure TGPLinearGradientBrush.SetInterpolationColors(const Value: IGPColorBlend);
  14254. begin
  14255. Assert(Assigned(Value));
  14256. GdipCheck(GdipSetLinePresetBlend(FNativeHandle, PARGB(Value.ColorPtr),
  14257. Value.PositionPtr, Value.Count));
  14258. end;
  14259.  
  14260. procedure TGPLinearGradientBrush.SetLinearColors(const Value: TGPLinearColors);
  14261. begin
  14262. GdipCheck(GdipSetLineColors(FNativeHandle, Value[0].Value, Value[1].Value));
  14263. end;
  14264.  
  14265. procedure TGPLinearGradientBrush.SetTransform(const Value: IGPMatrix);
  14266. begin
  14267. GdipCheck(GdipSetLineTransform(FNativeHandle, Value.NativeHandle));
  14268. end;
  14269.  
  14270. procedure TGPLinearGradientBrush.SetWrapMode(const Value: TGPWrapMode);
  14271. begin
  14272. GdipCheck(GdipSetLineWrapMode(FNativeHandle, Value));
  14273. end;
  14274.  
  14275. procedure TGPLinearGradientBrush.TranslateTransform(const DX, DY: Single;
  14276. const Order: TGPMatrixOrder);
  14277. begin
  14278. GdipCheck(GdipTranslateLineTransform(FNativeHandle, DX, DY, Order));
  14279. end;
  14280.  
  14281. { TGPHatchBrush }
  14282.  
  14283. constructor TGPHatchBrush.Create(const HatchStyle: TGPHatchStyle; const ForeColor,
  14284. BackColor: TGPColor);
  14285. begin
  14286. inherited Create;
  14287. GdipCheck(GdipCreateHatchBrush(HatchStyle, ForeColor.Value, BackColor.Value,
  14288. FNativeHandle));
  14289. end;
  14290.  
  14291. constructor TGPHatchBrush.Create(const HatchStyle: TGPHatchStyle;
  14292. const ForeColor: TGPColor);
  14293. begin
  14294. inherited Create;
  14295. GdipCheck(GdipCreateHatchBrush(HatchStyle, ForeColor.Value, TGPColor.Black,
  14296. FNativeHandle));
  14297. end;
  14298.  
  14299. constructor TGPHatchBrush.Create;
  14300. begin
  14301. inherited Create;
  14302. end;
  14303.  
  14304. function TGPHatchBrush.GetBackgroundColor: TGPColor;
  14305. begin
  14306. GdipCheck(GdipGetHatchBackgroundColor(FNativeHandle, Result.FArgb));
  14307. end;
  14308.  
  14309. function TGPHatchBrush.GetForegroundColor: TGPColor;
  14310. begin
  14311. GdipCheck(GdipGetHatchForegroundColor(FNativeHandle, Result.FArgb));
  14312. end;
  14313.  
  14314. function TGPHatchBrush.GetHatchStyle: TGPHatchStyle;
  14315. begin
  14316. GdipCheck(GdipGetHatchStyle(FNativeHandle, Result));
  14317. end;
  14318. {$ENDREGION 'GdiplusBrush.h'}
  14319.  
  14320. {$REGION 'GdiplusPen.h'}
  14321.  
  14322. { TGPPen }
  14323.  
  14324. function TGPPen.Clone: IGPPen;
  14325. var
  14326. NativeClone: GpPen;
  14327. begin
  14328. GdipCheck(GdipClonePen(FNativeHandle, NativeClone));
  14329. Result := TGPPen.Create(FNativeHandle);
  14330. end;
  14331.  
  14332. constructor TGPPen.Create(const Brush: IGPBrush; const Width: Single);
  14333. begin
  14334. inherited Create;
  14335. GdipCheck(GdipCreatePen2(Brush.NativeHandle, Width, UnitWorld, FNativeHandle));
  14336. end;
  14337.  
  14338. constructor TGPPen.Create(const Color: TGPColor; const Width: Single);
  14339. begin
  14340. inherited Create;
  14341. GdipCheck(GdipCreatePen1(Color.Value, Width, UnitWorld, FNativeHandle));
  14342. end;
  14343.  
  14344. constructor TGPPen.Create(const NativePen: GpPen);
  14345. begin
  14346. inherited Create;
  14347. FNativeHandle := NativePen;
  14348. end;
  14349.  
  14350. destructor TGPPen.Destroy;
  14351. begin
  14352. GdipDeletePen(FNativeHandle);
  14353. inherited;
  14354. end;
  14355.  
  14356. function TGPPen.GetAlignment: TGPPenAlignment;
  14357. begin
  14358. GdipCheck(GdipGetPenMode(FNativeHandle, Result));
  14359. end;
  14360.  
  14361. function TGPPen.GetBrush: IGPBrush;
  14362. var
  14363. PenType: TGPPenType;
  14364. NativeBrush: GpBrush;
  14365. begin
  14366. Result := nil;
  14367. GdipCheck(GdipGetPenFillType(FNativeHandle, PenType));
  14368. case PenType of
  14369. PenTypeSolidColor:
  14370. Result := TGPSolidBrush.Create;
  14371.  
  14372. PenTypeHatchFill:
  14373. Result := TGPHatchBrush.Create;
  14374.  
  14375. PenTypeTextureFill:
  14376. Result := TGPTextureBrush.Create;
  14377.  
  14378. PenTypePathGradient:
  14379. Result := TGPBrush.Create;
  14380.  
  14381. PenTypeLinearGradient:
  14382. Result := TGPLinearGradientBrush.Create;
  14383. end;
  14384.  
  14385. if Assigned(Result) then
  14386. begin
  14387. NativeBrush := nil;
  14388. GdipCheck(GdipGetPenBrushFill(FNativeHandle, NativeBrush));
  14389. Result.NativeHandle := NativeBrush;
  14390. end;
  14391. end;
  14392.  
  14393. function TGPPen.GetColor: TGPColor;
  14394. var
  14395. PenType: TGPPenType;
  14396. begin
  14397. GdipCheck(GdipGetPenFillType(FNativeHandle, PenType));
  14398. if (PenType <> PenTypeSolidColor) then
  14399. GdipCheck(WrongState);
  14400. GdipCheck(GdipGetPenColor(FNativeHandle, Result.FArgb));
  14401. end;
  14402.  
  14403. function TGPPen.GetCompoundArray: IGPCompoundArray;
  14404. var
  14405. Count: Integer;
  14406. begin
  14407. Count := 0;
  14408. GdipCheck(GdipGetPenCompoundCount(FNativeHandle, Count));
  14409. Result := TGPArray<Single>.Create(Count);
  14410. if (Count > 0) then
  14411. GdipCheck(GdipGetPenCompoundArray(FNativeHandle, Result.ItemPtr, Count));
  14412. end;
  14413.  
  14414. function TGPPen.GetCustomEndCap: IGPCustomLineCap;
  14415. var
  14416. NativeCap: GpCustomLineCap;
  14417. begin
  14418. NativeCap := nil;
  14419. GdipCheck(GdipGetPenCustomEndCap(FNativeHandle, NativeCap));
  14420. Result := TGPCustomLineCap.Create(NativeCap);
  14421. end;
  14422.  
  14423. function TGPPen.GetCustomStartCap: IGPCustomLineCap;
  14424. var
  14425. NativeCap: GpCustomLineCap;
  14426. begin
  14427. NativeCap := nil;
  14428. GdipCheck(GdipGetPenCustomStartCap(FNativeHandle, NativeCap));
  14429. Result := TGPCustomLineCap.Create(NativeCap);
  14430. end;
  14431.  
  14432. function TGPPen.GetDashCap: TGPDashCap;
  14433. begin
  14434. GdipCheck(GdipGetPenDashCap197819(FNativeHandle, Result));
  14435. end;
  14436.  
  14437. function TGPPen.GetDashOffset: Single;
  14438. begin
  14439. GdipCheck(GdipGetPenDashOffset(FNativeHandle, Result));
  14440. end;
  14441.  
  14442. function TGPPen.GetDashPattern: IGPDashPattern;
  14443. var
  14444. Count: Integer;
  14445. begin
  14446. Count := 0;
  14447. GdipCheck(GdipGetPenDashCount(FNativeHandle, Count));
  14448. Result := TGPArray<Single>.Create(Count);
  14449. if (Count > 0) then
  14450. GdipCheck(GdipGetPenDashArray(FNativeHandle, Result.ItemPtr, Count));
  14451. end;
  14452.  
  14453. function TGPPen.GetDashStyle: TGPDashStyle;
  14454. begin
  14455. GdipCheck(GdipGetPenDashStyle(FNativeHandle, Result));
  14456. end;
  14457.  
  14458. function TGPPen.GetEndCap: TGPLineCap;
  14459. begin
  14460. GdipCheck(GdipGetPenEndCap(FNativeHandle, Result));
  14461. end;
  14462.  
  14463. function TGPPen.GetLineJoin: TGPLineJoin;
  14464. begin
  14465. GdipCheck(GdipGetPenLineJoin(FNativeHandle, Result));
  14466. end;
  14467.  
  14468. function TGPPen.GetMiterLimit: Single;
  14469. begin
  14470. GdipCheck(GdipGetPenMiterLimit(FNativeHandle, Result));
  14471. end;
  14472.  
  14473. function TGPPen.GetPenType: TGPPenType;
  14474. begin
  14475. GdipCheck(GdipGetPenFillType(FNativeHandle, Result));
  14476. end;
  14477.  
  14478. function TGPPen.GetStartCap: TGPLineCap;
  14479. begin
  14480. GdipCheck(GdipGetPenStartCap(FNativeHandle, Result));
  14481. end;
  14482.  
  14483. function TGPPen.GetTransform: IGPMatrix;
  14484. begin
  14485. Result := TGPMatrix.Create;
  14486. GdipCheck(GdipGetPenTransform(FNativeHandle, Result.NativeHandle));
  14487. end;
  14488.  
  14489. function TGPPen.GetWidth: Single;
  14490. begin
  14491. GdipCheck(GdipGetPenWidth(FNativeHandle, Result));
  14492. end;
  14493.  
  14494. procedure TGPPen.MultiplyTransform(const Matrix: IGPMatrix;
  14495. const Order: TGPMatrixOrder);
  14496. begin
  14497. GdipCheck(GdipMultiplyPenTransform(FNativeHandle, Matrix.NativeHandle, Order));
  14498. end;
  14499.  
  14500. procedure TGPPen.ResetTransform;
  14501. begin
  14502. GdipCheck(GdipResetPenTransform(FNativeHandle));
  14503. end;
  14504.  
  14505. procedure TGPPen.RotateTransform(const Angle: Single; const Order: TGPMatrixOrder);
  14506. begin
  14507. GdipCheck(GdipRotatePenTransform(FNativeHandle, Angle, Order));
  14508. end;
  14509.  
  14510. procedure TGPPen.ScaleTransform(const SX, SY: Single; const Order: TGPMatrixOrder);
  14511. begin
  14512. GdipCheck(GdipScalePenTransform(FNativeHandle, SX, SY, Order));
  14513. end;
  14514.  
  14515. procedure TGPPen.SetAlignment(const Value: TGPPenAlignment);
  14516. begin
  14517. GdipCheck(GdipSetPenMode(FNativeHandle, Value));
  14518. end;
  14519.  
  14520. procedure TGPPen.SetBrush(const Value: IGPBrush);
  14521. begin
  14522. GdipCheck(GdipSetPenBrushFill(FNativeHandle, Value.NativeHandle));
  14523. end;
  14524.  
  14525. procedure TGPPen.SetColor(const Value: TGPColor);
  14526. begin
  14527. GdipCheck(GdipSetPenColor(FNativeHandle, Value.FArgb));
  14528. end;
  14529.  
  14530. procedure TGPPen.SetCompoundArray(const Value: IGPCompoundArray);
  14531. begin
  14532. Assert(Assigned(Value));
  14533. GdipCheck(GdipSetPenCompoundArray(FNativeHandle, Value.ItemPtr, Value.Count));
  14534. end;
  14535.  
  14536. procedure TGPPen.SetCustomEndCap(const Value: IGPCustomLineCap);
  14537. begin
  14538. GdipCheck(GdipSetPenCustomEndCap(FNativeHandle, GdipHandle(Value)));
  14539. end;
  14540.  
  14541. procedure TGPPen.SetCustomStartCap(const Value: IGPCustomLineCap);
  14542. begin
  14543. GdipCheck(GdipSetPenCustomStartCap(FNativeHandle, GdipHandle(Value)));
  14544. end;
  14545.  
  14546. procedure TGPPen.SetDashCap(const Value: TGPDashCap);
  14547. begin
  14548. GdipCheck(GdipSetPenDashCap197819(FNativeHandle, Value));
  14549. end;
  14550.  
  14551. procedure TGPPen.SetDashOffset(const Value: Single);
  14552. begin
  14553. GdipCheck(GdipSetPenDashOffset(FNativeHandle, Value));
  14554. end;
  14555.  
  14556. procedure TGPPen.SetDashPattern(const Pattern: array of Single);
  14557. begin
  14558. Assert(Length(Pattern) > 0);
  14559. GdipCheck(GdipSetPenDashArray(FNativeHandle, @Pattern[0], Length(Pattern)));
  14560. end;
  14561.  
  14562. procedure TGPPen.SetDashPatternInternal(const Value: IGPDashPattern);
  14563. begin
  14564. Assert(Assigned(Value));
  14565. GdipCheck(GdipSetPenDashArray(FNativeHandle, Value.ItemPtr, Value.Count));
  14566. end;
  14567.  
  14568. procedure TGPPen.SetDashStyle(const Value: TGPDashStyle);
  14569. begin
  14570. GdipCheck(GdipSetPenDashStyle(FNativeHandle, Value));
  14571. end;
  14572.  
  14573. procedure TGPPen.SetEndCap(const Value: TGPLineCap);
  14574. begin
  14575. GdipCheck(GdipSetPenEndCap(FNativeHandle, Value));
  14576. end;
  14577.  
  14578. procedure TGPPen.SetLineCap(const StartCap, EndCap: TGPLineCap;
  14579. const DashCap: TGPDashCap);
  14580. begin
  14581. GdipCheck(GdipSetPenLineCap197819(FNativeHandle, StartCap, EndCap, DashCap));
  14582. end;
  14583.  
  14584. procedure TGPPen.SetLineJoin(const Value: TGPLineJoin);
  14585. begin
  14586. GdipCheck(GdipSetPenLineJoin(FNativeHandle, Value));
  14587. end;
  14588.  
  14589. procedure TGPPen.SetMiterLimit(const Value: Single);
  14590. begin
  14591. GdipCheck(GdipSetPenMiterLimit(FNativeHandle, Value));
  14592. end;
  14593.  
  14594. procedure TGPPen.SetStartCap(const Value: TGPLineCap);
  14595. begin
  14596. GdipCheck(GdipSetPenStartCap(FNativeHandle, Value));
  14597. end;
  14598.  
  14599. procedure TGPPen.SetTransform(const Value: IGPMatrix);
  14600. begin
  14601. GdipCheck(GdipSetPenTransform(FNativeHandle, Value.NativeHandle));
  14602. end;
  14603.  
  14604. procedure TGPPen.SetWidth(const Value: Single);
  14605. begin
  14606. GdipCheck(GdipSetPenWidth(FNativeHandle, Value));
  14607. end;
  14608.  
  14609. procedure TGPPen.TranslateTransform(const DX, DY: Single;
  14610. const Order: TGPMatrixOrder);
  14611. begin
  14612. GdipCheck(GdipTranslatePenTransform(FNativeHandle, DX, DY, Order));
  14613. end;
  14614. {$ENDREGION 'GdiplusPen.h'}
  14615.  
  14616. {$REGION 'GdiplusStringFormat.h'}
  14617.  
  14618. { TGPStringFormat }
  14619.  
  14620. function TGPStringFormat.Clone: IGPStringFormat;
  14621. var
  14622. NativeClone: GpStringFormat;
  14623. begin
  14624. NativeClone := nil;
  14625. GdipCheck(GdipCloneStringFormat(FNativeHandle, NativeClone));
  14626. Result := TGPStringFormat.Create(NativeClone);
  14627. end;
  14628.  
  14629. constructor TGPStringFormat.Create(const NativeFormat: GpStringFormat);
  14630. begin
  14631. inherited Create;
  14632. FNativeHandle := NativeFormat;
  14633. end;
  14634.  
  14635. constructor TGPStringFormat.Create(const FormatFlags: TGPStringFormatFlags;
  14636. const Language: LangID);
  14637. begin
  14638. inherited Create;
  14639. GdipCheck(GdipCreateStringFormat(FormatFlags, Language, FNativeHandle));
  14640. end;
  14641.  
  14642. constructor TGPStringFormat.Create(const Format: IGPStringFormat);
  14643. begin
  14644. inherited Create;
  14645. GdipCheck(GdipCloneStringFormat(GdipHandle(Format), FNativeHandle));
  14646. end;
  14647.  
  14648. destructor TGPStringFormat.Destroy;
  14649. begin
  14650. GdipDeleteStringFormat(FNativeHandle);
  14651. inherited;
  14652. end;
  14653.  
  14654. class function TGPStringFormat.GenericDefault: IGPStringFormat;
  14655. var
  14656. NativeDefault: GpStringFormat;
  14657. begin
  14658. if (FGenericDefault = nil) then
  14659. begin
  14660. NativeDefault := nil;
  14661. GdipCheck(GdipStringFormatGetGenericDefault(NativeDefault));
  14662. FGenericDefault := TGPStringFormat.Create(NativeDefault);
  14663. end;
  14664. Result := FGenericDefault;
  14665. end;
  14666.  
  14667. class function TGPStringFormat.GenericTypographic: IGPStringFormat;
  14668. var
  14669. NativeDefault: GpStringFormat;
  14670. begin
  14671. if (FGenericTypographic = nil) then
  14672. begin
  14673. NativeDefault := nil;
  14674. GdipCheck(GdipStringFormatGetGenericTypographic(NativeDefault));
  14675. FGenericTypographic := TGPStringFormat.Create(NativeDefault);
  14676. end;
  14677. Result := FGenericTypographic;
  14678. end;
  14679.  
  14680. function TGPStringFormat.GetAlignment: TGPStringAlignment;
  14681. begin
  14682. GdipCheck(GdipGetStringFormatAlign(FNativeHandle, Result));
  14683. end;
  14684.  
  14685. function TGPStringFormat.GetDigitSubstitutionLanguage: LangID;
  14686. begin
  14687. GdipCheck(GdipGetStringFormatDigitSubstitution(FNativeHandle, @Result, nil));
  14688. end;
  14689.  
  14690. function TGPStringFormat.GetDigitSubstitutionMethod: TGPStringDigitSubstitute;
  14691. begin
  14692. GdipCheck(GdipGetStringFormatDigitSubstitution(FNativeHandle, nil, @Result));
  14693. end;
  14694.  
  14695. function TGPStringFormat.GetFormatFlags: TGPStringFormatFlags;
  14696. begin
  14697. GdipCheck(GdipGetStringFormatFlags(FNativeHandle, Result));
  14698. end;
  14699.  
  14700. function TGPStringFormat.GetHotkeyPrefix: TGPHotkeyPrefix;
  14701. begin
  14702. GdipCheck(GdipGetStringFormatHotkeyPrefix(FNativeHandle, Result));
  14703. end;
  14704.  
  14705. function TGPStringFormat.GetLineAlignment: TGPStringAlignment;
  14706. begin
  14707. GdipCheck(GdipGetStringFormatLineAlign(FNativeHandle, Result));
  14708. end;
  14709.  
  14710. function TGPStringFormat.GetMeasurableCharacterRangeCount: Integer;
  14711. begin
  14712. GdipCheck(GdipGetStringFormatMeasurableCharacterRangeCount(FNativeHandle,
  14713. Result));
  14714. end;
  14715.  
  14716. function TGPStringFormat.GetTabStops(out FirstTabOffset: Single): IGPTabStops;
  14717. var
  14718. Count: Integer;
  14719. begin
  14720. GdipCheck(GdipGetStringFormatTabStopCount(FNativeHandle, Count));
  14721. Result := TGPArray<Single>.Create(Count);
  14722. if (Count > 0) then
  14723. GdipCheck(GdipGetStringFormatTabStops(FNativeHandle, Count, FirstTabOffset,
  14724. Result.ItemPtr));
  14725. end;
  14726.  
  14727. function TGPStringFormat.GetTrimming: TGPStringTrimming;
  14728. begin
  14729. GdipCheck(GdipGetStringFormatTrimming(FNativeHandle, Result));
  14730. end;
  14731.  
  14732. procedure TGPStringFormat.SetAlignment(const Value: TGPStringAlignment);
  14733. begin
  14734. GdipCheck(GdipSetStringFormatAlign(FNativeHandle, Value));
  14735. end;
  14736.  
  14737. procedure TGPStringFormat.SetDigitSubstitution(const Language: LangID;
  14738. const Substitute: TGPStringDigitSubstitute);
  14739. begin
  14740. GdipCheck(GdipSetStringFormatDigitSubstitution(FNativeHandle, Language, Substitute));
  14741. end;
  14742.  
  14743. procedure TGPStringFormat.SetFormatFlags(const Value: TGPStringFormatFlags);
  14744. begin
  14745. GdipCheck(GdipSetStringFormatFlags(FNativeHandle, Value));
  14746. end;
  14747.  
  14748. procedure TGPStringFormat.SetHotkeyPrefix(const Value: TGPHotkeyPrefix);
  14749. begin
  14750. GdipCheck(GdipSetStringFormatHotkeyPrefix(FNativeHandle, Value));
  14751. end;
  14752.  
  14753. procedure TGPStringFormat.SetLineAlignment(const Value: TGPStringAlignment);
  14754. begin
  14755. GdipCheck(GdipSetStringFormatLineAlign(FNativeHandle, Value));
  14756. end;
  14757.  
  14758. procedure TGPStringFormat.SetMeasurableCharacterRanges(
  14759. const Ranges: IGPCharacterRanges);
  14760. begin
  14761. Assert(Assigned(Ranges));
  14762. GdipCheck(GdipSetStringFormatMeasurableCharacterRanges(FNativeHandle,
  14763. Ranges.Count, Ranges.ItemPtr));
  14764. end;
  14765.  
  14766. procedure TGPStringFormat.SetTabStops(const FirstTabOffset: Single;
  14767. const TabStops: array of Single);
  14768. begin
  14769. Assert(Length(TabStops) > 0);
  14770. GdipCheck(GdipSetStringFormatTabStops(FNativeHandle, FirstTabOffset,
  14771. Length(TabStops), @TabStops[0]));
  14772. end;
  14773.  
  14774. procedure TGPStringFormat.SetTrimming(const Value: TGPStringTrimming);
  14775. begin
  14776. GdipCheck(GdipSetStringFormatTrimming(FNativeHandle, Value));
  14777. end;
  14778. {$ENDREGION 'GdiplusStringFormat.h'}
  14779.  
  14780. {$REGION 'GdiplusPath.h'}
  14781.  
  14782. { TGPPathData }
  14783.  
  14784. constructor TGPPathData.Create(const ACount: Integer);
  14785. begin
  14786. inherited Create;
  14787. SetLength(FPoints, ACount);
  14788. SetLength(FTypes, ACount);
  14789. end;
  14790.  
  14791. function TGPPathData.GetCount: Integer;
  14792. begin
  14793. Result := Length(FPoints);
  14794. end;
  14795.  
  14796. function TGPPathData.GetNativePathData: TGPNativePathData;
  14797. begin
  14798. Result.Count := Length(FPoints);
  14799. Result.Points := @FPoints[0];
  14800. Result.Types := @FTypes[0];
  14801. end;
  14802.  
  14803. function TGPPathData.GetPoint(const Index: Integer): TGPPointF;
  14804. begin
  14805. Result := FPoints[Index];
  14806. end;
  14807.  
  14808. function TGPPathData.GetPointPtr: PGPPointF;
  14809. begin
  14810. Result := @FPoints[0];
  14811. end;
  14812.  
  14813. function TGPPathData.GetType(const Index: Integer): Byte;
  14814. begin
  14815. Result := FTypes[Index];
  14816. end;
  14817.  
  14818. function TGPPathData.GetTypePtr: PByte;
  14819. begin
  14820. Result := @FTypes[0];
  14821. end;
  14822.  
  14823. procedure TGPPathData.SetCount(const Value: Integer);
  14824. begin
  14825. if (Value <> Length(FPoints)) then
  14826. begin
  14827. SetLength(FPoints, Value);
  14828. SetLength(FTypes, Value);
  14829. end;
  14830. end;
  14831.  
  14832. { TGPGraphicsPath }
  14833.  
  14834. procedure TGPGraphicsPath.AddArc(const Rect: TGPRectF; const StartAngle,
  14835. SweepAngle: Single);
  14836. begin
  14837. AddArc(Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  14838. end;
  14839.  
  14840. procedure TGPGraphicsPath.AddArc(const X, Y, Width, Height: Integer;
  14841. const StartAngle, SweepAngle: Single);
  14842. begin
  14843. GdipCheck(GdipAddPathArcI(FNativeHandle, X, Y, Width, Height, StartAngle, SweepAngle));
  14844. end;
  14845.  
  14846. procedure TGPGraphicsPath.AddArc(const Rect: TGPRect; const StartAngle,
  14847. SweepAngle: Single);
  14848. begin
  14849. AddArc(Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  14850. end;
  14851.  
  14852. procedure TGPGraphicsPath.AddArc(const X, Y, Width, Height, StartAngle,
  14853. SweepAngle: Single);
  14854. begin
  14855. GdipCheck(GdipAddPathArc(FNativeHandle, X, Y, Width, Height, StartAngle, SweepAngle));
  14856. end;
  14857.  
  14858. procedure TGPGraphicsPath.AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPoint);
  14859. begin
  14860. AddBezier(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y, Pt3.X, Pt3.Y, Pt4.X, Pt4.Y);
  14861. end;
  14862.  
  14863. procedure TGPGraphicsPath.AddBezier(const Pt1, Pt2, Pt3, Pt4: TGPPointF);
  14864. begin
  14865. AddBezier(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y, Pt3.X, Pt3.Y, Pt4.X, Pt4.Y);
  14866. end;
  14867.  
  14868. procedure TGPGraphicsPath.AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single);
  14869. begin
  14870. GdipCheck(GdipAddPathBezier(FNativeHandle, X1, Y1, X2, Y2, X3, Y3, X4, Y4));
  14871. end;
  14872.  
  14873. procedure TGPGraphicsPath.AddBezier(const X1, Y1, X2, Y2, X3, Y3, X4,
  14874. Y4: Integer);
  14875. begin
  14876. GdipCheck(GdipAddPathBezierI(FNativeHandle, X1, Y1, X2, Y2, X3, Y3, X4, Y4));
  14877. end;
  14878.  
  14879. procedure TGPGraphicsPath.AddBeziers(const Points: array of TGPPointF);
  14880. begin
  14881. Assert(Length(Points) > 0);
  14882. GdipCheck(GdipAddPathBeziers(FNativeHandle, @Points[0], Length(Points)));
  14883. end;
  14884.  
  14885. procedure TGPGraphicsPath.AddBeziers(const Points: array of TGPPoint);
  14886. begin
  14887. Assert(Length(Points) > 0);
  14888. GdipCheck(GdipAddPathBeziersI(FNativeHandle, @Points[0], Length(Points)));
  14889. end;
  14890.  
  14891. procedure TGPGraphicsPath.AddClosedCurve(const Points: array of TGPPoint);
  14892. begin
  14893. Assert(Length(Points) > 0);
  14894. GdipCheck(GdipAddPathClosedCurveI(FNativeHandle, @Points[0], Length(Points)));
  14895. end;
  14896.  
  14897. procedure TGPGraphicsPath.AddClosedCurve(const Points: array of TGPPoint;
  14898. const Tension: Single);
  14899. begin
  14900. Assert(Length(Points) > 0);
  14901. GdipCheck(GdipAddPathClosedCurve2I(FNativeHandle, @Points[0], Length(Points), Tension));
  14902. end;
  14903.  
  14904. procedure TGPGraphicsPath.AddClosedCurve(const Points: array of TGPPointF);
  14905. begin
  14906. Assert(Length(Points) > 0);
  14907. GdipCheck(GdipAddPathClosedCurve(FNativeHandle, @Points[0], Length(Points)));
  14908. end;
  14909.  
  14910. procedure TGPGraphicsPath.AddClosedCurve(const Points: array of TGPPointF;
  14911. const Tension: Single);
  14912. begin
  14913. Assert(Length(Points) > 0);
  14914. GdipCheck(GdipAddPathClosedCurve2(FNativeHandle, @Points[0], Length(Points), Tension));
  14915. end;
  14916.  
  14917. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPoint);
  14918. begin
  14919. Assert(Length(Points) > 0);
  14920. GdipCheck(GdipAddPathCurveI(FNativeHandle, @Points[0], Length(Points)));
  14921. end;
  14922.  
  14923. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPoint;
  14924. const Tension: Single);
  14925. begin
  14926. Assert(Length(Points) > 0);
  14927. GdipCheck(GdipAddPathCurve2I(FNativeHandle, @Points[0], Length(Points), Tension));
  14928. end;
  14929.  
  14930. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPoint; const Offset,
  14931. NumberOfSegments: Integer; const Tension: Single);
  14932. begin
  14933. Assert(Length(Points) > 0);
  14934. GdipCheck(GdipAddPathCurve3I(FNativeHandle, @Points[0], Length(Points),
  14935. Offset, NumberOfSegments, Tension));
  14936. end;
  14937.  
  14938. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPointF);
  14939. begin
  14940. Assert(Length(Points) > 0);
  14941. GdipCheck(GdipAddPathCurve(FNativeHandle, @Points[0], Length(Points)));
  14942. end;
  14943.  
  14944. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPointF;
  14945. const Tension: Single);
  14946. begin
  14947. Assert(Length(Points) > 0);
  14948. GdipCheck(GdipAddPathCurve2(FNativeHandle, @Points[0], Length(Points), Tension));
  14949. end;
  14950.  
  14951. procedure TGPGraphicsPath.AddCurve(const Points: array of TGPPointF; const Offset,
  14952. NumberOfSegments: Integer; const Tension: Single);
  14953. begin
  14954. Assert(Length(Points) > 0);
  14955. GdipCheck(GdipAddPathCurve3(FNativeHandle, @Points[0], Length(Points),
  14956. Offset, NumberOfSegments, Tension));
  14957. end;
  14958.  
  14959. procedure TGPGraphicsPath.AddEllipse(const X, Y, Width, Height: Single);
  14960. begin
  14961. GdipCheck(GdipAddPathEllipse(FNativeHandle, X, Y, Width, Height));
  14962. end;
  14963.  
  14964. procedure TGPGraphicsPath.AddEllipse(const Rect: TGPRectF);
  14965. begin
  14966. AddEllipse(Rect.X, Rect.Y, Rect.Width, Rect.Height);
  14967. end;
  14968.  
  14969. procedure TGPGraphicsPath.AddEllipse(const X, Y, Width, Height: Integer);
  14970. begin
  14971. GdipCheck(GdipAddPathEllipseI(FNativeHandle, X, Y, Width, Height));
  14972. end;
  14973.  
  14974. procedure TGPGraphicsPath.AddEllipse(const Rect: TGPRect);
  14975. begin
  14976. AddEllipse(Rect.X, Rect.Y, Rect.Width, Rect.Height);
  14977. end;
  14978.  
  14979. procedure TGPGraphicsPath.AddLine(const Pt1, Pt2: TGPPoint);
  14980. begin
  14981. AddLine(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  14982. end;
  14983.  
  14984. procedure TGPGraphicsPath.AddLine(const X1, Y1, X2, Y2: Integer);
  14985. begin
  14986. GdipCheck(GdipAddPathLineI(FNativeHandle, X1, Y1, X2, Y2));
  14987. end;
  14988.  
  14989. procedure TGPGraphicsPath.AddLine(const Pt1, Pt2: TGPPointF);
  14990. begin
  14991. AddLine(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  14992. end;
  14993.  
  14994. procedure TGPGraphicsPath.AddLine(const X1, Y1, X2, Y2: Single);
  14995. begin
  14996. GdipCheck(GdipAddPathLine(FNativeHandle, X1, Y1, X2, Y2));
  14997. end;
  14998.  
  14999. procedure TGPGraphicsPath.AddLines(const Points: array of TGPPoint);
  15000. begin
  15001. Assert(Length(Points) > 0);
  15002. GdipCheck(GdipAddPathLine2I(FNativeHandle, @Points[0], Length(Points)));
  15003. end;
  15004.  
  15005. procedure TGPGraphicsPath.AddLines(const Points: array of TGPPointF);
  15006. begin
  15007. Assert(Length(Points) > 0);
  15008. GdipCheck(GdipAddPathLine2(FNativeHandle, @Points[0], Length(Points)));
  15009. end;
  15010.  
  15011. procedure TGPGraphicsPath.AddPath(const AddingPath: IGPGraphicsPath;
  15012. const Connect: Boolean);
  15013. begin
  15014. GdipCheck(GdipAddPathPath(FNativeHandle, GdipHandle(AddingPath), Connect));
  15015. end;
  15016.  
  15017. procedure TGPGraphicsPath.AddPie(const Rect: TGPRect; const StartAngle,
  15018. SweepAngle: Single);
  15019. begin
  15020. AddPie(Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  15021. end;
  15022.  
  15023. procedure TGPGraphicsPath.AddPie(const X, Y, Width, Height: Integer;
  15024. const StartAngle, SweepAngle: Single);
  15025. begin
  15026. GdipCheck(GdipAddPathPieI(FNativeHandle, X, Y, Width, Height, StartAngle, SweepAngle));
  15027. end;
  15028.  
  15029. procedure TGPGraphicsPath.AddPie(const Rect: TGPRectF; const StartAngle,
  15030. SweepAngle: Single);
  15031. begin
  15032. AddPie(Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  15033. end;
  15034.  
  15035. procedure TGPGraphicsPath.AddPie(const X, Y, Width, Height, StartAngle,
  15036. SweepAngle: Single);
  15037. begin
  15038. GdipCheck(GdipAddPathPie(FNativeHandle, X, Y, Width, Height, StartAngle, SweepAngle));
  15039. end;
  15040.  
  15041. procedure TGPGraphicsPath.AddPolygon(const Points: array of TGPPoint);
  15042. begin
  15043. Assert(Length(Points) > 0);
  15044. GdipCheck(GdipAddPathPolygonI(FNativeHandle, @Points[0], Length(Points)));
  15045. end;
  15046.  
  15047. procedure TGPGraphicsPath.AddPolygon(const Points: array of TGPPointF);
  15048. begin
  15049. Assert(Length(Points) > 0);
  15050. GdipCheck(GdipAddPathPolygon(FNativeHandle, @Points[0], Length(Points)));
  15051. end;
  15052.  
  15053. procedure TGPGraphicsPath.AddRectangle(const Rect: TGPRect);
  15054. begin
  15055. GdipCheck(GdipAddPathRectangleI(FNativeHandle, Rect.X, Rect.Y,
  15056. Rect.Width, Rect.Height));
  15057. end;
  15058.  
  15059. procedure TGPGraphicsPath.AddRectangle(const Rect: TGPRectF);
  15060. begin
  15061. GdipCheck(GdipAddPathRectangle(FNativeHandle, Rect.X, Rect.Y,
  15062. Rect.Width, Rect.Height));
  15063. end;
  15064.  
  15065. procedure TGPGraphicsPath.AddRectangles(const Rects: array of TGPRect);
  15066. begin
  15067. Assert(Length(Rects) > 0);
  15068. GdipCheck(GdipAddPathRectanglesI(FNativeHandle, @Rects[0], Length(Rects)));
  15069. end;
  15070.  
  15071. procedure TGPGraphicsPath.AddRectangles(const Rects: array of TGPRectF);
  15072. begin
  15073. Assert(Length(Rects) > 0);
  15074. GdipCheck(GdipAddPathRectangles(FNativeHandle, @Rects[0], Length(Rects)));
  15075. end;
  15076.  
  15077. procedure TGPGraphicsPath.AddString(const Str: String; const Family: IGPFontFamily;
  15078. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPoint;
  15079. const Format: IGPStringFormat);
  15080. var
  15081. Rect: TGPRect;
  15082. begin
  15083. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  15084. GdipCheck(GdipAddPathStringI(FNativeHandle, PWideChar(Str), Length(Str),
  15085. GdipHandle(Family), Style, EmSize, @Rect, GdipHandle(Format)));
  15086. end;
  15087.  
  15088. procedure TGPGraphicsPath.AddString(const Str: String; const Family: IGPFontFamily;
  15089. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRect;
  15090. const Format: IGPStringFormat);
  15091. begin
  15092. GdipCheck(GdipAddPathStringI(FNativeHandle, PWideChar(Str), Length(Str),
  15093. GdipHandle(Family), Style, EmSize, @LayoutRect, GdipHandle(Format)));
  15094. end;
  15095.  
  15096. procedure TGPGraphicsPath.AddString(const Str: String; const Family: IGPFontFamily;
  15097. const Style: TGPFontStyle; const EmSize: Single; const Origin: TGPPointF;
  15098. const Format: IGPStringFormat);
  15099. var
  15100. Rect: TGPRectF;
  15101. begin
  15102. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  15103. GdipCheck(GdipAddPathString(FNativeHandle, PWideChar(Str), Length(Str),
  15104. GdipHandle(Family), Style, EmSize, @Rect, GdipHandle(Format)));
  15105. end;
  15106.  
  15107. procedure TGPGraphicsPath.AddString(const Str: String; const Family: IGPFontFamily;
  15108. const Style: TGPFontStyle; const EmSize: Single; const LayoutRect: TGPRectF;
  15109. const Format: IGPStringFormat);
  15110. begin
  15111. GdipCheck(GdipAddPathString(FNativeHandle, PWideChar(Str), Length(Str),
  15112. GdipHandle(Family), Style, EmSize, @LayoutRect, GdipHandle(Format)));
  15113. end;
  15114.  
  15115. procedure TGPGraphicsPath.ClearMarkers;
  15116. begin
  15117. GdipCheck(GdipClearPathMarkers(FNativeHandle));
  15118. end;
  15119.  
  15120. function TGPGraphicsPath.Clone: IGPGraphicsPath;
  15121. var
  15122. NativeClone: GpPath;
  15123. begin
  15124. NativeClone := nil;
  15125. GdipCheck(GdipClonePath(FNativeHandle, NativeClone));
  15126. Result := TGPGraphicsPath.Create(NativeClone);
  15127. end;
  15128.  
  15129. procedure TGPGraphicsPath.CloseAllFigures;
  15130. begin
  15131. GdipCheck(GdipClosePathFigures(FNativeHandle));
  15132. end;
  15133.  
  15134. procedure TGPGraphicsPath.CloseFigure;
  15135. begin
  15136. GdipCheck(GdipClosePathFigure(FNativeHandle));
  15137. end;
  15138.  
  15139. constructor TGPGraphicsPath.Create(const Points: array of TGPPoint;
  15140. const Types: array of Byte; const FillMode: TGPFillMode);
  15141. begin
  15142. Assert(Length(Points) > 0);
  15143. Assert(Length(Points) = Length(Types));
  15144. inherited Create;
  15145. GdipCheck(GdipCreatePath2I(@Points[0], @Types[0], Length(Points), FillMode,
  15146. FNativeHandle));
  15147. end;
  15148.  
  15149. constructor TGPGraphicsPath.Create(const NativePath: GpPath);
  15150. begin
  15151. inherited Create;
  15152. FNativeHandle := NativePath;
  15153. end;
  15154.  
  15155. constructor TGPGraphicsPath.Create(const FillMode: TGPFillMode);
  15156. begin
  15157. inherited Create;
  15158. GdipCheck(GdipCreatePath(FillMode, FNativeHandle));
  15159. end;
  15160.  
  15161. constructor TGPGraphicsPath.Create(const Points: array of TGPPointF;
  15162. const Types: array of Byte; const FillMode: TGPFillMode);
  15163. begin
  15164. Assert(Length(Points) > 0);
  15165. Assert(Length(Points) = Length(Types));
  15166. inherited Create;
  15167. GdipCheck(GdipCreatePath2(@Points[0], @Types[0], Length(Points), FillMode,
  15168. FNativeHandle));
  15169. end;
  15170.  
  15171. destructor TGPGraphicsPath.Destroy;
  15172. begin
  15173. GdipDeletePath(FNativeHandle);
  15174. inherited;
  15175. end;
  15176.  
  15177. procedure TGPGraphicsPath.Flatten(const Matrix: IGPMatrix; const Flatness: Single);
  15178. begin
  15179. GdipCheck(GdipFlattenPath(FNativeHandle, GdipHandle(Matrix), Flatness));
  15180. end;
  15181.  
  15182. procedure TGPGraphicsPath.GetBounds(out Bounds: TGPRectF; const Matrix: IGPMatrix;
  15183. const Pen: IGPPen);
  15184. begin
  15185. GdipCheck(GdipGetPathWorldBounds(FNativeHandle, @Bounds,
  15186. GdipHandle(Matrix), GdipHandle(Pen)));
  15187. end;
  15188.  
  15189. procedure TGPGraphicsPath.GetBounds(out Bounds: TGPRect; const Matrix: IGPMatrix;
  15190. const Pen: IGPPen);
  15191. begin
  15192. GdipCheck(GdipGetPathWorldBoundsI(FNativeHandle, @Bounds,
  15193. GdipHandle(Matrix), GdipHandle(Pen)));
  15194. end;
  15195.  
  15196. function TGPGraphicsPath.GetFillMode: TGPFillMode;
  15197. begin
  15198. Result := FillModeAlternate;
  15199. GdipCheck(GdipGetPathFillMode(FNativeHandle, Result));
  15200. end;
  15201.  
  15202. function TGPGraphicsPath.GetLastPoint: TGPPointF;
  15203. begin
  15204. GdipCheck(GdipGetPathLastPoint(FNativeHandle, Result));
  15205. end;
  15206.  
  15207. function TGPGraphicsPath.GetPathData: IGPPathData;
  15208. var
  15209. Count: Integer;
  15210. NativeData: TGPNativePathData;
  15211. begin
  15212. Count := GetPointCount;
  15213. Result := TGPPathData.Create(Count);
  15214. NativeData := Result.NativePathData;
  15215. GdipCheck(GdipGetPathData(FNativeHandle, @NativeData));
  15216. end;
  15217.  
  15218. function TGPGraphicsPath.GetPathPoints: IGPPathPoints;
  15219. var
  15220. Count: Integer;
  15221. begin
  15222. Count := GetPointCount;
  15223. Result := TGPArray<TGPPointF>.Create(Count);
  15224. GdipCheck(GdipGetPathPoints(FNativeHandle, Result.ItemPtr, Count));
  15225. end;
  15226.  
  15227. function TGPGraphicsPath.GetPathPointsI: IGPPathPointsI;
  15228. var
  15229. Count: Integer;
  15230. begin
  15231. Count := GetPointCount;
  15232. Result := TGPArray<TGPPoint>.Create(Count);
  15233. GdipCheck(GdipGetPathPointsI(FNativeHandle, Result.ItemPtr, Count));
  15234. end;
  15235.  
  15236. function TGPGraphicsPath.GetPathTypes: IGPPathTypes;
  15237. var
  15238. Count: Integer;
  15239. begin
  15240. Count := GetPointCount;
  15241. Result := TGPArray<Byte>.Create(Count);
  15242. GdipCheck(GdipGetPathTypes(FNativeHandle, Result.ItemPtr, Count));
  15243. end;
  15244.  
  15245. function TGPGraphicsPath.GetPointCount: Integer;
  15246. begin
  15247. Result := 0;
  15248. GdipCheck(GdipGetPointCount(FNativeHandle, Result));
  15249. end;
  15250.  
  15251. function TGPGraphicsPath.IsOutlineVisible(const X, Y: Integer; const Pen: IGPPen;
  15252. const G: IGPGraphics): Boolean;
  15253. var
  15254. B: Bool;
  15255. begin
  15256. B := False;
  15257. GdipCheck(GdipIsOutlineVisiblePathPointI(FNativeHandle, X, Y, GdipHandle(Pen),
  15258. GdipHandle(G), B));
  15259. Result := B;
  15260. end;
  15261.  
  15262. function TGPGraphicsPath.IsOutlineVisible(const Point: TGPPointF; const Pen: IGPPen;
  15263. const G: IGPGraphics): Boolean;
  15264. begin
  15265. Result := IsOutlineVisible(Point.X, Point.Y, Pen, G);
  15266. end;
  15267.  
  15268. function TGPGraphicsPath.IsOutlineVisible(const X, Y: Single; const Pen: IGPPen;
  15269. const G: IGPGraphics): Boolean;
  15270. var
  15271. B: Bool;
  15272. begin
  15273. B := False;
  15274. GdipCheck(GdipIsOutlineVisiblePathPoint(FNativeHandle, X, Y, GdipHandle(Pen),
  15275. GdipHandle(G), B));
  15276. Result := B;
  15277. end;
  15278.  
  15279. function TGPGraphicsPath.IsOutlineVisible(const Point: TGPPoint; const Pen: IGPPen;
  15280. const G: IGPGraphics): Boolean;
  15281. begin
  15282. Result := IsOutlineVisible(Point.X, Point.Y, Pen, G);
  15283. end;
  15284.  
  15285. function TGPGraphicsPath.IsVisible(const X, Y: Single;
  15286. const G: IGPGraphics): Boolean;
  15287. var
  15288. B: Bool;
  15289. begin
  15290. B := False;
  15291. GdipCheck(GdipIsVisiblePathPoint(FNativeHandle, X, Y, GdipHandle(G), B));
  15292. Result := B;
  15293. end;
  15294.  
  15295. function TGPGraphicsPath.IsVisible(const X, Y: Integer;
  15296. const G: IGPGraphics): Boolean;
  15297. var
  15298. B: Bool;
  15299. begin
  15300. B := False;
  15301. GdipCheck(GdipIsVisiblePathPointI(FNativeHandle, X, Y, GdipHandle(G), B));
  15302. Result := B;
  15303. end;
  15304.  
  15305. function TGPGraphicsPath.IsVisible(const Point: TGPPointF;
  15306. const G: IGPGraphics): Boolean;
  15307. begin
  15308. Result := IsVisible(Point.X, Point.Y, G);
  15309. end;
  15310.  
  15311. function TGPGraphicsPath.IsVisible(const Point: TGPPoint;
  15312. const G: IGPGraphics): Boolean;
  15313. begin
  15314. Result := IsVisible(Point.X, Point.Y, G);
  15315. end;
  15316.  
  15317. procedure TGPGraphicsPath.Outline(const Matrix: IGPMatrix; const Flatness: Single);
  15318. begin
  15319. GdipCheck(GdipWindingModeOutline(FNativeHandle, GdipHandle(Matrix), Flatness));
  15320. end;
  15321.  
  15322. procedure TGPGraphicsPath.Reset;
  15323. begin
  15324. GdipCheck(GdipResetPath(FNativeHandle));
  15325. end;
  15326.  
  15327. procedure TGPGraphicsPath.Reverse;
  15328. begin
  15329. GdipCheck(GdipReversePath(FNativeHandle));
  15330. end;
  15331.  
  15332. procedure TGPGraphicsPath.SetFillMode(const Value: TGPFillMode);
  15333. begin
  15334. GdipCheck(GdipSetPathFillMode(FNativeHandle, Value));
  15335. end;
  15336.  
  15337. procedure TGPGraphicsPath.SetMarker;
  15338. begin
  15339. GdipCheck(GdipSetPathMarker(FNativeHandle));
  15340. end;
  15341.  
  15342. procedure TGPGraphicsPath.StartFigure;
  15343. begin
  15344. GdipCheck(GdipStartPathFigure(FNativeHandle));
  15345. end;
  15346.  
  15347. procedure TGPGraphicsPath.Transform(const Matrix: IGPMatrix);
  15348. begin
  15349. if Assigned(Matrix) then
  15350. GdipCheck(GdipTransformPath(FNativeHandle, Matrix.NativeHandle));
  15351. end;
  15352.  
  15353. procedure TGPGraphicsPath.Warp(const DestPoints: array of TGPPointF;
  15354. const SrcRect: TGPRectF; const Matrix: IGPMatrix; const WarpMode: TGPWarpMode;
  15355. const Flatness: Single);
  15356. begin
  15357. Assert(Length(DestPoints) > 0);
  15358. GdipCheck(GdipWarpPath(FNativeHandle, GdipHandle(Matrix), @DestPoints[0],
  15359. Length(DestPoints), SrcRect.X, SrcRect.Y, SrcRect.Width, SrcRect.Height,
  15360. WarpMode, Flatness));
  15361. end;
  15362.  
  15363. procedure TGPGraphicsPath.Widen(const Pen: IGPPen; const Matrix: IGPMatrix;
  15364. const Flatness: Single);
  15365. begin
  15366. GdipCheck(GdipWidenPath(FNativeHandle, Pen.NativeHandle, GdipHandle(Matrix), Flatness));
  15367. end;
  15368.  
  15369. { TGPGraphicsPathIterator }
  15370.  
  15371. function TGPGraphicsPathIterator.CopyData(const StartIndex,
  15372. EndIndex: Integer): IGPPathData;
  15373. var
  15374. Count: Integer;
  15375. begin
  15376. Count := EndIndex - StartIndex + 1;
  15377. Result := TGPPathData.Create(Count);
  15378. GdipCheck(GdipPathIterCopyData(FNativeHandle, Count, Result.PointPtr,
  15379. Result.TypePtr, StartIndex, EndIndex));
  15380. Result.Count := Count;
  15381. end;
  15382.  
  15383. constructor TGPGraphicsPathIterator.Create(const Path: IGPGraphicsPath);
  15384. begin
  15385. inherited Create;
  15386. GdipCheck(GdipCreatePathIter(FNativeHandle, GdipHandle(Path)));
  15387. end;
  15388.  
  15389. destructor TGPGraphicsPathIterator.Destroy;
  15390. begin
  15391. GdipDeletePathIter(FNativeHandle);
  15392. inherited;
  15393. end;
  15394.  
  15395. function TGPGraphicsPathIterator.Enumerate: IGPPathData;
  15396. var
  15397. Count: Integer;
  15398. begin
  15399. Count := GetCount;
  15400. Result := TGPPathData.Create(Count);
  15401. GdipCheck(GdipPathIterEnumerate(FNativeHandle, Count, Result.PointPtr,
  15402. Result.TypePtr, Count));
  15403. Result.Count := Count;
  15404. end;
  15405.  
  15406. function TGPGraphicsPathIterator.GetCount: Integer;
  15407. begin
  15408. GdipCheck(GdipPathIterGetCount(FNativeHandle, Result));
  15409. end;
  15410.  
  15411. function TGPGraphicsPathIterator.GetSubpathCount: Integer;
  15412. begin
  15413. GdipCheck(GdipPathIterGetSubpathCount(FNativeHandle, Result));
  15414. end;
  15415.  
  15416. function TGPGraphicsPathIterator.HasCurve: Boolean;
  15417. var
  15418. B: Bool;
  15419. begin
  15420. GdipCheck(GdipPathIterHasCurve(FNativeHandle, B));
  15421. Result := B;
  15422. end;
  15423.  
  15424. function TGPGraphicsPathIterator.NextMarker(out StartIndex,
  15425. EndIndex: Integer): Integer;
  15426. begin
  15427. GdipCheck(GdipPathIterNextMarker(FNativeHandle, Result, StartIndex, EndIndex));
  15428. end;
  15429.  
  15430. function TGPGraphicsPathIterator.NextMarker(const Path: IGPGraphicsPath): Integer;
  15431. begin
  15432. GdipCheck(GdipPathIterNextMarkerPath(FNativeHandle, Result, GdipHandle(Path)));
  15433. end;
  15434.  
  15435. function TGPGraphicsPathIterator.NextPathType(out PathType: Byte; out StartIndex,
  15436. EndIndex: Integer): Integer;
  15437. begin
  15438. GdipCheck(GdipPathIterNextPathType(FNativeHandle, Result, PathType,
  15439. StartIndex, EndIndex));
  15440. end;
  15441.  
  15442. function TGPGraphicsPathIterator.NextSubPath(out StartIndex, EndIndex: Integer;
  15443. out IsClosed: Boolean): Integer;
  15444. var
  15445. B: Bool;
  15446. begin
  15447. GdipCheck(GdipPathIterNextSubpath(FNativeHandle, Result, StartIndex,
  15448. EndIndex, B));
  15449. IsClosed := B;
  15450. end;
  15451.  
  15452. function TGPGraphicsPathIterator.NextSubPath(const Path: IGPGraphicsPath;
  15453. out IsClosed: Boolean): Integer;
  15454. var
  15455. B: Bool;
  15456. begin
  15457. GdipCheck(GdipPathIterNextSubpathPath(FNativeHandle, Result,
  15458. GdipHandle(Path), B));
  15459. IsClosed := B;
  15460. end;
  15461.  
  15462. procedure TGPGraphicsPathIterator.Rewind;
  15463. begin
  15464. GdipCheck(GdipPathIterRewind(FNativeHandle));
  15465. end;
  15466.  
  15467. { TGPPathGradientBrush }
  15468.  
  15469. constructor TGPPathGradientBrush.Create(const Path: IGPGraphicsPath);
  15470. begin
  15471. inherited Create;
  15472. GdipCheck(GdipCreatePathGradientFromPath(Path.NativeHandle, FNativeHandle));
  15473. end;
  15474.  
  15475. constructor TGPPathGradientBrush.Create(const Points: array of TGPPoint;
  15476. const WrapMode: TGPWrapMode);
  15477. begin
  15478. inherited Create;
  15479. Assert(Length(Points) > 0);
  15480. GdipCheck(GdipCreatePathGradientI(@Points[0], Length(Points), WrapMode, FNativeHandle));
  15481. end;
  15482.  
  15483. constructor TGPPathGradientBrush.Create(const Points: array of TGPPointF;
  15484. const WrapMode: TGPWrapMode);
  15485. begin
  15486. inherited Create;
  15487. Assert(Length(Points) > 0);
  15488. GdipCheck(GdipCreatePathGradient(@Points[0], Length(Points), WrapMode, FNativeHandle));
  15489. end;
  15490.  
  15491. function TGPPathGradientBrush.GetBlend: IGPBlend;
  15492. var
  15493. Count: Integer;
  15494. begin
  15495. Count := 0;
  15496. GdipCheck(GdipGetPathGradientBlendCount(FNativeHandle, Count));
  15497. Result := TGPBlend.Create(Count);
  15498. if (Count > 0) then
  15499. GdipCheck(GdipGetPathGradientBlend(FNativeHandle, Result.FactorPtr,
  15500. Result.PositionPtr, Count));
  15501. end;
  15502.  
  15503. function TGPPathGradientBrush.GetCenterColor: TGPColor;
  15504. begin
  15505. GdipCheck(GdipGetPathGradientCenterColor(FNativeHandle, Result.FArgb));
  15506. end;
  15507.  
  15508. function TGPPathGradientBrush.GetCenterPoint: TGPPointF;
  15509. begin
  15510. GdipCheck(GdipGetPathGradientCenterPoint(FNativeHandle, Result));
  15511. end;
  15512.  
  15513. function TGPPathGradientBrush.GetCenterPointI: TGPPoint;
  15514. begin
  15515. GdipCheck(GdipGetPathGradientCenterPointI(FNativeHandle, Result));
  15516. end;
  15517.  
  15518. procedure TGPPathGradientBrush.GetFocusScales(out XScale, YScale: Single);
  15519. begin
  15520. GdipCheck(GdipGetPathGradientFocusScales(FNativeHandle, XScale, YScale));
  15521. end;
  15522.  
  15523. function TGPPathGradientBrush.GetGammaCorrection: Boolean;
  15524. var
  15525. B: Bool;
  15526. begin
  15527. GdipCheck(GdipGetPathGradientGammaCorrection(FNativeHandle, B));
  15528. Result := B;
  15529. end;
  15530.  
  15531. function TGPPathGradientBrush.GetGraphicsPath: IGPGraphicsPath;
  15532. var
  15533. NativePath: GpPath;
  15534. begin
  15535. NativePath := nil;
  15536. GdipCheck(GdipGetPathGradientPath(FNativeHandle, NativePath));
  15537. Result := TGPGraphicsPath.Create(NativePath);
  15538. end;
  15539.  
  15540. function TGPPathGradientBrush.GetInterpolationColors: IGPColorBlend;
  15541. var
  15542. Count: Integer;
  15543. begin
  15544. Count := 0;
  15545. GdipCheck(GdipGetPathGradientPresetBlendCount(FNativeHandle, Count));
  15546. Result := TGPColorBlend.Create(Count);
  15547. if (Count > 0) then
  15548. GdipCheck(GdipGetPathGradientPresetBlend(FNativeHandle, PARGB(Result.ColorPtr),
  15549. Result.PositionPtr, Count));
  15550. end;
  15551.  
  15552. function TGPPathGradientBrush.GetPointCount: Integer;
  15553. begin
  15554. GdipCheck(GdipGetPathGradientPointCount(FNativeHandle, Result));
  15555. end;
  15556.  
  15557. function TGPPathGradientBrush.GetRectangle: TGPRectF;
  15558. begin
  15559. GdipCheck(GdipGetPathGradientRect(FNativeHandle, Result));
  15560. end;
  15561.  
  15562. function TGPPathGradientBrush.GetRectangleI: TGPRect;
  15563. begin
  15564. GdipCheck(GdipGetPathGradientRectI(FNativeHandle, Result));
  15565. end;
  15566.  
  15567. function TGPPathGradientBrush.GetSurroundColors: IGPColors;
  15568. var
  15569. Count: Integer;
  15570. begin
  15571. GdipCheck(GdipGetPathGradientSurroundColorCount(FNativeHandle, Count));
  15572. Result := TGPArray<TGPColor>.Create(Count);
  15573. if (Count > 0) then
  15574. begin
  15575. GdipCheck(GdipGetPathGradientSurroundColorsWithCount(FNativeHandle,
  15576. Result.ItemPtr, Count));
  15577. Result.Count := Count;
  15578. end;
  15579. end;
  15580.  
  15581. function TGPPathGradientBrush.GetTransform: IGPMatrix;
  15582. begin
  15583. Result := TGPMatrix.Create;
  15584. GdipCheck(GdipGetPathGradientTransform(FNativeHandle, Result.NativeHandle));
  15585. end;
  15586.  
  15587. function TGPPathGradientBrush.GetWrapMode: TGPWrapMode;
  15588. begin
  15589. GdipCheck(GdipGetPathGradientWrapMode(FNativeHandle, Result));
  15590. end;
  15591.  
  15592. procedure TGPPathGradientBrush.MultiplyTransform(const Matrix: IGPMatrix;
  15593. const Order: TGPMatrixOrder);
  15594. begin
  15595. GdipCheck(GdipMultiplyPathGradientTransform(FNativeHandle,
  15596. Matrix.NativeHandle, Order));
  15597. end;
  15598.  
  15599. procedure TGPPathGradientBrush.ResetTransform;
  15600. begin
  15601. GdipCheck(GdipResetPathGradientTransform(FNativeHandle));
  15602. end;
  15603.  
  15604. procedure TGPPathGradientBrush.RotateTransform(const Angle: Single;
  15605. const Order: TGPMatrixOrder);
  15606. begin
  15607. GdipCheck(GdipRotatePathGradientTransform(FNativeHandle, Angle, Order));
  15608. end;
  15609.  
  15610. procedure TGPPathGradientBrush.ScaleTransform(const SX, SY: Single;
  15611. const Order: TGPMatrixOrder);
  15612. begin
  15613. GdipCheck(GdipScalePathGradientTransform(FNativeHandle, SX, SY, Order));
  15614. end;
  15615.  
  15616. procedure TGPPathGradientBrush.SetBlend(const Value: IGPBlend);
  15617. begin
  15618. Assert(Assigned(Value));
  15619. GdipCheck(GdipSetPathGradientBlend(FNativeHandle, Value.FactorPtr,
  15620. Value.PositionPtr, Value.Count));
  15621. end;
  15622.  
  15623. procedure TGPPathGradientBrush.SetBlendBellShape(const Focus, Scale: Single);
  15624. begin
  15625. GdipCheck(GdipSetPathGradientSigmaBlend(FNativeHandle, Focus, Scale));
  15626. end;
  15627.  
  15628. procedure TGPPathGradientBrush.SetBlendTriangularShape(const Focus,
  15629. Scale: Single);
  15630. begin
  15631. GdipCheck(GdipSetPathGradientLinearBlend(FNativeHandle, Focus, Scale));
  15632. end;
  15633.  
  15634. procedure TGPPathGradientBrush.SetCenterColor(const Value: TGPColor);
  15635. begin
  15636. GdipCheck(GdipSetPathGradientCenterColor(FNativeHandle, Value.FArgb));
  15637. end;
  15638.  
  15639. procedure TGPPathGradientBrush.SetCenterPoint(const Value: TGPPointF);
  15640. begin
  15641. GdipCheck(GdipSetPathGradientCenterPoint(FNativeHandle, @Value));
  15642. end;
  15643.  
  15644. procedure TGPPathGradientBrush.SetCenterPointI(const Value: TGPPoint);
  15645. begin
  15646. GdipCheck(GdipSetPathGradientCenterPointI(FNativeHandle, @Value));
  15647. end;
  15648.  
  15649. procedure TGPPathGradientBrush.SetFocusScales(const XScale, YScale: Single);
  15650. begin
  15651. GdipCheck(GdipSetPathGradientFocusScales(FNativeHandle, XScale, YScale));
  15652. end;
  15653.  
  15654. procedure TGPPathGradientBrush.SetGammaCorrection(const Value: Boolean);
  15655. begin
  15656. GdipCheck(GdipSetPathGradientGammaCorrection(FNativeHandle, Value));
  15657. end;
  15658.  
  15659. procedure TGPPathGradientBrush.SetGraphicsPath(const Value: IGPGraphicsPath);
  15660. begin
  15661. if Assigned(Value) then
  15662. GdipCheck(GdipSetPathGradientPath(FNativeHandle, Value.NativeHandle))
  15663. else
  15664. GdipCheck(InvalidParameter);
  15665. end;
  15666.  
  15667. procedure TGPPathGradientBrush.SetInterpolationColors(const Value: IGPColorBlend);
  15668. begin
  15669. GdipCheck(GdipSetPathGradientPresetBlend(FNativeHandle, PARGB(Value.ColorPtr),
  15670. Value.PositionPtr, Value.Count));
  15671. end;
  15672.  
  15673. procedure TGPPathGradientBrush.SetSurroundColors(const Colors: array of TGPColor);
  15674. var
  15675. Count: Integer;
  15676. begin
  15677. Assert(Length(Colors) > 0);
  15678. Count := Length(Colors);
  15679. GdipCheck(GdipSetPathGradientSurroundColorsWithCount(FNativeHandle,
  15680. @Colors[0], Count));
  15681. end;
  15682.  
  15683. procedure TGPPathGradientBrush.SetSurroundColorsInternal(const Value: IGPColors);
  15684. var
  15685. Count: Integer;
  15686. begin
  15687. Assert(Assigned(Value));
  15688. Count := Value.Count;
  15689. GdipCheck(GdipSetPathGradientSurroundColorsWithCount(FNativeHandle,
  15690. Value.ItemPtr, Count));
  15691. Value.Count := Count;
  15692. end;
  15693.  
  15694. procedure TGPPathGradientBrush.SetTransform(const Value: IGPMatrix);
  15695. begin
  15696. GdipCheck(GdipSetPathGradientTransform(FNativeHandle, Value.NativeHandle));
  15697. end;
  15698.  
  15699. procedure TGPPathGradientBrush.SetWrapMode(const Value: TGPWrapMode);
  15700. begin
  15701. GdipCheck(GdipSetPathGradientWrapMode(FNativeHandle, Value));
  15702. end;
  15703.  
  15704. procedure TGPPathGradientBrush.TranslateTransform(const DX, DY: Single;
  15705. const Order: TGPMatrixOrder);
  15706. begin
  15707. GdipCheck(GdipTranslatePathGradientTransform(FNativeHandle, DX, DY, Order));
  15708. end;
  15709. {$ENDREGION 'GdiplusPath.h'}
  15710.  
  15711. {$REGION 'GdiplusGraphics.h'}
  15712.  
  15713. { TGPGraphics }
  15714.  
  15715. procedure TGPGraphics.AddMetafileComment(const Data: array of Byte);
  15716. begin
  15717. Assert(Length(Data) > 0);
  15718. GdipCheck(GdipComment(FNativeHandle, Length(Data), @Data[0]));
  15719. end;
  15720.  
  15721. function TGPGraphics.BeginContainer: TGPGraphicsContainer;
  15722. begin
  15723. GdipCheck(GdipBeginContainer2(FNativeHandle, Result));
  15724. end;
  15725.  
  15726. function TGPGraphics.BeginContainer(const DstRect, SrcRect: TGPRect;
  15727. const MeasureUnit: TGPUnit): TGPGraphicsContainer;
  15728. begin
  15729. GdipCheck(GdipBeginContainerI(FNativeHandle, @DstRect, @SrcRect, MeasureUnit, Result));
  15730. end;
  15731.  
  15732. function TGPGraphics.BeginContainer(const DstRect, SrcRect: TGPRectF;
  15733. const MeasureUnit: TGPUnit): TGPGraphicsContainer;
  15734. begin
  15735. GdipCheck(GdipBeginContainer(FNativeHandle, @DstRect, @SrcRect, MeasureUnit, Result));
  15736. end;
  15737.  
  15738. procedure TGPGraphics.Clear(const Color: TGPColor);
  15739. begin
  15740. GdipCheck(GdipGraphicsClear(FNativeHandle, Color.Value));
  15741. end;
  15742.  
  15743. constructor TGPGraphics.Create(const Image: IGPImage);
  15744. begin
  15745. inherited Create;
  15746. Assert(Assigned(Image));
  15747. GdipCheck(GdipGetImageGraphicsContext(Image.NativeHandle, FNativeHandle));
  15748. end;
  15749.  
  15750. constructor TGPGraphics.Create(const DC: HDC);
  15751. begin
  15752. inherited Create;
  15753. GdipCheck(GdipCreateFromHDC(DC, FNativeHandle));
  15754. end;
  15755.  
  15756. constructor TGPGraphics.Create(const DC: HDC; const Device: THandle);
  15757. begin
  15758. inherited Create;
  15759. GdipCheck(GdipCreateFromHDC2(DC, Device, FNativeHandle));
  15760. end;
  15761.  
  15762. constructor TGPGraphics.Create(const Window: HWnd; const ICM: Boolean);
  15763. begin
  15764. inherited Create;
  15765. if (ICM) then
  15766. GdipCheck(GdipCreateFromHWNDICM(Window, FNativeHandle))
  15767. else
  15768. GdipCheck(GdipCreateFromHWND(Window, FNativeHandle));
  15769. end;
  15770.  
  15771. destructor TGPGraphics.Destroy;
  15772. begin
  15773. GdipDeleteGraphics(FNativeHandle);
  15774. inherited;
  15775. end;
  15776.  
  15777. procedure TGPGraphics.DrawArc(const Pen: IGPPen; const Rect: TGPRect;
  15778. const StartAngle, SweepAngle: Single);
  15779. begin
  15780. DrawArc(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  15781. end;
  15782.  
  15783. procedure TGPGraphics.DrawArc(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  15784. const StartAngle, SweepAngle: Single);
  15785. begin
  15786. GdipCheck(GdipDrawArcI(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height,
  15787. StartAngle, SweepAngle));
  15788. end;
  15789.  
  15790. procedure TGPGraphics.DrawArc(const Pen: IGPPen; const Rect: TGPRectF;
  15791. const StartAngle, SweepAngle: Single);
  15792. begin
  15793. DrawArc(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  15794. end;
  15795.  
  15796. procedure TGPGraphics.DrawArc(const Pen: IGPPen; const X, Y, Width, Height,
  15797. StartAngle, SweepAngle: Single);
  15798. begin
  15799. GdipCheck(GdipDrawArc(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height,
  15800. StartAngle, SweepAngle));
  15801. end;
  15802.  
  15803. procedure TGPGraphics.DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3,
  15804. Pt4: TGPPoint);
  15805. begin
  15806. DrawBezier(Pen, Pt1.X, Pt1.Y, Pt2.X, Pt2.Y, Pt3.X, Pt3.Y, Pt4.X, Pt4.Y);
  15807. end;
  15808.  
  15809. procedure TGPGraphics.DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3,
  15810. X4, Y4: Integer);
  15811. begin
  15812. GdipCheck(GdipDrawBezierI(FNativeHandle, Pen.NativeHandle, X1, Y1, X2, Y2,
  15813. X3, Y3, X4, Y4));
  15814. end;
  15815.  
  15816. procedure TGPGraphics.DrawBezier(const Pen: IGPPen; const Pt1, Pt2, Pt3,
  15817. Pt4: TGPPointF);
  15818. begin
  15819. DrawBezier(Pen, Pt1.X, Pt1.Y, Pt2.X, Pt2.Y, Pt3.X, Pt3.Y, Pt4.X, Pt4.Y);
  15820. end;
  15821.  
  15822. procedure TGPGraphics.DrawBezier(const Pen: IGPPen; const X1, Y1, X2, Y2, X3, Y3,
  15823. X4, Y4: Single);
  15824. begin
  15825. GdipCheck(GdipDrawBezier(FNativeHandle, Pen.NativeHandle, X1, Y1, X2, Y2,
  15826. X3, Y3, X4, Y4));
  15827. end;
  15828.  
  15829. procedure TGPGraphics.DrawBeziers(const Pen: IGPPen; const Points: array of TGPPoint);
  15830. begin
  15831. Assert(Length(Points) > 0);
  15832. GdipCheck(GdipDrawBeziersI(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  15833. end;
  15834.  
  15835. procedure TGPGraphics.DrawBeziers(const Pen: IGPPen;
  15836. const Points: array of TGPPointF);
  15837. begin
  15838. Assert(Length(Points) > 0);
  15839. GdipCheck(GdipDrawBeziers(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  15840. end;
  15841.  
  15842. procedure TGPGraphics.DrawCachedBitmap(const CachedBitmap: IGPCachedBitmap; const X,
  15843. Y: Integer);
  15844. begin
  15845. GdipCheck(GdipDrawCachedBitmap(FNativeHandle, CachedBitmap.NativeHandle, X, Y));
  15846. end;
  15847.  
  15848. procedure TGPGraphics.DrawClosedCurve(const Pen: IGPPen;
  15849. const Points: array of TGPPoint; const Tension: Single);
  15850. begin
  15851. Assert(Length(Points) > 0);
  15852. GdipCheck(GdipDrawClosedCurve2I(FNativeHandle, Pen.NativeHandle, @Points[0],
  15853. Length(Points), Tension));
  15854. end;
  15855.  
  15856. procedure TGPGraphics.DrawClosedCurve(const Pen: IGPPen;
  15857. const Points: array of TGPPointF);
  15858. begin
  15859. Assert(Length(Points) > 0);
  15860. GdipCheck(GdipDrawClosedCurve(FNativeHandle, Pen.NativeHandle, @Points[0],
  15861. Length(Points)));
  15862. end;
  15863.  
  15864. procedure TGPGraphics.DrawClosedCurve(const Pen: IGPPen;
  15865. const Points: array of TGPPointF; const Tension: Single);
  15866. begin
  15867. Assert(Length(Points) > 0);
  15868. GdipCheck(GdipDrawClosedCurve2(FNativeHandle, Pen.NativeHandle, @Points[0],
  15869. Length(Points), Tension));
  15870. end;
  15871.  
  15872. procedure TGPGraphics.DrawClosedCurve(const Pen: IGPPen;
  15873. const Points: array of TGPPoint);
  15874. begin
  15875. Assert(Length(Points) > 0);
  15876. GdipCheck(GdipDrawClosedCurveI(FNativeHandle, Pen.NativeHandle, @Points[0],
  15877. Length(Points)));
  15878. end;
  15879.  
  15880. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  15881. const Offset, NumberOfSegments: Integer; const Tension: Single);
  15882. begin
  15883. Assert(Length(Points) > 0);
  15884. GdipCheck(GdipDrawCurve3(FNativeHandle, Pen.NativeHandle, @Points[0],
  15885. Length(Points), Offset, NumberOfSegments, Tension));
  15886. end;
  15887.  
  15888. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF;
  15889. const Tension: Single);
  15890. begin
  15891. Assert(Length(Points) > 0);
  15892. GdipCheck(GdipDrawCurve2(FNativeHandle, Pen.NativeHandle, @Points[0],
  15893. Length(Points), Tension));
  15894. end;
  15895.  
  15896. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPointF);
  15897. begin
  15898. Assert(Length(Points) > 0);
  15899. GdipCheck(GdipDrawCurve(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  15900. end;
  15901.  
  15902. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  15903. const Offset, NumberOfSegments: Integer; const Tension: Single);
  15904. begin
  15905. Assert(Length(Points) > 0);
  15906. GdipCheck(GdipDrawCurve3I(FNativeHandle, Pen.NativeHandle, @Points[0],
  15907. Length(Points), Offset, NumberOfSegments, Tension));
  15908. end;
  15909.  
  15910. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint;
  15911. const Tension: Single);
  15912. begin
  15913. Assert(Length(Points) > 0);
  15914. GdipCheck(GdipDrawCurve2I(FNativeHandle, Pen.NativeHandle, @Points[0],
  15915. Length(Points), Tension));
  15916. end;
  15917.  
  15918. procedure TGPGraphics.DrawCurve(const Pen: IGPPen; const Points: array of TGPPoint);
  15919. begin
  15920. Assert(Length(Points) > 0);
  15921. GdipCheck(GdipDrawCurveI(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  15922. end;
  15923.  
  15924. procedure TGPGraphics.DrawDriverString(const Text: PUInt16; const Length: Integer;
  15925. const Font: IGPFont; const Brush: IGPBrush; const Positions: PGPPointF;
  15926. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix);
  15927. begin
  15928. GdipCheck(GdipDrawDriverString(FNativeHandle, Text, Length, GdipHandle(Font),
  15929. GdipHandle(Brush), Positions, Flags, GdipHandle(Matrix)));
  15930. end;
  15931.  
  15932. procedure TGPGraphics.DrawEllipse(const Pen: IGPPen; const X, Y, Width,
  15933. Height: Single);
  15934. begin
  15935. GdipCheck(GdipDrawEllipse(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height));
  15936. end;
  15937.  
  15938. procedure TGPGraphics.DrawEllipse(const Pen: IGPPen; const Rect: TGPRect);
  15939. begin
  15940. DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  15941. end;
  15942.  
  15943. procedure TGPGraphics.DrawEllipse(const Pen: IGPPen; const X, Y, Width,
  15944. Height: Integer);
  15945. begin
  15946. GdipCheck(GdipDrawEllipseI(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height));
  15947. end;
  15948.  
  15949. procedure TGPGraphics.DrawEllipse(const Pen: IGPPen; const Rect: TGPRectF);
  15950. begin
  15951. DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  15952. end;
  15953.  
  15954. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY,
  15955. SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit);
  15956. begin
  15957. GdipCheck(GdipDrawImagePointRect(FNativeHandle, GdipHandle(Image),
  15958. X, Y, SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit));
  15959. end;
  15960.  
  15961. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DestRect: TGPRect;
  15962. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  15963. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  15964. const CallbackData: Pointer);
  15965. begin
  15966. GdipCheck(GdipDrawImageRectRectI(FNativeHandle, GdipHandle(Image),
  15967. DestRect.X, DestRect.Y, DestRect.Width, DestRect.Height,
  15968. SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit, GdipHandle(ImageAttributes),
  15969. Callback, CallbackData));
  15970. end;
  15971.  
  15972. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DestPoints: TGPPlgPoints;
  15973. const SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  15974. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  15975. const CallbackData: Pointer);
  15976. begin
  15977. GdipCheck(GdipDrawImagePointsRectI(FNativeHandle, GdipHandle(Image),
  15978. @DestPoints, 3, SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit,
  15979. GdipHandle(ImageAttributes), Callback, CallbackData));
  15980. end;
  15981.  
  15982. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  15983. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  15984. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  15985. const CallbackData: Pointer);
  15986. begin
  15987. GdipCheck(GdipDrawImageRectRect(FNativeHandle, GdipHandle(Image),
  15988. DstX, DstY, DstWidth, DstHeight, SrcX, SrcY, SrcWidth, SrcHeight,
  15989. SrcUnit, GdipHandle(ImageAttributes), Callback, CallbackData));
  15990. end;
  15991.  
  15992. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DstX, DstY, DstWidth,
  15993. DstHeight, SrcX, SrcY, SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit;
  15994. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  15995. const CallbackData: Pointer);
  15996. begin
  15997. GdipCheck(GdipDrawImageRectRectI(FNativeHandle, GdipHandle(Image),
  15998. DstX, DstY, DstWidth, DstHeight, SrcX, SrcY, SrcWidth, SrcHeight,
  15999. SrcUnit, GdipHandle(ImageAttributes), Callback, CallbackData));
  16000. end;
  16001.  
  16002. procedure TGPGraphics.DrawImage(const Image: IGPImage; const Rect: TGPRect);
  16003. begin
  16004. DrawImage(Image, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16005. end;
  16006.  
  16007. procedure TGPGraphics.DrawImage(const Image: IGPImage;
  16008. const DestPoints: TGPPlgPointsF; const SrcX, SrcY, SrcWidth,
  16009. SrcHeight: Single; const SrcUnit: TGPUnit;
  16010. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  16011. const CallbackData: Pointer);
  16012. begin
  16013. GdipCheck(GdipDrawImagePointsRect(FNativeHandle, GdipHandle(Image),
  16014. @DestPoints, 3, SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit,
  16015. GdipHandle(ImageAttributes), Callback, CallbackData));
  16016. end;
  16017.  
  16018. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DestRect: TGPRectF;
  16019. const SrcX, SrcY, SrcWidth, SrcHeight: Single; const SrcUnit: TGPUnit;
  16020. const ImageAttributes: IGPImageAttributes; const Callback: TGPDrawImageAbort;
  16021. const CallbackData: Pointer);
  16022. begin
  16023. GdipCheck(GdipDrawImageRectRect(FNativeHandle, GdipHandle(Image),
  16024. DestRect.X, DestRect.Y, DestRect.Width, DestRect.Height,
  16025. SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit, GdipHandle(ImageAttributes),
  16026. Callback, CallbackData));
  16027. end;
  16028.  
  16029. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y, Width,
  16030. Height: Single);
  16031. begin
  16032. GdipCheck(GdipDrawImageRect(FNativeHandle, GdipHandle(Image), X, Y, Width, Height));
  16033. end;
  16034.  
  16035. procedure TGPGraphics.DrawImage(const Image: IGPImage; const Point: TGPPoint);
  16036. begin
  16037. DrawImage(Image, Point.X, Point.Y);
  16038. end;
  16039.  
  16040. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y: Integer);
  16041. begin
  16042. GdipCheck(GdipDrawImageI(FNativeHandle, GdipHandle(Image), X, Y));
  16043. end;
  16044.  
  16045. procedure TGPGraphics.DrawImage(const Image: IGPImage; const Rect: TGPRectF);
  16046. begin
  16047. DrawImage(Image, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16048. end;
  16049.  
  16050. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y, SrcX, SrcY,
  16051. SrcWidth, SrcHeight: Integer; const SrcUnit: TGPUnit);
  16052. begin
  16053. GdipCheck(GdipDrawImagePointRectI(FNativeHandle, GdipHandle(Image),
  16054. X, Y, SrcX, SrcY, SrcWidth, SrcHeight, SrcUnit));
  16055. end;
  16056.  
  16057. procedure TGPGraphics.DrawImage(const Image: IGPImage; const Point: TGPPointF);
  16058. begin
  16059. DrawImage(Image, Point.X, Point.Y);
  16060. end;
  16061.  
  16062. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y: Single);
  16063. begin
  16064. GdipCheck(GdipDrawImage(FNativeHandle, GdipHandle(Image), X, Y));
  16065. end;
  16066.  
  16067. procedure TGPGraphics.DrawImage(const Image: IGPImage;
  16068. const DestPoints: TGPPlgPoints);
  16069. begin
  16070. GdipCheck(GdipDrawImagePointsI(FNativeHandle, GdipHandle(Image), @DestPoints[0], 3));
  16071. end;
  16072.  
  16073. procedure TGPGraphics.DrawImage(const Image: IGPImage;
  16074. const DestPoints: TGPPlgPointsF);
  16075. begin
  16076. GdipCheck(GdipDrawImagePoints(FNativeHandle, GdipHandle(Image), @DestPoints[0], 3));
  16077. end;
  16078.  
  16079. procedure TGPGraphics.DrawImage(const Image: IGPImage; const X, Y, Width,
  16080. Height: Integer);
  16081. begin
  16082. GdipCheck(GdipDrawImageRectI(FNativeHandle, GdipHandle(Image), X, Y, Width, Height));
  16083. end;
  16084.  
  16085. {$IF (GDIPVER >= $0110)}
  16086. procedure TGPGraphics.DrawImage(const Image: IGPImage; const DestRect,
  16087. SourceRect: TGPRectF; const SrcUnit: TGPUnit;
  16088. const ImageAttributes: IGPImageAttributes);
  16089. begin
  16090. GdipCheck(GdipDrawImageRectRect(FNativeHandle, Image.NativeHandle,
  16091. DestRect.X, DestRect.Y, DestRect.Width, DestRect.Height,
  16092. SourceRect.X, SourceRect.Y, SourceRect.Width, SourceRect.Height,
  16093. SrcUnit, GdipHandle(ImageAttributes), nil, nil));
  16094. end;
  16095.  
  16096. procedure TGPGraphics.DrawImage(const Image: IGPImage; const SourceRect: TGPRectF;
  16097. const XForm: IGPMatrix; const Effect: IGPEffect;
  16098. const ImageAttributes: IGPImageAttributes; const SrcUnit: TGPUnit);
  16099. begin
  16100. GdipCheck(GdipDrawImageFX(FNativeHandle, Image.NativeHandle, @SourceRect,
  16101. GdipHandle(XForm), GdipHandle(Effect), GdipHandle(ImageAttributes), SrcUnit));
  16102. end;
  16103. {$IFEND}
  16104.  
  16105. procedure TGPGraphics.DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPoint);
  16106. begin
  16107. DrawLine(Pen, Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  16108. end;
  16109.  
  16110. procedure TGPGraphics.DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Single);
  16111. begin
  16112. GdipCheck(GdipDrawLine(FNativeHandle, Pen.NativeHandle, X1, Y1, X2, Y2));
  16113. end;
  16114.  
  16115. procedure TGPGraphics.DrawLine(const Pen: IGPPen; const Pt1, Pt2: TGPPointF);
  16116. begin
  16117. DrawLine(Pen, Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  16118. end;
  16119.  
  16120. procedure TGPGraphics.DrawLine(const Pen: IGPPen; const X1, Y1, X2, Y2: Integer);
  16121. begin
  16122. GdipCheck(GdipDrawLineI(FNativeHandle, Pen.NativeHandle, X1, Y1, X2, Y2));
  16123. end;
  16124.  
  16125. procedure TGPGraphics.DrawLines(const Pen: IGPPen; const Points: array of TGPPoint);
  16126. begin
  16127. Assert(Length(Points) > 0);
  16128. GdipCheck(GdipDrawLinesI(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  16129. end;
  16130.  
  16131. procedure TGPGraphics.DrawLines(const Pen: IGPPen; const Points: array of TGPPointF);
  16132. begin
  16133. Assert(Length(Points) > 0);
  16134. GdipCheck(GdipDrawLines(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  16135. end;
  16136.  
  16137. procedure TGPGraphics.DrawPath(const Pen: IGPPen; const Path: IGPGraphicsPath);
  16138. begin
  16139. GdipCheck(GdipDrawPath(FNativeHandle, GdipHandle(Pen), GdipHandle(Path)));
  16140. end;
  16141.  
  16142. procedure TGPGraphics.DrawPie(const Pen: IGPPen; const X, Y, Width, Height,
  16143. StartAngle, SweepAngle: Single);
  16144. begin
  16145. GdipCheck(GdipDrawPie(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height,
  16146. StartAngle, SweepAngle));
  16147. end;
  16148.  
  16149. procedure TGPGraphics.DrawPie(const Pen: IGPPen; const Rect: TGPRectF;
  16150. const StartAngle, SweepAngle: Single);
  16151. begin
  16152. DrawPie(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  16153. end;
  16154.  
  16155. procedure TGPGraphics.DrawPie(const Pen: IGPPen; const X, Y, Width, Height: Integer;
  16156. const StartAngle, SweepAngle: Single);
  16157. begin
  16158. GdipCheck(GdipDrawPieI(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height,
  16159. StartAngle, SweepAngle));
  16160. end;
  16161.  
  16162. procedure TGPGraphics.DrawPie(const Pen: IGPPen; const Rect: TGPRect;
  16163. const StartAngle, SweepAngle: Single);
  16164. begin
  16165. DrawPie(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  16166. end;
  16167.  
  16168. procedure TGPGraphics.DrawPolygon(const Pen: IGPPen; const Points: array of TGPPoint);
  16169. begin
  16170. Assert(Length(Points) > 0);
  16171. GdipCheck(GdipDrawPolygonI(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  16172. end;
  16173.  
  16174. procedure TGPGraphics.DrawPolygon(const Pen: IGPPen;
  16175. const Points: array of TGPPointF);
  16176. begin
  16177. Assert(Length(Points) > 0);
  16178. GdipCheck(GdipDrawPolygon(FNativeHandle, Pen.NativeHandle, @Points[0], Length(Points)));
  16179. end;
  16180.  
  16181. procedure TGPGraphics.DrawRectangle(const Pen: IGPPen; const Rect: TGPRectF);
  16182. begin
  16183. DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16184. end;
  16185.  
  16186. procedure TGPGraphics.DrawRectangle(const Pen: IGPPen; const Rect: TGPRect);
  16187. begin
  16188. DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16189. end;
  16190.  
  16191. procedure TGPGraphics.DrawRectangle(const Pen: IGPPen; const X, Y, Width,
  16192. Height: Single);
  16193. begin
  16194. GdipCheck(GdipDrawRectangle(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height));
  16195. end;
  16196.  
  16197. procedure TGPGraphics.DrawRectangle(const Pen: IGPPen; const X, Y, Width,
  16198. Height: Integer);
  16199. begin
  16200. GdipCheck(GdipDrawRectangleI(FNativeHandle, Pen.NativeHandle, X, Y, Width, Height));
  16201. end;
  16202.  
  16203. procedure TGPGraphics.DrawRectangles(const Pen: IGPPen;
  16204. const Rects: array of TGPRect);
  16205. begin
  16206. Assert(Length(Rects) > 0);
  16207. GdipCheck(GdipDrawRectanglesI(FNativeHandle, Pen.NativeHandle, @Rects[0], Length(Rects)));
  16208. end;
  16209.  
  16210. procedure TGPGraphics.DrawRectangles(const Pen: IGPPen;
  16211. const Rects: array of TGPRectF);
  16212. begin
  16213. Assert(Length(Rects) > 0);
  16214. GdipCheck(GdipDrawRectangles(FNativeHandle, Pen.NativeHandle, @Rects[0], Length(Rects)));
  16215. end;
  16216.  
  16217. procedure TGPGraphics.DrawString(const Str: String; const Font: IGPFont;
  16218. const Origin: TGPPointF; const Brush: IGPBrush);
  16219. var
  16220. Rect: TGPRectF;
  16221. begin
  16222. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  16223. GdipCheck(GdipDrawString(FNativeHandle, PWideChar(Str), Length(Str),
  16224. GdipHandle(Font), @Rect, nil, GdipHandle(Brush)));
  16225. end;
  16226.  
  16227. procedure TGPGraphics.DrawString(const Str: String; const Font: IGPFont;
  16228. const Origin: TGPPointF; const Format: IGPStringFormat; const Brush: IGPBrush);
  16229. var
  16230. Rect: TGPRectF;
  16231. begin
  16232. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  16233. GdipCheck(GdipDrawString(FNativeHandle, PWideChar(Str), Length(Str),
  16234. GdipHandle(Font), @Rect, GdipHandle(Format), GdipHandle(Brush)));
  16235. end;
  16236.  
  16237. procedure TGPGraphics.DrawString(const Str: String; const Font: IGPFont;
  16238. const LayoutRect: TGPRectF; const Format: IGPStringFormat; const Brush: IGPBrush);
  16239. begin
  16240. GdipCheck(GdipDrawString(FNativeHandle, PWideChar(Str), Length(Str),
  16241. GdipHandle(Font), @LayoutRect, GdipHandle(Format), GdipHandle(Brush)));
  16242. end;
  16243.  
  16244. procedure TGPGraphics.EndContainer(const State: TGPGraphicsContainer);
  16245. begin
  16246. GdipCheck(GdipEndContainer(FNativeHandle, State));
  16247. end;
  16248.  
  16249. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile; const DestRect,
  16250. SrcRect: TGPRectF; const SrcUnit: TGPUnit; const Callback: TGPEnumerateMetafileProc;
  16251. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16252. begin
  16253. GdipCheck(GdipEnumerateMetafileSrcRectDestRect(FNativeHandle,
  16254. GdipHandle(Metafile), @DestRect, @SrcRect, SrcUnit, Callback,
  16255. CallbackData, GdipHandle(ImageAttributes)));
  16256. end;
  16257.  
  16258. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16259. const DestPoint: TGPPoint; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  16260. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer;
  16261. const ImageAttributes: IGPImageAttributes);
  16262. begin
  16263. GdipCheck(GdipEnumerateMetafileSrcRectDestPointI(FNativeHandle,
  16264. GdipHandle(Metafile), @DestPoint, @SrcRect, SrcUnit, Callback,
  16265. CallbackData, GdipHandle(ImageAttributes)));
  16266. end;
  16267.  
  16268. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16269. const DestPoint: TGPPointF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  16270. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer;
  16271. const ImageAttributes: IGPImageAttributes);
  16272. begin
  16273. GdipCheck(GdipEnumerateMetafileSrcRectDestPoint(FNativeHandle,
  16274. GdipHandle(Metafile), @DestPoint, @SrcRect, SrcUnit, Callback,
  16275. CallbackData, GdipHandle(ImageAttributes)));
  16276. end;
  16277.  
  16278. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16279. const DestPoints: TGPPlgPoints; const SrcRect: TGPRect; const SrcUnit: TGPUnit;
  16280. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer;
  16281. const ImageAttributes: IGPImageAttributes);
  16282. begin
  16283. GdipCheck(GdipEnumerateMetafileSrcRectDestPointsI(FNativeHandle,
  16284. GdipHandle(Metafile), @DestPoints[0], 3, @SrcRect, SrcUnit, Callback,
  16285. CallbackData, GdipHandle(ImageAttributes)));
  16286. end;
  16287.  
  16288. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16289. const DestPoints: TGPPlgPointsF; const SrcRect: TGPRectF; const SrcUnit: TGPUnit;
  16290. const Callback: TGPEnumerateMetafileProc; const CallbackData: Pointer;
  16291. const ImageAttributes: IGPImageAttributes);
  16292. begin
  16293. GdipCheck(GdipEnumerateMetafileSrcRectDestPoints(FNativeHandle,
  16294. GdipHandle(Metafile), @DestPoints[0], 3, @SrcRect, SrcUnit, Callback,
  16295. CallbackData, GdipHandle(ImageAttributes)));
  16296. end;
  16297.  
  16298. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile; const DestRect,
  16299. SrcRect: TGPRect; const SrcUnit: TGPUnit; const Callback: TGPEnumerateMetafileProc;
  16300. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16301. begin
  16302. GdipCheck(GdipEnumerateMetafileSrcRectDestRectI(FNativeHandle,
  16303. GdipHandle(Metafile), @DestRect, @SrcRect, SrcUnit, Callback,
  16304. CallbackData, GdipHandle(ImageAttributes)));
  16305. end;
  16306.  
  16307. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16308. const DestRect: TGPRectF; const Callback: TGPEnumerateMetafileProc;
  16309. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16310. begin
  16311. GdipCheck(GdipEnumerateMetafileDestRect(FNativeHandle, GdipHandle(Metafile),
  16312. @DestRect, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16313. end;
  16314.  
  16315. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16316. const DestPoint: TGPPoint; const Callback: TGPEnumerateMetafileProc;
  16317. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16318. begin
  16319. GdipCheck(GdipEnumerateMetafileDestPointI(FNativeHandle, GdipHandle(Metafile),
  16320. @DestPoint, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16321. end;
  16322.  
  16323. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16324. const DestPoint: TGPPointF; const Callback: TGPEnumerateMetafileProc;
  16325. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16326. begin
  16327. GdipCheck(GdipEnumerateMetafileDestPoint(FNativeHandle, GdipHandle(Metafile),
  16328. @DestPoint, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16329. end;
  16330.  
  16331. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16332. const DestPoints: TGPPlgPoints; const Callback: TGPEnumerateMetafileProc;
  16333. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16334. begin
  16335. GdipCheck(GdipEnumerateMetafileDestPointsI(FNativeHandle, GdipHandle(Metafile),
  16336. @DestPoints[0], 3, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16337. end;
  16338.  
  16339. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16340. const DestPoints: TGPPlgPointsF; const Callback: TGPEnumerateMetafileProc;
  16341. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16342. begin
  16343. GdipCheck(GdipEnumerateMetafileDestPoints(FNativeHandle, GdipHandle(Metafile),
  16344. @DestPoints[0], 3, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16345. end;
  16346.  
  16347. procedure TGPGraphics.EnumerateMetafile(const Metafile: IGPMetafile;
  16348. const DestRect: TGPRect; const Callback: TGPEnumerateMetafileProc;
  16349. const CallbackData: Pointer; const ImageAttributes: IGPImageAttributes);
  16350. begin
  16351. GdipCheck(GdipEnumerateMetafileDestRectI(FNativeHandle, GdipHandle(Metafile),
  16352. @DestRect, Callback, CallbackData, GdipHandle(ImageAttributes)));
  16353. end;
  16354.  
  16355. procedure TGPGraphics.ExcludeClip(const Region: IGPRegion);
  16356. begin
  16357. GdipCheck(GdipSetClipRegion(FNativeHandle, Region.NativeHandle, CombineModeExclude));
  16358. end;
  16359.  
  16360. procedure TGPGraphics.ExcludeClip(const Rect: TGPRect);
  16361. begin
  16362. GdipCheck(GdipSetClipRectI(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16363. Rect.Height, CombineModeExclude));
  16364. end;
  16365.  
  16366. procedure TGPGraphics.ExcludeClip(const Rect: TGPRectF);
  16367. begin
  16368. GdipCheck(GdipSetClipRect(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16369. Rect.Height, CombineModeExclude));
  16370. end;
  16371.  
  16372. procedure TGPGraphics.FillClosedCurve(const Brush: IGPBrush;
  16373. const Points: array of TGPPointF);
  16374. begin
  16375. Assert(Length(Points) > 0);
  16376. GdipCheck(GdipFillClosedCurve(FNativeHandle, Brush.NativeHandle, @Points[0],
  16377. Length(Points)));
  16378. end;
  16379.  
  16380. procedure TGPGraphics.FillClosedCurve(const Brush: IGPBrush;
  16381. const Points: array of TGPPoint);
  16382. begin
  16383. Assert(Length(Points) > 0);
  16384. GdipCheck(GdipFillClosedCurveI(FNativeHandle, Brush.NativeHandle, @Points[0],
  16385. Length(Points)));
  16386. end;
  16387.  
  16388. procedure TGPGraphics.FillClosedCurve(const Brush: IGPBrush;
  16389. const Points: array of TGPPoint; const FillMode: TGPFillMode;
  16390. const Tension: Single);
  16391. begin
  16392. Assert(Length(Points) > 0);
  16393. GdipCheck(GdipFillClosedCurve2I(FNativeHandle, Brush.NativeHandle, @Points[0],
  16394. Length(Points), Tension, FillMode));
  16395. end;
  16396.  
  16397. procedure TGPGraphics.FillClosedCurve(const Brush: IGPBrush;
  16398. const Points: array of TGPPointF; const FillMode: TGPFillMode;
  16399. const Tension: Single);
  16400. begin
  16401. Assert(Length(Points) > 0);
  16402. GdipCheck(GdipFillClosedCurve2(FNativeHandle, Brush.NativeHandle, @Points[0],
  16403. Length(Points), Tension, FillMode));
  16404. end;
  16405.  
  16406. procedure TGPGraphics.FillEllipse(const Brush: IGPBrush; const Rect: TGPRect);
  16407. begin
  16408. FillEllipse(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16409. end;
  16410.  
  16411. procedure TGPGraphics.FillEllipse(const Brush: IGPBrush; const X, Y, Width,
  16412. Height: Integer);
  16413. begin
  16414. GdipCheck(GdipFillEllipseI(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height));
  16415. end;
  16416.  
  16417. procedure TGPGraphics.FillEllipse(const Brush: IGPBrush; const Rect: TGPRectF);
  16418. begin
  16419. FillEllipse(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16420. end;
  16421.  
  16422. procedure TGPGraphics.FillEllipse(const Brush: IGPBrush; const X, Y, Width,
  16423. Height: Single);
  16424. begin
  16425. GdipCheck(GdipFillEllipse(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height));
  16426. end;
  16427.  
  16428. procedure TGPGraphics.FillPath(const Brush: IGPBrush;
  16429. const Path: IGPGraphicsPath);
  16430. begin
  16431. GdipCheck(GdipFillPath(FNativeHandle, Brush.NativeHandle, Path.NativeHandle));
  16432. end;
  16433.  
  16434. procedure TGPGraphics.FillPie(const Brush: IGPBrush; const Rect: TGPRectF;
  16435. const StartAngle, SweepAngle: Single);
  16436. begin
  16437. FillPie(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  16438. end;
  16439.  
  16440. procedure TGPGraphics.FillPie(const Brush: IGPBrush; const X, Y, Width,
  16441. Height: Integer; const StartAngle, SweepAngle: Single);
  16442. begin
  16443. GdipCheck(GdipFillPieI(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height,
  16444. StartAngle, SweepAngle));
  16445. end;
  16446.  
  16447. procedure TGPGraphics.FillPie(const Brush: IGPBrush; const Rect: TGPRect;
  16448. const StartAngle, SweepAngle: Single);
  16449. begin
  16450. FillPie(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height, StartAngle, SweepAngle);
  16451. end;
  16452.  
  16453. procedure TGPGraphics.FillPie(const Brush: IGPBrush; const X, Y, Width, Height,
  16454. StartAngle, SweepAngle: Single);
  16455. begin
  16456. GdipCheck(GdipFillPie(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height,
  16457. StartAngle, SweepAngle));
  16458. end;
  16459.  
  16460. procedure TGPGraphics.FillPolygon(const Brush: IGPBrush;
  16461. const Points: array of TGPPoint);
  16462. begin
  16463. FillPolygon(Brush, Points, FillModeAlternate);
  16464. end;
  16465.  
  16466. procedure TGPGraphics.FillPolygon(const Brush: IGPBrush;
  16467. const Points: array of TGPPointF; const FillMode: TGPFillMode);
  16468. begin
  16469. Assert(Length(Points) > 0);
  16470. GdipCheck(GdipFillPolygon(FNativeHandle, Brush.NativeHandle, @Points[0],
  16471. Length(Points), FillMode));
  16472. end;
  16473.  
  16474. procedure TGPGraphics.FillPolygon(const Brush: IGPBrush;
  16475. const Points: array of TGPPoint; const FillMode: TGPFillMode);
  16476. begin
  16477. Assert(Length(Points) > 0);
  16478. GdipCheck(GdipFillPolygonI(FNativeHandle, Brush.NativeHandle, @Points[0],
  16479. Length(Points), FillMode));
  16480. end;
  16481.  
  16482. procedure TGPGraphics.FillPolygon(const Brush: IGPBrush;
  16483. const Points: array of TGPPointF);
  16484. begin
  16485. FillPolygon(Brush, Points, FillModeAlternate);
  16486. end;
  16487.  
  16488. procedure TGPGraphics.FillRectangle(const Brush: IGPBrush; const X, Y, Width,
  16489. Height: Integer);
  16490. begin
  16491. GdipCheck(GdipFillRectangleI(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height));
  16492. end;
  16493.  
  16494. procedure TGPGraphics.FillRectangle(const Brush: IGPBrush; const Rect: TGPRect);
  16495. begin
  16496. FillRectangle(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16497. end;
  16498.  
  16499. procedure TGPGraphics.FillRectangle(const Brush: IGPBrush; const Rect: TGPRectF);
  16500. begin
  16501. FillRectangle(Brush, Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16502. end;
  16503.  
  16504. procedure TGPGraphics.FillRectangle(const Brush: IGPBrush; const X, Y, Width,
  16505. Height: Single);
  16506. begin
  16507. GdipCheck(GdipFillRectangle(FNativeHandle, Brush.NativeHandle, X, Y, Width, Height));
  16508. end;
  16509.  
  16510. procedure TGPGraphics.FillRectangles(const Brush: IGPBrush;
  16511. const Rects: array of TGPRect);
  16512. begin
  16513. Assert(Length(Rects) > 0);
  16514. GdipCheck(GdipFillRectanglesI(FNativeHandle, Brush.NativeHandle, @Rects[0], Length(Rects)));
  16515. end;
  16516.  
  16517. procedure TGPGraphics.FillRectangles(const Brush: IGPBrush;
  16518. const Rects: array of TGPRectF);
  16519. begin
  16520. Assert(Length(Rects) > 0);
  16521. GdipCheck(GdipFillRectangles(FNativeHandle, Brush.NativeHandle, @Rects[0], Length(Rects)));
  16522. end;
  16523.  
  16524. procedure TGPGraphics.FillRegion(const Brush: IGPBrush; const Region: IGPRegion);
  16525. begin
  16526. GdipCheck(GdipFillRegion(FNativeHandle, Brush.NativeHandle, Region.NativeHandle));
  16527. end;
  16528.  
  16529. procedure TGPGraphics.Flush(const Intention: TGPFlushIntention);
  16530. begin
  16531. GdipFlush(FNativeHandle, Intention);
  16532. end;
  16533.  
  16534. class function TGPGraphics.FromHDC(const DC: HDC): IGPGraphics;
  16535. begin
  16536. Result := TGPGraphics.Create(DC);
  16537. end;
  16538.  
  16539. class function TGPGraphics.FromHDC(const DC: HDC;
  16540. const Device: THandle): IGPGraphics;
  16541. begin
  16542. Result := TGPGraphics.Create(DC, Device);
  16543. end;
  16544.  
  16545. class function TGPGraphics.FromHWnd(const Window: HWnd;
  16546. const ICM: Boolean): IGPGraphics;
  16547. begin
  16548. Result := TGPGraphics.Create(Window, ICM);
  16549. end;
  16550.  
  16551. class function TGPGraphics.FromImage(const Image: IGPImage): IGPGraphics;
  16552. begin
  16553. Result := TGPGraphics.Create(Image);
  16554. end;
  16555.  
  16556. function TGPGraphics.GetClip: IGPRegion;
  16557. begin
  16558. Result := TGPRegion.Create;
  16559. GdipCheck(GdipGetClip(FNativeHandle, Result.NativeHandle));
  16560. end;
  16561.  
  16562. function TGPGraphics.GetClipBounds: TGPRectF;
  16563. begin
  16564. GdipCheck(GdipGetClipBounds(FNativeHandle, Result));
  16565. end;
  16566.  
  16567. function TGPGraphics.GetClipBoundsI: TGPRect;
  16568. begin
  16569. GdipCheck(GdipGetClipBoundsI(FNativeHandle, Result));
  16570. end;
  16571.  
  16572. function TGPGraphics.GetCompositingMode: TGPCompositingMode;
  16573. begin
  16574. GdipCheck(GdipGetCompositingMode(FNativeHandle, Result));
  16575. end;
  16576.  
  16577. function TGPGraphics.GetCompositingQuality: TGPCompositingQuality;
  16578. begin
  16579. GdipCheck(GdipGetCompositingQuality(FNativeHandle, Result));
  16580. end;
  16581.  
  16582. function TGPGraphics.GetDpiX: Single;
  16583. begin
  16584. GdipCheck(GdipGetDpiX(FNativeHandle, Result));
  16585. end;
  16586.  
  16587. function TGPGraphics.GetDpiY: Single;
  16588. begin
  16589. GdipCheck(GdipGetDpiY(FNativeHandle, Result));
  16590. end;
  16591.  
  16592. function TGPGraphics.GetHDC: HDC;
  16593. begin
  16594. Result := 0;
  16595. GdipCheck(GdipGetDC(FNativeHandle, Result));
  16596. end;
  16597.  
  16598. function TGPGraphics.GetInterpolationMode: TGPInterpolationMode;
  16599. begin
  16600. GdipCheck(GdipGetInterpolationMode(FNativeHandle, Result));
  16601. end;
  16602.  
  16603. function TGPGraphics.GetIsClipEmpty: Boolean;
  16604. var
  16605. B: Bool;
  16606. begin
  16607. B := False;
  16608. GdipCheck(GdipIsClipEmpty(FNativeHandle, B));
  16609. Result := B;
  16610. end;
  16611.  
  16612. function TGPGraphics.GetIsVisibleClipEmpty: Boolean;
  16613. var
  16614. B: Bool;
  16615. begin
  16616. B := False;
  16617. GdipCheck(GdipIsVisibleClipEmpty(FNativeHandle, B));
  16618. Result := B;
  16619. end;
  16620.  
  16621. function TGPGraphics.GetNearestColor(const Color: TGPColor): TGPColor;
  16622. var
  16623. C: ARGB;
  16624. begin
  16625. C := Color.Value;
  16626. GdipCheck(GdipGetNearestColor(FNativeHandle, @C));
  16627. Result.Value := C;
  16628. end;
  16629.  
  16630. function TGPGraphics.GetPageScale: Single;
  16631. begin
  16632. GdipCheck(GdipGetPageScale(FNativeHandle, Result));
  16633. end;
  16634.  
  16635. function TGPGraphics.GetPageUnit: TGPUnit;
  16636. begin
  16637. GdipCheck(GdipGetPageUnit(FNativeHandle, Result));
  16638. end;
  16639.  
  16640. function TGPGraphics.GetPixelOffsetMode: TGPPixelOffsetMode;
  16641. begin
  16642. GdipCheck(GdipGetPixelOffsetMode(FNativeHandle, Result));
  16643. end;
  16644.  
  16645. procedure TGPGraphics.GetRenderingOrigin(out X, Y: Integer);
  16646. begin
  16647. GdipCheck(GdipGetRenderingOrigin(FNativeHandle, X, Y));
  16648. end;
  16649.  
  16650. function TGPGraphics.GetRenderingOrigin: TGPPoint;
  16651. begin
  16652. GdipCheck(GdipGetRenderingOrigin(FNativeHandle, Result.X, Result.Y));
  16653. end;
  16654.  
  16655. function TGPGraphics.GetSmoothingMode: TGPSmoothingMode;
  16656. begin
  16657. GdipCheck(GdipGetSmoothingMode(FNativeHandle, Result));
  16658. end;
  16659.  
  16660. function TGPGraphics.GetTextContrast: Integer;
  16661. begin
  16662. GdipCheck(GdipGetTextContrast(FNativeHandle, Result));
  16663. end;
  16664.  
  16665. function TGPGraphics.GetTextRenderingHint: TGPTextRenderingHint;
  16666. begin
  16667. GdipCheck(GdipGetTextRenderingHint(FNativeHandle, Result));
  16668. end;
  16669.  
  16670. function TGPGraphics.GetTransform: IGPMatrix;
  16671. begin
  16672. Result := TGPMatrix.Create;
  16673. GdipCheck(GdipGetWorldTransform(FNativeHandle, Result.NativeHandle));
  16674. end;
  16675.  
  16676. function TGPGraphics.GetVisibleClipBounds: TGPRectF;
  16677. begin
  16678. GdipCheck(GdipGetVisibleClipBounds(FNativeHandle, Result));
  16679. end;
  16680.  
  16681. function TGPGraphics.GetVisibleClipBoundsI: TGPRect;
  16682. begin
  16683. GdipCheck(GdipGetVisibleClipBoundsI(FNativeHandle, Result));
  16684. end;
  16685.  
  16686. procedure TGPGraphics.IntersectClip(const Rect: TGPRectF);
  16687. begin
  16688. GdipCheck(GdipSetClipRect(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16689. Rect.Height, CombineModeIntersect));
  16690. end;
  16691.  
  16692. procedure TGPGraphics.IntersectClip(const Rect: TGPRect);
  16693. begin
  16694. GdipCheck(GdipSetClipRectI(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16695. Rect.Height, CombineModeIntersect));
  16696. end;
  16697.  
  16698. procedure TGPGraphics.IntersectClip(const Region: IGPRegion);
  16699. begin
  16700. GdipCheck(GdipSetClipRegion(FNativeHandle, Region.NativeHandle, CombineModeIntersect));
  16701. end;
  16702.  
  16703. function TGPGraphics.IsVisible(const Rect: TGPRect): Boolean;
  16704. begin
  16705. Result := IsVisible(Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16706. end;
  16707.  
  16708. function TGPGraphics.IsVisible(const Rect: TGPRectF): Boolean;
  16709. begin
  16710. Result := IsVisible(Rect.X, Rect.Y, Rect.Width, Rect.Height);
  16711. end;
  16712.  
  16713. function TGPGraphics.IsVisible(const X, Y, Width, Height: Integer): Boolean;
  16714. var
  16715. B: Bool;
  16716. begin
  16717. B := False;
  16718. GdipCheck(GdipIsVisibleRectI(FNativeHandle, X, Y, Width, Height, B));
  16719. Result := B;
  16720. end;
  16721.  
  16722. function TGPGraphics.IsVisible(const X, Y: Integer): Boolean;
  16723. var
  16724. B: Bool;
  16725. begin
  16726. B := False;
  16727. GdipCheck(GdipIsVisiblePointI(FNativeHandle, X, Y, B));
  16728. Result := B;
  16729. end;
  16730.  
  16731. function TGPGraphics.IsVisible(const Point: TGPPoint): Boolean;
  16732. begin
  16733. Result := IsVisible(Point.X, Point.Y);
  16734. end;
  16735.  
  16736. function TGPGraphics.IsVisible(const X, Y, Width, Height: Single): Boolean;
  16737. var
  16738. B: Bool;
  16739. begin
  16740. B := False;
  16741. GdipCheck(GdipIsVisibleRect(FNativeHandle, X, Y, Width, Height, B));
  16742. Result := B;
  16743. end;
  16744.  
  16745. function TGPGraphics.IsVisible(const Point: TGPPointF): Boolean;
  16746. begin
  16747. Result := IsVisible(Point.X, Point.Y);
  16748. end;
  16749.  
  16750. function TGPGraphics.IsVisible(const X, Y: Single): Boolean;
  16751. var
  16752. B: Bool;
  16753. begin
  16754. B := False;
  16755. GdipCheck(GdipIsVisiblePoint(FNativeHandle, X, Y, B));
  16756. Result := B;
  16757. end;
  16758.  
  16759. function TGPGraphics.MeasureCharacterRanges(const Str: String; const Font: IGPFont;
  16760. const LayoutRect: TGPRectF; const Format: IGPStringFormat): IGPRegions;
  16761. var
  16762. I, Count: Integer;
  16763. NativeRegions: array of GpRegion;
  16764. begin
  16765. if (Format = nil) then
  16766. GdipCheck(InvalidParameter);
  16767. Count := Format.MeasurableCharacterRangeCount;
  16768. SetLength(NativeRegions, Count);
  16769. Result := TGPArray<IGPRegion>.Create(Count);
  16770. for I := 0 to Count - 1 do
  16771. begin
  16772. Result[I] := TGPRegion.Create;
  16773. NativeRegions[I] := Result[I].NativeHandle;
  16774. end;
  16775. GdipCheck(GdipMeasureCharacterRanges(FNativeHandle, PWideChar(Str),
  16776. Length(Str), GdipHandle(Font), @LayoutRect, Format.NativeHandle,
  16777. Count, @NativeRegions[0]));
  16778. end;
  16779.  
  16780. function TGPGraphics.MeasureDriverString(const Text: PUInt16;
  16781. const Length: Integer; const Font: IGPFont; const Positions: PGPPointF;
  16782. const Flags: TGPDriverStringOptions; const Matrix: IGPMatrix): TGPRectF;
  16783. begin
  16784. GdipCheck(GdipMeasureDriverString(FNativeHandle, Text, Length,
  16785. GdipHandle(Font), Positions, Flags, GdipHandle(Matrix),
  16786. Result));
  16787. end;
  16788.  
  16789. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16790. const LayoutRect: TGPRectF; const Format: IGPStringFormat): TGPRectF;
  16791. var
  16792. CodepointsFitted, LinesFilled: Integer;
  16793. begin
  16794. Result := MeasureString(Str, Font, LayoutRect, Format, CodepointsFitted, LinesFilled);
  16795. end;
  16796.  
  16797. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16798. const LayoutRect: TGPRectF; const Format: IGPStringFormat; out CodepointsFitted,
  16799. LinesFilled: Integer): TGPRectF;
  16800. begin
  16801. GdipCheck(GdipMeasureString(FNativeHandle, PWideChar(Str), Length(Str),
  16802. GdipHandle(Font), @LayoutRect, GdipHandle(Format), Result,
  16803. @CodepointsFitted, @LinesFilled));
  16804. end;
  16805.  
  16806. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16807. const LayoutRect: TGPRectF): TGPRectF;
  16808. begin
  16809. GdipCheck(GdipMeasureString(FNativeHandle, PWideChar(Str), Length(Str),
  16810. GdipHandle(Font), @LayoutRect, nil, Result, nil, nil));
  16811. end;
  16812.  
  16813. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16814. const Origin: TGPPointF): TGPRectF;
  16815. var
  16816. Rect: TGPRectF;
  16817. begin
  16818. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  16819. GdipCheck(GdipMeasureString(FNativeHandle, PWideChar(Str), Length(Str),
  16820. GdipHandle(Font), @Rect, nil, Result, nil, nil));
  16821. end;
  16822.  
  16823. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16824. const Origin: TGPPointF; const Format: IGPStringFormat): TGPRectF;
  16825. var
  16826. Rect: TGPRectF;
  16827. begin
  16828. Rect.Initialize(Origin.X, Origin.Y, 0, 0);
  16829. GdipCheck(GdipMeasureString(FNativeHandle, PWideChar(Str), Length(Str),
  16830. GdipHandle(Font), @Rect, GdipHandle(Format), Result, nil, nil));
  16831. end;
  16832.  
  16833. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16834. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat): TGPSizeF;
  16835. var
  16836. CodepointsFitted, LinesFilled: Integer;
  16837. begin
  16838. Result := MeasureString(Str, Font, LayoutRectSize, Format, CodepointsFitted, LinesFilled);
  16839. end;
  16840.  
  16841. function TGPGraphics.MeasureString(const Str: String; const Font: IGPFont;
  16842. const LayoutRectSize: TGPSizeF; const Format: IGPStringFormat;
  16843. out CodepointsFitted, LinesFilled: Integer): TGPSizeF;
  16844. var
  16845. LayoutRect, BoundingBox: TGPRectF;
  16846. begin
  16847. LayoutRect.Initialize(0, 0, LayoutRectSize.Width, LayoutRectSize.Height);
  16848. GdipCheck(GdipMeasureString(FNativeHandle, PWideChar(Str), Length(Str),
  16849. GdipHandle(Font), @LayoutRect, GdipHandle(Format), BoundingBox,
  16850. @CodepointsFitted, @LinesFilled));
  16851. Result.Width := BoundingBox.Width;
  16852. Result.Height := BoundingBox.Height;
  16853. end;
  16854.  
  16855. procedure TGPGraphics.MultiplyTransform(const Matrix: IGPMatrix;
  16856. const Order: TGPMatrixOrder);
  16857. begin
  16858. GdipCheck(GdipMultiplyWorldTransform(FNativeHandle, Matrix.NativeHandle, Order));
  16859. end;
  16860.  
  16861. procedure TGPGraphics.ReleaseHDC(const DC: HDC);
  16862. begin
  16863. GdipCheck(GdipReleaseDC(FNativeHandle, DC));
  16864. end;
  16865.  
  16866. procedure TGPGraphics.ResetClip;
  16867. begin
  16868. GdipCheck(GdipResetClip(FNativeHandle));
  16869. end;
  16870.  
  16871. procedure TGPGraphics.ResetTransform;
  16872. begin
  16873. GdipCheck(GdipResetWorldTransform(FNativeHandle));
  16874. end;
  16875.  
  16876. procedure TGPGraphics.Restore(const State: TGPGraphicsState);
  16877. begin
  16878. GdipCheck(GdipRestoreGraphics(FNativeHandle, State));
  16879. end;
  16880.  
  16881. procedure TGPGraphics.RotateTransform(const Angle: Single;
  16882. const Order: TGPMatrixOrder);
  16883. begin
  16884. GdipCheck(GdipRotateWorldTransform(FNativeHandle, Angle, Order));
  16885. end;
  16886.  
  16887. function TGPGraphics.Save: TGPGraphicsState;
  16888. begin
  16889. GdipCheck(GdipSaveGraphics(FNativeHandle, Result));
  16890. end;
  16891.  
  16892. procedure TGPGraphics.ScaleTransform(const SX, SY: Single;
  16893. const Order: TGPMatrixOrder);
  16894. begin
  16895. GdipCheck(GdipScaleWorldTransform(FNativeHandle, SX, SY, Order));
  16896. end;
  16897.  
  16898. {$IF (GDIPVER >= $0110)}
  16899. procedure TGPGraphics.SetAbort(const IAbort: TGdiplusAbort);
  16900. begin
  16901. GdipCheck(GdipGraphicsSetAbort(FNativeHandle, @IAbort));
  16902. end;
  16903. {$IFEND}
  16904.  
  16905. procedure TGPGraphics.SetClip(const Rect: TGPRect; const CombineMode: TGPCombineMode);
  16906. begin
  16907. GdipCheck(GdipSetClipRectI(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16908. Rect.Height, CombineMode));
  16909. end;
  16910.  
  16911. procedure TGPGraphics.SetClip(const Path: IGPGraphicsPath;
  16912. const CombineMode: TGPCombineMode);
  16913. begin
  16914. GdipCheck(GdipSetClipPath(FNativeHandle, Path.NativeHandle, CombineMode));
  16915. end;
  16916.  
  16917. procedure TGPGraphics.SetClip(const Region: HRgn;
  16918. const CombineMode: TGPCombineMode);
  16919. begin
  16920. GdipCheck(GdipSetClipHrgn(FNativeHandle, Region, CombineMode));
  16921. end;
  16922.  
  16923. procedure TGPGraphics.SetClip(const G: IGPGraphics;
  16924. const CombineMode: TGPCombineMode);
  16925. begin
  16926. GdipCheck(GdipSetClipGraphics(FNativeHandle, G.NativeHandle, CombineMode));
  16927. end;
  16928.  
  16929. procedure TGPGraphics.SetClip(const Region: IGPRegion;
  16930. const CombineMode: TGPCombineMode);
  16931. begin
  16932. GdipCheck(GdipSetClipRegion(FNativeHandle, Region.NativeHandle, CombineMode));
  16933. end;
  16934.  
  16935. procedure TGPGraphics.SetClip(const Rect: TGPRectF;
  16936. const CombineMode: TGPCombineMode);
  16937. begin
  16938. GdipCheck(GdipSetClipRect(FNativeHandle, Rect.X, Rect.Y, Rect.Width,
  16939. Rect.Height, CombineMode));
  16940. end;
  16941.  
  16942. procedure TGPGraphics.SetClipReplace(const Value: IGPRegion);
  16943. begin
  16944. GdipCheck(GdipSetClipRegion(FNativeHandle, Value.NativeHandle, CombineModeReplace));
  16945. end;
  16946.  
  16947. procedure TGPGraphics.SetCompositingMode(const Value: TGPCompositingMode);
  16948. begin
  16949. GdipCheck(GdipSetCompositingMode(FNativeHandle, Value));
  16950. end;
  16951.  
  16952. procedure TGPGraphics.SetCompositingQuality(const Value: TGPCompositingQuality);
  16953. begin
  16954. GdipCheck(GdipSetCompositingQuality(FNativeHandle, Value));
  16955. end;
  16956.  
  16957. procedure TGPGraphics.SetInterpolationMode(const Value: TGPInterpolationMode);
  16958. begin
  16959. GdipCheck(GdipSetInterpolationMode(FNativeHandle, Value));
  16960. end;
  16961.  
  16962. procedure TGPGraphics.SetPageScale(const Value: Single);
  16963. begin
  16964. GdipCheck(GdipSetPageScale(FNativeHandle, Value));
  16965. end;
  16966.  
  16967. procedure TGPGraphics.SetPageUnit(const Value: TGPUnit);
  16968. begin
  16969. GdipCheck(GdipSetPageUnit(FNativeHandle, Value));
  16970. end;
  16971.  
  16972. procedure TGPGraphics.SetPixelOffsetMode(const Value: TGPPixelOffsetMode);
  16973. begin
  16974. GdipCheck(GdipSetPixelOffsetMode(FNativeHandle, Value));
  16975. end;
  16976.  
  16977. procedure TGPGraphics.SetRenderingOrigin(const Value: TGPPoint);
  16978. begin
  16979. GdipCheck(GdipSetRenderingOrigin(FNativeHandle, Value.X, Value.Y));
  16980. end;
  16981.  
  16982. procedure TGPGraphics.SetRenderingOrigin(const X, Y: Integer);
  16983. begin
  16984. GdipCheck(GdipSetRenderingOrigin(FNativeHandle, X, Y));
  16985. end;
  16986.  
  16987. procedure TGPGraphics.SetSmoothingMode(const Value: TGPSmoothingMode);
  16988. begin
  16989. GdipCheck(GdipSetSmoothingMode(FNativeHandle, Value));
  16990. end;
  16991.  
  16992. procedure TGPGraphics.SetTextContrast(const Value: Integer);
  16993. begin
  16994. GdipCheck(GdipSetTextContrast(FNativeHandle, Value));
  16995. end;
  16996.  
  16997. procedure TGPGraphics.SetTextRenderingHint(const Value: TGPTextRenderingHint);
  16998. begin
  16999. GdipCheck(GdipSetTextRenderingHint(FNativeHandle, Value));
  17000. end;
  17001.  
  17002. procedure TGPGraphics.SetTransform(const Value: IGPMatrix);
  17003. begin
  17004. GdipCheck(GdipSetWorldTransform(FNativeHandle, Value.NativeHandle));
  17005. end;
  17006.  
  17007. procedure TGPGraphics.TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  17008. const Points: array of TGPPoint);
  17009. begin
  17010. Assert(Length(Points) > 0);
  17011. GdipCheck(GdipTransformPointsI(FNativeHandle, DestSpace, SrcSpace,
  17012. @Points[0], Length(Points)));
  17013. end;
  17014.  
  17015. procedure TGPGraphics.TransformPoints(const DestSpace, SrcSpace: TGPCoordinateSpace;
  17016. const Points: array of TGPPointF);
  17017. begin
  17018. Assert(Length(Points) > 0);
  17019. GdipCheck(GdipTransformPoints(FNativeHandle, DestSpace, SrcSpace,
  17020. @Points[0], Length(Points)));
  17021. end;
  17022.  
  17023. procedure TGPGraphics.TranslateClip(const DX, DY: Integer);
  17024. begin
  17025. GdipCheck(GdipTranslateClipI(FNativeHandle, DX, DY));
  17026. end;
  17027.  
  17028. procedure TGPGraphics.TranslateClip(const DX, DY: Single);
  17029. begin
  17030. GdipCheck(GdipTranslateClip(FNativeHandle, DX, DY));
  17031. end;
  17032.  
  17033. procedure TGPGraphics.TranslateTransform(const DX, DY: Single;
  17034. const Order: TGPMatrixOrder);
  17035. begin
  17036. GdipCheck(GdipTranslateWorldTransform(FNativeHandle, DX, DY, Order));
  17037. end;
  17038. {$ENDREGION 'GdiplusGraphics.h'}
  17039.  
  17040. {$REGION 'Initialization and Finalization'}
  17041.  
  17042. var
  17043. {$IF (GDIPVER >= $0110)}
  17044. StartupInput: TGdiplusStartupInputEx;
  17045. {$ELSE}
  17046. StartupInput: TGdiplusStartupInput;
  17047. {$IFEND}
  17048. GdiplusToken: ULONG;
  17049.  
  17050. procedure Initialize;
  17051. begin
  17052. TGPImageFormat.FInitialized := False;
  17053. StartupInput.Intialize;
  17054. GdiplusStartup(GdiplusToken, @StartupInput, nil);
  17055. end;
  17056.  
  17057. procedure Finalize;
  17058. begin
  17059. GdiplusShutdown(GdiplusToken);
  17060. end;
  17061.  
  17062. initialization
  17063. Initialize;
  17064.  
  17065. finalization
  17066. Finalize;
  17067. {$ENDREGION 'Initialization and Finalization'}
  17068.  
  17069. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!