diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp index 3dcb34fb76..88a99efe93 100644 --- a/packages/winunits-base/src/activex.pp +++ b/packages/winunits-base/src/activex.pp @@ -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 ****************************************************************************************************************** }