gdi32, winex11drv: Add a test for compatible bitmap depths.
[wine] / dlls / riched20 / richole.c
1 /*
2  * RichEdit GUIDs and OLE interface
3  *
4  * Copyright 2004 by Krzysztof Foltman
5  * Copyright 2004 Aric Stewart
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #include <stdarg.h>
23
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
26 #define COBJMACROS
27
28 #include "windef.h"
29 #include "winbase.h"
30 #include "wingdi.h"
31 #include "winuser.h"
32 #include "ole2.h"
33 #include "richole.h"
34 #include "editor.h"
35 #include "tom.h"
36 #include "wine/debug.h"
37
38 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
39
40 /* there is no way to be consistent across different sets of headers - mingw, Wine, Win32 SDK*/
41
42 /* FIXME: the next 6 lines should be in textserv.h */
43 #include "initguid.h"
44 #define TEXTSERV_GUID(name, l, w1, w2, b1, b2) \
45     DEFINE_GUID(name, l, w1, w2, b1, b2, 0x00, 0xaa, 0x00, 0x6c, 0xad, 0xc5)
46
47 TEXTSERV_GUID(IID_ITextServices, 0x8d33f740, 0xcf58, 0x11ce, 0xa8, 0x9d);
48 TEXTSERV_GUID(IID_ITextHost, 0xc5bdd8d0, 0xd26e, 0x11ce, 0xa8, 0x9e);
49 TEXTSERV_GUID(IID_ITextHost2, 0xc5bdd8d0, 0xd26e, 0x11ce, 0xa8, 0x9e);
50 DEFINE_GUID(IID_ITextDocument, 0x8cc497c0, 0xa1df, 0x11ce, 0x80, 0x98, 0x00, 0xaa, 0x00, 0x47, 0xbe, 0x5d);
51
52 typedef struct IRichEditOleImpl {
53     const IRichEditOleVtbl *lpRichEditOleVtbl;
54     const ITextDocumentVtbl *lpTextDocumentVtbl;
55     LONG ref;
56
57     ME_TextEditor *editor;
58 } IRichEditOleImpl;
59
60 static inline IRichEditOleImpl *impl_from_IRichEditOle(IRichEditOle *iface)
61 {
62     return (IRichEditOleImpl *)((BYTE*)iface - FIELD_OFFSET(IRichEditOleImpl, lpRichEditOleVtbl));
63 }
64
65 static inline IRichEditOleImpl *impl_from_ITextDocument(ITextDocument *iface)
66 {
67     return (IRichEditOleImpl *)((BYTE*)iface - FIELD_OFFSET(IRichEditOleImpl, lpTextDocumentVtbl));
68 }
69
70 static HRESULT WINAPI
71 IRichEditOle_fnQueryInterface(IRichEditOle *me, REFIID riid, LPVOID *ppvObj)
72 {
73     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
74
75     TRACE("%p %s\n", This, debugstr_guid(riid) );
76
77     *ppvObj = NULL;
78     if (IsEqualGUID(riid, &IID_IUnknown) ||
79         IsEqualGUID(riid, &IID_IRichEditOle))
80         *ppvObj = &This->lpRichEditOleVtbl;
81     else if (IsEqualGUID(riid, &IID_ITextDocument))
82         *ppvObj = &This->lpTextDocumentVtbl;
83     if (*ppvObj)
84     {
85         IRichEditOle_AddRef(me);
86         return S_OK;
87     }
88     FIXME("%p: unhandled interface %s\n", This, debugstr_guid(riid) );
89  
90     return E_NOINTERFACE;   
91 }
92
93 static ULONG WINAPI
94 IRichEditOle_fnAddRef(IRichEditOle *me)
95 {
96     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
97     ULONG ref = InterlockedIncrement( &This->ref );
98
99     TRACE("%p ref = %u\n", This, ref);
100
101     return ref;
102 }
103
104 static ULONG WINAPI
105 IRichEditOle_fnRelease(IRichEditOle *me)
106 {
107     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
108     ULONG ref = InterlockedDecrement(&This->ref);
109
110     TRACE ("%p ref=%u\n", This, ref);
111
112     if (!ref)
113     {
114         TRACE ("Destroying %p\n", This);
115         heap_free(This);
116     }
117     return ref;
118 }
119
120 static HRESULT WINAPI
121 IRichEditOle_fnActivateAs(IRichEditOle *me, REFCLSID rclsid, REFCLSID rclsidAs)
122 {
123     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
124     FIXME("stub %p\n",This);
125     return E_NOTIMPL;
126 }
127
128 static HRESULT WINAPI
129 IRichEditOle_fnContextSensitiveHelp(IRichEditOle *me, BOOL fEnterMode)
130 {
131     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
132     FIXME("stub %p\n",This);
133     return E_NOTIMPL;
134 }
135
136 static HRESULT WINAPI
137 IRichEditOle_fnConvertObject(IRichEditOle *me, LONG iob,
138                REFCLSID rclsidNew, LPCSTR lpstrUserTypeNew)
139 {
140     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
141     FIXME("stub %p\n",This);
142     return E_NOTIMPL;
143 }
144
145 static HRESULT WINAPI
146 IRichEditOle_fnGetClientSite(IRichEditOle *me,
147                LPOLECLIENTSITE *lplpolesite)
148 {
149     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
150     FIXME("stub %p\n",This);
151     return E_NOTIMPL;
152 }
153
154 static HRESULT WINAPI
155 IRichEditOle_fnGetClipboardData(IRichEditOle *me, CHARRANGE *lpchrg,
156                DWORD reco, LPDATAOBJECT *lplpdataobj)
157 {
158     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
159     CHARRANGE tmpchrg;
160
161     TRACE("(%p,%p,%d)\n",This, lpchrg, reco);
162     if(!lplpdataobj)
163         return E_INVALIDARG;
164     if(!lpchrg) {
165         ME_GetSelection(This->editor, (int*)&tmpchrg.cpMin, (int*)&tmpchrg.cpMax);
166         lpchrg = &tmpchrg;
167     }
168     return ME_GetDataObject(This->editor, lpchrg, lplpdataobj);
169 }
170
171 static LONG WINAPI IRichEditOle_fnGetLinkCount(IRichEditOle *me)
172 {
173     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
174     FIXME("stub %p\n",This);
175     return E_NOTIMPL;
176 }
177
178 static HRESULT WINAPI
179 IRichEditOle_fnGetObject(IRichEditOle *me, LONG iob,
180                REOBJECT *lpreobject, DWORD dwFlags)
181 {
182     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
183     FIXME("stub %p\n",This);
184     return E_NOTIMPL;
185 }
186
187 static LONG WINAPI
188 IRichEditOle_fnGetObjectCount(IRichEditOle *me)
189 {
190     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
191     FIXME("stub %p\n",This);
192     return E_NOTIMPL;
193 }
194
195 static HRESULT WINAPI
196 IRichEditOle_fnHandsOffStorage(IRichEditOle *me, LONG iob)
197 {
198     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
199     FIXME("stub %p\n",This);
200     return E_NOTIMPL;
201 }
202
203 static HRESULT WINAPI
204 IRichEditOle_fnImportDataObject(IRichEditOle *me, LPDATAOBJECT lpdataobj,
205                CLIPFORMAT cf, HGLOBAL hMetaPict)
206 {
207     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
208     FIXME("stub %p\n",This);
209     return E_NOTIMPL;
210 }
211
212 static HRESULT WINAPI
213 IRichEditOle_fnInPlaceDeactivate(IRichEditOle *me)
214 {
215     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
216     FIXME("stub %p\n",This);
217     return E_NOTIMPL;
218 }
219
220 static HRESULT WINAPI
221 IRichEditOle_fnInsertObject(IRichEditOle *me, REOBJECT *lpreobject)
222 {
223     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
224     FIXME("stub %p\n",This);
225     return E_NOTIMPL;
226 }
227
228 static HRESULT WINAPI IRichEditOle_fnSaveCompleted(IRichEditOle *me, LONG iob,
229                LPSTORAGE lpstg)
230 {
231     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
232     FIXME("stub %p\n",This);
233     return E_NOTIMPL;
234 }
235
236 static HRESULT WINAPI
237 IRichEditOle_fnSetDvaspect(IRichEditOle *me, LONG iob, DWORD dvaspect)
238 {
239     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
240     FIXME("stub %p\n",This);
241     return E_NOTIMPL;
242 }
243
244 static HRESULT WINAPI IRichEditOle_fnSetHostNames(IRichEditOle *me,
245                LPCSTR lpstrContainerApp, LPCSTR lpstrContainerObj)
246 {
247     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
248     FIXME("stub %p %s %s\n",This, lpstrContainerApp, lpstrContainerObj);
249     return E_NOTIMPL;
250 }
251
252 static HRESULT WINAPI
253 IRichEditOle_fnSetLinkAvailable(IRichEditOle *me, LONG iob, BOOL fAvailable)
254 {
255     IRichEditOleImpl *This = impl_from_IRichEditOle(me);
256     FIXME("stub %p\n",This);
257     return E_NOTIMPL;
258 }
259
260 static const IRichEditOleVtbl revt = {
261     IRichEditOle_fnQueryInterface,
262     IRichEditOle_fnAddRef,
263     IRichEditOle_fnRelease,
264     IRichEditOle_fnGetClientSite,
265     IRichEditOle_fnGetObjectCount,
266     IRichEditOle_fnGetLinkCount,
267     IRichEditOle_fnGetObject,
268     IRichEditOle_fnInsertObject,
269     IRichEditOle_fnConvertObject,
270     IRichEditOle_fnActivateAs,
271     IRichEditOle_fnSetHostNames,
272     IRichEditOle_fnSetLinkAvailable,
273     IRichEditOle_fnSetDvaspect,
274     IRichEditOle_fnHandsOffStorage,
275     IRichEditOle_fnSaveCompleted,
276     IRichEditOle_fnInPlaceDeactivate,
277     IRichEditOle_fnContextSensitiveHelp,
278     IRichEditOle_fnGetClipboardData,
279     IRichEditOle_fnImportDataObject
280 };
281
282 static HRESULT WINAPI
283 ITextDocument_fnQueryInterface(ITextDocument* me, REFIID riid,
284     void** ppvObject)
285 {
286     IRichEditOleImpl *This = impl_from_ITextDocument(me);
287     return IRichEditOle_fnQueryInterface((IRichEditOle*)&This->lpRichEditOleVtbl,
288             riid, ppvObject);
289 }
290
291 static ULONG WINAPI
292 ITextDocument_fnAddRef(ITextDocument* me)
293 {
294     IRichEditOleImpl *This = impl_from_ITextDocument(me);
295     return IRichEditOle_fnAddRef((IRichEditOle*)&This->lpRichEditOleVtbl);
296 }
297
298 static ULONG WINAPI
299 ITextDocument_fnRelease(ITextDocument* me)
300 {
301     IRichEditOleImpl *This = impl_from_ITextDocument(me);
302     return IRichEditOle_fnRelease((IRichEditOle*)&This->lpRichEditOleVtbl);
303 }
304
305 static HRESULT WINAPI
306 ITextDocument_fnGetTypeInfoCount(ITextDocument* me,
307     UINT* pctinfo)
308 {
309     IRichEditOleImpl *This = impl_from_ITextDocument(me);
310     FIXME("stub %p\n",This);
311     return E_NOTIMPL;
312 }
313
314 static HRESULT WINAPI
315 ITextDocument_fnGetTypeInfo(ITextDocument* me, UINT iTInfo, LCID lcid,
316     ITypeInfo** ppTInfo)
317 {
318     IRichEditOleImpl *This = impl_from_ITextDocument(me);
319     FIXME("stub %p\n",This);
320     return E_NOTIMPL;
321 }
322
323 static HRESULT WINAPI
324 ITextDocument_fnGetIDsOfNames(ITextDocument* me, REFIID riid,
325     LPOLESTR* rgszNames, UINT cNames, LCID lcid, DISPID* rgDispId)
326 {
327     IRichEditOleImpl *This = impl_from_ITextDocument(me);
328     FIXME("stub %p\n",This);
329     return E_NOTIMPL;
330 }
331
332 static HRESULT WINAPI
333 ITextDocument_fnInvoke(ITextDocument* me, DISPID dispIdMember,
334     REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
335     VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
336 {
337     IRichEditOleImpl *This = impl_from_ITextDocument(me);
338     FIXME("stub %p\n",This);
339     return E_NOTIMPL;
340 }
341
342 static HRESULT WINAPI
343 ITextDocument_fnGetName(ITextDocument* me, BSTR* pName)
344 {
345     IRichEditOleImpl *This = impl_from_ITextDocument(me);
346     FIXME("stub %p\n",This);
347     return E_NOTIMPL;
348 }
349
350 static HRESULT WINAPI
351 ITextDocument_fnGetSelection(ITextDocument* me, ITextSelection** ppSel)
352 {
353     IRichEditOleImpl *This = impl_from_ITextDocument(me);
354     FIXME("stub %p\n",This);
355     return E_NOTIMPL;
356 }
357
358 static HRESULT WINAPI
359 ITextDocument_fnGetStoryCount(ITextDocument* me, long* pCount)
360 {
361     IRichEditOleImpl *This = impl_from_ITextDocument(me);
362     FIXME("stub %p\n",This);
363     return E_NOTIMPL;
364 }
365
366 static HRESULT WINAPI
367 ITextDocument_fnGetStoryRanges(ITextDocument* me,
368     ITextStoryRanges** ppStories)
369 {
370     IRichEditOleImpl *This = impl_from_ITextDocument(me);
371     FIXME("stub %p\n",This);
372     return E_NOTIMPL;
373 }
374
375 static HRESULT WINAPI
376 ITextDocument_fnGetSaved(ITextDocument* me, long* pValue)
377 {
378     IRichEditOleImpl *This = impl_from_ITextDocument(me);
379     FIXME("stub %p\n",This);
380     return E_NOTIMPL;
381 }
382
383 static HRESULT WINAPI
384 ITextDocument_fnSetSaved(ITextDocument* me, long Value)
385 {
386     IRichEditOleImpl *This = impl_from_ITextDocument(me);
387     FIXME("stub %p\n",This);
388     return E_NOTIMPL;
389 }
390
391 static HRESULT WINAPI
392 ITextDocument_fnGetDefaultTabStop(ITextDocument* me, float* pValue)
393 {
394     IRichEditOleImpl *This = impl_from_ITextDocument(me);
395     FIXME("stub %p\n",This);
396     return E_NOTIMPL;
397 }
398
399 static HRESULT WINAPI
400 ITextDocument_fnSetDefaultTabStop(ITextDocument* me, float Value)
401 {
402     IRichEditOleImpl *This = impl_from_ITextDocument(me);
403     FIXME("stub %p\n",This);
404     return E_NOTIMPL;
405 }
406
407 static HRESULT WINAPI
408 ITextDocument_fnNew(ITextDocument* me)
409 {
410     IRichEditOleImpl *This = impl_from_ITextDocument(me);
411     FIXME("stub %p\n",This);
412     return E_NOTIMPL;
413 }
414
415 static HRESULT WINAPI
416 ITextDocument_fnOpen(ITextDocument* me, VARIANT* pVar, long Flags,
417     long CodePage)
418 {
419     IRichEditOleImpl *This = impl_from_ITextDocument(me);
420     FIXME("stub %p\n",This);
421     return E_NOTIMPL;
422 }
423
424 static HRESULT WINAPI
425 ITextDocument_fnSave(ITextDocument* me, VARIANT* pVar, long Flags,
426     long CodePage)
427 {
428     IRichEditOleImpl *This = impl_from_ITextDocument(me);
429     FIXME("stub %p\n",This);
430     return E_NOTIMPL;
431 }
432
433 static HRESULT WINAPI
434 ITextDocument_fnFreeze(ITextDocument* me, long* pCount)
435 {
436     IRichEditOleImpl *This = impl_from_ITextDocument(me);
437     FIXME("stub %p\n",This);
438     return E_NOTIMPL;
439 }
440
441 static HRESULT WINAPI
442 ITextDocument_fnUnfreeze(ITextDocument* me, long* pCount)
443 {
444     IRichEditOleImpl *This = impl_from_ITextDocument(me);
445     FIXME("stub %p\n",This);
446     return E_NOTIMPL;
447 }
448
449 static HRESULT WINAPI
450 ITextDocument_fnBeginEditCollection(ITextDocument* me)
451 {
452     IRichEditOleImpl *This = impl_from_ITextDocument(me);
453     FIXME("stub %p\n",This);
454     return E_NOTIMPL;
455 }
456
457 static HRESULT WINAPI
458 ITextDocument_fnEndEditCollection(ITextDocument* me)
459 {
460     IRichEditOleImpl *This = impl_from_ITextDocument(me);
461     FIXME("stub %p\n",This);
462     return E_NOTIMPL;
463 }
464
465 static HRESULT WINAPI
466 ITextDocument_fnUndo(ITextDocument* me, long Count, long* prop)
467 {
468     IRichEditOleImpl *This = impl_from_ITextDocument(me);
469     FIXME("stub %p\n",This);
470     return E_NOTIMPL;
471 }
472
473 static HRESULT WINAPI
474 ITextDocument_fnRedo(ITextDocument* me, long Count, long* prop)
475 {
476     IRichEditOleImpl *This = impl_from_ITextDocument(me);
477     FIXME("stub %p\n",This);
478     return E_NOTIMPL;
479 }
480
481 static HRESULT WINAPI
482 ITextDocument_fnRange(ITextDocument* me, long cp1, long cp2,
483     ITextRange** ppRange)
484 {
485     IRichEditOleImpl *This = impl_from_ITextDocument(me);
486     FIXME("stub %p\n",This);
487     return E_NOTIMPL;
488 }
489
490 static HRESULT WINAPI
491 ITextDocument_fnRangeFromPoint(ITextDocument* me, long x, long y,
492     ITextRange** ppRange)
493 {
494     IRichEditOleImpl *This = impl_from_ITextDocument(me);
495     FIXME("stub %p\n",This);
496     return E_NOTIMPL;
497 }
498
499 static const ITextDocumentVtbl tdvt = {
500     ITextDocument_fnQueryInterface,
501     ITextDocument_fnAddRef,
502     ITextDocument_fnRelease,
503     ITextDocument_fnGetTypeInfoCount,
504     ITextDocument_fnGetTypeInfo,
505     ITextDocument_fnGetIDsOfNames,
506     ITextDocument_fnInvoke,
507     ITextDocument_fnGetName,
508     ITextDocument_fnGetSelection,
509     ITextDocument_fnGetStoryCount,
510     ITextDocument_fnGetStoryRanges,
511     ITextDocument_fnGetSaved,
512     ITextDocument_fnSetSaved,
513     ITextDocument_fnGetDefaultTabStop,
514     ITextDocument_fnSetDefaultTabStop,
515     ITextDocument_fnNew,
516     ITextDocument_fnOpen,
517     ITextDocument_fnSave,
518     ITextDocument_fnFreeze,
519     ITextDocument_fnUnfreeze,
520     ITextDocument_fnBeginEditCollection,
521     ITextDocument_fnEndEditCollection,
522     ITextDocument_fnUndo,
523     ITextDocument_fnRedo,
524     ITextDocument_fnRange,
525     ITextDocument_fnRangeFromPoint
526 };
527
528 LRESULT CreateIRichEditOle(ME_TextEditor *editor, LPVOID *ppObj)
529 {
530     IRichEditOleImpl *reo;
531
532     reo = heap_alloc(sizeof(IRichEditOleImpl));
533     if (!reo)
534         return 0;
535
536     reo->lpRichEditOleVtbl = &revt;
537     reo->lpTextDocumentVtbl = &tdvt;
538     reo->ref = 1;
539     reo->editor = editor;
540     TRACE("Created %p\n",reo);
541     *ppObj = (LPVOID) reo;
542
543     return 1;
544 }