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

Last change on this file since 560 was 478, checked in by イグトランス (egtra), 15 years ago

現在向けに修正(参照型のポインタの排除など)

File size: 8.9 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'IOleCache
23'IOleCache2
24'IOleCacheControl
25
26/* interface IParseDisplayName */
27/* [unique][uuid][object] */
28
29Dim IID_IParseDisplayName = [&h0000011a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
30
31Interface 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
39End Interface
40
41/* interface IOleContainer */
42/* [unique][uuid][object] */
43
44Dim IID_IOleContainer = [&h0000011b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
45Interface 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
53End Interface
54
55Const Enum OLERENDER
56    OLERENDER_NONE = 0
57    OLERENDER_DRAW = 1
58    OLERENDER_FORMAT = 2
59    OLERENDER_ASIS = 3
60End Enum
61
62Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
63Interface IOleClientSite
64    Inherits IUnknown
65
66    Function SaveObject() As HRESULT
67    Function GetMoniker(
68        /* [in] */ dwAssign As DWord,
69        /* [in] */ dwWhichMoniker As DWord,
70        /* [out] */ ByRef mk As IMoniker) As HRESULT
71    Function GetContainer(
72        /* [out] */ ByRef Container As IOleContainer) As HRESULT
73    Function ShowObject() As HRESULT
74    Function OnShowWindow(
75        fShow As BOOL) As HRESULT
76    Function RequestNewObjectLayout() As HRESULT
77End Interface
78
79/* interface IOleObject */
80/* [unique][uuid][object] */
81
82Const Enum  OLEGETMONIKER
83    OLEGETMONIKER_ONLYIFTHERE = 1
84    OLEGETMONIKER_FORCEASSIGN = 2
85    OLEGETMONIKER_UNASSIGN = 3
86    OLEGETMONIKER_TEMPFORUSER = 4
87End Enum
88
89Const Enum  OLEWHICHMK
90    OLEWHICHMK_CONTAINER = 1
91    OLEWHICHMK_OBJREL = 2
92    OLEWHICHMK_OBJFULL = 3
93End Enum
94
95Const Enum  USERCLASSTYPE
96    USERCLASSTYPE_FULL = 1
97    USERCLASSTYPE_SHORT = 2
98    USERCLASSTYPE_APPNAME = 3
99End Enum
100
101Const 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
124End Enum
125
126Const Enum OLECLOSE
127    OLECLOSE_SAVEIFDIRTY = 0
128    OLECLOSE_NOSAVE = 1
129    OLECLOSE_PROMPTSAVE = 2
130End Enum
131
132Dim IID_IOleObject = [&h00000112, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
133Interface IOleObject
134    Inherits IUnknown
135
136    Function SetClientSite(
137        /* [unique][in] */ ClientSite As IOleClientSite) As HRESULT
138    Function GetClientSite(
139        /* [out] */ ByRef ClientSite As IOleClientSite) As HRESULT
140    Function SetHostNames(
141        /* [in] */ szContainerApp As LPCOLESTR,
142        /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT
143    Function Close(
144        /* [in] */ dwSaveOption As DWord) As HRESULT
145    Function SetMoniker(
146        /* [in] */ dwWhichMoniker As DWord,
147        /* [unique][in] */ mk As IMoniker) As HRESULT
148    Function GetMoniker(
149        /* [in] */ dwAssign As DWord,
150        /* [in] */ dwWhichMoniker As DWord,
151        /* [out] */ ByRef mk As IMoniker) As HRESULT
152    Function InitFromData(
153        /* [unique][in] */ DataObject As IDataObject,
154        /* [in] */ fCreation As BOOL,
155        /* [in] */ dwReserved As DWord) As HRESULT
156    Function GetClipboardData(
157        /* [in] */ dwReserved As DWord,
158        /* [out] */ ByRef DataObject As IDataObject) As HRESULT
159    Function DoVerb(
160        /* [in] */ iVerb As Long,
161        /* [unique][in] */ lpmsg As *MSG,
162        /* [unique][in] */ ActiveSite As IOleClientSite,
163        /* [in] */ lindex As Long,
164        /* [in] */ hwndParent As HWND,
165        /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT
166    Function EnumVerbs(
167        /* [out] */ ByRef EnumOleVerb As IUnknown /*IEnumOLEVERB*/) As HRESULT
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(
182        /* [unique][in] */ AdvSink As IAdviseSink,
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
193End Interface
194
195/* interface IOleWindow */
196/* [unique][uuid][object] */
197
198Dim IID_IOleWindow = [&h00000114, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
199Interface 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
206End Interface
207
208'IOleLink
209'IOleItemContainer
210'IOleInPlaceUIWindow
211'IOleInPlaceActiveObject
212Interface IOleInPlaceActiveObject
213    Inherits IOleWindow
214End Interface
215
216'IOleInPlaceFrame
217Interface IOleInPlaceFrame
218    Inherits IOleWindow
219End Interface
220
221'IOleInPlaceObject
222'IOleInPlaceSite
223'IContinue
224'IViewObject
225'IViewObject2
226
227/* interface IDropSource */
228/* [uuid][object][local] */
229
230Dim IID_IDropSource = [&h00000121, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
231
232Interface 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
240End Interface
241
242/* interface IDropTarget */
243/* [unique][uuid][object] */
244
245Const MK_ALT = &h20
246
247Const DROPEFFECT_NONE = 0
248Const DROPEFFECT_COPY = 1
249Const DROPEFFECT_MOVE = 2
250Const DROPEFFECT_LINK = 4
251Const DROPEFFECT_SCROLL = &h80000000
252
253Const DD_DEFSCROLLINSET = 11
254Const DD_DEFSCROLLDELAY = 50
255Const DD_DEFSCROLLINTERVAL = 50
256Const DD_DEFDRAGDELAY = 200
257Const DD_DEFDRAGMINDIST = 2
258
259Dim IID_IDropTarget = [&h00000122, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
260Interface 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
278End Interface
279
280/* interface IDropSourceNotify */
281/* [unique][uuid][object][local] */
282
283Dim IID_IDropSourceNotify = [&h0000012B, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
284Interface IDropSourceNotify
285    Inherits IUnknown
286
287    Function DragEnterTarget(
288        /* [in] */ hwndTarget As HWND) As HRESULT
289    Function DragLeaveTarget() As HRESULT
290End Interface
291
292/* interface IEnumOLEVERB */
293/* [unique][uuid][object] */
294
295Type OLEVERB
296    lVerb As Long
297    lpszVerbName As LPOLESTR
298    fuFlags As DWord
299    grfAttribs As DWord
300End Type
301
302/* [v1_enum] */ Const Enum OLEVERBATTRIB
303    OLEVERBATTRIB_NEVERDIRTIES = 1
304    OLEVERBATTRIB_ONCONTAINERMENU = 2
305End Enum
306
307Dim IID_IEnumOLEVERB = [&h00000104, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
308Interface 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
320End Interface
Note: See TracBrowser for help on using the repository browser.