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_TxGetCurTargetX(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_TxGetCurTargetX,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_TxGetCurTargetX),
 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 }