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

+ added TOleStrList and POleStrList types (same as TBStrList, Delphi compatibility).

Browse Source 
* ICatInformation.EnumCategories second parameter must have type IEnumCategoryInfo, fixed.

git-svn-id: trunk@17174 -
This commit is contained in:
sergei 2011-03-24 20:24:54 +00:00
parent 812a665cbe
commit bd123bcfd6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/winunits-base/src/activex.pp
View File

@ -31,6 +31,9 @@ type
TBStr = POleStr; TBStr = POleStr;
TBStrList = array[0..(high(integer) div sizeof(TBSTR))-1] of TBstr; TBStrList = array[0..(high(integer) div sizeof(TBSTR))-1] of TBstr;
PBStrList = ^TBStrList; PBStrList = ^TBStrList;
POleStrList = ^TOleStrList;
TOleStrList = array[0..(high(integer) div sizeof(POleStr))-1] of POleStr;
PBStr = ^TBStr; PBStr = ^TBStr;
TOleEnum = type LongWord; TOleEnum = type LongWord;
LargeInt = Types.LargeInt; LargeInt = Types.LargeInt;
@ -3393,7 +3396,7 @@ Type
ICatInformation = interface(IUnknown) ICatInformation = interface(IUnknown)
['{0002E013-0000-0000-C000-000000000046}'] ['{0002E013-0000-0000-C000-000000000046}']
function EnumCategories(lcid:lcid;out ppenumCategoryInfo : ICatInformation):HResult; StdCall; function EnumCategories(lcid:lcid;out ppenumCategoryInfo : IEnumCategoryInfo):HResult; StdCall;
function GetCategoryDesc(rcatid:PCATID;lcid:LCID;out pszdesc:lpwstr):HResult; StdCall; function GetCategoryDesc(rcatid:PCATID;lcid:LCID;out pszdesc:lpwstr):HResult; StdCall;
function EnumClassesOfCategories(cImplemented : ULong; rgcatidImpl:PCATID;cRequired:ULong; rgcatidreq:PCATID; out ppenumclsid : IEnumClsID):HResult; StdCall; function EnumClassesOfCategories(cImplemented : ULong; rgcatidImpl:PCATID;cRequired:ULong; rgcatidreq:PCATID; out ppenumclsid : IEnumClsID):HResult; StdCall;
function ISClassOfCategories(rclsid:pclsid;cImplemented:ULong;rgcatidimpl:PCATID;CRequired:ULONG;rgcatidreq : pcatid):HResult; StdCall; function ISClassOfCategories(rclsid:pclsid;cImplemented:ULong;rgcatidimpl:PCATID;CRequired:ULONG;rgcatidreq : pcatid):HResult; StdCall;