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

* IStreamPersistInit. Patch part of Mantis #22442 (but not all)

Browse Source 
git-svn-id: trunk@24430 -
This commit is contained in:
marco 2013-05-04 18:30:15 +00:00
parent 2cbc061707
commit bfeae5ee43
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2281,6 +2281,15 @@ TYPE
Function GetSizeMax(Out cbSize:ULarge_Integer):HResult; StdCall;
End;
IPersistStreamInit = interface(IPersist)
['{7FD52380-4E07-101B-AE2D-08002B2EC713}']
Function IsDirty:HResult;StdCall;
Function Load(pstm:IStream):HResult;StdCall;
Function Save(pstm:IStream;fClearDirty:Integer):HResult;StdCall;
Function GetSizeMax(out pCbSize:_ULARGE_INTEGER):HResult;StdCall;
Function InitNew:HResult;StdCall;
End;
PIMoniker = ^IMoniker;
IMoniker = Interface (IPersistStream)
['{0000000f-0000-0000-C000-000000000046}']