mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 02:26:20 +02:00
* IStreamPersistInit. Patch part of Mantis #22442 (but not all)
git-svn-id: trunk@24430 -
This commit is contained in:
parent
2cbc061707
commit
bfeae5ee43
@ -2281,6 +2281,15 @@ TYPE
|
|||||||
Function GetSizeMax(Out cbSize:ULarge_Integer):HResult; StdCall;
|
Function GetSizeMax(Out cbSize:ULarge_Integer):HResult; StdCall;
|
||||||
End;
|
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;
|
PIMoniker = ^IMoniker;
|
||||||
IMoniker = Interface (IPersistStream)
|
IMoniker = Interface (IPersistStream)
|
||||||
['{0000000f-0000-0000-C000-000000000046}']
|
['{0000000f-0000-0000-C000-000000000046}']
|
||||||
|
Loading…
Reference in New Issue
Block a user