paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mantis #26622, patch by Ocean, a few fields to bool and some cleanup

Browse Source 
git-svn-id: trunk@28515 -
This commit is contained in:
marco 2014-08-23 21:25:50 +00:00
parent bfb08c957e
commit 0539923b68
1 changed files with 3 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2579,23 +2579,21 @@ TYPE
['{7FD52380-4E07-101B-AE2D-08002B2EC713}']
Function IsDirty:HResult;StdCall;
Function Load(pstm:IStream):HResult;StdCall;
Function Save(pstm:IStream;fClearDirty:Integer):HResult;StdCall;
Function Save(pstm:IStream;fClearDirty:Bool):HResult;StdCall;
Function GetSizeMax(out pCbSize:_ULARGE_INTEGER):HResult;StdCall;
Function InitNew:HResult;StdCall;
End;
// IPersistMemory :
IPersistMemory = interface(IPersist)
['{BD1AE5E0-A6AE-11CE-BD37-504200C10000}']
function IsDirty:HResult;StdCall;
function Load(var pMem:pointer;cbSize:LongWord):HResult;StdCall;
function Save(out pMem:pointer;fClearDirty:Integer;cbSize:LongWord):HResult;StdCall;
function Save(out pMem:pointer;fClearDirty:Bool;cbSize:LongWord):HResult;StdCall;
function GetSizeMax(out pCbSize:LongWord):HResult;StdCall;
function InitNew:HResult;StdCall;
end;
PIMoniker = ^IMoniker;
IMoniker = Interface (IPersistStream)
['{0000000f-0000-0000-C000-000000000046}']
@ -3536,7 +3534,7 @@ TYPE
['{37D84F60-42CB-11CE-8135-00AA004BB851}']
function InitNew:HResult;stdcall;
function Load(pPropBag:IPropertyBag;pErrorLog:IErrorLog):HResult;stdcall;
function Save(pPropBag:IPropertyBag;fClearDirty:Integer;fSaveAllProperties:Integer):HResult;stdcall;
function Save(pPropBag:IPropertyBag;fClearDirty:Bool;fSaveAllProperties:Bool):HResult;stdcall;
end;
IEnumGUID = interface(IUnknown)
@ -3620,7 +3618,6 @@ type
function GetMultiTypeInfoCount(out pcti:LongWord):HResult; StdCall;
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}']
@ -3630,8 +3627,6 @@ type
function FreezeEvents(bFreeze:Integer):HRESULT;stdcall;
end;
// IOleControlSite :
IOleControlSite = interface(IUnknown)
['{B196B289-BAB4-101A-B69C-00AA00341D07}']
function OnControlInfoChanged:HRESULT;stdcall;
@ -3643,8 +3638,6 @@ type
function ShowPropertyFrame:HRESULT;stdcall;
end;
// IPerPropertyBrowsing :
IPerPropertyBrowsing = interface(IUnknown)
['{376BD3AA-3845-101B-84ED-08002B2EC713}']
function GetDisplayString(dispID:Integer;out pBstr:WideString):HRESULT;stdcall;
@ -3653,8 +3646,6 @@ type
function GetPredefinedValue(dispID:Integer;dwCookie:LongWord;out pVarOut:OleVariant):HRESULT;stdcall;
end;
// IPropertyPage :
IPropertyPageSite = interface;
IPropertyPage = interface(IUnknown)
@ -3672,8 +3663,6 @@ type
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
end;
// IPropertyPageSite :
IPropertyPageSite = interface(IUnknown)
['{B196B28C-BAB4-101A-B69C-00AA00341D07}']
function OnStatusChange(dwFlags:LongWord):HRESULT;stdcall;
@ -3682,38 +3671,28 @@ type
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
end;
// IPropertyPage2 :
IPropertyPage2 = interface(IPropertyPage)
['{01E44665-24AC-101B-84ED-08002B2EC713}']
function EditProperty(dispID:Integer):HRESULT;stdcall;
end;
// IPropertyNotifySink :
IPropertyNotifySink = interface(IUnknown)
['{9BFBBC02-EFF1-101A-84ED-00AA00341D07}']
function OnChanged(dispID:Integer):HRESULT;stdcall;
function OnRequestEdit(dispID:Integer):HRESULT;stdcall;
end;
// ISpecifyPropertyPages :
ISpecifyPropertyPages = interface(IUnknown)
['{B196B28B-BAB4-101A-B69C-00AA00341D07}']
function GetPages(out pPages:tagCAUUID):HRESULT;stdcall;
end;
// ISimpleFrameSite :
ISimpleFrameSite = interface(IUnknown)
['{742B0E01-14E6-101B-914E-00AA00300CAB}']
function PreMessageFilter(hwnd:wireHWND;msg:UInt;wp:UINT_PTR;lp:LONG_PTR;out plResult:LONG_PTR;out pdwCookie:LongWord):HRESULT;stdcall;
function PostMessageFilter(hwnd:wireHWND;msg:UInt;wp:UINT_PTR;lp:LONG_PTR;out plResult:LONG_PTR;dwCookie:LongWord):HRESULT;stdcall;
end;
// IFont :
IFont = interface(IUnknown)
['{BEF6E002-A874-101A-8BBA-00AA00300CAB}']
function get_Name(out pName:WideString):HRESULT;stdcall;
@ -3742,8 +3721,6 @@ type
function SetHdc(hDC:wireHDC):HRESULT;stdcall;
end;
// IPicture :
IPicture = interface(IUnknown)
['{7BF80980-BF32-101A-8BBB-00AA00300CAB}']
function get_Handle(out pHandle:OLE_HANDLE):HRESULT;stdcall;
@ -3780,15 +3757,10 @@ type
function get_Attributes(out pDwAttr:LongWord):HRESULT;stdcall;
end;
// IFontDisp :
IFontDisp = interface(IDispatch)
['{BEF6E003-A874-101A-8BBA-00AA00300CAB}']
end;
// IPictureDisp :
IPictureDisp = interface(IDispatch)
['{7BF80981-BF32-101A-8BBB-00AA00300CAB}']
end;