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    ITextServices ITextServices_iface;
  58    ITextHost *pMyHost;
  59    LONG ref;
  60    CRITICAL_SECTION csTxtSrv;
  61    ME_TextEditor *editor;
  62    char spare[256];
  63 } ITextServicesImpl;
  64
  65 static inline ITextServicesImpl *impl_from_ITextServices(ITextServices *iface)
  66 {
  67    return CONTAINING_RECORD(iface, ITextServicesImpl, ITextServices_iface);
  68 }
  69
  70 static HRESULT WINAPI fnTextSrv_QueryInterface(ITextServices *iface, REFIID riid, void **ppv)
  71 {
  72    ITextServicesImpl *This = impl_from_ITextServices(iface);
  73
  74    TRACE("(%p/%p)->(%s, %p)\n", This, iface, debugstr_guid(riid), ppv);
  75    *ppv = NULL;
  76    if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_ITextServices))
  77       *ppv = This;
  78
  79    if (*ppv)
  80    {
  81       IUnknown_AddRef((IUnknown *)(*ppv));
  82       TRACE ("-- Interface = %p\n", *ppv);
  83       return S_OK;
  84    }
  85    FIXME("Unknown interface: %s\n", debugstr_guid(riid));
  86    return E_NOINTERFACE;
  87 }
  88
  89 static ULONG WINAPI fnTextSrv_AddRef(ITextServices *iface)
  90 {
  91    ITextServicesImpl *This = impl_from_ITextServices(iface);
  92    DWORD ref = InterlockedIncrement(&This->ref);
  93
  94    TRACE("(%p/%p)->() AddRef from %d\n", This, iface, ref - 1);
  95    return ref;
  96 }
  97
  98 static ULONG WINAPI fnTextSrv_Release(ITextServices *iface)
  99 {
 100    ITextServicesImpl *This = impl_from_ITextServices(iface);
 101    DWORD ref = InterlockedDecrement(&This->ref);
 102
 103    TRACE("(%p/%p)->() Release from %d\n", This, iface, ref + 1);
 104
 105    if (!ref)
 106    {
 107       ITextHost_Release(This->pMyHost);
 108       This->csTxtSrv.DebugInfo->Spare[0] = 0;
 109       DeleteCriticalSection(&This->csTxtSrv);
 110       CoTaskMemFree(This);
 111    }
 112    return ref;
 113 }
 114
 115 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSendMessage(ITextServices *iface, UINT msg, WPARAM wparam,
 116                                        LPARAM lparam, LRESULT *plresult)
 117 {
 118    ITextServicesImpl *This = impl_from_ITextServices(iface);
 119    HRESULT hresult;
 120    LRESULT lresult;
 121
 122    lresult = ME_HandleMessage(This->editor, msg, wparam, lparam, TRUE, &hresult);
 123    if (plresult) *plresult = lresult;
 124    return hresult;
 125 }
 126
 127 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxDraw(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 128                                 void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw, HDC hdcTargetDev,
 129                                 LPCRECTL lprcBounds, LPCRECTL lprcWBounds, LPRECT lprcUpdate,
 130                                 BOOL (CALLBACK * pfnContinue)(DWORD), DWORD dwContinue,
 131                                 LONG lViewId)
 132 {
 133    ITextServicesImpl *This = impl_from_ITextServices(iface);
 134
 135    FIXME("%p: STUB\n", This);
 136    return E_NOTIMPL;
 137 }
 138
 139 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetHScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
 140                                       LONG *plPage, BOOL *pfEnabled)
 141 {
 142    ITextServicesImpl *This = impl_from_ITextServices(iface);
 143
 144    *plMin = This->editor->horz_si.nMin;
 145    *plMax = This->editor->horz_si.nMax;
 146    *plPos = This->editor->horz_si.nPos;
 147    *plPage = This->editor->horz_si.nPage;
 148    *pfEnabled = (This->editor->styleFlags & WS_HSCROLL) != 0;
 149    return S_OK;
 150 }
 151
 152 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetVScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
 153                                       LONG *plPage, BOOL *pfEnabled)
 154 {
 155    ITextServicesImpl *This = impl_from_ITextServices(iface);
 156
 157    *plMin = This->editor->vert_si.nMin;
 158    *plMax = This->editor->vert_si.nMax;
 159    *plPos = This->editor->vert_si.nPos;
 160    *plPage = This->editor->vert_si.nPage;
 161    *pfEnabled = (This->editor->styleFlags & WS_VSCROLL) != 0;
 162    return S_OK;
 163 }
 164
 165 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxSetCursor(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 166                                        void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
 167                                        HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y)
 168 {
 169    ITextServicesImpl *This = impl_from_ITextServices(iface);
 170
 171    FIXME("%p: STUB\n", This);
 172    return E_NOTIMPL;
 173 }
 174
 175 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxQueryHitPoint(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 176                                          void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
 177                                          HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y,
 178                                          DWORD *pHitResult)
 179 {
 180    ITextServicesImpl *This = impl_from_ITextServices(iface);
 181
 182    FIXME("%p: STUB\n", This);
 183    return E_NOTIMPL;
 184 }
 185
 186 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceActivate(ITextServices *iface, LPCRECT prcClient)
 187 {
 188    ITextServicesImpl *This = impl_from_ITextServices(iface);
 189
 190    FIXME("%p: STUB\n", This);
 191    return E_NOTIMPL;
 192 }
 193
 194 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceDeactivate(ITextServices *iface)
 195 {
 196    ITextServicesImpl *This = impl_from_ITextServices(iface);
 197
 198    FIXME("%p: STUB\n", This);
 199    return E_NOTIMPL;
 200 }
 201
 202 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIActivate(ITextServices *iface)
 203 {
 204    ITextServicesImpl *This = impl_from_ITextServices(iface);
 205
 206    FIXME("%p: STUB\n", This);
 207    return E_NOTIMPL;
 208 }
 209
 210 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIDeactivate(ITextServices *iface)
 211 {
 212    ITextServicesImpl *This = impl_from_ITextServices(iface);
 213
 214    FIXME("%p: STUB\n", This);
 215    return E_NOTIMPL;
 216 }
 217
 218 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetText(ITextServices *iface, BSTR *pbstrText)
 219 {
 220    ITextServicesImpl *This = impl_from_ITextServices(iface);
 221    int length;
 222
 223    length = ME_GetTextLength(This->editor);
 224    if (length)
 225    {
 226       ME_Cursor start;
 227       BSTR bstr;
 228       bstr = SysAllocStringByteLen(NULL, length * sizeof(WCHAR));
 229       if (bstr == NULL)
 230          return E_OUTOFMEMORY;
 231
 232       ME_CursorFromCharOfs(This->editor, 0, &start);
 233       ME_GetTextW(This->editor, bstr, length, &start, INT_MAX, FALSE);
 234       *pbstrText = bstr;
 235    } else {
 236       *pbstrText = NULL;
 237    }
 238
 239    return S_OK;
 240 }
 241
 242 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSetText(ITextServices *iface, LPCWSTR pszText)
 243 {
 244    ITextServicesImpl *This = impl_from_ITextServices(iface);
 245    ME_Cursor cursor;
 246
 247    ME_SetCursorToStart(This->editor, &cursor);
 248    ME_InternalDeleteText(This->editor, &cursor,
 249                          ME_GetTextLength(This->editor), FALSE);
 250    ME_InsertTextFromCursor(This->editor, 0, pszText, -1,
 251                            This->editor->pBuffer->pDefaultStyle);
 252    ME_SetSelection(This->editor, 0, 0);
 253    This->editor->nModifyStep = 0;
 254    OleFlushClipboard();
 255    ME_EmptyUndoStack(This->editor);
 256    ME_UpdateRepaint(This->editor, FALSE);
 257
 258    return S_OK;
 259 }
 260
 261 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetCurrentTargetX(ITextServices *iface, LONG *x)
 262 {
 263    ITextServicesImpl *This = impl_from_ITextServices(iface);
 264
 265    FIXME("%p: STUB\n", This);
 266    return E_NOTIMPL;
 267 }
 268
 269 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetBaseLinePos(ITextServices *iface, LONG *x)
 270 {
 271    ITextServicesImpl *This = impl_from_ITextServices(iface);
 272
 273    FIXME("%p: STUB\n", This);
 274    return E_NOTIMPL;
 275 }
 276
 277 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetNaturalSize(ITextServices *iface, DWORD dwAspect, HDC hdcDraw,
 278                                           HDC hicTargetDev, DVTARGETDEVICE *ptd, DWORD dwMode,
 279                                           const SIZEL *psizelExtent, LONG *pwidth, LONG *pheight)
 280 {
 281    ITextServicesImpl *This = impl_from_ITextServices(iface);
 282
 283    FIXME("%p: STUB\n", This);
 284    return E_NOTIMPL;
 285 }
 286
 287 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetDropTarget(ITextServices *iface, IDropTarget **ppDropTarget)
 288 {
 289    ITextServicesImpl *This = impl_from_ITextServices(iface);
 290
 291    FIXME("%p: STUB\n", This);
 292    return E_NOTIMPL;
 293 }
 294
 295 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxPropertyBitsChange(ITextServices *iface, DWORD dwMask, DWORD dwBits)
 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_TxGetCachedSize(ITextServices *iface, DWORD *pdwWidth, DWORD *pdwHeight)
 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_TxSendMessage,20)
 312 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxDraw,52)
 313 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetHScroll,24)
 314 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetVScroll,24)
 315 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxSetCursor,40)
 316 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxQueryHitPoint,44)
 317 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceActivate,8)
 318 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceDeactivate,4)
 319 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIActivate,4)
 320 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIDeactivate,4)
 321 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetText,8)
 322 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxSetText,8)
 323 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCurrentTargetX,8)
 324 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetBaseLinePos,8)
 325 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetNaturalSize,36)
 326 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetDropTarget,8)
 327 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxPropertyBitsChange,12)
 328 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCachedSize,12)
 329
 330 static const ITextServicesVtbl textservices_vtbl =
 331 {
 332    fnTextSrv_QueryInterface,
 333    fnTextSrv_AddRef,
 334    fnTextSrv_Release,
 335    THISCALL(fnTextSrv_TxSendMessage),
 336    THISCALL(fnTextSrv_TxDraw),
 337    THISCALL(fnTextSrv_TxGetHScroll),
 338    THISCALL(fnTextSrv_TxGetVScroll),
 339    THISCALL(fnTextSrv_OnTxSetCursor),
 340    THISCALL(fnTextSrv_TxQueryHitPoint),
 341    THISCALL(fnTextSrv_OnTxInplaceActivate),
 342    THISCALL(fnTextSrv_OnTxInplaceDeactivate),
 343    THISCALL(fnTextSrv_OnTxUIActivate),
 344    THISCALL(fnTextSrv_OnTxUIDeactivate),
 345    THISCALL(fnTextSrv_TxGetText),
 346    THISCALL(fnTextSrv_TxSetText),
 347    THISCALL(fnTextSrv_TxGetCurrentTargetX),
 348    THISCALL(fnTextSrv_TxGetBaseLinePos),
 349    THISCALL(fnTextSrv_TxGetNaturalSize),
 350    THISCALL(fnTextSrv_TxGetDropTarget),
 351    THISCALL(fnTextSrv_OnTxPropertyBitsChange),
 352    THISCALL(fnTextSrv_TxGetCachedSize)
 353 };
 354
 355 /******************************************************************
 356  *        CreateTextServices (RICHED20.4)
 357  */
 358 HRESULT WINAPI CreateTextServices(IUnknown  *pUnkOuter, ITextHost *pITextHost, IUnknown  **ppUnk)
 359 {
 360    ITextServicesImpl *ITextImpl;
 361    HRESULT hres;
 362    TRACE("%p %p --> %p\n", pUnkOuter, pITextHost, ppUnk);
 363    if (pITextHost == NULL)
 364       return E_POINTER;
 365
 366    ITextImpl = CoTaskMemAlloc(sizeof(*ITextImpl));
 367    if (ITextImpl == NULL)
 368       return E_OUTOFMEMORY;
 369    InitializeCriticalSection(&ITextImpl->csTxtSrv);
 370    ITextImpl->csTxtSrv.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": ITextServicesImpl.csTxtSrv");
 371    ITextImpl->ref = 1;
 372    ITextHost_AddRef(pITextHost);
 373    ITextImpl->pMyHost = pITextHost;
 374    ITextImpl->ITextServices_iface.lpVtbl = &textservices_vtbl;
 375    ITextImpl->editor = ME_MakeEditor(pITextHost, FALSE);
 376    ITextImpl->editor->exStyleFlags = 0;
 377    ITextImpl->editor->rcFormat.left = 0;
 378    ITextImpl->editor->rcFormat.top = 0;
 379    ITextImpl->editor->rcFormat.right = 0;
 380    ITextImpl->editor->rcFormat.bottom = 0;
 381
 382    ME_HandleMessage(ITextImpl->editor, WM_CREATE, 0, 0, TRUE, &hres);
 383
 384    if (pUnkOuter)
 385    {
 386       FIXME("Support aggregation\n");
 387       return CLASS_E_NOAGGREGATION;
 388    }
 389
 390    *ppUnk = (IUnknown *)&ITextImpl->ITextServices_iface;
 391    return S_OK;
 392 }