advapi32: Return a fake handle from EventRegister.
[wine] / dlls / riched20 / txtsrv.c
1 /*
2  * RichEdit - functions and interfaces around CreateTextServices
3  *
4  * Copyright 2005, 2006, Maarten Lankhorst
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22 #include "wine/port.h"
23
24 #define NONAMELESSSTRUCT
25 #define NONAMELESSUNION
26 #define COBJMACROS
27
28 #include "editor.h"
29 #include "ole2.h"
30 #include "oleauto.h"
31 #include "richole.h"
32 #include "imm.h"
33 #include "textserv.h"
34 #include "wine/debug.h"
35 #include "editstr.h"
36
37 #ifdef __i386__  /* thiscall functions are i386-specific */
38
39 #define THISCALL(func) __thiscall_ ## func
40 #define DEFINE_THISCALL_WRAPPER(func,args) \
41    extern typeof(func) THISCALL(func); \
42    __ASM_STDCALL_FUNC(__thiscall_ ## func, args, \
43                    "popl %eax\n\t" \
44                    "pushl %ecx\n\t" \
45                    "pushl %eax\n\t" \
46                    "jmp " __ASM_NAME(#func) __ASM_STDCALL(args) )
47 #else /* __i386__ */
48
49 #define THISCALL(func) func
50 #define DEFINE_THISCALL_WRAPPER(func,args) /* nothing */
51
52 #endif /* __i386__ */
53
54 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
55
56 typedef struct ITextServicesImpl {
57    IUnknown IUnknown_inner;
58    ITextServices ITextServices_iface;
59    IUnknown *outer_unk;
60    LONG ref;
61    ITextHost *pMyHost;
62    CRITICAL_SECTION csTxtSrv;
63    ME_TextEditor *editor;
64    char spare[256];
65 } ITextServicesImpl;
66
67 static inline ITextServicesImpl *impl_from_IUnknown(IUnknown *iface)
68 {
69    return CONTAINING_RECORD(iface, ITextServicesImpl, IUnknown_inner);
70 }
71
72 static HRESULT WINAPI ITextServicesImpl_QueryInterface(IUnknown *iface, REFIID riid, void **ppv)
73 {
74    ITextServicesImpl *This = impl_from_IUnknown(iface);
75
76    TRACE("(%p)->(%s, %p)\n", iface, debugstr_guid(riid), ppv);
77
78    if (IsEqualIID(riid, &IID_IUnknown))
79       *ppv = &This->IUnknown_inner;
80    else if IsEqualIID(riid, &IID_ITextServices)
81       *ppv = &This->ITextServices_iface;
82    else {
83       *ppv = NULL;
84       FIXME("Unknown interface: %s\n", debugstr_guid(riid));
85       return E_NOINTERFACE;
86    }
87
88    IUnknown_AddRef((IUnknown*)*ppv);
89    return S_OK;
90 }
91
92 static ULONG WINAPI ITextServicesImpl_AddRef(IUnknown *iface)
93 {
94    ITextServicesImpl *This = impl_from_IUnknown(iface);
95    LONG ref = InterlockedIncrement(&This->ref);
96
97    TRACE("(%p) ref=%d\n", This, ref);
98
99    return ref;
100 }
101
102 static ULONG WINAPI ITextServicesImpl_Release(IUnknown *iface)
103 {
104    ITextServicesImpl *This = impl_from_IUnknown(iface);
105    LONG ref = InterlockedDecrement(&This->ref);
106
107    TRACE("(%p) ref=%d\n", This, ref);
108
109    if (!ref)
110    {
111       ITextHost_Release(This->pMyHost);
112       This->csTxtSrv.DebugInfo->Spare[0] = 0;
113       DeleteCriticalSection(&This->csTxtSrv);
114       CoTaskMemFree(This);
115    }
116    return ref;
117 }
118
119 static const IUnknownVtbl textservices_inner_vtbl =
120 {
121    ITextServicesImpl_QueryInterface,
122    ITextServicesImpl_AddRef,
123    ITextServicesImpl_Release
124 };
125
126 static inline ITextServicesImpl *impl_from_ITextServices(ITextServices *iface)
127 {
128    return CONTAINING_RECORD(iface, ITextServicesImpl, ITextServices_iface);
129 }
130
131 static HRESULT WINAPI fnTextSrv_QueryInterface(ITextServices *iface, REFIID riid, void **ppv)
132 {
133    ITextServicesImpl *This = impl_from_ITextServices(iface);
134    return IUnknown_QueryInterface(This->outer_unk, riid, ppv);
135 }
136
137 static ULONG WINAPI fnTextSrv_AddRef(ITextServices *iface)
138 {
139    ITextServicesImpl *This = impl_from_ITextServices(iface);
140    return IUnknown_AddRef(This->outer_unk);
141 }
142
143 static ULONG WINAPI fnTextSrv_Release(ITextServices *iface)
144 {
145    ITextServicesImpl *This = impl_from_ITextServices(iface);
146    return IUnknown_Release(This->outer_unk);
147 }
148
149 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSendMessage(ITextServices *iface, UINT msg, WPARAM wparam,
150                                        LPARAM lparam, LRESULT *plresult)
151 {
152    ITextServicesImpl *This = impl_from_ITextServices(iface);
153    HRESULT hresult;
154    LRESULT lresult;
155
156    lresult = ME_HandleMessage(This->editor, msg, wparam, lparam, TRUE, &hresult);
157    if (plresult) *plresult = lresult;
158    return hresult;
159 }
160
161 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxDraw(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
162                                 void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw, HDC hdcTargetDev,
163                                 LPCRECTL lprcBounds, LPCRECTL lprcWBounds, LPRECT lprcUpdate,
164                                 BOOL (CALLBACK * pfnContinue)(DWORD), DWORD dwContinue,
165                                 LONG lViewId)
166 {
167    ITextServicesImpl *This = impl_from_ITextServices(iface);
168
169    FIXME("%p: STUB\n", This);
170    return E_NOTIMPL;
171 }
172
173 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetHScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
174                                       LONG *plPage, BOOL *pfEnabled)
175 {
176    ITextServicesImpl *This = impl_from_ITextServices(iface);
177
178    *plMin = This->editor->horz_si.nMin;
179    *plMax = This->editor->horz_si.nMax;
180    *plPos = This->editor->horz_si.nPos;
181    *plPage = This->editor->horz_si.nPage;
182    *pfEnabled = (This->editor->styleFlags & WS_HSCROLL) != 0;
183    return S_OK;
184 }
185
186 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetVScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
187                                       LONG *plPage, BOOL *pfEnabled)
188 {
189    ITextServicesImpl *This = impl_from_ITextServices(iface);
190
191    *plMin = This->editor->vert_si.nMin;
192    *plMax = This->editor->vert_si.nMax;
193    *plPos = This->editor->vert_si.nPos;
194    *plPage = This->editor->vert_si.nPage;
195    *pfEnabled = (This->editor->styleFlags & WS_VSCROLL) != 0;
196    return S_OK;
197 }
198
199 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxSetCursor(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
200                                        void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
201                                        HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y)
202 {
203    ITextServicesImpl *This = impl_from_ITextServices(iface);
204
205    FIXME("%p: STUB\n", This);
206    return E_NOTIMPL;
207 }
208
209 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxQueryHitPoint(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
210                                          void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
211                                          HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y,
212                                          DWORD *pHitResult)
213 {
214    ITextServicesImpl *This = impl_from_ITextServices(iface);
215
216    FIXME("%p: STUB\n", This);
217    return E_NOTIMPL;
218 }
219
220 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceActivate(ITextServices *iface, LPCRECT prcClient)
221 {
222    ITextServicesImpl *This = impl_from_ITextServices(iface);
223
224    FIXME("%p: STUB\n", This);
225    return E_NOTIMPL;
226 }
227
228 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceDeactivate(ITextServices *iface)
229 {
230    ITextServicesImpl *This = impl_from_ITextServices(iface);
231
232    FIXME("%p: STUB\n", This);
233    return E_NOTIMPL;
234 }
235
236 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIActivate(ITextServices *iface)
237 {
238    ITextServicesImpl *This = impl_from_ITextServices(iface);
239
240    FIXME("%p: STUB\n", This);
241    return E_NOTIMPL;
242 }
243
244 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIDeactivate(ITextServices *iface)
245 {
246    ITextServicesImpl *This = impl_from_ITextServices(iface);
247
248    FIXME("%p: STUB\n", This);
249    return E_NOTIMPL;
250 }
251
252 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetText(ITextServices *iface, BSTR *pbstrText)
253 {
254    ITextServicesImpl *This = impl_from_ITextServices(iface);
255    int length;
256
257    length = ME_GetTextLength(This->editor);
258    if (length)
259    {
260       ME_Cursor start;
261       BSTR bstr;
262       bstr = SysAllocStringByteLen(NULL, length * sizeof(WCHAR));
263       if (bstr == NULL)
264          return E_OUTOFMEMORY;
265
266       ME_CursorFromCharOfs(This->editor, 0, &start);
267       ME_GetTextW(This->editor, bstr, length, &start, INT_MAX, FALSE);
268       *pbstrText = bstr;
269    } else {
270       *pbstrText = NULL;
271    }
272
273    return S_OK;
274 }
275
276 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSetText(ITextServices *iface, LPCWSTR pszText)
277 {
278    ITextServicesImpl *This = impl_from_ITextServices(iface);
279    ME_Cursor cursor;
280
281    ME_SetCursorToStart(This->editor, &cursor);
282    ME_InternalDeleteText(This->editor, &cursor,
283                          ME_GetTextLength(This->editor), FALSE);
284    ME_InsertTextFromCursor(This->editor, 0, pszText, -1,
285                            This->editor->pBuffer->pDefaultStyle);
286    ME_SetSelection(This->editor, 0, 0);
287    This->editor->nModifyStep = 0;
288    OleFlushClipboard();
289    ME_EmptyUndoStack(This->editor);
290    ME_UpdateRepaint(This->editor, FALSE);
291
292    return S_OK;
293 }
294
295 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetCurrentTargetX(ITextServices *iface, LONG *x)
296 {
297    ITextServicesImpl *This = impl_from_ITextServices(iface);
298
299    FIXME("%p: STUB\n", This);
300    return E_NOTIMPL;
301 }
302
303 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetBaseLinePos(ITextServices *iface, LONG *x)
304 {
305    ITextServicesImpl *This = impl_from_ITextServices(iface);
306
307    FIXME("%p: STUB\n", This);
308    return E_NOTIMPL;
309 }
310
311 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetNaturalSize(ITextServices *iface, DWORD dwAspect, HDC hdcDraw,
312                                           HDC hicTargetDev, DVTARGETDEVICE *ptd, DWORD dwMode,
313                                           const SIZEL *psizelExtent, LONG *pwidth, LONG *pheight)
314 {
315    ITextServicesImpl *This = impl_from_ITextServices(iface);
316
317    FIXME("%p: STUB\n", This);
318    return E_NOTIMPL;
319 }
320
321 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetDropTarget(ITextServices *iface, IDropTarget **ppDropTarget)
322 {
323    ITextServicesImpl *This = impl_from_ITextServices(iface);
324
325    FIXME("%p: STUB\n", This);
326    return E_NOTIMPL;
327 }
328
329 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxPropertyBitsChange(ITextServices *iface, DWORD dwMask, DWORD dwBits)
330 {
331    ITextServicesImpl *This = impl_from_ITextServices(iface);
332
333    FIXME("%p: STUB\n", This);
334    return E_NOTIMPL;
335 }
336
337 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetCachedSize(ITextServices *iface, DWORD *pdwWidth, DWORD *pdwHeight)
338 {
339    ITextServicesImpl *This = impl_from_ITextServices(iface);
340
341    FIXME("%p: STUB\n", This);
342    return E_NOTIMPL;
343 }
344
345 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxSendMessage,20)
346 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxDraw,52)
347 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetHScroll,24)
348 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetVScroll,24)
349 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxSetCursor,40)
350 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxQueryHitPoint,44)
351 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceActivate,8)
352 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceDeactivate,4)
353 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIActivate,4)
354 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIDeactivate,4)
355 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetText,8)
356 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxSetText,8)
357 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCurrentTargetX,8)
358 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetBaseLinePos,8)
359 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetNaturalSize,36)
360 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetDropTarget,8)
361 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxPropertyBitsChange,12)
362 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCachedSize,12)
363
364 static const ITextServicesVtbl textservices_vtbl =
365 {
366    fnTextSrv_QueryInterface,
367    fnTextSrv_AddRef,
368    fnTextSrv_Release,
369    THISCALL(fnTextSrv_TxSendMessage),
370    THISCALL(fnTextSrv_TxDraw),
371    THISCALL(fnTextSrv_TxGetHScroll),
372    THISCALL(fnTextSrv_TxGetVScroll),
373    THISCALL(fnTextSrv_OnTxSetCursor),
374    THISCALL(fnTextSrv_TxQueryHitPoint),
375    THISCALL(fnTextSrv_OnTxInplaceActivate),
376    THISCALL(fnTextSrv_OnTxInplaceDeactivate),
377    THISCALL(fnTextSrv_OnTxUIActivate),
378    THISCALL(fnTextSrv_OnTxUIDeactivate),
379    THISCALL(fnTextSrv_TxGetText),
380    THISCALL(fnTextSrv_TxSetText),
381    THISCALL(fnTextSrv_TxGetCurrentTargetX),
382    THISCALL(fnTextSrv_TxGetBaseLinePos),
383    THISCALL(fnTextSrv_TxGetNaturalSize),
384    THISCALL(fnTextSrv_TxGetDropTarget),
385    THISCALL(fnTextSrv_OnTxPropertyBitsChange),
386    THISCALL(fnTextSrv_TxGetCachedSize)
387 };
388
389 /******************************************************************
390  *        CreateTextServices (RICHED20.4)
391  */
392 HRESULT WINAPI CreateTextServices(IUnknown  *pUnkOuter, ITextHost *pITextHost, IUnknown  **ppUnk)
393 {
394    ITextServicesImpl *ITextImpl;
395    HRESULT hres;
396    TRACE("%p %p --> %p\n", pUnkOuter, pITextHost, ppUnk);
397    if (pITextHost == NULL)
398       return E_POINTER;
399
400    ITextImpl = CoTaskMemAlloc(sizeof(*ITextImpl));
401    if (ITextImpl == NULL)
402       return E_OUTOFMEMORY;
403    InitializeCriticalSection(&ITextImpl->csTxtSrv);
404    ITextImpl->csTxtSrv.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": ITextServicesImpl.csTxtSrv");
405    ITextImpl->ref = 1;
406    ITextHost_AddRef(pITextHost);
407    ITextImpl->pMyHost = pITextHost;
408    ITextImpl->IUnknown_inner.lpVtbl = &textservices_inner_vtbl;
409    ITextImpl->ITextServices_iface.lpVtbl = &textservices_vtbl;
410    ITextImpl->editor = ME_MakeEditor(pITextHost, FALSE);
411    ITextImpl->editor->exStyleFlags = 0;
412    ITextImpl->editor->rcFormat.left = 0;
413    ITextImpl->editor->rcFormat.top = 0;
414    ITextImpl->editor->rcFormat.right = 0;
415    ITextImpl->editor->rcFormat.bottom = 0;
416
417    ME_HandleMessage(ITextImpl->editor, WM_CREATE, 0, 0, TRUE, &hres);
418
419    if (pUnkOuter)
420       ITextImpl->outer_unk = pUnkOuter;
421    else
422       ITextImpl->outer_unk = &ITextImpl->IUnknown_inner;
423
424    *ppUnk = &ITextImpl->IUnknown_inner;
425    return S_OK;
426 }