paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 10:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* comcat headers, needed for JCL

Browse Source 
git-svn-id: trunk@10117 -
This commit is contained in:
marco 2008-01-30 19:53:08 +00:00
parent 7c6e0cda1a
commit e318c8a9dc
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2955,6 +2955,56 @@ type
function GetExtent(dwDrawAspect:dword;lindex:DWord;ptd:pDVTARGETDEVICE;lpsizel:LPSIZEL):HRESULT;stdcall;
end;
{ COMCAT}
Const CATDESC_MAX = 128;
Type
CATID = TGUID;
TCATID = TGUID;
PCATID = PGUID;
tagCATEGORYINFO = packed record
catid : CATID;
LCID : lcid;
szDescription : array[0..CATDESC_MAX-1] of WideChar;
end;
CATEGORYINFO = tagCATEGORYINFO;
TCATEGORYINFO = tagCATEGORYINFO;
LPCATEGORYINFO = ^tagCATEGORYINFO;
PCATEGORYINFO = LPCATEGORYINFO;
IEnumCLSID = IEnumGUID;
IEnumCategoryInfo = interface(IUnknown)
['{0002E011-0000-0000-C000-000000000046}']
function Next(celt: ULONG; out rgelt: TCategoryInfo; out pceltFetched: ULONG): HResult; stdcall;
function Skip(celt:ULONG):HResult; StdCall;
function Reset:HResult; StdCall;
function CLone(Out ppenum : IEnumCategoryInfo):HResult;StdCall;
end;
ICatRegister = interface (IUnknown)
['{0002E012-0000-0000-C000-000000000046}']
function RegisterCategories (cCategories:ULONG;rgCategoryInfo : PCategoryInfo):HResult;Stdcall;
function UnRegisterCategories (cCategories:ULONG;PCatid :PCATID):HResult;Stdcall;
function RegisterClassImplCategories (const rclsid:TGUID;cCategories:ULONG; rgCatid :PCATID):HResult;Stdcall;
function UnRegisterClassImplCategories (const rclsid:TGUID;cCategories:ULONG; rgCatid :PCATID):HResult;Stdcall;
function RegisterClassReqCategories (const rclsid:TGUID;cCategories:ULONG; rgCatid :PCATID):HResult;Stdcall;
function UnRegisterClassReqCategories (const rclsid:TGUID;cCategories:ULONG; rgCatid :PCATID):HResult;Stdcall;
end;
ICatInformation = interface(IUnknown)
['{0002E013-0000-0000-C000-000000000046}']
function EnumCategories(lcid:lcid;out ppenumCategoryInfo : ICatInformation):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 ISClassOfCategories(rclsid:pclsid;cImplemented:ULong;rgcatidimpl:PCATID;CRequired:ULONG;rgcatidreq : pcatid):HResult; StdCall;
function EnumImplCategoriesOfClass(rclsid:pclsid;out ppenumclsid : IEnumClsID):HResult; StdCall;
function EnumReqCategoriesOfClass(rclsid:pclsid;out ppenumclsid : IEnumClsID):HResult; StdCall;
end;
{ ole2.h }
type