From 28bb705abd73fc0d6c3e9405ed0415bd87e2ec1d Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 19 Feb 2009 13:54:18 +0000
Subject: [PATCH]  * Fix for ole properties from B. Broersma, mantis 13126

git-svn-id: trunk@12751 -
---
 packages/winunits-base/src/comobj.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index 83d7757d1f..8c30a84fa3 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/packages/winunits-base/src/comobj.pp
@@ -854,10 +854,10 @@ implementation
           case InvokeKind of
             DISPATCH_PROPERTYPUT:
               begin
-                if (Arguments[0].VType and varDispatch)<>0 then
+                if (Arguments[0].VType and varTypeMask) = varDispatch then
                   InvokeKind:=DISPATCH_PROPERTYPUTREF;
                 { first name is actually the name of the property to set }
-                DispIDs^[0]:=DISPATCH_PROPERTYPUT;
+                DispIDs^[0]:=DISPID_PROPERTYPUT;
                 DispParams.rgdispidNamedArgs:=@DispIDs^[0];
                 inc(DispParams.cNamedArgs);
               end;