mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 20:49:09 +02:00
* IOleControl and some other interfaces from #22442. safecall folded to function:hresult;stdcall; calls.
git-svn-id: trunk@24435 -
This commit is contained in:
marco
parent
7bea00e5fb
commit
28f45559a9
@ -73,6 +73,86 @@ CONST
|
||||
GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}';
|
||||
IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}';
|
||||
IID_IOleCommandTarget : TGUID = '{B722BCCB-4E68-101B-A2BC-00AA00404770}';
|
||||
LIBID_OC : TGUID = '{A6663F44-FC7D-4FC4-861A-37BA700330E3}';
|
||||
|
||||
IID_IEnumConnections : TGUID = '{B196B287-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IEnumConnectionPoints : TGUID = '{B196B285-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IConnectionPoint : TGUID = '{B196B286-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IConnectionPointContainer : TGUID = '{B196B284-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IClassFactory : TGUID = '{00000001-0000-0000-C000-000000000046}';
|
||||
IID_IClassFactory2 : TGUID = '{B196B28F-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IProvideClassInfo : TGUID = '{B196B283-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_ITypeInfo : TGUID = '{00020401-0000-0000-C000-000000000046}';
|
||||
IID_ITypeComp : TGUID = '{00020403-0000-0000-C000-000000000046}';
|
||||
IID_ITypeLib : TGUID = '{00020402-0000-0000-C000-000000000046}';
|
||||
IID_IProvideClassInfo2 : TGUID = '{A6BC3AC0-DBAA-11CE-9DE3-00AA004BB851}';
|
||||
IID_IProvideMultipleClassInfo : TGUID = '{A7ABA9C1-8983-11CF-8F20-00805F2CD064}';
|
||||
IID_IOleControl : TGUID = '{B196B288-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IOleControlSite : TGUID = '{B196B289-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IPropertyPage : TGUID = '{B196B28D-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IPropertyPageSite : TGUID = '{B196B28C-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IPropertyPage2 : TGUID = '{01E44665-24AC-101B-84ED-08002B2EC713}';
|
||||
IID_IPropertyNotifySink : TGUID = '{9BFBBC02-EFF1-101A-84ED-00AA00341D07}';
|
||||
IID_ISpecifyPropertyPages : TGUID = '{B196B28B-BAB4-101A-B69C-00AA00341D07}';
|
||||
IID_IPersist : TGUID = '{0000010C-0000-0000-C000-000000000046}';
|
||||
IID_IPersistMemory : TGUID = '{BD1AE5E0-A6AE-11CE-BD37-504200C10000}';
|
||||
IID_IPersistStreamInit : TGUID = '{7FD52380-4E07-101B-AE2D-08002B2EC713}';
|
||||
IID_IStream : TGUID = '{0000000C-0000-0000-C000-000000000046}';
|
||||
IID_ISequentialStream : TGUID = '{0C733A30-2A1C-11CE-ADE5-00AA0044773D}';
|
||||
IID_IPersistPropertyBag : TGUID = '{37D84F60-42CB-11CE-8135-00AA004BB851}';
|
||||
IID_IPropertyBag : TGUID = '{55272A00-42CB-11CE-8135-00AA004BB851}';
|
||||
IID_IErrorLog : TGUID = '{3127CA40-446E-11CE-8135-00AA004BB851}';
|
||||
IID_ISimpleFrameSite : TGUID = '{742B0E01-14E6-101B-914E-00AA00300CAB}';
|
||||
IID_IFont : TGUID = '{BEF6E002-A874-101A-8BBA-00AA00300CAB}';
|
||||
IID_IPicture : TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}';
|
||||
IID_IFontEventsDisp : TGUID = '{4EF6100A-AF88-11D0-9846-00C04FC29993}';
|
||||
IID_IFontDisp : TGUID = '{BEF6E003-A874-101A-8BBA-00AA00300CAB}';
|
||||
IID_IPictureDisp : TGUID = '{7BF80981-BF32-101A-8BBB-00AA00300CAB}';
|
||||
IID_IAdviseSink : TGUID = '{0000010F-0000-0000-C000-000000000046}';
|
||||
IID_IMoniker : TGUID = '{0000000F-0000-0000-C000-000000000046}';
|
||||
IID_IPersistStream : TGUID = '{00000109-0000-0000-C000-000000000046}';
|
||||
IID_IBindCtx : TGUID = '{0000000E-0000-0000-C000-000000000046}';
|
||||
IID_IRunningObjectTable : TGUID = '{00000010-0000-0000-C000-000000000046}';
|
||||
IID_IEnumMoniker : TGUID = '{00000102-0000-0000-C000-000000000046}';
|
||||
IID_IEnumString : TGUID = '{00000101-0000-0000-C000-000000000046}';
|
||||
IID_IAdviseSinkEx : TGUID = '{3AF24290-0C96-11CE-A0CF-00AA00600AB8}';
|
||||
IID_IOleWindow : TGUID = '{00000114-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceObject : TGUID = '{00000113-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceObjectWindowless : TGUID = '{1C2056CC-5EF4-101B-8BC8-00AA003E3B29}';
|
||||
IID_IDropTarget : TGUID = '{00000122-0000-0000-C000-000000000046}';
|
||||
IID_IDataObject : TGUID = '{0000010E-0000-0000-C000-000000000046}';
|
||||
IID_IEnumFORMATETC : TGUID = '{00000103-0000-0000-C000-000000000046}';
|
||||
IID_IEnumSTATDATA : TGUID = '{00000105-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceSite : TGUID = '{00000119-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceFrame : TGUID = '{00000116-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceUIWindow : TGUID = '{00000115-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceActiveObject : TGUID = '{00000117-0000-0000-C000-000000000046}';
|
||||
IID_IOleInPlaceSiteEx : TGUID = '{9C2CAD80-3424-11CF-B670-00AA004CD6D8}';
|
||||
IID_IOleInPlaceSiteWindowless : TGUID = '{922EADA0-3424-11CF-B670-00AA004CD6D8}';
|
||||
IID_IViewObject : TGUID = '{0000010D-0000-0000-C000-000000000046}';
|
||||
IID_IViewObject2 : TGUID = '{00000127-0000-0000-C000-000000000046}';
|
||||
IID_IViewObjectEx : TGUID = '{3AF24292-0C96-11CE-A0CF-00AA00600AB8}';
|
||||
IID_IOleUndoUnit : TGUID = '{894AD3B0-EF97-11CE-9BC9-00AA00608E01}';
|
||||
IID_IOleUndoManager : TGUID = '{D001F200-EF97-11CE-9BC9-00AA00608E01}';
|
||||
IID_IOleParentUndoUnit : TGUID = '{A1FAF330-EF97-11CE-9BC9-00AA00608E01}';
|
||||
IID_IEnumOleUndoUnits : TGUID = '{B3E7C340-EF97-11CE-9BC9-00AA00608E01}';
|
||||
IID_IPointerInactive : TGUID = '{55980BA0-35AA-11CF-B671-00AA004CD6D8}';
|
||||
IID_IObjectWithSite : TGUID = '{FC4801A3-2BA9-11CF-A229-00AA003D7352}';
|
||||
IID_IPerPropertyBrowsing : TGUID = '{376BD3AA-3845-101B-84ED-08002B2EC713}';
|
||||
IID_IPropertyBag2 : TGUID = '{22F55882-280B-11D0-A8A9-00A0C90C2004}';
|
||||
IID_IPersistPropertyBag2 : TGUID = '{22F55881-280B-11D0-A8A9-00A0C90C2004}';
|
||||
IID_IQuickActivate : TGUID = '{CF51ED10-62FE-11CF-BF86-00A0C9034836}';
|
||||
IID_IOleClientSite : TGUID = '{00000118-0000-0000-C000-000000000046}';
|
||||
IID_IOleContainer : TGUID = '{0000011B-0000-0000-C000-000000000046}';
|
||||
IID_IParseDisplayName : TGUID = '{0000011A-0000-0000-C000-000000000046}';
|
||||
IID_IEnumUnknown : TGUID = '{00000100-0000-0000-C000-000000000046}';
|
||||
IID_IBindHost : TGUID = '{FC4801A1-2BA9-11CF-A229-00AA003D7352}';
|
||||
IID_IBindStatusCallback : TGUID = '{79EAC9C1-BAF9-11CE-8C82-00AA004BA90B}';
|
||||
IID_IBinding : TGUID = '{79EAC9C0-BAF9-11CE-8C82-00AA004BA90B}';
|
||||
IID_IServiceProvider : TGUID = '{6D5140C1-7436-11CE-8034-00AA006009FA}';
|
||||
IID_IOleControlTypes : TGUID = '{00000000-0000-0000-0000-000000000000}';
|
||||
IID_IPicture2 : TGUID = '{F5185DD8-2012-4B0B-AAD9-F052C6BD482B}';
|
||||
|
||||
|
||||
// bit flags for IExternalConnection
|
||||
CONST
|
||||
@ -2090,12 +2170,42 @@ TYPE
|
||||
end;
|
||||
PROPVARIANT=TPROPVARIANT;
|
||||
TagPROPVARIANT = TPROPVARIANT;
|
||||
|
||||
|
||||
tagCONTROLINFO = packed record
|
||||
cb : LongWord;
|
||||
hAccel : wireHACCEL;
|
||||
cAccel : Word;
|
||||
dwFlags : LongWord;
|
||||
end;
|
||||
PtagCONTROLINFO = ^TagControlInfo;
|
||||
PCONTROLINFO = PtagCONTROLINFO;
|
||||
|
||||
PtagPOINTF = ^tagPOINTF;
|
||||
tagPOINTF = packed record
|
||||
x : Single;
|
||||
y : Single;
|
||||
end;
|
||||
|
||||
tagPROPPAGEINFO = packed record
|
||||
cb : LongWord;
|
||||
pszTitle : PWideChar;
|
||||
size : tagSIZE;
|
||||
pszDocString : PWideChar;
|
||||
pszHelpFile : PWideChar;
|
||||
dwHelpContext : LongWord;
|
||||
end;
|
||||
PtagCAUUID = ^tagCAUUID;
|
||||
|
||||
tagCAUUID = packed record
|
||||
cElems : LongWord;
|
||||
pElems : PGUID;
|
||||
end;
|
||||
|
||||
// Unknwn.idl
|
||||
|
||||
// IUnknown is in classesh.inc
|
||||
|
||||
|
||||
|
||||
AsyncIUnknown = Interface(IUnknown)
|
||||
['{000e0000-0000-0000-C000-000000000046}']
|
||||
Function Begin_QueryInterface(Const riid : TIID): HResult; StdCall;
|
||||
@ -2289,6 +2399,23 @@ TYPE
|
||||
Function GetSizeMax(out pCbSize:_ULARGE_INTEGER):HResult;StdCall;
|
||||
Function InitNew:HResult;StdCall;
|
||||
End;
|
||||
// IPersistMemory :
|
||||
|
||||
IPersistMemory = interface(IPersist)
|
||||
['{BD1AE5E0-A6AE-11CE-BD37-504200C10000}']
|
||||
// IsDirty :
|
||||
function IsDirty:HResult;StdCall;
|
||||
// Load :
|
||||
function Load(var pMem:pointer;cbSize:LongWord):HResult;StdCall;
|
||||
// Save :
|
||||
function Save(out pMem:pointer;fClearDirty:Integer;cbSize:LongWord):HResult;StdCall;
|
||||
// GetSizeMax :
|
||||
function GetSizeMax(out pCbSize:LongWord):HResult;StdCall;
|
||||
// InitNew :
|
||||
function InitNew:HResult;StdCall;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
PIMoniker = ^IMoniker;
|
||||
IMoniker = Interface (IPersistStream)
|
||||
@ -3302,6 +3429,118 @@ type
|
||||
function GetGUID(dwguid:DWord;out pguid:TGUID):HResult; StdCall;
|
||||
end;
|
||||
|
||||
IProvideMultipleClassInfo = interface(IProvideClassInfo2)
|
||||
['{A7ABA9C1-8983-11CF-8F20-00805F2CD064}']
|
||||
// GetMultiTypeInfoCount :
|
||||
function GetMultiTypeInfoCount(out pcti:LongWord):HResult; StdCall;
|
||||
// GetInfoOfIndex :
|
||||
function GetInfoOfIndex(iti:LongWord;dwFlags:LongWord;out pptiCoClass:ITypeInfo;out pdwTIFlags:LongWord;out pcdispidReserved:LongWord;out piidPrimary:GUID;out piidSource:GUID):HResult; StdCall;
|
||||
end;
|
||||
// IOleControl :
|
||||
|
||||
IOleControl = interface(IUnknown)
|
||||
['{B196B288-BAB4-101A-B69C-00AA00341D07}']
|
||||
// GetControlInfo :
|
||||
function GetControlInfo(var pCI:tagCONTROLINFO):HRESULT;stdcall;
|
||||
// OnMnemonic :
|
||||
function OnMnemonic(var pMsg:tagMSG):HRESULT;stdcall;
|
||||
// OnAmbientPropertyChange :
|
||||
function OnAmbientPropertyChange(dispID:Integer):HRESULT;stdcall;
|
||||
// FreezeEvents :
|
||||
function FreezeEvents(bFreeze:Integer):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// IOleControlSite :
|
||||
|
||||
IOleControlSite = interface(IUnknown)
|
||||
['{B196B289-BAB4-101A-B69C-00AA00341D07}']
|
||||
// OnControlInfoChanged :
|
||||
function OnControlInfoChanged:HRESULT;stdcall;
|
||||
// LockInPlaceActive :
|
||||
function LockInPlaceActive(fLock:Integer):HRESULT;stdcall;
|
||||
// GetExtendedControl :
|
||||
function GetExtendedControl(out ppDisp:IDispatch):HRESULT;stdcall;
|
||||
// TransformCoords :
|
||||
function TransformCoords(var pPtlHimetric:_POINTL;var pPtfContainer:tagPOINTF;dwFlags:LongWord):HRESULT;stdcall;
|
||||
// TranslateAccelerator :
|
||||
function TranslateAccelerator(var pMsg:tagMSG;grfModifiers:LongWord):HRESULT;stdcall;
|
||||
// OnFocus :
|
||||
function OnFocus(fGotFocus:Integer):HRESULT;stdcall;
|
||||
// ShowPropertyFrame :
|
||||
function ShowPropertyFrame:HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// IPropertyPage :
|
||||
|
||||
IPropertyPageSite = interface;
|
||||
|
||||
IPropertyPage = interface(IUnknown)
|
||||
['{B196B28D-BAB4-101A-B69C-00AA00341D07}']
|
||||
// SetPageSite :
|
||||
function SetPageSite(pPageSite:IPropertyPageSite):HRESULT;stdcall;
|
||||
// Activate :
|
||||
function Activate(hWndParent:wireHWND;var pRect:TRECT;bModal:Integer):HRESULT;stdcall;
|
||||
// Deactivate :
|
||||
function Deactivate:HRESULT;stdcall;
|
||||
// GetPageInfo :
|
||||
function GetPageInfo(out pPageInfo:tagPROPPAGEINFO):HRESULT;stdcall;
|
||||
// SetObjects :
|
||||
function SetObjects(cObjects:LongWord;var ppUnk:IUnknown):HRESULT;stdcall;
|
||||
// Show :
|
||||
function Show(nCmdShow:UInt):HRESULT;stdcall;
|
||||
// Move :
|
||||
function Move(var pRect:TRECT):HRESULT;stdcall;
|
||||
// IsPageDirty :
|
||||
function IsPageDirty:HRESULT;stdcall;
|
||||
// Apply :
|
||||
function Apply:HRESULT;stdcall;
|
||||
// Help :
|
||||
function Help(pszHelpDir:PWideChar):HRESULT;stdcall;
|
||||
// TranslateAccelerator :
|
||||
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// IPropertyPageSite :
|
||||
|
||||
IPropertyPageSite = interface(IUnknown)
|
||||
['{B196B28C-BAB4-101A-B69C-00AA00341D07}']
|
||||
// OnStatusChange :
|
||||
function OnStatusChange(dwFlags:LongWord):HRESULT;stdcall;
|
||||
// GetLocaleID :
|
||||
function GetLocaleID(out pLocaleID:LongWord):HRESULT;stdcall;
|
||||
// GetPageContainer :
|
||||
function GetPageContainer(out ppUnk:IUnknown):HRESULT;stdcall;
|
||||
// TranslateAccelerator :
|
||||
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// IPropertyPage2 :
|
||||
|
||||
IPropertyPage2 = interface(IPropertyPage)
|
||||
['{01E44665-24AC-101B-84ED-08002B2EC713}']
|
||||
// EditProperty :
|
||||
function EditProperty(dispID:Integer):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// IPropertyNotifySink :
|
||||
|
||||
IPropertyNotifySink = interface(IUnknown)
|
||||
['{9BFBBC02-EFF1-101A-84ED-00AA00341D07}']
|
||||
// OnChanged :
|
||||
function OnChanged(dispID:Integer):HRESULT;stdcall;
|
||||
// OnRequestEdit :
|
||||
function OnRequestEdit(dispID:Integer):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
// ISpecifyPropertyPages :
|
||||
|
||||
ISpecifyPropertyPages = interface(IUnknown)
|
||||
['{B196B28B-BAB4-101A-B69C-00AA00341D07}']
|
||||
// GetPages :
|
||||
function GetPages(out pPages:tagCAUUID):HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
|
||||
{ ******************************************************************************************************************
|
||||
stuff from objbase.h
|
||||
****************************************************************************************************************** }
|
||||
|
||||
Loading…
Reference in New Issue
Block a user