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 <stdarg.h>
  20 #include <stdio.h>
  21
  22 #define COBJMACROS
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "ole2.h"
  28 #include "shlguid.h"
  29 #include "shdeprecated.h"
  30 #include "mshtmdid.h"
  31 #include "idispids.h"
  32
  33 #include "wine/debug.h"
  34
  35 #include "mshtml_private.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  38
  39 #define DOCHOST_DOCCANNAVIGATE  0
  40
  41 typedef struct {
  42     IEnumUnknown IEnumUnknown_iface;
  43     LONG ref;
  44 } EnumUnknown;
  45
  46 static inline EnumUnknown *impl_from_IEnumUnknown(IEnumUnknown *iface)
  47 {
  48     return CONTAINING_RECORD(iface, EnumUnknown, IEnumUnknown_iface);
  49 }
  50
  51 static HRESULT WINAPI EnumUnknown_QueryInterface(IEnumUnknown *iface, REFIID riid, void **ppv)
  52 {
  53     EnumUnknown *This = impl_from_IEnumUnknown(iface);
  54
  55     if(IsEqualGUID(&IID_IUnknown, riid)) {
  56         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  57         *ppv = &This->IEnumUnknown_iface;
  58     }else if(IsEqualGUID(&IID_IEnumUnknown, riid)) {
  59         TRACE("(%p)->(IID_IEnumUnknown %p)\n", This, ppv);
  60         *ppv = &This->IEnumUnknown_iface;
  61     }else {
  62         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
  63         *ppv = NULL;
  64         return E_NOINTERFACE;
  65     }
  66
  67     IUnknown_AddRef((IUnknown*)*ppv);
  68     return S_OK;
  69 }
  70
  71 static ULONG WINAPI EnumUnknown_AddRef(IEnumUnknown *iface)
  72 {
  73     EnumUnknown *This = impl_from_IEnumUnknown(iface);
  74     LONG ref = InterlockedIncrement(&This->ref);
  75
  76     TRACE("(%p) ref=%d\n", This, ref);
  77
  78     return ref;
  79 }
  80
  81 static ULONG WINAPI EnumUnknown_Release(IEnumUnknown *iface)
  82 {
  83     EnumUnknown *This = impl_from_IEnumUnknown(iface);
  84     LONG ref = InterlockedDecrement(&This->ref);
  85
  86     TRACE("(%p) ref=%d\n", This, ref);
  87
  88     if(!ref)
  89         heap_free(This);
  90
  91     return ref;
  92 }
  93
  94 static HRESULT WINAPI EnumUnknown_Next(IEnumUnknown *iface, ULONG celt, IUnknown **rgelt, ULONG *pceltFetched)
  95 {
  96     EnumUnknown *This = impl_from_IEnumUnknown(iface);
  97
  98     TRACE("(%p)->(%u %p %p)\n", This, celt, rgelt, pceltFetched);
  99
 100     /* FIXME: It's not clear if we should ever return something here */
 101     if(pceltFetched)
 102         *pceltFetched = 0;
 103     return S_FALSE;
 104 }
 105
 106 static HRESULT WINAPI EnumUnknown_Skip(IEnumUnknown *iface, ULONG celt)
 107 {
 108     EnumUnknown *This = impl_from_IEnumUnknown(iface);
 109     FIXME("(%p)->(%u)\n", This, celt);
 110     return E_NOTIMPL;
 111 }
 112
 113 static HRESULT WINAPI EnumUnknown_Reset(IEnumUnknown *iface)
 114 {
 115     EnumUnknown *This = impl_from_IEnumUnknown(iface);
 116     FIXME("(%p)\n", This);
 117     return E_NOTIMPL;
 118 }
 119
 120 static HRESULT WINAPI EnumUnknown_Clone(IEnumUnknown *iface, IEnumUnknown **ppenum)
 121 {
 122     EnumUnknown *This = impl_from_IEnumUnknown(iface);
 123     FIXME("(%p)->(%p)\n", This, ppenum);
 124     return E_NOTIMPL;
 125 }
 126
 127 static const IEnumUnknownVtbl EnumUnknownVtbl = {
 128     EnumUnknown_QueryInterface,
 129     EnumUnknown_AddRef,
 130     EnumUnknown_Release,
 131     EnumUnknown_Next,
 132     EnumUnknown_Skip,
 133     EnumUnknown_Reset,
 134     EnumUnknown_Clone
 135 };
 136
 137 /**********************************************************
 138  * IOleObject implementation
 139  */
 140
 141 static inline HTMLDocument *impl_from_IOleObject(IOleObject *iface)
 142 {
 143     return CONTAINING_RECORD(iface, HTMLDocument, IOleObject_iface);
 144 }
 145
 146 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppv)
 147 {
 148     HTMLDocument *This = impl_from_IOleObject(iface);
 149     return htmldoc_query_interface(This, riid, ppv);
 150 }
 151
 152 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
 153 {
 154     HTMLDocument *This = impl_from_IOleObject(iface);
 155     return htmldoc_addref(This);
 156 }
 157
 158 static ULONG WINAPI OleObject_Release(IOleObject *iface)
 159 {
 160     HTMLDocument *This = impl_from_IOleObject(iface);
 161     return htmldoc_release(This);
 162 }
 163
 164 static void update_hostinfo(HTMLDocumentObj *This, DOCHOSTUIINFO *hostinfo)
 165 {
 166     nsIScrollable *scrollable;
 167     nsresult nsres;
 168
 169     if(!This->nscontainer)
 170         return;
 171
 172     nsres = nsIWebBrowser_QueryInterface(This->nscontainer->webbrowser, &IID_nsIScrollable, (void**)&scrollable);
 173     if(NS_SUCCEEDED(nsres)) {
 174         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_Y,
 175                 (hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO) ? Scrollbar_Never : Scrollbar_Always);
 176         if(NS_FAILED(nsres))
 177             ERR("Could not set default Y scrollbar prefs: %08x\n", nsres);
 178
 179         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_X,
 180                 hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO ? Scrollbar_Never : Scrollbar_Auto);
 181         if(NS_FAILED(nsres))
 182             ERR("Could not set default X scrollbar prefs: %08x\n", nsres);
 183
 184         nsIScrollable_Release(scrollable);
 185     }else {
 186         ERR("Could not get nsIScrollable: %08x\n", nsres);
 187     }
 188 }
 189
 190 /* Calls undocumented 84 cmd of CGID_ShellDocView */
 191 void call_docview_84(HTMLDocumentObj *doc)
 192 {
 193     IOleCommandTarget *olecmd;
 194     VARIANT var;
 195     HRESULT hres;
 196
 197     if(!doc->client)
 198         return;
 199
 200     hres = IOleClientSite_QueryInterface(doc->client, &IID_IOleCommandTarget, (void**)&olecmd);
 201     if(FAILED(hres))
 202         return;
 203
 204     VariantInit(&var);
 205     hres = IOleCommandTarget_Exec(olecmd, &CGID_ShellDocView, 84, 0, NULL, &var);
 206     IOleCommandTarget_Release(olecmd);
 207     if(SUCCEEDED(hres) && V_VT(&var) != VT_NULL)
 208         FIXME("handle result\n");
 209 }
 210
 211 void set_document_navigation(HTMLDocumentObj *doc, BOOL doc_can_navigate)
 212 {
 213     VARIANT var;
 214
 215     if(!doc->client_cmdtrg)
 216         return;
 217
 218     if(doc_can_navigate) {
 219         V_VT(&var) = VT_UNKNOWN;
 220         V_UNKNOWN(&var) = (IUnknown*)&doc->basedoc.window->base.IHTMLWindow2_iface;
 221     }
 222
 223     IOleCommandTarget_Exec(doc->client_cmdtrg, &CGID_DocHostCmdPriv, DOCHOST_DOCCANNAVIGATE, 0,
 224             doc_can_navigate ? &var : NULL, NULL);
 225 }
 226
 227 static void load_settings(HTMLDocumentObj *doc)
 228 {
 229     HKEY settings_key;
 230     DWORD val, size;
 231     LONG res;
 232
 233     res = RegOpenKeyW(HKEY_CURRENT_USER, L"SOFTWARE\\Microsoft\\Internet Explorer", &settings_key);
 234     if(res != ERROR_SUCCESS)
 235         return;
 236
 237     size = sizeof(val);
 238     res = RegGetValueW(settings_key, L"Zoom", L"ZoomFactor", RRF_RT_REG_DWORD, NULL, &val, &size);
 239     RegCloseKey(settings_key);
 240     if(res == ERROR_SUCCESS)
 241         set_viewer_zoom(doc->nscontainer, (float)val/100000);
 242 }
 243
 244 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *pClientSite)
 245 {
 246     HTMLDocument *This = impl_from_IOleObject(iface);
 247     IOleCommandTarget *cmdtrg = NULL;
 248     IOleWindow *ole_window;
 249     IBrowserService *browser_service;
 250     BOOL hostui_setup;
 251     VARIANT silent;
 252     HWND hwnd;
 253     HRESULT hres;
 254
 255     TRACE("(%p)->(%p)\n", This, pClientSite);
 256
 257     if(pClientSite == This->doc_obj->client)
 258         return S_OK;
 259
 260     if(This->doc_obj->client) {
 261         IOleClientSite_Release(This->doc_obj->client);
 262         This->doc_obj->client = NULL;
 263         This->doc_obj->nscontainer->usermode = UNKNOWN_USERMODE;
 264     }
 265
 266     if(This->doc_obj->client_cmdtrg) {
 267         IOleCommandTarget_Release(This->doc_obj->client_cmdtrg);
 268         This->doc_obj->client_cmdtrg = NULL;
 269     }
 270
 271     if(This->doc_obj->hostui && !This->doc_obj->custom_hostui) {
 272         IDocHostUIHandler_Release(This->doc_obj->hostui);
 273         This->doc_obj->hostui = NULL;
 274     }
 275
 276     if(This->doc_obj->doc_object_service) {
 277         IDocObjectService_Release(This->doc_obj->doc_object_service);
 278         This->doc_obj->doc_object_service = NULL;
 279     }
 280
 281     if(This->doc_obj->webbrowser) {
 282         IUnknown_Release(This->doc_obj->webbrowser);
 283         This->doc_obj->webbrowser = NULL;
 284     }
 285
 286     if(This->doc_obj->browser_service) {
 287         IUnknown_Release(This->doc_obj->browser_service);
 288         This->doc_obj->browser_service = NULL;
 289     }
 290
 291     if(This->doc_obj->travel_log) {
 292         ITravelLog_Release(This->doc_obj->travel_log);
 293         This->doc_obj->travel_log = NULL;
 294     }
 295
 296     memset(&This->doc_obj->hostinfo, 0, sizeof(DOCHOSTUIINFO));
 297
 298     if(!pClientSite)
 299         return S_OK;
 300
 301     IOleClientSite_AddRef(pClientSite);
 302     This->doc_obj->client = pClientSite;
 303
 304     hostui_setup = This->doc_obj->hostui_setup;
 305
 306     if(!This->doc_obj->hostui) {
 307         IDocHostUIHandler *uihandler;
 308
 309         This->doc_obj->custom_hostui = FALSE;
 310
 311         hres = IOleClientSite_QueryInterface(pClientSite, &IID_IDocHostUIHandler, (void**)&uihandler);
 312         if(SUCCEEDED(hres))
 313             This->doc_obj->hostui = uihandler;
 314     }
 315
 316     if(This->doc_obj->hostui) {
 317         DOCHOSTUIINFO hostinfo;
 318         LPOLESTR key_path = NULL, override_key_path = NULL;
 319         IDocHostUIHandler2 *uihandler2;
 320
 321         memset(&hostinfo, 0, sizeof(DOCHOSTUIINFO));
 322         hostinfo.cbSize = sizeof(DOCHOSTUIINFO);
 323         hres = IDocHostUIHandler_GetHostInfo(This->doc_obj->hostui, &hostinfo);
 324         if(SUCCEEDED(hres)) {
 325             TRACE("hostinfo = {%u %08x %08x %s %s}\n",
 326                     hostinfo.cbSize, hostinfo.dwFlags, hostinfo.dwDoubleClick,
 327                     debugstr_w(hostinfo.pchHostCss), debugstr_w(hostinfo.pchHostNS));
 328             update_hostinfo(This->doc_obj, &hostinfo);
 329             This->doc_obj->hostinfo = hostinfo;
 330         }
 331
 332         if(!hostui_setup) {
 333             hres = IDocHostUIHandler_GetOptionKeyPath(This->doc_obj->hostui, &key_path, 0);
 334             if(hres == S_OK && key_path) {
 335                 if(key_path[0]) {
 336                     /* FIXME: use key_path */
 337                     FIXME("key_path = %s\n", debugstr_w(key_path));
 338                 }
 339                 CoTaskMemFree(key_path);
 340             }
 341
 342             hres = IDocHostUIHandler_QueryInterface(This->doc_obj->hostui, &IID_IDocHostUIHandler2,
 343                     (void**)&uihandler2);
 344             if(SUCCEEDED(hres)) {
 345                 hres = IDocHostUIHandler2_GetOverrideKeyPath(uihandler2, &override_key_path, 0);
 346                 if(hres == S_OK && override_key_path) {
 347                     if(override_key_path[0]) {
 348                         /*FIXME: use override_key_path */
 349                         FIXME("override_key_path = %s\n", debugstr_w(override_key_path));
 350                     }
 351                     CoTaskMemFree(override_key_path);
 352                 }
 353                 IDocHostUIHandler2_Release(uihandler2);
 354             }
 355
 356             This->doc_obj->hostui_setup = TRUE;
 357         }
 358     }
 359
 360     load_settings(This->doc_obj);
 361
 362     /* Native calls here GetWindow. What is it for?
 363      * We don't have anything to do with it here (yet). */
 364     hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleWindow, (void**)&ole_window);
 365     if(SUCCEEDED(hres)) {
 366         IOleWindow_GetWindow(ole_window, &hwnd);
 367         IOleWindow_Release(ole_window);
 368     }
 369
 370     hres = do_query_service((IUnknown*)pClientSite, &IID_IShellBrowser,
 371             &IID_IBrowserService, (void**)&browser_service);
 372     if(SUCCEEDED(hres)) {
 373         ITravelLog *travel_log;
 374
 375         This->doc_obj->browser_service = (IUnknown*)browser_service;
 376
 377         hres = IBrowserService_GetTravelLog(browser_service, &travel_log);
 378         if(SUCCEEDED(hres))
 379             This->doc_obj->travel_log = travel_log;
 380     }else {
 381         browser_service = NULL;
 382     }
 383
 384     hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleCommandTarget, (void**)&cmdtrg);
 385     if(SUCCEEDED(hres)) {
 386         VARIANT var;
 387         OLECMD cmd = {OLECMDID_SETPROGRESSTEXT, 0};
 388
 389         This->doc_obj->client_cmdtrg = cmdtrg;
 390
 391         if(!hostui_setup) {
 392             IDocObjectService *doc_object_service;
 393             IWebBrowser2 *wb;
 394
 395             set_document_navigation(This->doc_obj, TRUE);
 396
 397             if(browser_service) {
 398                 hres = IBrowserService_QueryInterface(browser_service,
 399                         &IID_IDocObjectService, (void**)&doc_object_service);
 400                 if(SUCCEEDED(hres)) {
 401                     This->doc_obj->doc_object_service = doc_object_service;
 402
 403                     /*
 404                      * Some embedding routines, esp. in regards to use of IDocObjectService, differ if
 405                      * embedder supports IWebBrowserApp.
 406                      */
 407                     hres = do_query_service((IUnknown*)pClientSite, &IID_IWebBrowserApp, &IID_IWebBrowser2, (void**)&wb);
 408                     if(SUCCEEDED(hres))
 409                         This->doc_obj->webbrowser = (IUnknown*)wb;
 410                 }
 411             }
 412         }
 413
 414         call_docview_84(This->doc_obj);
 415
 416         IOleCommandTarget_QueryStatus(cmdtrg, NULL, 1, &cmd, NULL);
 417
 418         V_VT(&var) = VT_I4;
 419         V_I4(&var) = 0;
 420         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSMAX,
 421                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
 422         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSPOS,
 423                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
 424     }
 425
 426     if(This->doc_obj->nscontainer->usermode == UNKNOWN_USERMODE)
 427         IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_USERMODE);
 428
 429     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface,
 430             DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
 431
 432     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_SILENT, &silent);
 433     if(SUCCEEDED(hres)) {
 434         if(V_VT(&silent) != VT_BOOL)
 435             WARN("silent = %s\n", debugstr_variant(&silent));
 436         else if(V_BOOL(&silent))
 437             FIXME("silent == true\n");
 438     }
 439
 440     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_USERAGENT);
 441     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_PALETTE);
 442
 443     return S_OK;
 444 }
 445
 446 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **ppClientSite)
 447 {
 448     HTMLDocument *This = impl_from_IOleObject(iface);
 449
 450     TRACE("(%p)->(%p)\n", This, ppClientSite);
 451
 452     if(!ppClientSite)
 453         return E_INVALIDARG;
 454
 455     if(This->doc_obj->client)
 456         IOleClientSite_AddRef(This->doc_obj->client);
 457     *ppClientSite = This->doc_obj->client;
 458
 459     return S_OK;
 460 }
 461
 462 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
 463 {
 464     HTMLDocument *This = impl_from_IOleObject(iface);
 465     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
 466     return E_NOTIMPL;
 467 }
 468
 469 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
 470 {
 471     HTMLDocument *This = impl_from_IOleObject(iface);
 472
 473     TRACE("(%p)->(%08x)\n", This, dwSaveOption);
 474
 475     if(dwSaveOption == OLECLOSE_PROMPTSAVE)
 476         FIXME("OLECLOSE_PROMPTSAVE not implemented\n");
 477
 478     if(This->doc_obj->in_place_active)
 479         IOleInPlaceObjectWindowless_InPlaceDeactivate(&This->IOleInPlaceObjectWindowless_iface);
 480
 481     HTMLDocument_LockContainer(This->doc_obj, FALSE);
 482
 483     if(This->doc_obj->advise_holder)
 484         IOleAdviseHolder_SendOnClose(This->doc_obj->advise_holder);
 485
 486     return S_OK;
 487 }
 488
 489 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker *pmk)
 490 {
 491     HTMLDocument *This = impl_from_IOleObject(iface);
 492     FIXME("(%p %d %p)->()\n", This, dwWhichMoniker, pmk);
 493     return E_NOTIMPL;
 494 }
 495
 496 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
 497 {
 498     HTMLDocument *This = impl_from_IOleObject(iface);
 499     FIXME("(%p)->(%d %d %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 500     return E_NOTIMPL;
 501 }
 502
 503 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *pDataObject, BOOL fCreation,
 504                                         DWORD dwReserved)
 505 {
 506     HTMLDocument *This = impl_from_IOleObject(iface);
 507     FIXME("(%p)->(%p %x %d)\n", This, pDataObject, fCreation, dwReserved);
 508     return E_NOTIMPL;
 509 }
 510
 511 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, IDataObject **ppDataObject)
 512 {
 513     HTMLDocument *This = impl_from_IOleObject(iface);
 514     FIXME("(%p)->(%d %p)\n", This, dwReserved, ppDataObject);
 515     return E_NOTIMPL;
 516 }
 517
 518 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, LPMSG lpmsg, IOleClientSite *pActiveSite,
 519                                         LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
 520 {
 521     HTMLDocument *This = impl_from_IOleObject(iface);
 522     IOleDocumentSite *pDocSite;
 523     HRESULT hres;
 524
 525     TRACE("(%p)->(%d %p %p %d %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent, lprcPosRect);
 526
 527     if(iVerb != OLEIVERB_SHOW && iVerb != OLEIVERB_UIACTIVATE && iVerb != OLEIVERB_INPLACEACTIVATE) {
 528         FIXME("iVerb = %d not supported\n", iVerb);
 529         return E_NOTIMPL;
 530     }
 531
 532     if(!pActiveSite)
 533         pActiveSite = This->doc_obj->client;
 534
 535     hres = IOleClientSite_QueryInterface(pActiveSite, &IID_IOleDocumentSite, (void**)&pDocSite);
 536     if(SUCCEEDED(hres)) {
 537         HTMLDocument_LockContainer(This->doc_obj, TRUE);
 538
 539         /* FIXME: Create new IOleDocumentView. See CreateView for more info. */
 540         hres = IOleDocumentSite_ActivateMe(pDocSite, &This->doc_obj->IOleDocumentView_iface);
 541         IOleDocumentSite_Release(pDocSite);
 542     }else {
 543         hres = IOleDocumentView_UIActivate(&This->doc_obj->IOleDocumentView_iface, TRUE);
 544         if(SUCCEEDED(hres)) {
 545             if(lprcPosRect) {
 546                 RECT rect; /* We need to pass rect as not const pointer */
 547                 rect = *lprcPosRect;
 548                 IOleDocumentView_SetRect(&This->doc_obj->IOleDocumentView_iface, &rect);
 549             }
 550             IOleDocumentView_Show(&This->doc_obj->IOleDocumentView_iface, TRUE);
 551         }
 552     }
 553
 554     return hres;
 555 }
 556
 557 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
 558 {
 559     HTMLDocument *This = impl_from_IOleObject(iface);
 560     FIXME("(%p)->(%p)\n", This, ppEnumOleVerb);
 561     return E_NOTIMPL;
 562 }
 563
 564 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
 565 {
 566     HTMLDocument *This = impl_from_IOleObject(iface);
 567     FIXME("(%p)\n", This);
 568     return E_NOTIMPL;
 569 }
 570
 571 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
 572 {
 573     HTMLDocument *This = impl_from_IOleObject(iface);
 574     FIXME("(%p)\n", This);
 575     return E_NOTIMPL;
 576 }
 577
 578 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *pClsid)
 579 {
 580     HTMLDocument *This = impl_from_IOleObject(iface);
 581
 582     TRACE("(%p)->(%p)\n", This, pClsid);
 583
 584     if(!pClsid)
 585         return E_INVALIDARG;
 586
 587     *pClsid = CLSID_HTMLDocument;
 588     return S_OK;
 589 }
 590
 591 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, LPOLESTR *pszUserType)
 592 {
 593     HTMLDocument *This = impl_from_IOleObject(iface);
 594     FIXME("(%p)->(%d %p)\n", This, dwFormOfType, pszUserType);
 595     return E_NOTIMPL;
 596 }
 597
 598 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 599 {
 600     HTMLDocument *This = impl_from_IOleObject(iface);
 601
 602     TRACE("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
 603
 604     if (dwDrawAspect != DVASPECT_CONTENT)
 605         return E_INVALIDARG;
 606
 607     This->doc_obj->extent = *psizel;
 608     return S_OK;
 609 }
 610
 611 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 612 {
 613     HTMLDocument *This = impl_from_IOleObject(iface);
 614
 615     TRACE("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
 616
 617     if (dwDrawAspect != DVASPECT_CONTENT)
 618         return E_INVALIDARG;
 619
 620     *psizel = This->doc_obj->extent;
 621     return S_OK;
 622 }
 623
 624 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 625 {
 626     HTMLDocument *This = impl_from_IOleObject(iface);
 627     TRACE("(%p)->(%p %p)\n", This, pAdvSink, pdwConnection);
 628
 629     if(!pdwConnection)
 630         return E_INVALIDARG;
 631
 632     if(!pAdvSink) {
 633         *pdwConnection = 0;
 634         return E_INVALIDARG;
 635     }
 636
 637     if(!This->doc_obj->advise_holder) {
 638         CreateOleAdviseHolder(&This->doc_obj->advise_holder);
 639         if(!This->doc_obj->advise_holder)
 640             return E_OUTOFMEMORY;
 641     }
 642
 643     return IOleAdviseHolder_Advise(This->doc_obj->advise_holder, pAdvSink, pdwConnection);
 644 }
 645
 646 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
 647 {
 648     HTMLDocument *This = impl_from_IOleObject(iface);
 649     TRACE("(%p)->(%d)\n", This, dwConnection);
 650
 651     if(!This->doc_obj->advise_holder)
 652         return OLE_E_NOCONNECTION;
 653
 654     return IOleAdviseHolder_Unadvise(This->doc_obj->advise_holder, dwConnection);
 655 }
 656
 657 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
 658 {
 659     HTMLDocument *This = impl_from_IOleObject(iface);
 660
 661     if(!This->doc_obj->advise_holder) {
 662         *ppenumAdvise = NULL;
 663         return S_OK;
 664     }
 665
 666     return IOleAdviseHolder_EnumAdvise(This->doc_obj->advise_holder, ppenumAdvise);
 667 }
 668
 669 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
 670 {
 671     HTMLDocument *This = impl_from_IOleObject(iface);
 672     FIXME("(%p)->(%d %p)\n", This, dwAspect, pdwStatus);
 673     return E_NOTIMPL;
 674 }
 675
 676 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *pLogpal)
 677 {
 678     HTMLDocument *This = impl_from_IOleObject(iface);
 679     FIXME("(%p)->(%p)\n", This, pLogpal);
 680     return E_NOTIMPL;
 681 }
 682
 683 static const IOleObjectVtbl OleObjectVtbl = {
 684     OleObject_QueryInterface,
 685     OleObject_AddRef,
 686     OleObject_Release,
 687     OleObject_SetClientSite,
 688     OleObject_GetClientSite,
 689     OleObject_SetHostNames,
 690     OleObject_Close,
 691     OleObject_SetMoniker,
 692     OleObject_GetMoniker,
 693     OleObject_InitFromData,
 694     OleObject_GetClipboardData,
 695     OleObject_DoVerb,
 696     OleObject_EnumVerbs,
 697     OleObject_Update,
 698     OleObject_IsUpToDate,
 699     OleObject_GetUserClassID,
 700     OleObject_GetUserType,
 701     OleObject_SetExtent,
 702     OleObject_GetExtent,
 703     OleObject_Advise,
 704     OleObject_Unadvise,
 705     OleObject_EnumAdvise,
 706     OleObject_GetMiscStatus,
 707     OleObject_SetColorScheme
 708 };
 709
 710 /**********************************************************
 711  * IOleDocument implementation
 712  */
 713
 714 static inline HTMLDocument *impl_from_IOleDocument(IOleDocument *iface)
 715 {
 716     return CONTAINING_RECORD(iface, HTMLDocument, IOleDocument_iface);
 717 }
 718
 719 static HRESULT WINAPI OleDocument_QueryInterface(IOleDocument *iface, REFIID riid, void **ppv)
 720 {
 721     HTMLDocument *This = impl_from_IOleDocument(iface);
 722     return htmldoc_query_interface(This, riid, ppv);
 723 }
 724
 725 static ULONG WINAPI OleDocument_AddRef(IOleDocument *iface)
 726 {
 727     HTMLDocument *This = impl_from_IOleDocument(iface);
 728     return htmldoc_addref(This);
 729 }
 730
 731 static ULONG WINAPI OleDocument_Release(IOleDocument *iface)
 732 {
 733     HTMLDocument *This = impl_from_IOleDocument(iface);
 734     return htmldoc_release(This);
 735 }
 736
 737 static HRESULT WINAPI OleDocument_CreateView(IOleDocument *iface, IOleInPlaceSite *pIPSite, IStream *pstm,
 738                                    DWORD dwReserved, IOleDocumentView **ppView)
 739 {
 740     HTMLDocument *This = impl_from_IOleDocument(iface);
 741     HRESULT hres;
 742
 743     TRACE("(%p)->(%p %p %d %p)\n", This, pIPSite, pstm, dwReserved, ppView);
 744
 745     if(!ppView)
 746         return E_INVALIDARG;
 747
 748     /* FIXME:
 749      * Windows implementation creates new IOleDocumentView when function is called for the
 750      * first time and returns E_FAIL when it is called for the second time, but it doesn't matter
 751      * if the application uses returned interfaces, passed to ActivateMe or returned by
 752      * QueryInterface, so there is no reason to create new interface. This needs more testing.
 753      */
 754
 755     if(pIPSite) {
 756         hres = IOleDocumentView_SetInPlaceSite(&This->doc_obj->IOleDocumentView_iface, pIPSite);
 757         if(FAILED(hres))
 758             return hres;
 759     }
 760
 761     if(pstm)
 762         FIXME("pstm is not supported\n");
 763
 764     IOleDocumentView_AddRef(&This->doc_obj->IOleDocumentView_iface);
 765     *ppView = &This->doc_obj->IOleDocumentView_iface;
 766     return S_OK;
 767 }
 768
 769 static HRESULT WINAPI OleDocument_GetDocMiscStatus(IOleDocument *iface, DWORD *pdwStatus)
 770 {
 771     HTMLDocument *This = impl_from_IOleDocument(iface);
 772     FIXME("(%p)->(%p)\n", This, pdwStatus);
 773     return E_NOTIMPL;
 774 }
 775
 776 static HRESULT WINAPI OleDocument_EnumViews(IOleDocument *iface, IEnumOleDocumentViews **ppEnum,
 777                                    IOleDocumentView **ppView)
 778 {
 779     HTMLDocument *This = impl_from_IOleDocument(iface);
 780     FIXME("(%p)->(%p %p)\n", This, ppEnum, ppView);
 781     return E_NOTIMPL;
 782 }
 783
 784 static const IOleDocumentVtbl OleDocumentVtbl = {
 785     OleDocument_QueryInterface,
 786     OleDocument_AddRef,
 787     OleDocument_Release,
 788     OleDocument_CreateView,
 789     OleDocument_GetDocMiscStatus,
 790     OleDocument_EnumViews
 791 };
 792
 793 /**********************************************************
 794  * IOleControl implementation
 795  */
 796
 797 static inline HTMLDocument *impl_from_IOleControl(IOleControl *iface)
 798 {
 799     return CONTAINING_RECORD(iface, HTMLDocument, IOleControl_iface);
 800 }
 801
 802 static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface, REFIID riid, void **ppv)
 803 {
 804     HTMLDocument *This = impl_from_IOleControl(iface);
 805     return htmldoc_query_interface(This, riid, ppv);
 806 }
 807
 808 static ULONG WINAPI OleControl_AddRef(IOleControl *iface)
 809 {
 810     HTMLDocument *This = impl_from_IOleControl(iface);
 811     return htmldoc_addref(This);
 812 }
 813
 814 static ULONG WINAPI OleControl_Release(IOleControl *iface)
 815 {
 816     HTMLDocument *This = impl_from_IOleControl(iface);
 817     return htmldoc_release(This);
 818 }
 819
 820 static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, CONTROLINFO *pCI)
 821 {
 822     HTMLDocument *This = impl_from_IOleControl(iface);
 823     FIXME("(%p)->(%p)\n", This, pCI);
 824     return E_NOTIMPL;
 825 }
 826
 827 static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, MSG *pMsg)
 828 {
 829     HTMLDocument *This = impl_from_IOleControl(iface);
 830     FIXME("(%p)->(%p)\n", This, pMsg);
 831     return E_NOTIMPL;
 832 }
 833
 834 HRESULT get_client_disp_property(IOleClientSite *client, DISPID dispid, VARIANT *res)
 835 {
 836     IDispatch *disp = NULL;
 837     DISPPARAMS dispparams = {NULL, 0};
 838     UINT err;
 839     HRESULT hres;
 840
 841     hres = IOleClientSite_QueryInterface(client, &IID_IDispatch, (void**)&disp);
 842     if(FAILED(hres)) {
 843         TRACE("Could not get IDispatch\n");
 844         return hres;
 845     }
 846
 847     VariantInit(res);
 848
 849     hres = IDispatch_Invoke(disp, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
 850             DISPATCH_PROPERTYGET, &dispparams, res, NULL, &err);
 851
 852     IDispatch_Release(disp);
 853
 854     return hres;
 855 }
 856
 857 static HRESULT on_change_dlcontrol(HTMLDocument *This)
 858 {
 859     VARIANT res;
 860     HRESULT hres;
 861
 862     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_DLCONTROL, &res);
 863     if(SUCCEEDED(hres))
 864         FIXME("unsupported dlcontrol %08x\n", V_I4(&res));
 865
 866     return S_OK;
 867 }
 868
 869 static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispID)
 870 {
 871     HTMLDocument *This = impl_from_IOleControl(iface);
 872     IOleClientSite *client;
 873     VARIANT res;
 874     HRESULT hres;
 875
 876     client = This->doc_obj->client;
 877     if(!client) {
 878         TRACE("client = NULL\n");
 879         return S_OK;
 880     }
 881
 882     switch(dispID) {
 883     case DISPID_AMBIENT_USERMODE:
 884         TRACE("(%p)->(DISPID_AMBIENT_USERMODE)\n", This);
 885         hres = get_client_disp_property(client, DISPID_AMBIENT_USERMODE, &res);
 886         if(FAILED(hres))
 887             return S_OK;
 888
 889         if(V_VT(&res) == VT_BOOL) {
 890             if(V_BOOL(&res)) {
 891                 This->doc_obj->nscontainer->usermode = BROWSEMODE;
 892             }else {
 893                 FIXME("edit mode is not supported\n");
 894                 This->doc_obj->nscontainer->usermode = EDITMODE;
 895             }
 896         }else {
 897             FIXME("usermode=%s\n", debugstr_variant(&res));
 898         }
 899         return S_OK;
 900     case DISPID_AMBIENT_DLCONTROL:
 901         TRACE("(%p)->(DISPID_AMBIENT_DLCONTROL)\n", This);
 902         return on_change_dlcontrol(This);
 903     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
 904         TRACE("(%p)->(DISPID_AMBIENT_OFFLINEIFNOTCONNECTED)\n", This);
 905         on_change_dlcontrol(This);
 906         hres = get_client_disp_property(client, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED, &res);
 907         if(FAILED(hres))
 908             return S_OK;
 909
 910         if(V_VT(&res) == VT_BOOL) {
 911             if(V_BOOL(&res)) {
 912                 FIXME("offline connection is not supported\n");
 913                 hres = E_FAIL;
 914             }
 915         }else {
 916             FIXME("offlineconnected=%s\n", debugstr_variant(&res));
 917         }
 918         return S_OK;
 919     case DISPID_AMBIENT_SILENT:
 920         TRACE("(%p)->(DISPID_AMBIENT_SILENT)\n", This);
 921         on_change_dlcontrol(This);
 922         hres = get_client_disp_property(client, DISPID_AMBIENT_SILENT, &res);
 923         if(FAILED(hres))
 924             return S_OK;
 925
 926         if(V_VT(&res) == VT_BOOL) {
 927             if(V_BOOL(&res)) {
 928                 FIXME("silent mode is not supported\n");
 929             }
 930         }else {
 931             FIXME("silent=%s\n", debugstr_variant(&res));
 932         }
 933         return S_OK;
 934     case DISPID_AMBIENT_USERAGENT:
 935         TRACE("(%p)->(DISPID_AMBIENT_USERAGENT)\n", This);
 936         hres = get_client_disp_property(client, DISPID_AMBIENT_USERAGENT, &res);
 937         if(FAILED(hres))
 938             return S_OK;
 939
 940         FIXME("not supported AMBIENT_USERAGENT\n");
 941         return S_OK;
 942     case DISPID_AMBIENT_PALETTE:
 943         TRACE("(%p)->(DISPID_AMBIENT_PALETTE)\n", This);
 944         hres = get_client_disp_property(client, DISPID_AMBIENT_PALETTE, &res);
 945         if(FAILED(hres))
 946             return S_OK;
 947
 948         FIXME("not supported AMBIENT_PALETTE\n");
 949         return S_OK;
 950     }
 951
 952     FIXME("(%p) unsupported dispID=%d\n", This, dispID);
 953     return E_FAIL;
 954 }
 955
 956 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze)
 957 {
 958     HTMLDocument *This = impl_from_IOleControl(iface);
 959     FIXME("(%p)->(%x)\n", This, bFreeze);
 960     return E_NOTIMPL;
 961 }
 962
 963 static const IOleControlVtbl OleControlVtbl = {
 964     OleControl_QueryInterface,
 965     OleControl_AddRef,
 966     OleControl_Release,
 967     OleControl_GetControlInfo,
 968     OleControl_OnMnemonic,
 969     OleControl_OnAmbientPropertyChange,
 970     OleControl_FreezeEvents
 971 };
 972
 973 /**********************************************************
 974  * IOleInPlaceActiveObject implementation
 975  */
 976
 977 static inline HTMLDocument *impl_from_IOleInPlaceActiveObject(IOleInPlaceActiveObject *iface)
 978 {
 979     return CONTAINING_RECORD(iface, HTMLDocument, IOleInPlaceActiveObject_iface);
 980 }
 981
 982 static HRESULT WINAPI OleInPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject *iface, REFIID riid, void **ppv)
 983 {
 984     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
 985     return htmldoc_query_interface(This, riid, ppv);
 986 }
 987
 988 static ULONG WINAPI OleInPlaceActiveObject_AddRef(IOleInPlaceActiveObject *iface)
 989 {
 990     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
 991     return htmldoc_addref(This);
 992 }
 993
 994 static ULONG WINAPI OleInPlaceActiveObject_Release(IOleInPlaceActiveObject *iface)
 995 {
 996     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
 997     return htmldoc_release(This);
 998 }
 999
