* more constants for IPropertyStorage

git-svn-id: trunk@10225 -

packages/winunits-base/src/activex.pp

@@ -723,6 +723,70 @@ Const
     DOCMISC_CANTOPENEDIT               = 4;        // fails the IOleDocumentView::Open  method
     DOCMISC_NOFILESUPPORT              = 8;        //  does not support read/writing to a file
 
+    PID_DICTIONARY         = PROPID($00000000);
+    PID_CODEPAGE           = PROPID($00000001);
+    PID_FIRST_USABLE       = PROPID($00000002);
+    PID_FIRST_NAME_DEFAULT = PROPID($00000fff);
+    PID_LOCALE             = PROPID($80000000);
+    PID_MODIFY_TIME        = PROPID($80000001);
+    PID_SECURITY           = PROPID($80000002);
+    PID_BEHAVIOR           = PROPID($80000003);
+    PID_ILLEGAL            = PROPID($ffffffff);
+    PID_MIN_READONLY       = PROPID($80000000);
+    PID_MAX_READONLY       = PROPID($bfffffff);
+    PIDDI_THUMBNAIL        = DWORD($00000002);// VT_BLOB
+    PIDSI_TITLE            = DWORD($00000002); // VT_LPSTR
+    PIDSI_SUBJECT          = DWORD($00000003); // VT_LPSTR
+    PIDSI_AUTHOR           = DWORD($00000004); // VT_LPSTR
+    PIDSI_KEYWORDS         = DWORD($00000005); // VT_LPSTR
+    PIDSI_COMMENTS         = DWORD($00000006); // VT_LPSTR
+    PIDSI_TEMPLATE         = DWORD($00000007); // VT_LPSTR
+    PIDSI_LASTAUTHOR       = DWORD($00000008); // VT_LPSTR
+    PIDSI_REVNUMBER        = DWORD($00000009); // VT_LPSTR
+    PIDSI_EDITTIME         = DWORD($0000000a); // VT_FILETIME
+    PIDSI_LASTPRINTED      = DWORD($0000000b); // VT_FILETIME
+    PIDSI_CREATE_DTM       = DWORD($0000000c); // VT_FILETIME
+    PIDSI_LASTSAVE_DTM     = DWORD($0000000d); // VT_FILETIME
+    PIDSI_PAGECOUNT        = DWORD($0000000e); // VT_I4
+    PIDSI_WORDCOUNT        = DWORD($0000000f); // VT_I4
+    PIDSI_CHARCOUNT        = DWORD($00000010); // VT_I4
+    PIDSI_THUMBNAIL        = DWORD($00000011); // VT_CF
+    PIDSI_APPNAME          = DWORD($00000012); // VT_LPSTR
+    PIDSI_DOC_SECURITY     = DWORD($00000013); // VT_I4
+    PIDDSI_CATEGORY        = $00000002; // VT_LPSTR 
+    PIDDSI_PRESFORMAT      = $00000003; // VT_LPSTR
+    PIDDSI_BYTECOUNT       = $00000004; // VT_I4
+    PIDDSI_LINECOUNT       = $00000005; // VT_I4
+    PIDDSI_PARCOUNT        = $00000006; // VT_I4
+    PIDDSI_SLIDECOUNT      = $00000007; // VT_I4
+    PIDDSI_NOTECOUNT       = $00000008; // VT_I4
+    PIDDSI_HIDDENCOUNT     = $00000009; // VT_I4
+    PIDDSI_MMCLIPCOUNT     = $0000000A; // VT_I4
+    PIDDSI_SCALE           = $0000000B; // VT_BOOL 
+    PIDDSI_HEADINGPAIR     = $0000000C; // VT_VARIANT |VT_VECTOR
+    PIDDSI_DOCPARTS        = $0000000D; // VT_LPSTR |VT_VECTOR
+    PIDDSI_MANAGER         = $0000000E; // VT_LPSTR
+    PIDDSI_COMPANY         = $0000000F; // VT_LPSTR
+    PIDDSI_LINKSDIRTY      = $00000010; // VT_BOOL
+
+//  FMTID_MediaFileSummaryInfo - Property IDs
+
+    PIDMSI_EDITOR          = DWord($00000002);  // VT_LPWSTR
+    PIDMSI_SUPPLIER        = DWord($00000003);  // VT_LPWSTR
+    PIDMSI_SOURCE          = DWord($00000004);  // VT_LPWSTR
+    PIDMSI_SEQUENCE_NO     = DWord($00000005);  // VT_LPWSTR
+    PIDMSI_PROJECT         = DWord($00000006);  // VT_LPWSTR
+    PIDMSI_STATUS          = DWord($00000007);  // VT_UI4
+    PIDMSI_OWNER           = DWord($00000008);  // VT_LPWSTR
+    PIDMSI_RATING          = DWord($00000009);  // VT_LPWSTR
+    PIDMSI_PRODUCTION      = DWord($0000000A);  // VT_FILETIME (UTC)
+    PIDMSI_COPYRIGHT       = DWord($0000000B);  // VT_LPWSTR
+    PRSPEC_INVALID = ULONG($ffffffff);
+    PRSPEC_LPWSTR  = ULONG(0);
+    PRSPEC_PROPID  = ULONG(1);
+
+
+
 TYPE
     VARTYPE             = USHORT;
 
@@ -751,6 +815,22 @@ TYPE
     CHANGEKIND          = DWord;
     CALLCONV            = DWord;
 
+   PIDMSI_STATUS_VALUE = (
+    PIDMSI_STATUS_NORMAL  = 0,
+    PIDMSI_STATUS_NEW,
+    PIDMSI_STATUS_PRELIM,
+    PIDMSI_STATUS_DRAFT,
+    PIDMSI_STATUS_INPROGRESS,
+    PIDMSI_STATUS_EDIT,
+    PIDMSI_STATUS_REVIEW,
+    PIDMSI_STATUS_PROOF,
+    PIDMSI_STATUS_FINAL,
+    PIDMSI_STATUS_OTHER   = $7FFF
+    );
+   TPIDMSI_STATUS_VALUE= PIDMSI_STATUS_Value;
+
+
+
     PCOAUTHIDENTITY    = ^TCOAUTHIDENTITY;
     _COAUTHIDENTITY    = Record
                           User           : PUSHORT;