source: trunk/ab5.0/ablib/src/oleidl.ab

Last change on this file was 670, checked in by イグトランス (egtra), 14 years ago

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