git.oblomov.eu Git - wine/blob - dlls/mshtml/oleobj.c

   1 /*
   2  * Copyright 2005 Jacek Caban
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "ole2.h"
  30 #include "shlguid.h"
  31 #include "mshtmdid.h"
  32 #include "idispids.h"
  33
  34 #include "wine/debug.h"
  35
  36 #include "mshtml_private.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  39
  40 /**********************************************************
  41  * IOleObject implementation
  42  */
  43
  44 #define OLEOBJ_THIS(iface) DEFINE_THIS(HTMLDocument, OleObject, iface)
  45
  46 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppvObject)
  47 {
  48     HTMLDocument *This = OLEOBJ_THIS(iface);
  49     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppvObject);
  50 }
  51
  52 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
  53 {
  54     HTMLDocument *This = OLEOBJ_THIS(iface);
  55     return IHTMLDocument2_AddRef(HTMLDOC(This));
  56 }
  57
  58 static ULONG WINAPI OleObject_Release(IOleObject *iface)
  59 {
  60     HTMLDocument *This = OLEOBJ_THIS(iface);
  61     return IHTMLDocument2_Release(HTMLDOC(This));
  62 }
  63
  64 static void update_hostinfo(HTMLDocumentObj *This, DOCHOSTUIINFO *hostinfo)
  65 {
  66     nsIScrollable *scrollable;
  67     nsresult nsres;
  68
  69     if(!This->nscontainer)
  70         return;
  71
  72     nsres = nsIWebBrowser_QueryInterface(This->nscontainer->webbrowser, &IID_nsIScrollable, (void**)&scrollable);
  73     if(NS_SUCCEEDED(nsres)) {
  74         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_Y,
  75                 (hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO) ? Scrollbar_Never : Scrollbar_Always);
  76         if(NS_FAILED(nsres))
  77             ERR("Could not set default Y scrollbar prefs: %08x\n", nsres);
  78
  79         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_X,
  80                 hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO ? Scrollbar_Never : Scrollbar_Auto);
  81         if(NS_FAILED(nsres))
  82             ERR("Could not set default X scrollbar prefs: %08x\n", nsres);
  83
  84         nsIScrollable_Release(scrollable);
  85     }else {
  86         ERR("Could not get nsIScrollable: %08x\n", nsres);
  87     }
  88 }
  89
  90 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *pClientSite)
  91 {
  92     HTMLDocument *This = OLEOBJ_THIS(iface);
  93     IDocHostUIHandler *pDocHostUIHandler = NULL;
  94     IOleCommandTarget *cmdtrg = NULL;
  95     VARIANT silent;
  96     HRESULT hres;
  97
  98     TRACE("(%p)->(%p)\n", This, pClientSite);
  99
 100     if(pClientSite == This->doc_obj->client)
 101         return S_OK;
 102
 103     if(This->doc_obj->client) {
 104         IOleClientSite_Release(This->doc_obj->client);
 105         This->doc_obj->client = NULL;
 106         This->doc_obj->usermode = UNKNOWN_USERMODE;
 107     }
 108
 109     if(This->doc_obj->hostui) {
 110         IDocHostUIHandler_Release(This->doc_obj->hostui);
 111         This->doc_obj->hostui = NULL;
 112     }
 113
 114     memset(&This->doc_obj->hostinfo, 0, sizeof(DOCHOSTUIINFO));
 115
 116     if(!pClientSite)
 117         return S_OK;
 118
 119     hres = IOleObject_QueryInterface(pClientSite, &IID_IDocHostUIHandler, (void**)&pDocHostUIHandler);
 120     if(SUCCEEDED(hres)) {
 121         DOCHOSTUIINFO hostinfo;
 122         LPOLESTR key_path = NULL, override_key_path = NULL;
 123         IDocHostUIHandler2 *pDocHostUIHandler2;
 124
 125         memset(&hostinfo, 0, sizeof(DOCHOSTUIINFO));
 126         hostinfo.cbSize = sizeof(DOCHOSTUIINFO);
 127         hres = IDocHostUIHandler_GetHostInfo(pDocHostUIHandler, &hostinfo);
 128         if(SUCCEEDED(hres)) {
 129             TRACE("hostinfo = {%u %08x %08x %s %s}\n",
 130                     hostinfo.cbSize, hostinfo.dwFlags, hostinfo.dwDoubleClick,
 131                     debugstr_w(hostinfo.pchHostCss), debugstr_w(hostinfo.pchHostNS));
 132             update_hostinfo(This->doc_obj, &hostinfo);
 133             This->doc_obj->hostinfo = hostinfo;
 134         }
 135
 136         if(!This->doc_obj->has_key_path) {
 137             hres = IDocHostUIHandler_GetOptionKeyPath(pDocHostUIHandler, &key_path, 0);
 138             if(hres == S_OK && key_path) {
 139                 if(key_path[0]) {
 140                     /* FIXME: use key_path */
 141                     TRACE("key_path = %s\n", debugstr_w(key_path));
 142                 }
 143                 CoTaskMemFree(key_path);
 144             }
 145
 146             hres = IDocHostUIHandler_QueryInterface(pDocHostUIHandler, &IID_IDocHostUIHandler2,
 147                     (void**)&pDocHostUIHandler2);
 148             if(SUCCEEDED(hres)) {
 149                 hres = IDocHostUIHandler2_GetOverrideKeyPath(pDocHostUIHandler2, &override_key_path, 0);
 150                 if(hres == S_OK && override_key_path && override_key_path[0]) {
 151                     if(override_key_path[0]) {
 152                         /*FIXME: use override_key_path */
 153                         TRACE("override_key_path = %s\n", debugstr_w(override_key_path));
 154                     }
 155                     CoTaskMemFree(override_key_path);
 156                 }
 157                 IDocHostUIHandler2_Release(pDocHostUIHandler2);
 158             }
 159
 160             This->doc_obj->has_key_path = TRUE;
 161         }
 162     }
 163
 164     /* Native calls here GetWindow. What is it for?
 165      * We don't have anything to do with it here (yet). */
 166     if(pClientSite) {
 167         IOleWindow *pOleWindow = NULL;
 168         HWND hwnd;
 169
 170         hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleWindow, (void**)&pOleWindow);
 171         if(SUCCEEDED(hres)) {
 172             IOleWindow_GetWindow(pOleWindow, &hwnd);
 173             IOleWindow_Release(pOleWindow);
 174         }
 175     }
 176
 177     hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleCommandTarget, (void**)&cmdtrg);
 178     if(SUCCEEDED(hres)) {
 179         VARIANT var;
 180         OLECMD cmd = {OLECMDID_SETPROGRESSTEXT, 0};
 181
 182         IOleCommandTarget_QueryStatus(cmdtrg, NULL, 1, &cmd, NULL);
 183
 184         V_VT(&var) = VT_I4;
 185         V_I4(&var) = 0;
 186         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSMAX,
 187                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
 188         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSPOS,
 189                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
 190
 191         IOleCommandTarget_Release(cmdtrg);
 192     }
 193
 194     IOleClientSite_AddRef(pClientSite);
 195     This->doc_obj->client = pClientSite;
 196     This->doc_obj->hostui = pDocHostUIHandler;
 197
 198     if(This->doc_obj->usermode == UNKNOWN_USERMODE)
 199         IOleControl_OnAmbientPropertyChange(CONTROL(This), DISPID_AMBIENT_USERMODE);
 200
 201     IOleControl_OnAmbientPropertyChange(CONTROL(This), DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
 202
 203     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_SILENT, &silent);
 204     if(SUCCEEDED(hres)) {
 205         if(V_VT(&silent) != VT_BOOL)
 206             WARN("V_VT(silent) = %d\n", V_VT(&silent));
 207         else if(V_BOOL(&silent))
 208             FIXME("silent == true\n");
 209     }
 210
 211     IOleControl_OnAmbientPropertyChange(CONTROL(This), DISPID_AMBIENT_USERAGENT);
 212     IOleControl_OnAmbientPropertyChange(CONTROL(This), DISPID_AMBIENT_PALETTE);
 213
 214     return S_OK;
 215 }
 216
 217 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **ppClientSite)
 218 {
 219     HTMLDocument *This = OLEOBJ_THIS(iface);
 220
 221     TRACE("(%p)->(%p)\n", This, ppClientSite);
 222
 223     if(!ppClientSite)
 224         return E_INVALIDARG;
 225
 226     if(This->doc_obj->client)
 227         IOleClientSite_AddRef(This->doc_obj->client);
 228     *ppClientSite = This->doc_obj->client;
 229
 230     return S_OK;
 231 }
 232
 233 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
 234 {
 235     HTMLDocument *This = OLEOBJ_THIS(iface);
 236     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
 237     return E_NOTIMPL;
 238 }
 239
 240 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
 241 {
 242     HTMLDocument *This = OLEOBJ_THIS(iface);
 243
 244     TRACE("(%p)->(%08x)\n", This, dwSaveOption);
 245
 246     if(dwSaveOption == OLECLOSE_PROMPTSAVE)
 247         FIXME("OLECLOSE_PROMPTSAVE not implemented\n");
 248
 249     if(This->doc_obj->in_place_active)
 250         IOleInPlaceObjectWindowless_InPlaceDeactivate(INPLACEWIN(This));
 251
 252     HTMLDocument_LockContainer(This->doc_obj, FALSE);
 253
 254     return S_OK;
 255 }
 256
 257 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker *pmk)
 258 {
 259     HTMLDocument *This = OLEOBJ_THIS(iface);
 260     FIXME("(%p %d %p)->()\n", This, dwWhichMoniker, pmk);
 261     return E_NOTIMPL;
 262 }
 263
 264 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
 265 {
 266     HTMLDocument *This = OLEOBJ_THIS(iface);
 267     FIXME("(%p)->(%d %d %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *pDataObject, BOOL fCreation,
 272                                         DWORD dwReserved)
 273 {
 274     HTMLDocument *This = OLEOBJ_THIS(iface);
 275     FIXME("(%p)->(%p %x %d)\n", This, pDataObject, fCreation, dwReserved);
 276     return E_NOTIMPL;
 277 }
 278
 279 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, IDataObject **ppDataObject)
 280 {
 281     HTMLDocument *This = OLEOBJ_THIS(iface);
 282     FIXME("(%p)->(%d %p)\n", This, dwReserved, ppDataObject);
 283     return E_NOTIMPL;
 284 }
 285
 286 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, LPMSG lpmsg, IOleClientSite *pActiveSite,
 287                                         LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
 288 {
 289     HTMLDocument *This = OLEOBJ_THIS(iface);
 290     IOleDocumentSite *pDocSite;
 291     HRESULT hres;
 292
 293     TRACE("(%p)->(%d %p %p %d %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent, lprcPosRect);
 294
 295     if(iVerb != OLEIVERB_SHOW && iVerb != OLEIVERB_UIACTIVATE && iVerb != OLEIVERB_INPLACEACTIVATE) {
 296         FIXME("iVerb = %d not supported\n", iVerb);
 297         return E_NOTIMPL;
 298     }
 299
 300     if(!pActiveSite)
 301         pActiveSite = This->doc_obj->client;
 302
 303     hres = IOleClientSite_QueryInterface(pActiveSite, &IID_IOleDocumentSite, (void**)&pDocSite);
 304     if(SUCCEEDED(hres)) {
 305         HTMLDocument_LockContainer(This->doc_obj, TRUE);
 306
 307         /* FIXME: Create new IOleDocumentView. See CreateView for more info. */
 308         hres = IOleDocumentSite_ActivateMe(pDocSite, DOCVIEW(This));
 309         IOleDocumentSite_Release(pDocSite);
 310     }else {
 311         hres = IOleDocumentView_UIActivate(DOCVIEW(This), TRUE);
 312         if(SUCCEEDED(hres)) {
 313             if(lprcPosRect) {
 314                 RECT rect; /* We need to pass rect as not const pointer */
 315                 rect = *lprcPosRect;
 316                 IOleDocumentView_SetRect(DOCVIEW(This), &rect);
 317             }
 318             IOleDocumentView_Show(DOCVIEW(This), TRUE);
 319         }
 320     }
 321
 322     return hres;
 323 }
 324
 325 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
 326 {
 327     HTMLDocument *This = OLEOBJ_THIS(iface);
 328     FIXME("(%p)->(%p)\n", This, ppEnumOleVerb);
 329     return E_NOTIMPL;
 330 }
 331
 332 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
 333 {
 334     HTMLDocument *This = OLEOBJ_THIS(iface);
 335     FIXME("(%p)\n", This);
 336     return E_NOTIMPL;
 337 }
 338
 339 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
 340 {
 341     HTMLDocument *This = OLEOBJ_THIS(iface);
 342     FIXME("(%p)\n", This);
 343     return E_NOTIMPL;
 344 }
 345
 346 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *pClsid)
 347 {
 348     HTMLDocument *This = OLEOBJ_THIS(iface);
 349
 350     TRACE("(%p)->(%p)\n", This, pClsid);
 351
 352     if(!pClsid)
 353         return E_INVALIDARG;
 354
 355     *pClsid = CLSID_HTMLDocument;
 356     return S_OK;
 357 }
 358
 359 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, LPOLESTR *pszUserType)
 360 {
 361     HTMLDocument *This = OLEOBJ_THIS(iface);
 362     FIXME("(%p)->(%d %p)\n", This, dwFormOfType, pszUserType);
 363     return E_NOTIMPL;
 364 }
 365
 366 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 367 {
 368     HTMLDocument *This = OLEOBJ_THIS(iface);
 369     FIXME("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
 370     return E_NOTIMPL;
 371 }
 372
 373 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 374 {
 375     HTMLDocument *This = OLEOBJ_THIS(iface);
 376     FIXME("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
 377     return E_NOTIMPL;
 378 }
 379
 380 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 381 {
 382     HTMLDocument *This = OLEOBJ_THIS(iface);
 383     FIXME("(%p)->(%p %p)\n", This, pAdvSink, pdwConnection);
 384     return E_NOTIMPL;
 385 }
 386
 387 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
 388 {
 389     HTMLDocument *This = OLEOBJ_THIS(iface);
 390     FIXME("(%p)->(%d)\n", This, dwConnection);
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
 395 {
 396     HTMLDocument *This = OLEOBJ_THIS(iface);
 397     FIXME("(%p)->(%p)\n", This, ppenumAdvise);
 398     return E_NOTIMPL;
 399 }
 400
 401 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
 402 {
 403     HTMLDocument *This = OLEOBJ_THIS(iface);
 404     FIXME("(%p)->(%d %p)\n", This, dwAspect, pdwStatus);
 405     return E_NOTIMPL;
 406 }
 407
 408 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *pLogpal)
 409 {
 410     HTMLDocument *This = OLEOBJ_THIS(iface);
 411     FIXME("(%p)->(%p)\n", This, pLogpal);
 412     return E_NOTIMPL;
 413 }
 414
 415 #undef OLEPBJ_THIS
 416
 417 static const IOleObjectVtbl OleObjectVtbl = {
 418     OleObject_QueryInterface,
 419     OleObject_AddRef,
 420     OleObject_Release,
 421     OleObject_SetClientSite,
 422     OleObject_GetClientSite,
 423     OleObject_SetHostNames,
 424     OleObject_Close,
 425     OleObject_SetMoniker,
 426     OleObject_GetMoniker,
 427     OleObject_InitFromData,
 428     OleObject_GetClipboardData,
 429     OleObject_DoVerb,
 430     OleObject_EnumVerbs,
 431     OleObject_Update,
 432     OleObject_IsUpToDate,
 433     OleObject_GetUserClassID,
 434     OleObject_GetUserType,
 435     OleObject_SetExtent,
 436     OleObject_GetExtent,
 437     OleObject_Advise,
 438     OleObject_Unadvise,
 439     OleObject_EnumAdvise,
 440     OleObject_GetMiscStatus,
 441     OleObject_SetColorScheme
 442 };
 443
 444 /**********************************************************
 445  * IOleDocument implementation
 446  */
 447
 448 #define OLEDOC_THIS(iface) DEFINE_THIS(HTMLDocument, OleDocument, iface)
 449
 450 static HRESULT WINAPI OleDocument_QueryInterface(IOleDocument *iface, REFIID riid, void **ppvObject)
 451 {
 452     HTMLDocument *This = OLEDOC_THIS(iface);
 453     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppvObject);
 454 }
 455
 456 static ULONG WINAPI OleDocument_AddRef(IOleDocument *iface)
 457 {
 458     HTMLDocument *This = OLEDOC_THIS(iface);
 459     return IHTMLDocument2_AddRef(HTMLDOC(This));
 460 }
 461
 462 static ULONG WINAPI OleDocument_Release(IOleDocument *iface)
 463 {
 464     HTMLDocument *This = OLEDOC_THIS(iface);
 465     return IHTMLDocument2_Release(HTMLDOC(This));
 466 }
 467
 468 static HRESULT WINAPI OleDocument_CreateView(IOleDocument *iface, IOleInPlaceSite *pIPSite, IStream *pstm,
 469                                    DWORD dwReserved, IOleDocumentView **ppView)
 470 {
 471     HTMLDocument *This = OLEDOC_THIS(iface);
 472     HRESULT hres;
 473
 474     TRACE("(%p)->(%p %p %d %p)\n", This, pIPSite, pstm, dwReserved, ppView);
 475
 476     if(!ppView)
 477         return E_INVALIDARG;
 478
 479     /* FIXME:
 480      * Windows implementation creates new IOleDocumentView when function is called for the
 481      * first time and returns E_FAIL when it is called for the second time, but it doesn't matter
 482      * if the application uses returned interfaces, passed to ActivateMe or returned by
 483      * QueryInterface, so there is no reason to create new interface. This needs more testing.
 484      */
 485
 486     if(pIPSite) {
 487         hres = IOleDocumentView_SetInPlaceSite(DOCVIEW(This), pIPSite);
 488         if(FAILED(hres))
 489             return hres;
 490     }
 491
 492     if(pstm)
 493         FIXME("pstm is not supported\n");
 494
 495     IOleDocumentView_AddRef(DOCVIEW(This));
 496     *ppView = DOCVIEW(This);
 497     return S_OK;
 498 }
 499
 500 static HRESULT WINAPI OleDocument_GetDocMiscStatus(IOleDocument *iface, DWORD *pdwStatus)
 501 {
 502     HTMLDocument *This = OLEDOC_THIS(iface);
 503     FIXME("(%p)->(%p)\n", This, pdwStatus);
 504     return E_NOTIMPL;
 505 }
 506
 507 static HRESULT WINAPI OleDocument_EnumViews(IOleDocument *iface, IEnumOleDocumentViews **ppEnum,
 508                                    IOleDocumentView **ppView)
 509 {
 510     HTMLDocument *This = OLEDOC_THIS(iface);
 511     FIXME("(%p)->(%p %p)\n", This, ppEnum, ppView);
 512     return E_NOTIMPL;
 513 }
 514
 515 #undef OLEDOC_THIS
 516
 517 static const IOleDocumentVtbl OleDocumentVtbl = {
 518     OleDocument_QueryInterface,
 519     OleDocument_AddRef,
 520     OleDocument_Release,
 521     OleDocument_CreateView,
 522     OleDocument_GetDocMiscStatus,
 523     OleDocument_EnumViews
 524 };
 525
 526 /**********************************************************
 527  * IOleControl implementation
 528  */
 529
 530 #define CONTROL_THIS(iface) DEFINE_THIS(HTMLDocument, OleControl, iface)
 531
 532 static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface, REFIID riid, void **ppv)
 533 {
 534     HTMLDocument *This = CONTROL_THIS(iface);
 535     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
 536 }
 537
 538 static ULONG WINAPI OleControl_AddRef(IOleControl *iface)
 539 {
 540     HTMLDocument *This = CONTROL_THIS(iface);
 541     return IHTMLDocument2_AddRef(HTMLDOC(This));
 542 }
 543
 544 static ULONG WINAPI OleControl_Release(IOleControl *iface)
 545 {
 546     HTMLDocument *This = CONTROL_THIS(iface);
 547     return IHTMLDocument_Release(HTMLDOC(This));
 548 }
 549
 550 static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, CONTROLINFO *pCI)
 551 {
 552     HTMLDocument *This = CONTROL_THIS(iface);
 553     FIXME("(%p)->(%p)\n", This, pCI);
 554     return E_NOTIMPL;
 555 }
 556
 557 static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, MSG *pMsg)
 558 {
 559     HTMLDocument *This = CONTROL_THIS(iface);
 560     FIXME("(%p)->(%p)\n", This, pMsg);
 561     return E_NOTIMPL;
 562 }
 563
 564 HRESULT get_client_disp_property(IOleClientSite *client, DISPID dispid, VARIANT *res)
 565 {
 566     IDispatch *disp = NULL;
 567     DISPPARAMS dispparams = {NULL, 0};
 568     UINT err;
 569     HRESULT hres;
 570
 571     hres = IOleClientSite_QueryInterface(client, &IID_IDispatch, (void**)&disp);
 572     if(FAILED(hres)) {
 573         TRACE("Could not get IDispatch\n");
 574         return hres;
 575     }
 576
 577     VariantInit(res);
 578
 579     hres = IDispatch_Invoke(disp, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
 580             DISPATCH_PROPERTYGET, &dispparams, res, NULL, &err);
 581
 582     IDispatch_Release(disp);
 583
 584     return hres;
 585 }
 586
 587 static HRESULT on_change_dlcontrol(HTMLDocument *This)
 588 {
 589     VARIANT res;
 590     HRESULT hres;
 591
 592     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_DLCONTROL, &res);
 593     if(SUCCEEDED(hres))
 594         FIXME("unsupported dlcontrol %08x\n", V_I4(&res));
 595
 596     return S_OK;
 597 }
 598
 599 static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispID)
 600 {
 601     HTMLDocument *This = CONTROL_THIS(iface);
 602     IOleClientSite *client;
 603     VARIANT res;
 604     HRESULT hres;
 605
 606     client = This->doc_obj->client;
 607     if(!client) {
 608         TRACE("client = NULL\n");
 609         return S_OK;
 610     }
 611
 612     switch(dispID) {
 613     case DISPID_AMBIENT_USERMODE:
 614         TRACE("(%p)->(DISPID_AMBIENT_USERMODE)\n", This);
 615         hres = get_client_disp_property(client, DISPID_AMBIENT_USERMODE, &res);
 616         if(FAILED(hres))
 617             return S_OK;
 618
 619         if(V_VT(&res) == VT_BOOL) {
 620             if(V_BOOL(&res)) {
 621                 This->doc_obj->usermode = BROWSEMODE;
 622             }else {
 623                 FIXME("edit mode is not supported\n");
 624                 This->doc_obj->usermode = EDITMODE;
 625             }
 626         }else {
 627             FIXME("V_VT(res)=%d\n", V_VT(&res));
 628         }
 629         return S_OK;
 630     case DISPID_AMBIENT_DLCONTROL:
 631         TRACE("(%p)->(DISPID_AMBIENT_DLCONTROL)\n", This);
 632         return on_change_dlcontrol(This);
 633     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
 634         TRACE("(%p)->(DISPID_AMBIENT_OFFLINEIFNOTCONNECTED)\n", This);
 635         on_change_dlcontrol(This);
 636         hres = get_client_disp_property(client, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED, &res);
 637         if(FAILED(hres))
 638             return S_OK;
 639
 640         if(V_VT(&res) == VT_BOOL) {
 641             if(V_BOOL(&res)) {
 642                 FIXME("offline connection is not supported\n");
 643                 hres = E_FAIL;
 644             }
 645         }else {
 646             FIXME("V_VT(res)=%d\n", V_VT(&res));
 647         }
 648         return S_OK;
 649     case DISPID_AMBIENT_SILENT:
 650         TRACE("(%p)->(DISPID_AMBIENT_SILENT)\n", This);
 651         on_change_dlcontrol(This);
 652         hres = get_client_disp_property(client, DISPID_AMBIENT_SILENT, &res);
 653         if(FAILED(hres))
 654             return S_OK;
 655
 656         if(V_VT(&res) == VT_BOOL) {
 657             if(V_BOOL(&res)) {
 658                 FIXME("silent mode is not supported\n");
 659                 hres = E_FAIL;
 660             }
 661         }else {
 662             FIXME("V_VT(res)=%d\n", V_VT(&res));
 663         }
 664         return S_OK;
 665     case DISPID_AMBIENT_USERAGENT:
 666         TRACE("(%p)->(DISPID_AMBIENT_USERAGENT)\n", This);
 667         hres = get_client_disp_property(client, DISPID_AMBIENT_USERAGENT, &res);
 668         if(FAILED(hres))
 669             return S_OK;
 670
 671         FIXME("not supported AMBIENT_USERAGENT\n");
 672         hres = E_FAIL;
 673         return S_OK;
 674     case DISPID_AMBIENT_PALETTE:
 675         TRACE("(%p)->(DISPID_AMBIENT_PALETTE)\n", This);
 676         hres = get_client_disp_property(client, DISPID_AMBIENT_PALETTE, &res);
 677         if(FAILED(hres))
 678             return S_OK;
 679
 680         FIXME("not supported AMBIENT_PALETTE\n");
 681         hres = E_FAIL;
 682         return S_OK;
 683     }
 684
 685     FIXME("(%p) unsupported dispID=%d\n", This, dispID);
 686     return E_FAIL;
 687 }
 688
 689 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze)
 690 {
 691     HTMLDocument *This = CONTROL_THIS(iface);
 692     FIXME("(%p)->(%x)\n", This, bFreeze);
 693     return E_NOTIMPL;
 694 }
 695
 696 #undef CONTROL_THIS
 697
 698 static const IOleControlVtbl OleControlVtbl = {
 699     OleControl_QueryInterface,
 700     OleControl_AddRef,
 701     OleControl_Release,
 702     OleControl_GetControlInfo,
 703     OleControl_OnMnemonic,
 704     OleControl_OnAmbientPropertyChange,
 705     OleControl_FreezeEvents
 706 };
 707
 708 void HTMLDocument_LockContainer(HTMLDocumentObj *This, BOOL fLock)
 709 {
 710     IOleContainer *container;
 711     HRESULT hres;
 712
 713     if(!This->client || This->container_locked == fLock)
 714         return;
 715
 716     hres = IOleClientSite_GetContainer(This->client, &container);
 717     if(SUCCEEDED(hres)) {
 718         IOleContainer_LockContainer(container, fLock);
 719         This->container_locked = fLock;
 720         IOleContainer_Release(container);
 721     }
 722 }
 723
 724 void HTMLDocument_OleObj_Init(HTMLDocument *This)
 725 {
 726     This->lpOleObjectVtbl = &OleObjectVtbl;
 727     This->lpOleDocumentVtbl = &OleDocumentVtbl;
 728     This->lpOleControlVtbl = &OleControlVtbl;
 729 }