paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 15:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for ole properties from B. Broersma, mantis 13126

Browse Source 
git-svn-id: trunk@12751 -
This commit is contained in:
marco 2009-02-19 13:54:18 +00:00
parent d69d875d2a
commit 28bb705abd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/comobj.pp
View File

@ -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;