From 6b76d64d3c1fcbf38f81b8cdcaf0ebfa0707b816 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 14 Oct 2009 20:29:54 +0000
Subject: [PATCH]  * some minor Delphi compat additions from 14802

git-svn-id: trunk@13857 -
---
 packages/winunits-base/src/activex.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 1f05ade661..684d36662f 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -53,6 +53,8 @@ type
    CY		       = CURRENCY;
    DATE	               = DOUBLE;
    BSTR	               = POLESTR;
+   TOleDate	       = DATE;
+   POleDate	       = ^TOleDate;	
 
 CONST
    GUID_NULL  : TGUID =  '{00000000-0000-0000-0000-000000000000}';
@@ -1201,6 +1203,9 @@ TYPE
                                     End;
    TBind_Opts                   = tagBIND_OPTS;
    PBind_Opts                   = ^TBind_Opts;
+   TBindOpts		        = tagBIND_OPTS;
+   PBindOpts			= ^TBindOpts;
+   Bind_Opts			= tagBind_opts;
 
    tagBIND_OPTS2_CPP            = Record
                                     dwTrackFlags,
@@ -1560,6 +1565,7 @@ TYPE
   TYPEATTR                       = tagTYPEATTR;
 
   LPTYPEATTR                     = ^TYPEATTR;
+  PTYPEAttr			 = LPTYPEATTR;
 
   tagTLIBATTR                    = Record
                                      GUID        : guid;