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