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