| [223] | 1 | 'oleidl.ab
|
|---|
| 2 |
|
|---|
| [303] | 3 | #require <objidl.sbp>
|
|---|
| 4 |
|
|---|
| 5 | Dim IID_IOleAdviseHolder = [&h00000111, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 6 | Interface IOleAdviseHolder
|
|---|
| 7 | Inherits IUnknown
|
|---|
| 8 |
|
|---|
| 9 | Function Advise(
|
|---|
| 10 | /* [unique][in] */ Advise As IAdviseSink,
|
|---|
| 11 | /* [out] */ ByRef dwConnection As DWord) As HRESULT
|
|---|
| 12 | Function Unadvise(
|
|---|
| 13 | /* [in] */ dwConnection As DWord) As HRESULT
|
|---|
| 14 | Function EnumAdvise(
|
|---|
| 15 | /* [out] */ ByRef enumAdvise As IEnumSTATDATA) As HRESULT
|
|---|
| 16 | Function SendOnRename(
|
|---|
| 17 | /* [unique][in] */ pmk As IMoniker) As HRESULT
|
|---|
| 18 | Function SendOnSave() As HRESULT
|
|---|
| 19 | Function SendOnClose() As HRESULT
|
|---|
| 20 | End Interface
|
|---|
| 21 |
|
|---|
| 22 | 'IOleCache
|
|---|
| 23 | 'IOleCache2
|
|---|
| 24 | 'IOleCacheControl
|
|---|
| 25 |
|
|---|
| 26 | /* interface IParseDisplayName */
|
|---|
| 27 | /* [unique][uuid][object] */
|
|---|
| 28 |
|
|---|
| 29 | Dim IID_IParseDisplayName = [&h0000011a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 30 |
|
|---|
| 31 | Interface IParseDisplayName
|
|---|
| 32 | Inherits IUnknown
|
|---|
| 33 |
|
|---|
| 34 | Function ParseDisplayName(
|
|---|
| 35 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 36 | /* [in] */ pszDisplayName As LPOLESTR,
|
|---|
| 37 | /* [out] */ ByRef chEaten As DWord,
|
|---|
| 38 | /* [out] */ ByRef mkOut As IMoniker) As HRESULT
|
|---|
| 39 | End Interface
|
|---|
| 40 |
|
|---|
| 41 | /* interface IOleContainer */
|
|---|
| 42 | /* [unique][uuid][object] */
|
|---|
| 43 |
|
|---|
| 44 | Dim IID_IOleContainer = [&h0000011b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 45 | Interface IOleContainer
|
|---|
| 46 | Inherits IParseDisplayName
|
|---|
| 47 |
|
|---|
| 48 | Function EnumObjects(
|
|---|
| 49 | /* [in] */ grfFlags As DWord,
|
|---|
| 50 | /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT
|
|---|
| 51 | Function LockContainer(
|
|---|
| 52 | /* [in] */ fLock As BOOL) As HRESULT
|
|---|
| 53 | End Interface
|
|---|
| 54 |
|
|---|
| 55 | Const Enum OLERENDER
|
|---|
| [223] | 56 | OLERENDER_NONE = 0
|
|---|
| 57 | OLERENDER_DRAW = 1
|
|---|
| 58 | OLERENDER_FORMAT = 2
|
|---|
| [303] | 59 | OLERENDER_ASIS = 3
|
|---|
| [223] | 60 | End Enum
|
|---|
| 61 |
|
|---|
| 62 | Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| [303] | 63 | Interface IOleClientSite
|
|---|
| [223] | 64 | Inherits IUnknown
|
|---|
| 65 |
|
|---|
| 66 | Function SaveObject() As HRESULT
|
|---|
| 67 | Function GetMoniker(
|
|---|
| 68 | /* [in] */ dwAssign As DWord,
|
|---|
| 69 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| [303] | 70 | /* [out] */ ByRef mk As IMoniker) As HRESULT
|
|---|
| [223] | 71 | Function GetContainer(
|
|---|
| [303] | 72 | /* [out] */ ByRef Container As IOleContainer) As HRESULT
|
|---|
| [223] | 73 | Function ShowObject() As HRESULT
|
|---|
| 74 | Function OnShowWindow(
|
|---|
| 75 | fShow As BOOL) As HRESULT
|
|---|
| 76 | Function RequestNewObjectLayout() As HRESULT
|
|---|
| 77 | End Interface
|
|---|
| 78 |
|
|---|
| [303] | 79 | /* interface IOleObject */
|
|---|
| 80 | /* [unique][uuid][object] */
|
|---|
| 81 |
|
|---|
| 82 | Const Enum OLEGETMONIKER
|
|---|
| 83 | OLEGETMONIKER_ONLYIFTHERE = 1
|
|---|
| 84 | OLEGETMONIKER_FORCEASSIGN = 2
|
|---|
| 85 | OLEGETMONIKER_UNASSIGN = 3
|
|---|
| 86 | OLEGETMONIKER_TEMPFORUSER = 4
|
|---|
| 87 | End Enum
|
|---|
| 88 |
|
|---|
| 89 | Const Enum OLEWHICHMK
|
|---|
| 90 | OLEWHICHMK_CONTAINER = 1
|
|---|
| 91 | OLEWHICHMK_OBJREL = 2
|
|---|
| 92 | OLEWHICHMK_OBJFULL = 3
|
|---|
| 93 | End Enum
|
|---|
| 94 |
|
|---|
| 95 | Const Enum USERCLASSTYPE
|
|---|
| 96 | USERCLASSTYPE_FULL = 1
|
|---|
| 97 | USERCLASSTYPE_SHORT = 2
|
|---|
| 98 | USERCLASSTYPE_APPNAME = 3
|
|---|
| 99 | End Enum
|
|---|
| 100 |
|
|---|
| 101 | Const Enum OLEMISC
|
|---|
| 102 | OLEMISC_RECOMPOSEONRESIZE = &h1
|
|---|
| 103 | OLEMISC_ONLYICONIC = &h2
|
|---|
| 104 | OLEMISC_INSERTNOTREPLACE = &h4
|
|---|
| 105 | OLEMISC_STATIC = &h8
|
|---|
| 106 | OLEMISC_CANTLINKINSIDE = &h10
|
|---|
| 107 | OLEMISC_CANLINKBYOLE1 = &h20
|
|---|
| 108 | OLEMISC_ISLINKOBJECT = &h40
|
|---|
| 109 | OLEMISC_INSIDEOUT = &h80
|
|---|
| 110 | OLEMISC_ACTIVATEWHENVISIBLE = &h100
|
|---|
| 111 | OLEMISC_RENDERINGISDEVICEINDEPENDENT = &h200
|
|---|
| 112 | OLEMISC_INVISIBLEATRUNTIME = &h400
|
|---|
| 113 | OLEMISC_ALWAYSRUN = &h800
|
|---|
| 114 | OLEMISC_ACTSLIKEBUTTON = &h1000
|
|---|
| 115 | OLEMISC_ACTSLIKELABEL = &h2000
|
|---|
| 116 | OLEMISC_NOUIACTIVATE = &h4000
|
|---|
| 117 | OLEMISC_ALIGNABLE = &h8000
|
|---|
| 118 | OLEMISC_SIMPLEFRAME = &h10000
|
|---|
| 119 | OLEMISC_SETCLIENTSITEFIRST = &h20000
|
|---|
| 120 | OLEMISC_IMEMODE = &h40000
|
|---|
| 121 | OLEMISC_IGNOREACTIVATEWHENVISIBLE = &h80000
|
|---|
| 122 | OLEMISC_WANTSTOMENUMERGE = &h100000
|
|---|
| 123 | OLEMISC_SUPPORTSMULTILEVELUNDO = &h200000
|
|---|
| 124 | End Enum
|
|---|
| 125 |
|
|---|
| 126 | Const Enum OLECLOSE
|
|---|
| 127 | OLECLOSE_SAVEIFDIRTY = 0
|
|---|
| 128 | OLECLOSE_NOSAVE = 1
|
|---|
| 129 | OLECLOSE_PROMPTSAVE = 2
|
|---|
| 130 | End Enum
|
|---|
| 131 |
|
|---|
| [223] | 132 | Dim IID_IOleObject = [&h00000112, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 133 | Interface IOleObject
|
|---|
| 134 | Inherits IUnknown
|
|---|
| 135 |
|
|---|
| 136 | Function SetClientSite(
|
|---|
| [303] | 137 | /* [unique][in] */ ClientSite As IOleClientSite) As HRESULT
|
|---|
| [223] | 138 | Function GetClientSite(
|
|---|
| [303] | 139 | /* [out] */ ByRef ClientSite As IOleClientSite) As HRESULT
|
|---|
| [223] | 140 | Function SetHostNames(
|
|---|
| 141 | /* [in] */ szContainerApp As LPCOLESTR,
|
|---|
| 142 | /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT
|
|---|
| 143 | Function Close(
|
|---|
| [303] | 144 | /* [in] */ dwSaveOption As DWord) As HRESULT
|
|---|
| [223] | 145 | Function SetMoniker(
|
|---|
| 146 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| [303] | 147 | /* [unique][in] */ mk As IMoniker) As HRESULT
|
|---|
| [223] | 148 | Function GetMoniker(
|
|---|
| 149 | /* [in] */ dwAssign As DWord,
|
|---|
| 150 | /* [in] */ dwWhichMoniker As DWord,
|
|---|
| [303] | 151 | /* [out] */ ByRef mk As IMoniker) As HRESULT
|
|---|
| [223] | 152 | Function InitFromData(
|
|---|
| [303] | 153 | /* [unique][in] */ DataObject As IDataObject,
|
|---|
| [223] | 154 | /* [in] */ fCreation As BOOL,
|
|---|
| 155 | /* [in] */ dwReserved As DWord) As HRESULT
|
|---|
| 156 | Function GetClipboardData(
|
|---|
| 157 | /* [in] */ dwReserved As DWord,
|
|---|
| [303] | 158 | /* [out] */ ByRef DataObject As IDataObject) As HRESULT
|
|---|
| [223] | 159 | Function DoVerb(
|
|---|
| 160 | /* [in] */ iVerb As Long,
|
|---|
| 161 | /* [unique][in] */ lpmsg As *MSG,
|
|---|
| [303] | 162 | /* [unique][in] */ ActiveSite As IOleClientSite,
|
|---|
| [223] | 163 | /* [in] */ lindex As Long,
|
|---|
| 164 | /* [in] */ hwndParent As HWND,
|
|---|
| 165 | /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT
|
|---|
| 166 | Function EnumVerbs(
|
|---|
| [303] | 167 | /* [out] */ ByRef EnumOleVerb As IUnknown /*IEnumOLEVERB*/) As HRESULT
|
|---|
| [223] | 168 | Function Update() As HRESULT
|
|---|
| 169 | Function IsUpToDate() As HRESULT
|
|---|
| 170 | Function GetUserClassID(
|
|---|
| 171 | /* [out] */ ByRef Clsid As CLSID) As HRESULT
|
|---|
| 172 | Function GetUserType(
|
|---|
| 173 | /* [in] */ dwFormOfType As DWord,
|
|---|
| 174 | /* [out] */ ByRef pszUserType As LPOLESTR) As HRESULT
|
|---|
| 175 | Function SetExtent(
|
|---|
| 176 | /* [in] */ dwDrawAspect As DWord,
|
|---|
| 177 | /* [in] */ ByRef sizel As SIZEL) As HRESULT
|
|---|
| 178 | Function GetExtent(
|
|---|
| 179 | /* [in] */ dwDrawAspect As DWord,
|
|---|
| 180 | /* [out] */ ByRef sizel As SIZEL) As HRESULT
|
|---|
| 181 | Function Advise(
|
|---|
| [303] | 182 | /* [unique][in] */ AdvSink As IAdviseSink,
|
|---|
| [223] | 183 | /* [out] */ ByRef dwConnection As DWord) As HRESULT
|
|---|
| 184 | Function Unadvise(
|
|---|
| 185 | /* [in] */ dwConnection As DWord) As HRESULT
|
|---|
| 186 | Function EnumAdvise(
|
|---|
| 187 | /* [out] */ ByRef penumAdvise As IEnumSTATDATA) As HRESULT
|
|---|
| 188 | Function GetMiscStatus(
|
|---|
| 189 | /* [in] */ dwAspect As DWord,
|
|---|
| 190 | /* [out] */ ByRef dwStatus As DWord) As HRESULT
|
|---|
| 191 | Function SetColorScheme(
|
|---|
| 192 | /* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT
|
|---|
| 193 | End Interface
|
|---|
| [303] | 194 |
|
|---|
| 195 | /* interface IOleWindow */
|
|---|
| 196 | /* [unique][uuid][object] */
|
|---|
| 197 |
|
|---|
| 198 | Dim IID_IOleWindow = [&h00000114, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 199 | Interface IOleWindow
|
|---|
| 200 | Inherits IUnknown
|
|---|
| 201 |
|
|---|
| 202 | /* [input_sync] */ Function GetWindow(
|
|---|
| 203 | /* [out] */ ByRef hwnd As HWND) As HRESULT
|
|---|
| 204 | Function ContextSensitiveHelp(
|
|---|
| 205 | /* [in] */ fEnterMode As BOOL) As HRESULT
|
|---|
| 206 | End Interface
|
|---|
| 207 |
|
|---|
| 208 | 'IOleLink
|
|---|
| 209 | 'IOleItemContainer
|
|---|
| 210 | 'IOleInPlaceUIWindow
|
|---|
| 211 | 'IOleInPlaceActiveObject
|
|---|
| 212 | Interface IOleInPlaceActiveObject
|
|---|
| 213 | Inherits IOleWindow
|
|---|
| 214 | End Interface
|
|---|
| 215 |
|
|---|
| 216 | 'IOleInPlaceFrame
|
|---|
| 217 | Interface IOleInPlaceFrame
|
|---|
| 218 | Inherits IOleWindow
|
|---|
| 219 | End Interface
|
|---|
| 220 |
|
|---|
| 221 | 'IOleInPlaceObject
|
|---|
| 222 | 'IOleInPlaceSite
|
|---|
| 223 | 'IContinue
|
|---|
| 224 | 'IViewObject
|
|---|
| 225 | 'IViewObject2
|
|---|
| 226 |
|
|---|
| 227 | /* interface IDropSource */
|
|---|
| 228 | /* [uuid][object][local] */
|
|---|
| 229 |
|
|---|
| 230 | Dim IID_IDropSource = [&h00000121, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 231 |
|
|---|
| 232 | Interface IDropSource
|
|---|
| 233 | Inherits IUnknown
|
|---|
| 234 |
|
|---|
| 235 | Function QueryContinueDrag(
|
|---|
| 236 | fEscapePressed As DWord,
|
|---|
| 237 | grfKeyState As DWord) As HRESULT
|
|---|
| 238 | Function GiveFeedback(
|
|---|
| 239 | dwEffect As DWord) As HRESULT
|
|---|
| 240 | End Interface
|
|---|
| 241 |
|
|---|
| 242 | /* interface IDropTarget */
|
|---|
| 243 | /* [unique][uuid][object] */
|
|---|
| 244 |
|
|---|
| 245 | Const MK_ALT = &h20
|
|---|
| 246 |
|
|---|
| 247 | Const DROPEFFECT_NONE = 0
|
|---|
| 248 | Const DROPEFFECT_COPY = 1
|
|---|
| 249 | Const DROPEFFECT_MOVE = 2
|
|---|
| 250 | Const DROPEFFECT_LINK = 4
|
|---|
| 251 | Const DROPEFFECT_SCROLL = &h80000000
|
|---|
| 252 |
|
|---|
| 253 | Const DD_DEFSCROLLINSET = 11
|
|---|
| 254 | Const DD_DEFSCROLLDELAY = 50
|
|---|
| 255 | Const DD_DEFSCROLLINTERVAL = 50
|
|---|
| 256 | Const DD_DEFDRAGDELAY = 200
|
|---|
| 257 | Const DD_DEFDRAGMINDIST = 2
|
|---|
| 258 |
|
|---|
| 259 | Dim IID_IDropTarget = [&h00000122, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 260 | Interface IDropTarget
|
|---|
| 261 | Inherits IUnknown
|
|---|
| 262 |
|
|---|
| 263 | Function DragEnter(
|
|---|
| 264 | /* [unique][in] */ DataObj As IDataObject,
|
|---|
| 265 | /* [in] */ grfKeyState As DWord,
|
|---|
| 266 | /* [in] */ x As Long, y As Long,
|
|---|
| 267 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
|---|
| 268 | Function DragOver(
|
|---|
| 269 | /* [in] */ grfKeyState As DWord,
|
|---|
| 270 | /* [in] */ x As Long, y As Long,
|
|---|
| 271 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
|---|
| 272 | Function DragLeave() As HRESULT
|
|---|
| 273 | Function Drop(
|
|---|
| 274 | /* [unique][in] */ DataObj As IDataObject,
|
|---|
| 275 | /* [in] */ grfKeyState As DWord,
|
|---|
| 276 | /* [in] */ x As Long, y As Long,
|
|---|
| 277 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
|---|
| 278 | End Interface
|
|---|
| 279 |
|
|---|
| 280 | /* interface IDropSourceNotify */
|
|---|
| 281 | /* [unique][uuid][object][local] */
|
|---|
| 282 |
|
|---|
| 283 | Dim IID_IDropSourceNotify = [&h0000012B, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 284 | Interface IDropSourceNotify
|
|---|
| 285 | Inherits IUnknown
|
|---|
| 286 |
|
|---|
| 287 | Function DragEnterTarget(
|
|---|
| 288 | /* [in] */ hwndTarget As HWND) As HRESULT
|
|---|
| 289 | Function DragLeaveTarget() As HRESULT
|
|---|
| 290 | End Interface
|
|---|
| 291 |
|
|---|
| 292 | /* interface IEnumOLEVERB */
|
|---|
| 293 | /* [unique][uuid][object] */
|
|---|
| 294 |
|
|---|
| 295 | Type OLEVERB
|
|---|
| 296 | lVerb As Long
|
|---|
| 297 | lpszVerbName As LPOLESTR
|
|---|
| 298 | fuFlags As DWord
|
|---|
| 299 | grfAttribs As DWord
|
|---|
| 300 | End Type
|
|---|
| 301 |
|
|---|
| 302 | /* [v1_enum] */ Const Enum OLEVERBATTRIB
|
|---|
| 303 | OLEVERBATTRIB_NEVERDIRTIES = 1
|
|---|
| 304 | OLEVERBATTRIB_ONCONTAINERMENU = 2
|
|---|
| 305 | End Enum
|
|---|
| 306 |
|
|---|
| 307 | Dim IID_IEnumOLEVERB = [&h00000104, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 308 | Interface IEnumOLEVERB
|
|---|
| 309 | Inherits IUnknown
|
|---|
| 310 |
|
|---|
| 311 | /* [local] */ Function Next_(
|
|---|
| 312 | /* [in] */ celt As DWord,
|
|---|
| 313 | /* [length_is][size_is][out] */ rgelt As *OLEVERB,
|
|---|
| 314 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 315 | Function Skip(
|
|---|
| 316 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 317 | Function Reset() As HRESULT
|
|---|
| 318 | Function Clone(
|
|---|
| 319 | /* [out] */ ByRef enumOleVerb As IEnumOLEVERB) As HRESULT
|
|---|
| 320 | End Interface
|
|---|
