Delphi wrapper for 2.2

5 files changed, 27 insertions, 5 deletions

diff --git a/AUTHORS b/AUTHORS
index 58dec56..eb1d66d 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,6 +1,4 @@
 
-(file still on the works)
-
 Main Author
 ------------
 Marti Maria 
diff --git a/COPYING b/COPYING
index b147b1b..fda5c9e 100644
--- a/COPYING
+++ b/COPYING
@@ -1,5 +1,5 @@
 Little CMS
-Copyright (c) 1998-2010 Marti Maria Saguer
+Copyright (c) 1998-2011 Marti Maria Saguer
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 
diff --git a/bin/Thumbs.db b/bin/Thumbs.db
deleted file mode 100755
index e918ebe..0000000
--- a/bin/Thumbs.db
+++ /dev/null
diff --git a/include/lcms2.h b/include/lcms2.h
index d5a77ae..fbc5f39 100644
--- a/include/lcms2.h
+++ b/include/lcms2.h
@@ -23,7 +23,7 @@
 //
 //---------------------------------------------------------------------------------
 //
-// Version 2.2a
+// Version 2.2
 //
 
 #ifndef _lcms2_H
diff --git a/utils/delphi/lcms2dll.pas b/utils/delphi/lcms2dll.pas
index 4472342..5ae2ac2 100755
--- a/utils/delphi/lcms2dll.pas
+++ b/utils/delphi/lcms2dll.pas
@@ -110,6 +110,7 @@ cmsTagTypeSignature = (
   cmsSigCrdInfoType                       = $63726469,  // 'crdi'

   cmsSigCurveType                         = $63757276,  // 'curv'

   cmsSigDataType                          = $64617461,  // 'data'

+  cmsSigDictType                          = $64696374,  // 'dict'

   cmsSigDateTimeType                      = $6474696D,  // 'dtim'

   cmsSigDeviceSettingsType                = $64657673,  // 'devs'

   cmsSigLut16Type                         = $6d667432,  // 'mft2'

@@ -210,7 +211,8 @@ cmsTagSignature = (
     cmsSigUcrBgTag                          = $62666420,  // 'bfd '

     cmsSigViewingCondDescTag                = $76756564,  // 'vued'

     cmsSigViewingConditionsTag              = $76696577,  // 'view'

-    cmsSigVcgtTag                           = $76636774   // 'vcgt'

+    cmsSigVcgtTag                           = $76636774,  // 'vcgt'

+    cmsSigMetaTag                           = $6D657461   // 'meta'

 );

 

 // ICC Technology tag

@@ -1159,6 +1161,28 @@ FUNCTION   cmsAllocProfileSequenceDescription(ContextID: cmsContext; n: cmsUInt3
 FUNCTION   cmsDupProfileSequenceDescription(pseq: LPcmsSEQ):LPcmsSEQ; StdCall;

 PROCEDURE  cmsFreeProfileSequenceDescription(pseq: LPcmsSEQ); StdCall;

 

+// Dictionaries --------------------------------------------------------------------------------------------------------

+

+TYPE

+

+ LPcmsDICTentry = ^cmsDICTentry;

+

+cmsDICTentry = PACKED RECORD 

+

+    Next: LPcmsDICTentry;

+

+    DisplayName, DisplayValue: LPcmsMLU;    

+    Name, Value : PWChar;

+END;

+

+FUNCTION  cmsDictAlloc(ContextID: cmsContext): cmsHANDLE;

+PROCEDURE cmsDictFree(hDict: cmsHANDLE);

+FUNCTION  cmsDictDup(hDict: cmsHANDLE): cmsHANDLE;

+

+FUNCTION cmsDictAddEntry(hDict: cmsHANDLE; Name, Value: PWChar; DisplayName, DisplayValue : LPcmsMLU): cmsBool;

+FUNCTION cmsDictGetEntryList(hDict: cmsHANDLE): LPcmsDICTentry;

+FUNCTION cmsDictNextEntry(e : LPcmsDICTentry): LPcmsDICTentry;

+

 // Access to Profile data ----------------------------------------------------------------------------------------------

 FUNCTION cmsCreateProfilePlaceholder(ContextID: cmsContext): cmsHPROFILE; StdCall;