2 * Implementation of IOleObject interfaces for WebBrowser control
8 * Copyright 2001 John R. Sheets (for CodeWeavers)
9 * Copyright 2005 Jacek Caban
11 * This library is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU Lesser General Public
13 * License as published by the Free Software Foundation; either
14 * version 2.1 of the License, or (at your option) any later version.
16 * This library is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 * Lesser General Public License for more details.
21 * You should have received a copy of the GNU Lesser General Public
22 * License along with this library; if not, write to the Free Software
23 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
34 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(ieframe
);
39 HWND WINAPI
SHSetParentHwnd(HWND hWnd
, HWND hWndParent
);
41 static ATOM shell_embedding_atom
= 0;
43 static LRESULT
resize_window(WebBrowser
*This
, LONG width
, LONG height
)
45 if(This
->doc_host
.hwnd
)
46 SetWindowPos(This
->doc_host
.hwnd
, NULL
, 0, 0, width
, height
,
47 SWP_NOZORDER
| SWP_NOACTIVATE
);
52 static void notify_on_focus(WebBrowser
*This
, BOOL got_focus
)
54 IOleControlSite
*control_site
;
60 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IOleControlSite
, (void**)&control_site
);
64 IOleControlSite_OnFocus(control_site
, got_focus
);
65 IOleControlSite_Release(control_site
);
68 static LRESULT WINAPI
shell_embedding_proc(HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
72 static const WCHAR wszTHIS
[] = {'T','H','I','S',0};
74 if(msg
== WM_CREATE
) {
75 This
= *(WebBrowser
**)lParam
;
76 SetPropW(hwnd
, wszTHIS
, This
);
78 This
= GetPropW(hwnd
, wszTHIS
);
83 return resize_window(This
, LOWORD(lParam
), HIWORD(lParam
));
85 return process_dochost_tasks(&This
->doc_host
);
87 notify_on_focus(This
, TRUE
);
90 notify_on_focus(This
, FALSE
);
94 return DefWindowProcW(hwnd
, msg
, wParam
, lParam
);
97 static void create_shell_embedding_hwnd(WebBrowser
*This
)
99 IOleInPlaceSite
*inplace
;
103 static const WCHAR wszShellEmbedding
[] =
104 {'S','h','e','l','l',' ','E','m','b','e','d','d','i','n','g',0};
106 if(!shell_embedding_atom
) {
107 static WNDCLASSEXW wndclass
= {
110 shell_embedding_proc
,
111 0, 0 /* native uses 8 */, NULL
, NULL
, NULL
,
112 (HBRUSH
)(COLOR_WINDOW
+ 1), NULL
,
116 wndclass
.hInstance
= ieframe_instance
;
118 RegisterClassExW(&wndclass
);
121 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IOleInPlaceSite
, (void**)&inplace
);
122 if(SUCCEEDED(hres
)) {
123 IOleInPlaceSite_GetWindow(inplace
, &parent
);
124 IOleInPlaceSite_Release(inplace
);
127 This
->doc_host
.frame_hwnd
= This
->shell_embedding_hwnd
= CreateWindowExW(
129 wszShellEmbedding
, wszShellEmbedding
,
130 WS_CLIPSIBLINGS
| WS_CLIPCHILDREN
131 | (parent
? WS_CHILD
| WS_TABSTOP
: WS_POPUP
| WS_MAXIMIZEBOX
),
133 NULL
, ieframe_instance
, This
);
135 TRACE("parent=%p hwnd=%p\n", parent
, This
->shell_embedding_hwnd
);
138 static HRESULT
activate_inplace(WebBrowser
*This
, IOleClientSite
*active_site
)
149 hres
= IOleClientSite_QueryInterface(active_site
, &IID_IOleInPlaceSite
,
150 (void**)&This
->inplace
);
152 WARN("Could not get IOleInPlaceSite\n");
156 hres
= IOleInPlaceSiteEx_CanInPlaceActivate(This
->inplace
);
158 WARN("CanInPlaceActivate returned: %08x\n", hres
);
159 IOleInPlaceSiteEx_Release(This
->inplace
);
160 This
->inplace
= NULL
;
164 hres
= IOleInPlaceSiteEx_GetWindow(This
->inplace
, &parent_hwnd
);
166 SHSetParentHwnd(This
->shell_embedding_hwnd
, parent_hwnd
);
168 IOleInPlaceSiteEx_OnInPlaceActivate(This
->inplace
);
170 This
->frameinfo
.cb
= sizeof(OLEINPLACEFRAMEINFO
);
171 IOleInPlaceSiteEx_GetWindowContext(This
->inplace
, &This
->doc_host
.frame
, &This
->uiwindow
,
172 &This
->pos_rect
, &This
->clip_rect
,
175 SetWindowPos(This
->shell_embedding_hwnd
, NULL
,
176 This
->pos_rect
.left
, This
->pos_rect
.top
,
177 This
->pos_rect
.right
-This
->pos_rect
.left
,
178 This
->pos_rect
.bottom
-This
->pos_rect
.top
,
179 SWP_NOZORDER
| SWP_SHOWWINDOW
);
182 IOleContainer
*container
;
184 IOleClientSite_ShowObject(This
->client
);
186 hres
= IOleClientSite_GetContainer(This
->client
, &container
);
187 if(SUCCEEDED(hres
)) {
189 IOleContainer_Release(This
->container
);
190 This
->container
= container
;
194 if(This
->doc_host
.frame
)
195 IOleInPlaceFrame_GetWindow(This
->doc_host
.frame
, &This
->frame_hwnd
);
200 static HRESULT
activate_ui(WebBrowser
*This
, IOleClientSite
*active_site
)
204 static const WCHAR wszitem
[] = {'i','t','e','m',0};
208 if(This
->shell_embedding_hwnd
)
209 ShowWindow(This
->shell_embedding_hwnd
, SW_SHOW
);
213 hres
= activate_inplace(This
, active_site
);
217 IOleInPlaceSiteEx_OnUIActivate(This
->inplace
);
219 if(This
->doc_host
.frame
)
220 IOleInPlaceFrame_SetActiveObject(This
->doc_host
.frame
, &This
->IOleInPlaceActiveObject_iface
, wszitem
);
222 IOleInPlaceUIWindow_SetActiveObject(This
->uiwindow
, &This
->IOleInPlaceActiveObject_iface
, wszitem
);
224 if(This
->doc_host
.frame
)
225 IOleInPlaceFrame_SetMenu(This
->doc_host
.frame
, NULL
, NULL
, This
->shell_embedding_hwnd
);
227 SetFocus(This
->shell_embedding_hwnd
);
228 notify_on_focus(This
, TRUE
);
233 static HRESULT
get_client_disp_property(IOleClientSite
*client
, DISPID dispid
, VARIANT
*res
)
235 IDispatch
*disp
= NULL
;
236 DISPPARAMS dispparams
= {NULL
, 0};
244 hres
= IOleClientSite_QueryInterface(client
, &IID_IDispatch
, (void**)&disp
);
246 TRACE("Could not get IDispatch\n");
250 hres
= IDispatch_Invoke(disp
, dispid
, &IID_NULL
, LOCALE_SYSTEM_DEFAULT
,
251 DISPATCH_PROPERTYGET
, &dispparams
, res
, NULL
, NULL
);
253 IDispatch_Release(disp
);
258 static HRESULT
on_offlineconnected_change(WebBrowser
*This
)
262 get_client_disp_property(This
->client
, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
, &offline
);
264 if(V_VT(&offline
) == VT_BOOL
)
265 IWebBrowser2_put_Offline(&This
->IWebBrowser2_iface
, V_BOOL(&offline
));
266 else if(V_VT(&offline
) != VT_EMPTY
)
267 WARN("wrong V_VT(silent) %d\n", V_VT(&offline
));
272 static HRESULT
on_silent_change(WebBrowser
*This
)
276 get_client_disp_property(This
->client
, DISPID_AMBIENT_SILENT
, &silent
);
278 if(V_VT(&silent
) == VT_BOOL
)
279 IWebBrowser2_put_Silent(&This
->IWebBrowser2_iface
, V_BOOL(&silent
));
280 else if(V_VT(&silent
) != VT_EMPTY
)
281 WARN("wrong V_VT(silent) %d\n", V_VT(&silent
));
286 static void release_client_site(WebBrowser
*This
)
288 release_dochost_client(&This
->doc_host
);
291 IOleClientSite_Release(This
->client
);
295 if(This
->shell_embedding_hwnd
) {
296 DestroyWindow(This
->shell_embedding_hwnd
);
297 This
->shell_embedding_hwnd
= NULL
;
301 IOleInPlaceSiteEx_Release(This
->inplace
);
302 This
->inplace
= NULL
;
305 if(This
->container
) {
306 IOleContainer_Release(This
->container
);
307 This
->container
= NULL
;
311 IOleInPlaceUIWindow_Release(This
->uiwindow
);
312 This
->uiwindow
= NULL
;
317 IEnumOLEVERB IEnumOLEVERB_iface
;
322 static inline EnumOLEVERB
*impl_from_IEnumOLEVERB(IEnumOLEVERB
*iface
)
324 return CONTAINING_RECORD(iface
, EnumOLEVERB
, IEnumOLEVERB_iface
);
327 static HRESULT WINAPI
EnumOLEVERB_QueryInterface(IEnumOLEVERB
*iface
, REFIID riid
, void **ppv
)
329 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
331 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
332 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
333 *ppv
= &This
->IEnumOLEVERB_iface
;
334 }else if(IsEqualGUID(&IID_IEnumOLEVERB
, riid
)) {
335 TRACE("(%p)->(IID_IEnumOLEVERB %p)\n", This
, ppv
);
336 *ppv
= &This
->IEnumOLEVERB_iface
;
338 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
340 return E_NOINTERFACE
;
343 IUnknown_AddRef((IUnknown
*)*ppv
);
347 static ULONG WINAPI
EnumOLEVERB_AddRef(IEnumOLEVERB
*iface
)
349 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
350 LONG ref
= InterlockedIncrement(&This
->ref
);
352 TRACE("(%p) ref=%d\n", This
, ref
);
357 static ULONG WINAPI
EnumOLEVERB_Release(IEnumOLEVERB
*iface
)
359 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
360 LONG ref
= InterlockedDecrement(&This
->ref
);
362 TRACE("(%p) ref=%d\n", This
, ref
);
370 static HRESULT WINAPI
EnumOLEVERB_Next(IEnumOLEVERB
*iface
, ULONG celt
, OLEVERB
*rgelt
, ULONG
*pceltFetched
)
372 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
374 static const OLEVERB verbs
[] =
375 {{OLEIVERB_PRIMARY
},{OLEIVERB_INPLACEACTIVATE
},{OLEIVERB_UIACTIVATE
},{OLEIVERB_SHOW
},{OLEIVERB_HIDE
}};
377 TRACE("(%p)->(%u %p %p)\n", This
, celt
, rgelt
, pceltFetched
);
379 /* There are a few problems with this implementation, but that's how it seems to work in native. See tests. */
383 if(This
->iter
== sizeof(verbs
)/sizeof(*verbs
))
387 *rgelt
= verbs
[This
->iter
++];
391 static HRESULT WINAPI
EnumOLEVERB_Skip(IEnumOLEVERB
*iface
, ULONG celt
)
393 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
394 TRACE("(%p)->(%u)\n", This
, celt
);
398 static HRESULT WINAPI
EnumOLEVERB_Reset(IEnumOLEVERB
*iface
)
400 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
402 TRACE("(%p)\n", This
);
408 static HRESULT WINAPI
EnumOLEVERB_Clone(IEnumOLEVERB
*iface
, IEnumOLEVERB
**ppenum
)
410 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
411 FIXME("(%p)->(%p)\n", This
, ppenum
);
415 static const IEnumOLEVERBVtbl EnumOLEVERBVtbl
= {
416 EnumOLEVERB_QueryInterface
,
425 /**********************************************************************
426 * Implement the IOleObject interface for the WebBrowser control
429 static inline WebBrowser
*impl_from_IOleObject(IOleObject
*iface
)
431 return CONTAINING_RECORD(iface
, WebBrowser
, IOleObject_iface
);
434 static HRESULT WINAPI
OleObject_QueryInterface(IOleObject
*iface
, REFIID riid
, void **ppv
)
436 WebBrowser
*This
= impl_from_IOleObject(iface
);
437 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
440 static ULONG WINAPI
OleObject_AddRef(IOleObject
*iface
)
442 WebBrowser
*This
= impl_from_IOleObject(iface
);
443 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
446 static ULONG WINAPI
OleObject_Release(IOleObject
*iface
)
448 WebBrowser
*This
= impl_from_IOleObject(iface
);
449 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
452 static HRESULT WINAPI
OleObject_SetClientSite(IOleObject
*iface
, LPOLECLIENTSITE pClientSite
)
454 WebBrowser
*This
= impl_from_IOleObject(iface
);
455 IDocHostUIHandler
*hostui
;
456 IOleCommandTarget
*olecmd
;
457 IOleContainer
*container
;
461 TRACE("(%p)->(%p)\n", This
, pClientSite
);
463 if(This
->client
== pClientSite
)
466 release_client_site(This
);
469 on_commandstate_change(&This
->doc_host
, CSC_NAVIGATEBACK
, FALSE
);
470 on_commandstate_change(&This
->doc_host
, CSC_NAVIGATEFORWARD
, FALSE
);
472 if(This
->doc_host
.document
)
473 deactivate_document(&This
->doc_host
);
477 IOleClientSite_AddRef(pClientSite
);
478 This
->client
= pClientSite
;
480 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IDispatch
,
483 This
->doc_host
.client_disp
= disp
;
485 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IDocHostUIHandler
,
488 This
->doc_host
.hostui
= hostui
;
490 hres
= IOleClientSite_GetContainer(This
->client
, &container
);
491 if(SUCCEEDED(hres
)) {
492 ITargetContainer
*target_container
;
494 hres
= IOleContainer_QueryInterface(container
, &IID_ITargetContainer
,
495 (void**)&target_container
);
496 if(SUCCEEDED(hres
)) {
497 FIXME("Unsupported ITargetContainer\n");
498 ITargetContainer_Release(target_container
);
501 hres
= IOleContainer_QueryInterface(container
, &IID_IOleCommandTarget
, (void**)&olecmd
);
505 IOleContainer_Release(container
);
507 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
512 This
->doc_host
.olecmd
= olecmd
;
514 create_shell_embedding_hwnd(This
);
516 on_offlineconnected_change(This
);
517 on_silent_change(This
);
522 static HRESULT WINAPI
OleObject_GetClientSite(IOleObject
*iface
, LPOLECLIENTSITE
*ppClientSite
)
524 WebBrowser
*This
= impl_from_IOleObject(iface
);
526 TRACE("(%p)->(%p)\n", This
, ppClientSite
);
532 IOleClientSite_AddRef(This
->client
);
533 *ppClientSite
= This
->client
;
538 static HRESULT WINAPI
OleObject_SetHostNames(IOleObject
*iface
, LPCOLESTR szContainerApp
,
539 LPCOLESTR szContainerObj
)
541 WebBrowser
*This
= impl_from_IOleObject(iface
);
543 TRACE("(%p)->(%s, %s)\n", This
, debugstr_w(szContainerApp
), debugstr_w(szContainerObj
));
545 /* We have nothing to do here. */
549 static HRESULT WINAPI
OleObject_Close(IOleObject
*iface
, DWORD dwSaveOption
)
551 WebBrowser
*This
= impl_from_IOleObject(iface
);
553 TRACE("(%p)->(%d)\n", This
, dwSaveOption
);
555 if(dwSaveOption
!= OLECLOSE_NOSAVE
) {
556 FIXME("unimplemented flag: %x\n", dwSaveOption
);
560 if(This
->doc_host
.frame
)
561 IOleInPlaceFrame_SetActiveObject(This
->doc_host
.frame
, NULL
, NULL
);
564 IOleInPlaceUIWindow_SetActiveObject(This
->uiwindow
, NULL
, NULL
);
567 IOleInPlaceSiteEx_OnUIDeactivate(This
->inplace
, FALSE
);
568 notify_on_focus(This
, FALSE
);
570 IOleInPlaceSiteEx_OnInPlaceDeactivate(This
->inplace
);
572 return IOleObject_SetClientSite(iface
, NULL
);
575 static HRESULT WINAPI
OleObject_SetMoniker(IOleObject
*iface
, DWORD dwWhichMoniker
, IMoniker
* pmk
)
577 WebBrowser
*This
= impl_from_IOleObject(iface
);
578 FIXME("(%p)->(%d, %p)\n", This
, dwWhichMoniker
, pmk
);
582 static HRESULT WINAPI
OleObject_GetMoniker(IOleObject
*iface
, DWORD dwAssign
,
583 DWORD dwWhichMoniker
, LPMONIKER
*ppmk
)
585 WebBrowser
*This
= impl_from_IOleObject(iface
);
586 FIXME("(%p)->(%d, %d, %p)\n", This
, dwAssign
, dwWhichMoniker
, ppmk
);
590 static HRESULT WINAPI
OleObject_InitFromData(IOleObject
*iface
, LPDATAOBJECT pDataObject
,
591 BOOL fCreation
, DWORD dwReserved
)
593 WebBrowser
*This
= impl_from_IOleObject(iface
);
594 FIXME("(%p)->(%p, %d, %d)\n", This
, pDataObject
, fCreation
, dwReserved
);
598 static HRESULT WINAPI
OleObject_GetClipboardData(IOleObject
*iface
, DWORD dwReserved
,
599 LPDATAOBJECT
*ppDataObject
)
601 WebBrowser
*This
= impl_from_IOleObject(iface
);
602 FIXME("(%p)->(%d, %p)\n", This
, dwReserved
, ppDataObject
);
606 static HRESULT WINAPI
OleObject_DoVerb(IOleObject
*iface
, LONG iVerb
, struct tagMSG
* lpmsg
,
607 LPOLECLIENTSITE pActiveSite
, LONG lindex
, HWND hwndParent
, LPCRECT lprcPosRect
)
609 WebBrowser
*This
= impl_from_IOleObject(iface
);
611 TRACE("(%p)->(%d %p %p %d %p %s)\n", This
, iVerb
, lpmsg
, pActiveSite
, lindex
, hwndParent
,
612 wine_dbgstr_rect(lprcPosRect
));
617 TRACE("OLEIVERB_SHOW\n");
618 return activate_ui(This
, pActiveSite
);
619 case OLEIVERB_UIACTIVATE
:
620 TRACE("OLEIVERB_UIACTIVATE\n");
621 return activate_ui(This
, pActiveSite
);
622 case OLEIVERB_INPLACEACTIVATE
:
623 TRACE("OLEIVERB_INPLACEACTIVATE\n");
624 return activate_inplace(This
, pActiveSite
);
626 TRACE("OLEIVERB_HIDE\n");
628 IOleInPlaceSiteEx_OnInPlaceDeactivate(This
->inplace
);
629 if(This
->shell_embedding_hwnd
)
630 ShowWindow(This
->shell_embedding_hwnd
, SW_HIDE
);
633 FIXME("stub for %d\n", iVerb
);
640 static HRESULT WINAPI
OleObject_EnumVerbs(IOleObject
*iface
, IEnumOLEVERB
**ppEnumOleVerb
)
642 WebBrowser
*This
= impl_from_IOleObject(iface
);
645 TRACE("(%p)->(%p)\n", This
, ppEnumOleVerb
);
647 ret
= heap_alloc(sizeof(*ret
));
649 return E_OUTOFMEMORY
;
651 ret
->IEnumOLEVERB_iface
.lpVtbl
= &EnumOLEVERBVtbl
;
655 *ppEnumOleVerb
= &ret
->IEnumOLEVERB_iface
;
659 static HRESULT WINAPI
OleObject_Update(IOleObject
*iface
)
661 WebBrowser
*This
= impl_from_IOleObject(iface
);
662 FIXME("(%p)\n", This
);
666 static HRESULT WINAPI
OleObject_IsUpToDate(IOleObject
*iface
)
668 WebBrowser
*This
= impl_from_IOleObject(iface
);
669 FIXME("(%p)\n", This
);
673 static HRESULT WINAPI
OleObject_GetUserClassID(IOleObject
*iface
, CLSID
* pClsid
)
675 WebBrowser
*This
= impl_from_IOleObject(iface
);
676 FIXME("(%p)->(%p)\n", This
, pClsid
);
680 static HRESULT WINAPI
OleObject_GetUserType(IOleObject
*iface
, DWORD dwFormOfType
,
681 LPOLESTR
* pszUserType
)
683 WebBrowser
*This
= impl_from_IOleObject(iface
);
684 TRACE("(%p, %d, %p)\n", This
, dwFormOfType
, pszUserType
);
685 return OleRegGetUserType(&CLSID_WebBrowser
, dwFormOfType
, pszUserType
);
688 static HRESULT WINAPI
OleObject_SetExtent(IOleObject
*iface
, DWORD dwDrawAspect
, SIZEL
*psizel
)
690 WebBrowser
*This
= impl_from_IOleObject(iface
);
692 TRACE("(%p)->(%x %p)\n", This
, dwDrawAspect
, psizel
);
694 /* Tests show that dwDrawAspect is ignored */
695 This
->extent
= *psizel
;
699 static HRESULT WINAPI
OleObject_GetExtent(IOleObject
*iface
, DWORD dwDrawAspect
, SIZEL
*psizel
)
701 WebBrowser
*This
= impl_from_IOleObject(iface
);
703 TRACE("(%p)->(%x, %p)\n", This
, dwDrawAspect
, psizel
);
705 /* Tests show that dwDrawAspect is ignored */
706 *psizel
= This
->extent
;
710 static HRESULT WINAPI
OleObject_Advise(IOleObject
*iface
, IAdviseSink
*pAdvSink
,
711 DWORD
* pdwConnection
)
713 WebBrowser
*This
= impl_from_IOleObject(iface
);
714 FIXME("(%p)->(%p, %p)\n", This
, pAdvSink
, pdwConnection
);
718 static HRESULT WINAPI
OleObject_Unadvise(IOleObject
*iface
, DWORD dwConnection
)
720 WebBrowser
*This
= impl_from_IOleObject(iface
);
721 FIXME("(%p)->(%d)\n", This
, dwConnection
);
725 static HRESULT WINAPI
OleObject_EnumAdvise(IOleObject
*iface
, IEnumSTATDATA
**ppenumAdvise
)
727 WebBrowser
*This
= impl_from_IOleObject(iface
);
728 FIXME("(%p)->(%p)\n", This
, ppenumAdvise
);
732 static HRESULT WINAPI
OleObject_GetMiscStatus(IOleObject
*iface
, DWORD dwAspect
, DWORD
*pdwStatus
)
734 WebBrowser
*This
= impl_from_IOleObject(iface
);
736 TRACE("(%p)->(%x, %p)\n", This
, dwAspect
, pdwStatus
);
738 *pdwStatus
= OLEMISC_SETCLIENTSITEFIRST
|OLEMISC_ACTIVATEWHENVISIBLE
|OLEMISC_INSIDEOUT
739 |OLEMISC_CANTLINKINSIDE
|OLEMISC_RECOMPOSEONRESIZE
;
744 static HRESULT WINAPI
OleObject_SetColorScheme(IOleObject
*iface
, LOGPALETTE
* pLogpal
)
746 WebBrowser
*This
= impl_from_IOleObject(iface
);
747 FIXME("(%p)->(%p)\n", This
, pLogpal
);
751 static const IOleObjectVtbl OleObjectVtbl
=
753 OleObject_QueryInterface
,
756 OleObject_SetClientSite
,
757 OleObject_GetClientSite
,
758 OleObject_SetHostNames
,
760 OleObject_SetMoniker
,
761 OleObject_GetMoniker
,
762 OleObject_InitFromData
,
763 OleObject_GetClipboardData
,
767 OleObject_IsUpToDate
,
768 OleObject_GetUserClassID
,
769 OleObject_GetUserType
,
774 OleObject_EnumAdvise
,
775 OleObject_GetMiscStatus
,
776 OleObject_SetColorScheme
779 /**********************************************************************
780 * Implement the IOleInPlaceObject interface
783 static inline WebBrowser
*impl_from_IOleInPlaceObject(IOleInPlaceObject
*iface
)
785 return CONTAINING_RECORD(iface
, WebBrowser
, IOleInPlaceObject_iface
);
788 static HRESULT WINAPI
OleInPlaceObject_QueryInterface(IOleInPlaceObject
*iface
,
789 REFIID riid
, LPVOID
*ppobj
)
791 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
792 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppobj
);
795 static ULONG WINAPI
OleInPlaceObject_AddRef(IOleInPlaceObject
*iface
)
797 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
798 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
801 static ULONG WINAPI
OleInPlaceObject_Release(IOleInPlaceObject
*iface
)
803 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
804 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
807 static HRESULT WINAPI
OleInPlaceObject_GetWindow(IOleInPlaceObject
*iface
, HWND
* phwnd
)
809 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
811 TRACE("(%p)->(%p)\n", This
, phwnd
);
813 *phwnd
= This
->shell_embedding_hwnd
;
817 static HRESULT WINAPI
OleInPlaceObject_ContextSensitiveHelp(IOleInPlaceObject
*iface
,
820 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
821 FIXME("(%p)->(%x)\n", This
, fEnterMode
);
825 static HRESULT WINAPI
OleInPlaceObject_InPlaceDeactivate(IOleInPlaceObject
*iface
)
827 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
828 FIXME("(%p)\n", This
);
831 IOleInPlaceSiteEx_Release(This
->inplace
);
832 This
->inplace
= NULL
;
838 static HRESULT WINAPI
OleInPlaceObject_UIDeactivate(IOleInPlaceObject
*iface
)
840 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
841 FIXME("(%p)\n", This
);
845 static HRESULT WINAPI
OleInPlaceObject_SetObjectRects(IOleInPlaceObject
*iface
,
846 LPCRECT lprcPosRect
, LPCRECT lprcClipRect
)
848 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
850 TRACE("(%p)->(%s %s)\n", This
, wine_dbgstr_rect(lprcPosRect
), wine_dbgstr_rect(lprcClipRect
));
852 This
->pos_rect
= *lprcPosRect
;
855 This
->clip_rect
= *lprcClipRect
;
857 if(This
->shell_embedding_hwnd
) {
858 SetWindowPos(This
->shell_embedding_hwnd
, NULL
,
859 lprcPosRect
->left
, lprcPosRect
->top
,
860 lprcPosRect
->right
-lprcPosRect
->left
,
861 lprcPosRect
->bottom
-lprcPosRect
->top
,
862 SWP_NOZORDER
| SWP_NOACTIVATE
);
868 static HRESULT WINAPI
OleInPlaceObject_ReactivateAndUndo(IOleInPlaceObject
*iface
)
870 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
871 FIXME("(%p)\n", This
);
875 static const IOleInPlaceObjectVtbl OleInPlaceObjectVtbl
=
877 OleInPlaceObject_QueryInterface
,
878 OleInPlaceObject_AddRef
,
879 OleInPlaceObject_Release
,
880 OleInPlaceObject_GetWindow
,
881 OleInPlaceObject_ContextSensitiveHelp
,
882 OleInPlaceObject_InPlaceDeactivate
,
883 OleInPlaceObject_UIDeactivate
,
884 OleInPlaceObject_SetObjectRects
,
885 OleInPlaceObject_ReactivateAndUndo
888 /**********************************************************************
889 * Implement the IOleControl interface
892 static inline WebBrowser
*impl_from_IOleControl(IOleControl
*iface
)
894 return CONTAINING_RECORD(iface
, WebBrowser
, IOleControl_iface
);
897 static HRESULT WINAPI
OleControl_QueryInterface(IOleControl
*iface
,
898 REFIID riid
, LPVOID
*ppobj
)
900 WebBrowser
*This
= impl_from_IOleControl(iface
);
901 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppobj
);
904 static ULONG WINAPI
OleControl_AddRef(IOleControl
*iface
)
906 WebBrowser
*This
= impl_from_IOleControl(iface
);
907 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
910 static ULONG WINAPI
OleControl_Release(IOleControl
*iface
)
912 WebBrowser
*This
= impl_from_IOleControl(iface
);
913 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
916 static HRESULT WINAPI
OleControl_GetControlInfo(IOleControl
*iface
, LPCONTROLINFO pCI
)
918 WebBrowser
*This
= impl_from_IOleControl(iface
);
920 TRACE("(%p)->(%p)\n", This
, pCI
);
922 /* Tests show that this function should be not implemented */
926 static HRESULT WINAPI
OleControl_OnMnemonic(IOleControl
*iface
, struct tagMSG
*pMsg
)
928 WebBrowser
*This
= impl_from_IOleControl(iface
);
929 FIXME("(%p)->(%p)\n", This
, pMsg
);
933 static HRESULT WINAPI
OleControl_OnAmbientPropertyChange(IOleControl
*iface
, DISPID dispID
)
935 WebBrowser
*This
= impl_from_IOleControl(iface
);
937 TRACE("(%p)->(%d)\n", This
, dispID
);
941 /* Unknown means multiple properties changed, so check them all.
942 * BUT the Webbrowser OleControl object doesn't appear to do this.
945 case DISPID_AMBIENT_DLCONTROL
:
947 case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
:
948 return on_offlineconnected_change(This
);
949 case DISPID_AMBIENT_SILENT
:
950 return on_silent_change(This
);
953 FIXME("Unknown dispID %d\n", dispID
);
957 static HRESULT WINAPI
OleControl_FreezeEvents(IOleControl
*iface
, BOOL bFreeze
)
959 WebBrowser
*This
= impl_from_IOleControl(iface
);
960 FIXME("(%p)->(%x)\n", This
, bFreeze
);
964 static const IOleControlVtbl OleControlVtbl
=
966 OleControl_QueryInterface
,
969 OleControl_GetControlInfo
,
970 OleControl_OnMnemonic
,
971 OleControl_OnAmbientPropertyChange
,
972 OleControl_FreezeEvents
975 static inline WebBrowser
*impl_from_IOleInPlaceActiveObject(IOleInPlaceActiveObject
*iface
)
977 return CONTAINING_RECORD(iface
, WebBrowser
, IOleInPlaceActiveObject_iface
);
980 static HRESULT WINAPI
InPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject
*iface
,
981 REFIID riid
, void **ppv
)
983 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
984 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
987 static ULONG WINAPI
InPlaceActiveObject_AddRef(IOleInPlaceActiveObject
*iface
)
989 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
990 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
993 static ULONG WINAPI
InPlaceActiveObject_Release(IOleInPlaceActiveObject
*iface
)
995 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
996 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
999 static HRESULT WINAPI
InPlaceActiveObject_GetWindow(IOleInPlaceActiveObject
*iface
,
1002 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1003 return IOleInPlaceObject_GetWindow(&This
->IOleInPlaceObject_iface
, phwnd
);
1006 static HRESULT WINAPI
InPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject
*iface
,
1009 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1010 return IOleInPlaceObject_ContextSensitiveHelp(&This
->IOleInPlaceObject_iface
, fEnterMode
);
1013 static HRESULT WINAPI
InPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject
*iface
,
1016 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1017 IOleInPlaceActiveObject
*activeobj
;
1018 HRESULT hr
= S_FALSE
;
1020 TRACE("(%p)->(%p)\n", This
, lpmsg
);
1022 if(This
->doc_host
.document
) {
1023 if(SUCCEEDED(IUnknown_QueryInterface(This
->doc_host
.document
,
1024 &IID_IOleInPlaceActiveObject
,
1025 (void**)&activeobj
))) {
1026 hr
= IOleInPlaceActiveObject_TranslateAccelerator(activeobj
, lpmsg
);
1027 IOleInPlaceActiveObject_Release(activeobj
);
1037 static HRESULT WINAPI
InPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject
*iface
,
1040 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1041 FIXME("(%p)->(%x)\n", This
, fActivate
);
1045 static HRESULT WINAPI
InPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject
*iface
,
1048 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1049 FIXME("(%p)->(%x)\n", This
, fActivate
);
1053 static HRESULT WINAPI
InPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject
*iface
,
1054 LPCRECT lprcBorder
, IOleInPlaceUIWindow
*pUIWindow
, BOOL fFrameWindow
)
1056 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1057 FIXME("(%p)->(%p %p %x)\n", This
, lprcBorder
, pUIWindow
, fFrameWindow
);
1061 static HRESULT WINAPI
InPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject
*iface
,
1064 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1065 FIXME("(%p)->(%x)\n", This
, fEnable
);
1069 static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl
= {
1070 InPlaceActiveObject_QueryInterface
,
1071 InPlaceActiveObject_AddRef
,
1072 InPlaceActiveObject_Release
,
1073 InPlaceActiveObject_GetWindow
,
1074 InPlaceActiveObject_ContextSensitiveHelp
,
1075 InPlaceActiveObject_TranslateAccelerator
,
1076 InPlaceActiveObject_OnFrameWindowActivate
,
1077 InPlaceActiveObject_OnDocWindowActivate
,
1078 InPlaceActiveObject_ResizeBorder
,
1079 InPlaceActiveObject_EnableModeless
1082 static inline WebBrowser
*impl_from_IOleCommandTarget(IOleCommandTarget
*iface
)
1084 return CONTAINING_RECORD(iface
, WebBrowser
, IOleCommandTarget_iface
);
1087 static HRESULT WINAPI
WBOleCommandTarget_QueryInterface(IOleCommandTarget
*iface
,
1088 REFIID riid
, void **ppv
)
1090 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1091 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
1094 static ULONG WINAPI
WBOleCommandTarget_AddRef(IOleCommandTarget
*iface
)
1096 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1097 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
1100 static ULONG WINAPI
WBOleCommandTarget_Release(IOleCommandTarget
*iface
)
1102 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1103 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
1106 static HRESULT WINAPI
WBOleCommandTarget_QueryStatus(IOleCommandTarget
*iface
,
1107 const GUID
*pguidCmdGroup
, ULONG cCmds
, OLECMD prgCmds
[], OLECMDTEXT
*pCmdText
)
1109 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1110 IOleCommandTarget
*cmdtrg
;
1113 TRACE("(%p)->(%s %u %p %p)\n", This
, debugstr_guid(pguidCmdGroup
), cCmds
, prgCmds
,
1116 if(!This
->doc_host
.document
)
1119 /* NOTE: There are probably some commands that we should handle here
1120 * instead of forwarding to document object. */
1122 hres
= IUnknown_QueryInterface(This
->doc_host
.document
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
1126 hres
= IOleCommandTarget_QueryStatus(cmdtrg
, pguidCmdGroup
, cCmds
, prgCmds
, pCmdText
);
1127 IOleCommandTarget_Release(cmdtrg
);
1132 static HRESULT WINAPI
WBOleCommandTarget_Exec(IOleCommandTarget
*iface
,
1133 const GUID
*pguidCmdGroup
, DWORD nCmdID
, DWORD nCmdexecopt
, VARIANT
*pvaIn
,
1136 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1137 FIXME("(%p)->(%s %d %d %s %p)\n", This
, debugstr_guid(pguidCmdGroup
), nCmdID
,
1138 nCmdexecopt
, debugstr_variant(pvaIn
), pvaOut
);
1142 static const IOleCommandTargetVtbl OleCommandTargetVtbl
= {
1143 WBOleCommandTarget_QueryInterface
,
1144 WBOleCommandTarget_AddRef
,
1145 WBOleCommandTarget_Release
,
1146 WBOleCommandTarget_QueryStatus
,
1147 WBOleCommandTarget_Exec
1150 void WebBrowser_OleObject_Init(WebBrowser
*This
)
1156 /* default aspect ratio is 96dpi / 96dpi */
1158 dpi_x
= GetDeviceCaps(hdc
, LOGPIXELSX
);
1159 dpi_y
= GetDeviceCaps(hdc
, LOGPIXELSY
);
1162 This
->IOleObject_iface
.lpVtbl
= &OleObjectVtbl
;
1163 This
->IOleInPlaceObject_iface
.lpVtbl
= &OleInPlaceObjectVtbl
;
1164 This
->IOleControl_iface
.lpVtbl
= &OleControlVtbl
;
1165 This
->IOleInPlaceActiveObject_iface
.lpVtbl
= &OleInPlaceActiveObjectVtbl
;
1166 This
->IOleCommandTarget_iface
.lpVtbl
= &OleCommandTargetVtbl
;
1168 /* Default size is 50x20 pixels, in himetric units */
1169 This
->extent
.cx
= MulDiv( 50, 2540, dpi_x
);
1170 This
->extent
.cy
= MulDiv( 20, 2540, dpi_y
);
1173 void WebBrowser_OleObject_Destroy(WebBrowser
*This
)
1175 release_client_site(This
);