From b7778a517e175782303a88770884e7221400733e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 2 Sep 2006 20:35:44 +0000
Subject: [PATCH] + some types and constants

git-svn-id: trunk@4538 -
---
 packages/extra/winunits/activex.pp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/packages/extra/winunits/activex.pp b/packages/extra/winunits/activex.pp
index a56a95b8ad..c2df48ff21 100644
--- a/packages/extra/winunits/activex.pp
+++ b/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