1000 static HRESULT WINAPI OleInPlaceActiveObject_GetWindow(IOleInPlaceActiveObject *iface, HWND *phwnd)
1001 {
1002     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1003
1004     TRACE("(%p)->(%p)\n", This, phwnd);
1005
1006     if(!phwnd)
1007         return E_INVALIDARG;
1008
1009     if(!This->doc_obj->in_place_active) {
1010         *phwnd = NULL;
1011         return E_FAIL;
1012     }
1013
1014     *phwnd = This->doc_obj->hwnd;
1015     return S_OK;
1016 }
1017
1018 static HRESULT WINAPI OleInPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject *iface, BOOL fEnterMode)
1019 {
1020     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1021     FIXME("(%p)->(%x)\n", This, fEnterMode);
1022     return E_NOTIMPL;
1023 }
1024
1025 static HRESULT WINAPI OleInPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject *iface, LPMSG lpmsg)
1026 {
1027     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1028     FIXME("(%p)->(%p)\n", This, lpmsg);
1029     return E_NOTIMPL;
1030 }
1031
1032 static HRESULT WINAPI OleInPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject *iface,
1033         BOOL fActivate)
1034 {
1035     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1036
1037     TRACE("(%p)->(%x)\n", This, fActivate);
1038
1039     if(This->doc_obj->hostui)
1040         IDocHostUIHandler_OnFrameWindowActivate(This->doc_obj->hostui, fActivate);
1041
1042     return S_OK;
1043 }
1044
1045 static HRESULT WINAPI OleInPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject *iface, BOOL fActivate)
1046 {
1047     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1048     FIXME("(%p)->(%x)\n", This, fActivate);
1049     return E_NOTIMPL;
1050 }
1051
1052 static HRESULT WINAPI OleInPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject *iface, LPCRECT prcBorder,
1053                                                 IOleInPlaceUIWindow *pUIWindow, BOOL fFrameWindow)
1054 {
1055     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1056     FIXME("(%p)->(%p %p %x)\n", This, prcBorder, pUIWindow, fFrameWindow);
1057     return E_NOTIMPL;
1058 }
1059
1060 static HRESULT WINAPI OleInPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject *iface, BOOL fEnable)
1061 {
1062     HTMLDocument *This = impl_from_IOleInPlaceActiveObject(iface);
1063     FIXME("(%p)->(%x)\n", This, fEnable);
1064     return E_NOTIMPL;
1065 }
1066
1067 static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl = {
1068     OleInPlaceActiveObject_QueryInterface,
1069     OleInPlaceActiveObject_AddRef,
1070     OleInPlaceActiveObject_Release,
1071     OleInPlaceActiveObject_GetWindow,
1072     OleInPlaceActiveObject_ContextSensitiveHelp,
1073     OleInPlaceActiveObject_TranslateAccelerator,
1074     OleInPlaceActiveObject_OnFrameWindowActivate,
1075     OleInPlaceActiveObject_OnDocWindowActivate,
1076     OleInPlaceActiveObject_ResizeBorder,
1077     OleInPlaceActiveObject_EnableModeless
1078 };
1079
1080 /**********************************************************
1081  * IOleInPlaceObjectWindowless implementation
1082  */
1083
1084 static inline HTMLDocument *impl_from_IOleInPlaceObjectWindowless(IOleInPlaceObjectWindowless *iface)
1085 {
1086     return CONTAINING_RECORD(iface, HTMLDocument, IOleInPlaceObjectWindowless_iface);
1087 }
1088
1089 static HRESULT WINAPI OleInPlaceObjectWindowless_QueryInterface(IOleInPlaceObjectWindowless *iface,
1090         REFIID riid, void **ppv)
1091 {
1092     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1093     return htmldoc_query_interface(This, riid, ppv);
1094 }
1095
1096 static ULONG WINAPI OleInPlaceObjectWindowless_AddRef(IOleInPlaceObjectWindowless *iface)
1097 {
1098     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1099     return htmldoc_addref(This);
1100 }
1101
1102 static ULONG WINAPI OleInPlaceObjectWindowless_Release(IOleInPlaceObjectWindowless *iface)
1103 {
1104     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1105     return htmldoc_release(This);
1106 }
1107
1108 static HRESULT WINAPI OleInPlaceObjectWindowless_GetWindow(IOleInPlaceObjectWindowless *iface,
1109         HWND *phwnd)
1110 {
1111     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1112     return IOleInPlaceActiveObject_GetWindow(&This->IOleInPlaceActiveObject_iface, phwnd);
1113 }
1114
1115 static HRESULT WINAPI OleInPlaceObjectWindowless_ContextSensitiveHelp(IOleInPlaceObjectWindowless *iface,
1116         BOOL fEnterMode)
1117 {
1118     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1119     return IOleInPlaceActiveObject_ContextSensitiveHelp(&This->IOleInPlaceActiveObject_iface, fEnterMode);
1120 }
1121
1122 static HRESULT WINAPI OleInPlaceObjectWindowless_InPlaceDeactivate(IOleInPlaceObjectWindowless *iface)
1123 {
1124     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1125
1126     TRACE("(%p)\n", This);
1127
1128     if(This->doc_obj->ui_active)
1129         IOleDocumentView_UIActivate(&This->doc_obj->IOleDocumentView_iface, FALSE);
1130     This->doc_obj->window_active = FALSE;
1131
1132     if(!This->doc_obj->in_place_active)
1133         return S_OK;
1134
1135     if(This->doc_obj->frame) {
1136         IOleInPlaceFrame_Release(This->doc_obj->frame);
1137         This->doc_obj->frame = NULL;
1138     }
1139
1140     if(This->doc_obj->hwnd) {
1141         ShowWindow(This->doc_obj->hwnd, SW_HIDE);
1142         SetWindowPos(This->doc_obj->hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
1143     }
1144
1145     This->doc_obj->focus = FALSE;
1146     notif_focus(This->doc_obj);
1147
1148     This->doc_obj->in_place_active = FALSE;
1149     if(This->doc_obj->ipsite) {
1150         IOleInPlaceSiteEx *ipsiteex;
1151         HRESULT hres;
1152
1153         hres = IOleInPlaceSite_QueryInterface(This->doc_obj->ipsite, &IID_IOleInPlaceSiteEx, (void**)&ipsiteex);
1154         if(SUCCEEDED(hres)) {
1155             IOleInPlaceSiteEx_OnInPlaceDeactivateEx(ipsiteex, TRUE);
1156             IOleInPlaceSiteEx_Release(ipsiteex);
1157         }else {
1158             IOleInPlaceSite_OnInPlaceDeactivate(This->doc_obj->ipsite);
1159         }
1160     }
1161
1162     return S_OK;
1163 }
1164
1165 static HRESULT WINAPI OleInPlaceObjectWindowless_UIDeactivate(IOleInPlaceObjectWindowless *iface)
1166 {
1167     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1168     FIXME("(%p)\n", This);
1169     return E_NOTIMPL;
1170 }
1171
1172 static HRESULT WINAPI OleInPlaceObjectWindowless_SetObjectRects(IOleInPlaceObjectWindowless *iface,
1173         const RECT *pos, const RECT *clip)
1174 {
1175     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1176     RECT r;
1177
1178     TRACE("(%p)->(%s %s)\n", This, wine_dbgstr_rect(pos), wine_dbgstr_rect(clip));
1179
1180     if(clip && !EqualRect(clip, pos))
1181         FIXME("Ignoring clip rect %s\n", wine_dbgstr_rect(clip));
1182
1183     r = *pos;
1184     return IOleDocumentView_SetRect(&This->doc_obj->IOleDocumentView_iface, &r);
1185 }
1186
1187 static HRESULT WINAPI OleInPlaceObjectWindowless_ReactivateAndUndo(IOleInPlaceObjectWindowless *iface)
1188 {
1189     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1190     FIXME("(%p)\n", This);
1191     return E_NOTIMPL;
1192 }
1193
1194 static HRESULT WINAPI OleInPlaceObjectWindowless_OnWindowMessage(IOleInPlaceObjectWindowless *iface,
1195         UINT msg, WPARAM wParam, LPARAM lParam, LRESULT *lpResult)
1196 {
1197     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1198     FIXME("(%p)->(%u %lu %lu %p)\n", This, msg, wParam, lParam, lpResult);
1199     return E_NOTIMPL;
1200 }
1201
1202 static HRESULT WINAPI OleInPlaceObjectWindowless_GetDropTarget(IOleInPlaceObjectWindowless *iface,
1203         IDropTarget **ppDropTarget)
1204 {
1205     HTMLDocument *This = impl_from_IOleInPlaceObjectWindowless(iface);
1206     FIXME("(%p)->(%p)\n", This, ppDropTarget);
1207     return E_NOTIMPL;
1208 }
1209
1210 static const IOleInPlaceObjectWindowlessVtbl OleInPlaceObjectWindowlessVtbl = {
1211     OleInPlaceObjectWindowless_QueryInterface,
1212     OleInPlaceObjectWindowless_AddRef,
1213     OleInPlaceObjectWindowless_Release,
1214     OleInPlaceObjectWindowless_GetWindow,
1215     OleInPlaceObjectWindowless_ContextSensitiveHelp,
1216     OleInPlaceObjectWindowless_InPlaceDeactivate,
1217     OleInPlaceObjectWindowless_UIDeactivate,
1218     OleInPlaceObjectWindowless_SetObjectRects,
1219     OleInPlaceObjectWindowless_ReactivateAndUndo,
1220     OleInPlaceObjectWindowless_OnWindowMessage,
1221     OleInPlaceObjectWindowless_GetDropTarget
1222 };
1223
1224 /**********************************************************
1225  * IObjectWithSite implementation
1226  */
1227
1228 static inline HTMLDocument *impl_from_IObjectWithSite(IObjectWithSite *iface)
1229 {
1230     return CONTAINING_RECORD(iface, HTMLDocument, IObjectWithSite_iface);
1231 }
1232
1233 static HRESULT WINAPI ObjectWithSite_QueryInterface(IObjectWithSite *iface, REFIID riid, void **ppv)
1234 {
1235     HTMLDocument *This = impl_from_IObjectWithSite(iface);
1236     return htmldoc_query_interface(This, riid, ppv);
1237 }
1238
1239 static ULONG WINAPI ObjectWithSite_AddRef(IObjectWithSite *iface)
1240 {
1241     HTMLDocument *This = impl_from_IObjectWithSite(iface);
1242     return htmldoc_addref(This);
1243 }
1244
1245 static ULONG WINAPI ObjectWithSite_Release(IObjectWithSite *iface)
1246 {
1247     HTMLDocument *This = impl_from_IObjectWithSite(iface);
1248     return htmldoc_release(This);
1249 }
1250
1251 static HRESULT WINAPI ObjectWithSite_SetSite(IObjectWithSite *iface, IUnknown *pUnkSite)
1252 {
1253     HTMLDocument *This = impl_from_IObjectWithSite(iface);
1254     FIXME("(%p)->(%p)\n", This, pUnkSite);
1255     return E_NOTIMPL;
1256 }
1257
1258 static HRESULT WINAPI ObjectWithSite_GetSite(IObjectWithSite* iface, REFIID riid, PVOID *ppvSite)
1259 {
1260     HTMLDocument *This = impl_from_IObjectWithSite(iface);
1261     FIXME("(%p)->(%p)\n", This, ppvSite);
1262     return E_NOTIMPL;
1263 }
1264
1265 static const IObjectWithSiteVtbl ObjectWithSiteVtbl = {
1266     ObjectWithSite_QueryInterface,
1267     ObjectWithSite_AddRef,
1268     ObjectWithSite_Release,
1269     ObjectWithSite_SetSite,
1270     ObjectWithSite_GetSite
1271 };
1272
1273 /**********************************************************
1274  * IOleContainer implementation
1275  */
1276
1277 static inline HTMLDocument *impl_from_IOleContainer(IOleContainer *iface)
1278 {
1279     return CONTAINING_RECORD(iface, HTMLDocument, IOleContainer_iface);
1280 }
1281
1282 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
1283 {
1284     HTMLDocument *This = impl_from_IOleContainer(iface);
1285     return htmldoc_query_interface(This, riid, ppv);
1286 }
1287
1288 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
1289 {
1290     HTMLDocument *This = impl_from_IOleContainer(iface);
1291     return htmldoc_addref(This);
1292 }
1293
1294 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
1295 {
1296     HTMLDocument *This = impl_from_IOleContainer(iface);
1297     return htmldoc_release(This);
1298 }
1299
1300 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc, LPOLESTR pszDisplayName,
1301         ULONG *pchEaten, IMoniker **ppmkOut)
1302 {
1303     HTMLDocument *This = impl_from_IOleContainer(iface);
1304     FIXME("(%p)->(%p %s %p %p)\n", This, pbc, debugstr_w(pszDisplayName), pchEaten, ppmkOut);
1305     return E_NOTIMPL;
1306 }
1307
1308 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags, IEnumUnknown **ppenum)
1309 {
1310     HTMLDocument *This = impl_from_IOleContainer(iface);
1311     EnumUnknown *ret;
1312
1313     TRACE("(%p)->(%x %p)\n", This, grfFlags, ppenum);
1314
1315     ret = heap_alloc(sizeof(*ret));
1316     if(!ret)
1317         return E_OUTOFMEMORY;
1318
1319     ret->IEnumUnknown_iface.lpVtbl = &EnumUnknownVtbl;
1320     ret->ref = 1;
1321
1322     *ppenum = &ret->IEnumUnknown_iface;
1323     return S_OK;
1324 }
1325
1326 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
1327 {
1328     HTMLDocument *This = impl_from_IOleContainer(iface);
1329     FIXME("(%p)->(%x)\n", This, fLock);
1330     return E_NOTIMPL;
1331 }
1332
1333 static const IOleContainerVtbl OleContainerVtbl = {
1334     OleContainer_QueryInterface,
1335     OleContainer_AddRef,
1336     OleContainer_Release,
1337     OleContainer_ParseDisplayName,
1338     OleContainer_EnumObjects,
1339     OleContainer_LockContainer
1340 };
1341
1342 static inline HTMLDocumentObj *impl_from_ITargetContainer(ITargetContainer *iface)
1343 {
1344     return CONTAINING_RECORD(iface, HTMLDocumentObj, ITargetContainer_iface);
1345 }
1346
1347 static HRESULT WINAPI TargetContainer_QueryInterface(ITargetContainer *iface, REFIID riid, void **ppv)
1348 {
1349     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1350     return ICustomDoc_QueryInterface(&This->ICustomDoc_iface, riid, ppv);
1351 }
1352
1353 static ULONG WINAPI TargetContainer_AddRef(ITargetContainer *iface)
1354 {
1355     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1356     return ICustomDoc_AddRef(&This->ICustomDoc_iface);
1357 }
1358
1359 static ULONG WINAPI TargetContainer_Release(ITargetContainer *iface)
1360 {
1361     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1362     return ICustomDoc_Release(&This->ICustomDoc_iface);
1363 }
1364
1365 static HRESULT WINAPI TargetContainer_GetFrameUrl(ITargetContainer *iface, LPWSTR *ppszFrameSrc)
1366 {
1367     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1368     FIXME("(%p)->(%p)\n", This, ppszFrameSrc);
1369     return E_NOTIMPL;
1370 }
1371
1372 static HRESULT WINAPI TargetContainer_GetFramesContainer(ITargetContainer *iface, IOleContainer **ppContainer)
1373 {
1374     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1375
1376     TRACE("(%p)->(%p)\n", This, ppContainer);
1377
1378     /* NOTE: we should return wrapped interface here */
1379     IOleContainer_AddRef(&This->basedoc.IOleContainer_iface);
1380     *ppContainer = &This->basedoc.IOleContainer_iface;
1381     return S_OK;
1382 }
1383
1384 static const ITargetContainerVtbl TargetContainerVtbl = {
1385     TargetContainer_QueryInterface,
1386     TargetContainer_AddRef,
1387     TargetContainer_Release,
1388     TargetContainer_GetFrameUrl,
1389     TargetContainer_GetFramesContainer
1390 };
1391
1392 void TargetContainer_Init(HTMLDocumentObj *This)
1393 {
1394     This->ITargetContainer_iface.lpVtbl = &TargetContainerVtbl;
1395 }
1396
1397 /**********************************************************
1398  * IObjectSafety implementation
1399  */
1400
1401 static inline HTMLDocument *impl_from_IObjectSafety(IObjectSafety *iface)
1402 {
1403     return CONTAINING_RECORD(iface, HTMLDocument, IObjectSafety_iface);
1404 }
1405
1406 static HRESULT WINAPI ObjectSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
1407 {
1408     HTMLDocument *This = impl_from_IObjectSafety(iface);
1409     return htmldoc_query_interface(This, riid, ppv);
1410 }
1411
1412 static ULONG WINAPI ObjectSafety_AddRef(IObjectSafety *iface)
1413 {
1414     HTMLDocument *This = impl_from_IObjectSafety(iface);
1415     return htmldoc_addref(This);
1416 }
1417
1418 static ULONG WINAPI ObjectSafety_Release(IObjectSafety *iface)
1419 {
1420     HTMLDocument *This = impl_from_IObjectSafety(iface);
1421     return htmldoc_release(This);
1422 }
1423
1424 static HRESULT WINAPI ObjectSafety_GetInterfaceSafetyOptions(IObjectSafety *iface,
1425         REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
1426 {
1427     HTMLDocument *This = impl_from_IObjectSafety(iface);
1428     FIXME("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
1429     return E_NOTIMPL;
1430 }
1431
1432 static HRESULT WINAPI ObjectSafety_SetInterfaceSafetyOptions(IObjectSafety *iface,
1433         REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
1434 {
1435     HTMLDocument *This = impl_from_IObjectSafety(iface);
1436     FIXME("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
1437
1438     if(IsEqualGUID(&IID_IPersistMoniker, riid) &&
1439             dwOptionSetMask==INTERFACESAFE_FOR_UNTRUSTED_DATA &&
1440             dwEnabledOptions==INTERFACESAFE_FOR_UNTRUSTED_DATA)
1441         return S_OK;
1442
1443     return E_NOTIMPL;
1444 }
1445
1446 static const IObjectSafetyVtbl ObjectSafetyVtbl = {
1447     ObjectSafety_QueryInterface,
1448     ObjectSafety_AddRef,
1449     ObjectSafety_Release,
1450     ObjectSafety_GetInterfaceSafetyOptions,
1451     ObjectSafety_SetInterfaceSafetyOptions
1452 };
1453
1454 void HTMLDocument_LockContainer(HTMLDocumentObj *This, BOOL fLock)
1455 {
1456     IOleContainer *container;
1457     HRESULT hres;
1458
1459     if(!This->client || This->container_locked == fLock)
1460         return;
1461
1462     hres = IOleClientSite_GetContainer(This->client, &container);
1463     if(SUCCEEDED(hres)) {
1464         IOleContainer_LockContainer(container, fLock);
1465         This->container_locked = fLock;
1466         IOleContainer_Release(container);
1467     }
1468 }
1469
1470 void HTMLDocument_OleObj_Init(HTMLDocument *This)
1471 {
1472     This->IOleObject_iface.lpVtbl = &OleObjectVtbl;
1473     This->IOleDocument_iface.lpVtbl = &OleDocumentVtbl;
1474     This->IOleControl_iface.lpVtbl = &OleControlVtbl;
1475     This->IOleInPlaceActiveObject_iface.lpVtbl = &OleInPlaceActiveObjectVtbl;
1476     This->IOleInPlaceObjectWindowless_iface.lpVtbl = &OleInPlaceObjectWindowlessVtbl;
1477     This->IObjectWithSite_iface.lpVtbl = &ObjectWithSiteVtbl;
1478     This->IOleContainer_iface.lpVtbl = &OleContainerVtbl;
1479     This->IObjectSafety_iface.lpVtbl = &ObjectSafetyVtbl;
1480     This->doc_obj->extent.cx = 1;
1481     This->doc_obj->extent.cy = 1;
1482 }