| 1 | 'oleidl.ab
|
|---|
| 2 |
|
|---|
| 3 | Const Enum OLERENDER
|
|---|
| 4 | OLERENDER_NONE = 0
|
|---|
| 5 | OLERENDER_DRAW = 1
|
|---|
| 6 | OLERENDER_FORMAT = 2
|
|---|
| 7 | OLERENDER_ASIS = 3
|
|---|
| 8 | End Enum
|
|---|
| 9 |
|
|---|
| 10 | Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 11 | Interface IOleClientSite
|
|---|
| 12 | Inherits IUnknown
|
|---|
| 13 |
|
|---|
| 14 | Function SaveObject() As HRESULT
|
|---|
| 15 | Function GetMoniker(
|
|---|
| 16 | /* [in] */ dwAssign As DWord,
|
|---|
| 17 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| 18 | /* [out] */ ByRef pmk As *IMoniker) As HRESULT
|
|---|
| 19 | Function GetContainer(
|
|---|
| 20 | /* [out] */ ByRef pContainer As VoidPtr /* *IOleContainer*/) As HRESULT
|
|---|
| 21 | Function ShowObject() As HRESULT
|
|---|
| 22 | Function OnShowWindow(
|
|---|
| 23 | fShow As BOOL) As HRESULT
|
|---|
| 24 | Function RequestNewObjectLayout() As HRESULT
|
|---|
| 25 | End Interface
|
|---|
| 26 |
|
|---|
| 27 | Dim IID_IOleObject = [&h00000112, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 28 | Interface IOleObject
|
|---|
| 29 | Inherits IUnknown
|
|---|
| 30 |
|
|---|
| 31 | Function SetClientSite(
|
|---|
| 32 | /* [unique][in] */ pClientSite As IOleClientSite) As HRESULT
|
|---|
| 33 | Function GetClientSite(
|
|---|
| 34 | /* [out] */ ByRef pClientSite As *IOleClientSite) As HRESULT
|
|---|
| 35 | Function SetHostNames(
|
|---|
| 36 | /* [in] */ szContainerApp As LPCOLESTR,
|
|---|
| 37 | /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT
|
|---|
| 38 | Function Close(
|
|---|
| 39 | /* [in] */ dwSaveOption As DWord) As HRESULT
|
|---|
| 40 | Function SetMoniker(
|
|---|
| 41 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| 42 | /* [unique][in] */ pmk As *IMoniker) As HRESULT
|
|---|
| 43 | Function GetMoniker(
|
|---|
| 44 | /* [in] */ dwAssign As DWord,
|
|---|
| 45 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| 46 | /* [out] */ ByRef pmk As *IMoniker) As HRESULT
|
|---|
| 47 | Function InitFromData(
|
|---|
| 48 | /* [unique][in] */ pDataObject As IDataObject,
|
|---|
| 49 | /* [in] */ fCreation As BOOL,
|
|---|
| 50 | /* [in] */ dwReserved As DWord) As HRESULT
|
|---|
| 51 | Function GetClipboardData(
|
|---|
| 52 | /* [in] */ dwReserved As DWord,
|
|---|
| 53 | /* [out] */ ByRef pDataObject As *IDataObject) As HRESULT
|
|---|
| 54 | Function DoVerb(
|
|---|
| 55 | /* [in] */ iVerb As Long,
|
|---|
| 56 | /* [unique][in] */ lpmsg As *MSG,
|
|---|
| 57 | /* [unique][in] */ pActiveSite As IOleClientSite,
|
|---|
| 58 | /* [in] */ lindex As Long,
|
|---|
| 59 | /* [in] */ hwndParent As HWND,
|
|---|
| 60 | /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT
|
|---|
| 61 | Function EnumVerbs(
|
|---|
| 62 | /* [out] */ ByRef pEnumOleVerb As *IUnknown /*IEnumOLEVERB*/) As HRESULT
|
|---|
| 63 | Function Update() As HRESULT
|
|---|
| 64 | Function IsUpToDate() As HRESULT
|
|---|
| 65 | Function GetUserClassID(
|
|---|
| 66 | /* [out] */ ByRef Clsid As CLSID) As HRESULT
|
|---|
| 67 | Function GetUserType(
|
|---|
| 68 | /* [in] */ dwFormOfType As DWord,
|
|---|
| 69 | /* [out] */ ByRef pszUserType As LPOLESTR) As HRESULT
|
|---|
| 70 | Function SetExtent(
|
|---|
| 71 | /* [in] */ dwDrawAspect As DWord,
|
|---|
| 72 | /* [in] */ ByRef sizel As SIZEL) As HRESULT
|
|---|
| 73 | Function GetExtent(
|
|---|
| 74 | /* [in] */ dwDrawAspect As DWord,
|
|---|
| 75 | /* [out] */ ByRef sizel As SIZEL) As HRESULT
|
|---|
| 76 | Function Advise(
|
|---|
| 77 | /* [unique][in] */ pAdvSink As *IAdviseSink,
|
|---|
| 78 | /* [out] */ ByRef dwConnection As DWord) As HRESULT
|
|---|
| 79 | Function Unadvise(
|
|---|
| 80 | /* [in] */ dwConnection As DWord) As HRESULT
|
|---|
| 81 | Function EnumAdvise(
|
|---|
| 82 | /* [out] */ ByRef penumAdvise As IEnumSTATDATA) As HRESULT
|
|---|
| 83 | Function GetMiscStatus(
|
|---|
| 84 | /* [in] */ dwAspect As DWord,
|
|---|
| 85 | /* [out] */ ByRef dwStatus As DWord) As HRESULT
|
|---|
| 86 | Function SetColorScheme(
|
|---|
| 87 | /* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT
|
|---|
| 88 | End Interface
|
|---|
