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
;
316 IAdviseSink_Release(This
->sink
);
322 IEnumOLEVERB IEnumOLEVERB_iface
;
327 static inline EnumOLEVERB
*impl_from_IEnumOLEVERB(IEnumOLEVERB
*iface
)
329 return CONTAINING_RECORD(iface
, EnumOLEVERB
, IEnumOLEVERB_iface
);
332 static HRESULT WINAPI
EnumOLEVERB_QueryInterface(IEnumOLEVERB
*iface
, REFIID riid
, void **ppv
)
334 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
336 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
337 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
338 *ppv
= &This
->IEnumOLEVERB_iface
;
339 }else if(IsEqualGUID(&IID_IEnumOLEVERB
, riid
)) {
340 TRACE("(%p)->(IID_IEnumOLEVERB %p)\n", This
, ppv
);
341 *ppv
= &This
->IEnumOLEVERB_iface
;
343 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
345 return E_NOINTERFACE
;
348 IUnknown_AddRef((IUnknown
*)*ppv
);
352 static ULONG WINAPI
EnumOLEVERB_AddRef(IEnumOLEVERB
*iface
)
354 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
355 LONG ref
= InterlockedIncrement(&This
->ref
);
357 TRACE("(%p) ref=%d\n", This
, ref
);
362 static ULONG WINAPI
EnumOLEVERB_Release(IEnumOLEVERB
*iface
)
364 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
365 LONG ref
= InterlockedDecrement(&This
->ref
);
367 TRACE("(%p) ref=%d\n", This
, ref
);
375 static HRESULT WINAPI
EnumOLEVERB_Next(IEnumOLEVERB
*iface
, ULONG celt
, OLEVERB
*rgelt
, ULONG
*pceltFetched
)
377 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
379 static const OLEVERB verbs
[] =
380 {{OLEIVERB_PRIMARY
},{OLEIVERB_INPLACEACTIVATE
},{OLEIVERB_UIACTIVATE
},{OLEIVERB_SHOW
},{OLEIVERB_HIDE
}};
382 TRACE("(%p)->(%u %p %p)\n", This
, celt
, rgelt
, pceltFetched
);
384 /* There are a few problems with this implementation, but that's how it seems to work in native. See tests. */
388 if(This
->iter
== sizeof(verbs
)/sizeof(*verbs
))
392 *rgelt
= verbs
[This
->iter
++];
396 static HRESULT WINAPI
EnumOLEVERB_Skip(IEnumOLEVERB
*iface
, ULONG celt
)
398 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
399 TRACE("(%p)->(%u)\n", This
, celt
);
403 static HRESULT WINAPI
EnumOLEVERB_Reset(IEnumOLEVERB
*iface
)
405 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
407 TRACE("(%p)\n", This
);
413 static HRESULT WINAPI
EnumOLEVERB_Clone(IEnumOLEVERB
*iface
, IEnumOLEVERB
**ppenum
)
415 EnumOLEVERB
*This
= impl_from_IEnumOLEVERB(iface
);
416 FIXME("(%p)->(%p)\n", This
, ppenum
);
420 static const IEnumOLEVERBVtbl EnumOLEVERBVtbl
= {
421 EnumOLEVERB_QueryInterface
,
430 /**********************************************************************
431 * Implement the IOleObject interface for the WebBrowser control
434 static inline WebBrowser
*impl_from_IOleObject(IOleObject
*iface
)
436 return CONTAINING_RECORD(iface
, WebBrowser
, IOleObject_iface
);
439 static HRESULT WINAPI
OleObject_QueryInterface(IOleObject
*iface
, REFIID riid
, void **ppv
)
441 WebBrowser
*This
= impl_from_IOleObject(iface
);
442 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
445 static ULONG WINAPI
OleObject_AddRef(IOleObject
*iface
)
447 WebBrowser
*This
= impl_from_IOleObject(iface
);
448 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
451 static ULONG WINAPI
OleObject_Release(IOleObject
*iface
)
453 WebBrowser
*This
= impl_from_IOleObject(iface
);
454 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
457 static HRESULT WINAPI
OleObject_SetClientSite(IOleObject
*iface
, LPOLECLIENTSITE pClientSite
)
459 WebBrowser
*This
= impl_from_IOleObject(iface
);
460 IDocHostUIHandler
*hostui
;
461 IOleContainer
*container
;
465 TRACE("(%p)->(%p)\n", This
, pClientSite
);
467 if(This
->client
== pClientSite
)
470 release_client_site(This
);
473 on_commandstate_change(&This
->doc_host
, CSC_NAVIGATEBACK
, VARIANT_FALSE
);
474 on_commandstate_change(&This
->doc_host
, CSC_NAVIGATEFORWARD
, VARIANT_FALSE
);
476 if(This
->doc_host
.document
)
477 deactivate_document(&This
->doc_host
);
481 IOleClientSite_AddRef(pClientSite
);
482 This
->client
= pClientSite
;
484 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IDispatch
,
487 This
->doc_host
.client_disp
= disp
;
489 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IDocHostUIHandler
,
492 This
->doc_host
.hostui
= hostui
;
494 hres
= IOleClientSite_GetContainer(This
->client
, &container
);
495 if(SUCCEEDED(hres
)) {
496 ITargetContainer
*target_container
;
498 hres
= IOleContainer_QueryInterface(container
, &IID_ITargetContainer
,
499 (void**)&target_container
);
500 if(SUCCEEDED(hres
)) {
501 FIXME("Unsupported ITargetContainer\n");
502 ITargetContainer_Release(target_container
);
505 IOleContainer_Release(container
);
508 create_shell_embedding_hwnd(This
);
510 on_offlineconnected_change(This
);
511 on_silent_change(This
);
516 static HRESULT WINAPI
OleObject_GetClientSite(IOleObject
*iface
, LPOLECLIENTSITE
*ppClientSite
)
518 WebBrowser
*This
= impl_from_IOleObject(iface
);
520 TRACE("(%p)->(%p)\n", This
, ppClientSite
);
526 IOleClientSite_AddRef(This
->client
);
527 *ppClientSite
= This
->client
;
532 static HRESULT WINAPI
OleObject_SetHostNames(IOleObject
*iface
, LPCOLESTR szContainerApp
,
533 LPCOLESTR szContainerObj
)
535 WebBrowser
*This
= impl_from_IOleObject(iface
);
537 TRACE("(%p)->(%s, %s)\n", This
, debugstr_w(szContainerApp
), debugstr_w(szContainerObj
));
539 /* We have nothing to do here. */
543 static HRESULT WINAPI
OleObject_Close(IOleObject
*iface
, DWORD dwSaveOption
)
545 WebBrowser
*This
= impl_from_IOleObject(iface
);
547 TRACE("(%p)->(%d)\n", This
, dwSaveOption
);
549 if(dwSaveOption
!= OLECLOSE_NOSAVE
) {
550 FIXME("unimplemented flag: %x\n", dwSaveOption
);
554 if(This
->doc_host
.frame
)
555 IOleInPlaceFrame_SetActiveObject(This
->doc_host
.frame
, NULL
, NULL
);
558 IOleInPlaceUIWindow_SetActiveObject(This
->uiwindow
, NULL
, NULL
);
561 IOleInPlaceSiteEx_OnUIDeactivate(This
->inplace
, FALSE
);
562 notify_on_focus(This
, FALSE
);
564 IOleInPlaceSiteEx_OnInPlaceDeactivate(This
->inplace
);
566 return IOleObject_SetClientSite(iface
, NULL
);
569 static HRESULT WINAPI
OleObject_SetMoniker(IOleObject
*iface
, DWORD dwWhichMoniker
, IMoniker
* pmk
)
571 WebBrowser
*This
= impl_from_IOleObject(iface
);
572 FIXME("(%p)->(%d, %p)\n", This
, dwWhichMoniker
, pmk
);
576 static HRESULT WINAPI
OleObject_GetMoniker(IOleObject
*iface
, DWORD dwAssign
,
577 DWORD dwWhichMoniker
, LPMONIKER
*ppmk
)
579 WebBrowser
*This
= impl_from_IOleObject(iface
);
580 FIXME("(%p)->(%d, %d, %p)\n", This
, dwAssign
, dwWhichMoniker
, ppmk
);
584 static HRESULT WINAPI
OleObject_InitFromData(IOleObject
*iface
, LPDATAOBJECT pDataObject
,
585 BOOL fCreation
, DWORD dwReserved
)
587 WebBrowser
*This
= impl_from_IOleObject(iface
);
588 FIXME("(%p)->(%p, %d, %d)\n", This
, pDataObject
, fCreation
, dwReserved
);
592 static HRESULT WINAPI
OleObject_GetClipboardData(IOleObject
*iface
, DWORD dwReserved
,
593 LPDATAOBJECT
*ppDataObject
)
595 WebBrowser
*This
= impl_from_IOleObject(iface
);
596 FIXME("(%p)->(%d, %p)\n", This
, dwReserved
, ppDataObject
);
600 static HRESULT WINAPI
OleObject_DoVerb(IOleObject
*iface
, LONG iVerb
, struct tagMSG
* lpmsg
,
601 LPOLECLIENTSITE pActiveSite
, LONG lindex
, HWND hwndParent
, LPCRECT lprcPosRect
)
603 WebBrowser
*This
= impl_from_IOleObject(iface
);
605 TRACE("(%p)->(%d %p %p %d %p %s)\n", This
, iVerb
, lpmsg
, pActiveSite
, lindex
, hwndParent
,
606 wine_dbgstr_rect(lprcPosRect
));
611 TRACE("OLEIVERB_SHOW\n");
612 return activate_ui(This
, pActiveSite
);
613 case OLEIVERB_UIACTIVATE
:
614 TRACE("OLEIVERB_UIACTIVATE\n");
615 return activate_ui(This
, pActiveSite
);
616 case OLEIVERB_INPLACEACTIVATE
:
617 TRACE("OLEIVERB_INPLACEACTIVATE\n");
618 return activate_inplace(This
, pActiveSite
);
620 TRACE("OLEIVERB_HIDE\n");
622 IOleInPlaceSiteEx_OnInPlaceDeactivate(This
->inplace
);
623 if(This
->shell_embedding_hwnd
)
624 ShowWindow(This
->shell_embedding_hwnd
, SW_HIDE
);
627 FIXME("stub for %d\n", iVerb
);
634 static HRESULT WINAPI
OleObject_EnumVerbs(IOleObject
*iface
, IEnumOLEVERB
**ppEnumOleVerb
)
636 WebBrowser
*This
= impl_from_IOleObject(iface
);
639 TRACE("(%p)->(%p)\n", This
, ppEnumOleVerb
);
641 ret
= heap_alloc(sizeof(*ret
));
643 return E_OUTOFMEMORY
;
645 ret
->IEnumOLEVERB_iface
.lpVtbl
= &EnumOLEVERBVtbl
;
649 *ppEnumOleVerb
= &ret
->IEnumOLEVERB_iface
;
653 static HRESULT WINAPI
OleObject_Update(IOleObject
*iface
)
655 WebBrowser
*This
= impl_from_IOleObject(iface
);
656 FIXME("(%p)\n", This
);
660 static HRESULT WINAPI
OleObject_IsUpToDate(IOleObject
*iface
)
662 WebBrowser
*This
= impl_from_IOleObject(iface
);
663 FIXME("(%p)\n", This
);
667 static HRESULT WINAPI
OleObject_GetUserClassID(IOleObject
*iface
, CLSID
* pClsid
)
669 WebBrowser
*This
= impl_from_IOleObject(iface
);
670 FIXME("(%p)->(%p)\n", This
, pClsid
);
674 static HRESULT WINAPI
OleObject_GetUserType(IOleObject
*iface
, DWORD dwFormOfType
,
675 LPOLESTR
* pszUserType
)
677 WebBrowser
*This
= impl_from_IOleObject(iface
);
678 TRACE("(%p, %d, %p)\n", This
, dwFormOfType
, pszUserType
);
679 return OleRegGetUserType(&CLSID_WebBrowser
, dwFormOfType
, pszUserType
);
682 static HRESULT WINAPI
OleObject_SetExtent(IOleObject
*iface
, DWORD dwDrawAspect
, SIZEL
*psizel
)
684 WebBrowser
*This
= impl_from_IOleObject(iface
);
686 TRACE("(%p)->(%x %p)\n", This
, dwDrawAspect
, psizel
);
688 /* Tests show that dwDrawAspect is ignored */
689 This
->extent
= *psizel
;
693 static HRESULT WINAPI
OleObject_GetExtent(IOleObject
*iface
, DWORD dwDrawAspect
, SIZEL
*psizel
)
695 WebBrowser
*This
= impl_from_IOleObject(iface
);
697 TRACE("(%p)->(%x, %p)\n", This
, dwDrawAspect
, psizel
);
699 /* Tests show that dwDrawAspect is ignored */
700 *psizel
= This
->extent
;
704 static HRESULT WINAPI
OleObject_Advise(IOleObject
*iface
, IAdviseSink
*pAdvSink
,
705 DWORD
* pdwConnection
)
707 WebBrowser
*This
= impl_from_IOleObject(iface
);
708 FIXME("(%p)->(%p, %p)\n", This
, pAdvSink
, pdwConnection
);
712 static HRESULT WINAPI
OleObject_Unadvise(IOleObject
*iface
, DWORD dwConnection
)
714 WebBrowser
*This
= impl_from_IOleObject(iface
);
715 FIXME("(%p)->(%d)\n", This
, dwConnection
);
719 static HRESULT WINAPI
OleObject_EnumAdvise(IOleObject
*iface
, IEnumSTATDATA
**ppenumAdvise
)
721 WebBrowser
*This
= impl_from_IOleObject(iface
);
722 FIXME("(%p)->(%p)\n", This
, ppenumAdvise
);
726 static HRESULT WINAPI
OleObject_GetMiscStatus(IOleObject
*iface
, DWORD dwAspect
, DWORD
*pdwStatus
)
728 WebBrowser
*This
= impl_from_IOleObject(iface
);
730 TRACE("(%p)->(%x, %p)\n", This
, dwAspect
, pdwStatus
);
732 *pdwStatus
= OLEMISC_SETCLIENTSITEFIRST
|OLEMISC_ACTIVATEWHENVISIBLE
|OLEMISC_INSIDEOUT
733 |OLEMISC_CANTLINKINSIDE
|OLEMISC_RECOMPOSEONRESIZE
;
738 static HRESULT WINAPI
OleObject_SetColorScheme(IOleObject
*iface
, LOGPALETTE
* pLogpal
)
740 WebBrowser
*This
= impl_from_IOleObject(iface
);
741 FIXME("(%p)->(%p)\n", This
, pLogpal
);
745 static const IOleObjectVtbl OleObjectVtbl
=
747 OleObject_QueryInterface
,
750 OleObject_SetClientSite
,
751 OleObject_GetClientSite
,
752 OleObject_SetHostNames
,
754 OleObject_SetMoniker
,
755 OleObject_GetMoniker
,
756 OleObject_InitFromData
,
757 OleObject_GetClipboardData
,
761 OleObject_IsUpToDate
,
762 OleObject_GetUserClassID
,
763 OleObject_GetUserType
,
768 OleObject_EnumAdvise
,
769 OleObject_GetMiscStatus
,
770 OleObject_SetColorScheme
773 /**********************************************************************
774 * Implement the IOleInPlaceObject interface
777 static inline WebBrowser
*impl_from_IOleInPlaceObject(IOleInPlaceObject
*iface
)
779 return CONTAINING_RECORD(iface
, WebBrowser
, IOleInPlaceObject_iface
);
782 static HRESULT WINAPI
OleInPlaceObject_QueryInterface(IOleInPlaceObject
*iface
,
783 REFIID riid
, LPVOID
*ppobj
)
785 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
786 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppobj
);
789 static ULONG WINAPI
OleInPlaceObject_AddRef(IOleInPlaceObject
*iface
)
791 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
792 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
795 static ULONG WINAPI
OleInPlaceObject_Release(IOleInPlaceObject
*iface
)
797 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
798 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
801 static HRESULT WINAPI
OleInPlaceObject_GetWindow(IOleInPlaceObject
*iface
, HWND
* phwnd
)
803 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
805 TRACE("(%p)->(%p)\n", This
, phwnd
);
807 *phwnd
= This
->shell_embedding_hwnd
;
811 static HRESULT WINAPI
OleInPlaceObject_ContextSensitiveHelp(IOleInPlaceObject
*iface
,
814 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
815 FIXME("(%p)->(%x)\n", This
, fEnterMode
);
819 static HRESULT WINAPI
OleInPlaceObject_InPlaceDeactivate(IOleInPlaceObject
*iface
)
821 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
822 FIXME("(%p)\n", This
);
825 IOleInPlaceSiteEx_Release(This
->inplace
);
826 This
->inplace
= NULL
;
832 static HRESULT WINAPI
OleInPlaceObject_UIDeactivate(IOleInPlaceObject
*iface
)
834 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
835 FIXME("(%p)\n", This
);
839 static HRESULT WINAPI
OleInPlaceObject_SetObjectRects(IOleInPlaceObject
*iface
,
840 LPCRECT lprcPosRect
, LPCRECT lprcClipRect
)
842 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
844 TRACE("(%p)->(%p %p)\n", This
, lprcPosRect
, lprcClipRect
);
846 This
->pos_rect
= *lprcPosRect
;
849 This
->clip_rect
= *lprcClipRect
;
851 if(This
->shell_embedding_hwnd
) {
852 SetWindowPos(This
->shell_embedding_hwnd
, NULL
,
853 lprcPosRect
->left
, lprcPosRect
->top
,
854 lprcPosRect
->right
-lprcPosRect
->left
,
855 lprcPosRect
->bottom
-lprcPosRect
->top
,
856 SWP_NOZORDER
| SWP_NOACTIVATE
);
862 static HRESULT WINAPI
OleInPlaceObject_ReactivateAndUndo(IOleInPlaceObject
*iface
)
864 WebBrowser
*This
= impl_from_IOleInPlaceObject(iface
);
865 FIXME("(%p)\n", This
);
869 static const IOleInPlaceObjectVtbl OleInPlaceObjectVtbl
=
871 OleInPlaceObject_QueryInterface
,
872 OleInPlaceObject_AddRef
,
873 OleInPlaceObject_Release
,
874 OleInPlaceObject_GetWindow
,
875 OleInPlaceObject_ContextSensitiveHelp
,
876 OleInPlaceObject_InPlaceDeactivate
,
877 OleInPlaceObject_UIDeactivate
,
878 OleInPlaceObject_SetObjectRects
,
879 OleInPlaceObject_ReactivateAndUndo
882 /**********************************************************************
883 * Implement the IOleControl interface
886 static inline WebBrowser
*impl_from_IOleControl(IOleControl
*iface
)
888 return CONTAINING_RECORD(iface
, WebBrowser
, IOleControl_iface
);
891 static HRESULT WINAPI
OleControl_QueryInterface(IOleControl
*iface
,
892 REFIID riid
, LPVOID
*ppobj
)
894 WebBrowser
*This
= impl_from_IOleControl(iface
);
895 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppobj
);
898 static ULONG WINAPI
OleControl_AddRef(IOleControl
*iface
)
900 WebBrowser
*This
= impl_from_IOleControl(iface
);
901 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
904 static ULONG WINAPI
OleControl_Release(IOleControl
*iface
)
906 WebBrowser
*This
= impl_from_IOleControl(iface
);
907 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
910 static HRESULT WINAPI
OleControl_GetControlInfo(IOleControl
*iface
, LPCONTROLINFO pCI
)
912 WebBrowser
*This
= impl_from_IOleControl(iface
);
914 TRACE("(%p)->(%p)\n", This
, pCI
);
916 /* Tests show that this function should be not implemented */
920 static HRESULT WINAPI
OleControl_OnMnemonic(IOleControl
*iface
, struct tagMSG
*pMsg
)
922 WebBrowser
*This
= impl_from_IOleControl(iface
);
923 FIXME("(%p)->(%p)\n", This
, pMsg
);
927 static HRESULT WINAPI
OleControl_OnAmbientPropertyChange(IOleControl
*iface
, DISPID dispID
)
929 WebBrowser
*This
= impl_from_IOleControl(iface
);
931 TRACE("(%p)->(%d)\n", This
, dispID
);
935 /* Unknown means multiple properties changed, so check them all.
936 * BUT the Webbrowser OleControl object doesn't appear to do this.
939 case DISPID_AMBIENT_DLCONTROL
:
941 case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
:
942 return on_offlineconnected_change(This
);
943 case DISPID_AMBIENT_SILENT
:
944 return on_silent_change(This
);
947 FIXME("Unknown dispID %d\n", dispID
);
951 static HRESULT WINAPI
OleControl_FreezeEvents(IOleControl
*iface
, BOOL bFreeze
)
953 WebBrowser
*This
= impl_from_IOleControl(iface
);
954 FIXME("(%p)->(%x)\n", This
, bFreeze
);
958 static const IOleControlVtbl OleControlVtbl
=
960 OleControl_QueryInterface
,
963 OleControl_GetControlInfo
,
964 OleControl_OnMnemonic
,
965 OleControl_OnAmbientPropertyChange
,
966 OleControl_FreezeEvents
969 static inline WebBrowser
*impl_from_IOleInPlaceActiveObject(IOleInPlaceActiveObject
*iface
)
971 return CONTAINING_RECORD(iface
, WebBrowser
, IOleInPlaceActiveObject_iface
);
974 static HRESULT WINAPI
InPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject
*iface
,
975 REFIID riid
, void **ppv
)
977 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
978 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
981 static ULONG WINAPI
InPlaceActiveObject_AddRef(IOleInPlaceActiveObject
*iface
)
983 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
984 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
987 static ULONG WINAPI
InPlaceActiveObject_Release(IOleInPlaceActiveObject
*iface
)
989 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
990 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
993 static HRESULT WINAPI
InPlaceActiveObject_GetWindow(IOleInPlaceActiveObject
*iface
,
996 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
997 return IOleInPlaceObject_GetWindow(&This
->IOleInPlaceObject_iface
, phwnd
);
1000 static HRESULT WINAPI
InPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject
*iface
,
1003 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1004 return IOleInPlaceObject_ContextSensitiveHelp(&This
->IOleInPlaceObject_iface
, fEnterMode
);
1007 static HRESULT WINAPI
InPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject
*iface
,
1010 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1011 IOleInPlaceActiveObject
*activeobj
;
1012 HRESULT hr
= S_FALSE
;
1014 TRACE("(%p)->(%p)\n", This
, lpmsg
);
1016 if(This
->doc_host
.document
) {
1017 if(SUCCEEDED(IUnknown_QueryInterface(This
->doc_host
.document
,
1018 &IID_IOleInPlaceActiveObject
,
1019 (void**)&activeobj
))) {
1020 hr
= IOleInPlaceActiveObject_TranslateAccelerator(activeobj
, lpmsg
);
1021 IOleInPlaceActiveObject_Release(activeobj
);
1031 static HRESULT WINAPI
InPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject
*iface
,
1034 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1035 FIXME("(%p)->(%x)\n", This
, fActivate
);
1039 static HRESULT WINAPI
InPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject
*iface
,
1042 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1043 FIXME("(%p)->(%x)\n", This
, fActivate
);
1047 static HRESULT WINAPI
InPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject
*iface
,
1048 LPCRECT lprcBorder
, IOleInPlaceUIWindow
*pUIWindow
, BOOL fFrameWindow
)
1050 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1051 FIXME("(%p)->(%p %p %x)\n", This
, lprcBorder
, pUIWindow
, fFrameWindow
);
1055 static HRESULT WINAPI
InPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject
*iface
,
1058 WebBrowser
*This
= impl_from_IOleInPlaceActiveObject(iface
);
1059 FIXME("(%p)->(%x)\n", This
, fEnable
);
1063 static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl
= {
1064 InPlaceActiveObject_QueryInterface
,
1065 InPlaceActiveObject_AddRef
,
1066 InPlaceActiveObject_Release
,
1067 InPlaceActiveObject_GetWindow
,
1068 InPlaceActiveObject_ContextSensitiveHelp
,
1069 InPlaceActiveObject_TranslateAccelerator
,
1070 InPlaceActiveObject_OnFrameWindowActivate
,
1071 InPlaceActiveObject_OnDocWindowActivate
,
1072 InPlaceActiveObject_ResizeBorder
,
1073 InPlaceActiveObject_EnableModeless
1076 static inline WebBrowser
*impl_from_IOleCommandTarget(IOleCommandTarget
*iface
)
1078 return CONTAINING_RECORD(iface
, WebBrowser
, IOleCommandTarget_iface
);
1081 static HRESULT WINAPI
WBOleCommandTarget_QueryInterface(IOleCommandTarget
*iface
,
1082 REFIID riid
, void **ppv
)
1084 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1085 return IWebBrowser2_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
1088 static ULONG WINAPI
WBOleCommandTarget_AddRef(IOleCommandTarget
*iface
)
1090 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1091 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
1094 static ULONG WINAPI
WBOleCommandTarget_Release(IOleCommandTarget
*iface
)
1096 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1097 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
1100 static HRESULT WINAPI
WBOleCommandTarget_QueryStatus(IOleCommandTarget
*iface
,
1101 const GUID
*pguidCmdGroup
, ULONG cCmds
, OLECMD prgCmds
[], OLECMDTEXT
*pCmdText
)
1103 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1104 IOleCommandTarget
*cmdtrg
;
1107 TRACE("(%p)->(%s %u %p %p)\n", This
, debugstr_guid(pguidCmdGroup
), cCmds
, prgCmds
,
1110 if(!This
->doc_host
.document
)
1113 /* NOTE: There are probably some commands that we should handle here
1114 * instead of forwarding to document object. */
1116 hres
= IUnknown_QueryInterface(This
->doc_host
.document
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
1120 hres
= IOleCommandTarget_QueryStatus(cmdtrg
, pguidCmdGroup
, cCmds
, prgCmds
, pCmdText
);
1121 IOleCommandTarget_Release(cmdtrg
);
1126 static HRESULT WINAPI
WBOleCommandTarget_Exec(IOleCommandTarget
*iface
,
1127 const GUID
*pguidCmdGroup
, DWORD nCmdID
, DWORD nCmdexecopt
, VARIANT
*pvaIn
,
1130 WebBrowser
*This
= impl_from_IOleCommandTarget(iface
);
1131 FIXME("(%p)->(%s %d %d %s %p)\n", This
, debugstr_guid(pguidCmdGroup
), nCmdID
,
1132 nCmdexecopt
, debugstr_variant(pvaIn
), pvaOut
);
1136 static const IOleCommandTargetVtbl OleCommandTargetVtbl
= {
1137 WBOleCommandTarget_QueryInterface
,
1138 WBOleCommandTarget_AddRef
,
1139 WBOleCommandTarget_Release
,
1140 WBOleCommandTarget_QueryStatus
,
1141 WBOleCommandTarget_Exec
1144 void WebBrowser_OleObject_Init(WebBrowser
*This
)
1150 /* default aspect ratio is 96dpi / 96dpi */
1152 dpi_x
= GetDeviceCaps(hdc
, LOGPIXELSX
);
1153 dpi_y
= GetDeviceCaps(hdc
, LOGPIXELSY
);
1156 This
->IOleObject_iface
.lpVtbl
= &OleObjectVtbl
;
1157 This
->IOleInPlaceObject_iface
.lpVtbl
= &OleInPlaceObjectVtbl
;
1158 This
->IOleControl_iface
.lpVtbl
= &OleControlVtbl
;
1159 This
->IOleInPlaceActiveObject_iface
.lpVtbl
= &OleInPlaceActiveObjectVtbl
;
1160 This
->IOleCommandTarget_iface
.lpVtbl
= &OleCommandTargetVtbl
;
1162 /* Default size is 50x20 pixels, in himetric units */
1163 This
->extent
.cx
= MulDiv( 50, 2540, dpi_x
);
1164 This
->extent
.cy
= MulDiv( 20, 2540, dpi_y
);
1167 void WebBrowser_OleObject_Destroy(WebBrowser
*This
)
1169 release_client_site(This
);