GR32.ImageFormats.Default.pas 3.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. unit GR32.ImageFormats.Default;
  2. (* ***** BEGIN LICENSE BLOCK *****
  3. * Version: MPL 1.1 or LGPL 2.1 with linking exception
  4. *
  5. * The contents of this file are subject to the Mozilla Public License Version
  6. * 1.1 (the "License"); you may not use this file except in compliance with
  7. * the License. You may obtain a copy of the License at
  8. * http://www.mozilla.org/MPL/
  9. *
  10. * Software distributed under the License is distributed on an "AS IS" basis,
  11. * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  12. * for the specific language governing rights and limitations under the
  13. * License.
  14. *
  15. * Alternatively, the contents of this file may be used under the terms of the
  16. * Free Pascal modified version of the GNU Lesser General Public License
  17. * Version 2.1 (the "FPC modified LGPL License"), in which case the provisions
  18. * of this license are applicable instead of those above.
  19. * Please see the file LICENSE.txt for additional information concerning this
  20. * license.
  21. *
  22. * The Original Code is image format support for Graphics32
  23. *
  24. * The Initial Developer of the Original Code is
  25. * Anders Melander <[email protected]>
  26. *
  27. * Portions created by the Initial Developer are Copyright (C) 2008-2022
  28. * the Initial Developer. All Rights Reserved.
  29. *
  30. * Contributor(s):
  31. *
  32. * ***** END LICENSE BLOCK ***** *)
  33. // WEAKPACKAGEUNIT so we can include the unit in the GR32 design time
  34. // package in order to have the design time editor support the various formats.
  35. {$WEAKPACKAGEUNIT ON}
  36. interface
  37. {$include GR32.inc}
  38. implementation
  39. //------------------------------------------------------------------------------
  40. //
  41. // Image formats included by default.
  42. //
  43. //------------------------------------------------------------------------------
  44. // These are the image format adapters that are required(*) by TBitmap32:
  45. //
  46. // - BMP file format
  47. // - TBitmap support
  48. // - TClipboard support
  49. //
  50. // Additional format adapters for backward compatibility (i.e. previous versions
  51. // supported assign to/from these formats):
  52. //
  53. // - TPicture
  54. // - TIcon
  55. // - TMetaFile
  56. // - TWICImage
  57. //
  58. // Finally, PNG support has been enabled by default since it is the most common
  59. // format when working with 32-bit bitmaps.
  60. //
  61. // [*] Actually not "required" per se:
  62. // Without TClipoard support you cannot assign to and from TClipboard.
  63. // Without TBitmap support, you cannot assign to and from TBitmap.
  64. // Without BMP support, you cannot load from BMP files.
  65. // If all or some of these aren't required by you, then go ahead and remove
  66. // them.
  67. //------------------------------------------------------------------------------
  68. uses
  69. GR32.ImageFormats.BMP,
  70. GR32.ImageFormats.PNG32,
  71. GR32.ImageFormats.TClipboard,
  72. GR32.ImageFormats.TBitmap,
  73. {$IFNDEF PLATFORM_INDEPENDENT}
  74. GR32.ImageFormats.TWICImage,
  75. GR32.ImageFormats.TMetaFile,
  76. {$ENDIF}
  77. GR32.ImageFormats.TIcon,
  78. GR32.ImageFormats.TPicture;
  79. //------------------------------------------------------------------------------
  80. //------------------------------------------------------------------------------
  81. //------------------------------------------------------------------------------
  82. end.