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