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