+ some types and constants

git-svn-id: trunk@4538 -

packages/extra/winunits/activex.pp

@@ -451,6 +451,12 @@ Const
     DISPID_DESTRUCTOR           = -7;
     DISPID_COLLECT              = -8;
 
+    DISPATCH_METHOD         = $1;
+    DISPATCH_PROPERTYGET    = $2;
+    DISPATCH_PROPERTYPUT    = $4;
+    DISPATCH_PROPERTYPUTREF = $8;
+
+
 // The range -500 through -999 is reserved for Controls
 // The range 0x80010000 through 0x8001FFFF is reserved for Controls
 // The range -5000 through -5499 is reserved for ActiveX Accessability
@@ -1277,6 +1283,18 @@ TYPE
    SAFEARRAYBOUND               = tagSAFEARRAYBOUND;
    LPSAFEARRAYBOUND             = ^SAFEARRAYBOUND;
 
+   tagSAFEARRAY = record
+     cDims: USHORT;
+     fFeatures: USHORT;
+     cbElements: ULONG;
+     cLocks: ULONG;
+     pvData: PVOID;
+     rgsabound: array[0..0] of SAFEARRAYBOUND;
+   end;
+   TSafeArray = tagSAFEARRAY;
+   SAFEARRAY = TSafeArray;
+   PSafeArray = ^TSafeArray;
+
 // additional interface information about the incoming call
    tagINTERFACEINFO             = Record
                                     Unk     : Pointer {IUnknown};   // the pointer to the object