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

* fix for 10535 IProvideClassinfo + -2

Browse Source 
git-svn-id: trunk@9612 -
This commit is contained in:
marco 2008-01-02 10:41:42 +00:00
parent 38bbdb95ee
commit e7ef874cc4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/base/winunits/activex.pp
View File

@ -2724,6 +2724,15 @@ TYPE
POleMenuGroupWidths = LPOLEMENUGROUPWIDTHS; POleMenuGroupWidths = LPOLEMENUGROUPWIDTHS;
IProvideClassInfo = Interface (IUnknown)
['{B196B283-BAB4-101A-B69C-00AA00341D07}']
function GetClassInfo(out pptti : ITypeInfo):HResult; StdCall;
end;
IProvideClassInfo2 = Interface (IProvideClassInfo)
['{A6BC3AC0-DBAA-11CE-9DE3-00AA004BB851}']
function GetGUID(dwguid:DWord;out pguid:TGUID):HResult; StdCall;
end;
{ ****************************************************************************************************************** { ******************************************************************************************************************
stuff from objbase.h stuff from objbase.h
****************************************************************************************************************** } ****************************************************************************************************************** }