| /* |
| * Implementation of IOleObject interfaces for WebBrowser control |
| * |
| * - IOleObject |
| * - IOleInPlaceObject |
| * - IOleControl |
| * |
| * Copyright 2001 John R. Sheets (for CodeWeavers) |
| * Copyright 2005 Jacek Caban |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| |
| #include <string.h> |
| #include "wine/debug.h" |
| #include "shdocvw.h" |
| #include "htiframe.h" |
| #include "idispids.h" |
| #include "mshtmdid.h" |
| |
| WINE_DEFAULT_DEBUG_CHANNEL(shdocvw); |
| |
| /* shlwapi.dll */ |
| HWND WINAPI SHSetParentHwnd(HWND hWnd, HWND hWndParent); |
| |
| static ATOM shell_embedding_atom = 0; |
| |
| static LRESULT resize_window(WebBrowser *This, LONG width, LONG height) |
| { |
| if(This->doc_host.hwnd) |
| SetWindowPos(This->doc_host.hwnd, NULL, 0, 0, width, height, |
| SWP_NOZORDER | SWP_NOACTIVATE); |
| |
| return 0; |
| } |
| |
| static LRESULT WINAPI shell_embedding_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) |
| { |
| WebBrowser *This; |
| |
| static const WCHAR wszTHIS[] = {'T','H','I','S',0}; |
| |
| if(msg == WM_CREATE) { |
| This = *(WebBrowser**)lParam; |
| SetPropW(hwnd, wszTHIS, This); |
| }else { |
| This = GetPropW(hwnd, wszTHIS); |
| } |
| |
| switch(msg) { |
| case WM_SIZE: |
| return resize_window(This, LOWORD(lParam), HIWORD(lParam)); |
| case WM_DOCHOSTTASK: |
| return process_dochost_task(&This->doc_host, lParam); |
| } |
| |
| return DefWindowProcW(hwnd, msg, wParam, lParam); |
| } |
| |
| static void create_shell_embedding_hwnd(WebBrowser *This) |
| { |
| IOleInPlaceSite *inplace; |
| HWND parent = NULL; |
| HRESULT hres; |
| |
| static const WCHAR wszShellEmbedding[] = |
| {'S','h','e','l','l',' ','E','m','b','e','d','d','i','n','g',0}; |
| |
| if(!shell_embedding_atom) { |
| static WNDCLASSEXW wndclass = { |
| sizeof(wndclass), |
| CS_DBLCLKS, |
| shell_embedding_proc, |
| 0, 0 /* native uses 8 */, NULL, NULL, NULL, |
| (HBRUSH)(COLOR_WINDOW + 1), NULL, |
| wszShellEmbedding, |
| NULL |
| }; |
| wndclass.hInstance = shdocvw_hinstance; |
| |
| RegisterClassExW(&wndclass); |
| } |
| |
| hres = IOleClientSite_QueryInterface(This->client, &IID_IOleInPlaceSite, (void**)&inplace); |
| if(SUCCEEDED(hres)) { |
| IOleInPlaceSite_GetWindow(inplace, &parent); |
| IOleInPlaceSite_Release(inplace); |
| } |
| |
| This->doc_host.frame_hwnd = This->shell_embedding_hwnd = CreateWindowExW( |
| WS_EX_WINDOWEDGE, |
| wszShellEmbedding, wszShellEmbedding, |
| WS_CLIPSIBLINGS | WS_CLIPCHILDREN |
| | (parent ? WS_CHILD | WS_TABSTOP : WS_POPUP | WS_MAXIMIZEBOX), |
| 0, 0, 0, 0, parent, |
| NULL, shdocvw_hinstance, This); |
| |
| TRACE("parent=%p hwnd=%p\n", parent, This->shell_embedding_hwnd); |
| } |
| |
| static HRESULT activate_inplace(WebBrowser *This, IOleClientSite *active_site) |
| { |
| HWND parent_hwnd; |
| HRESULT hres; |
| |
| if(This->inplace) |
| return S_OK; |
| |
| if(!active_site) |
| return E_INVALIDARG; |
| |
| hres = IOleClientSite_QueryInterface(active_site, &IID_IOleInPlaceSite, |
| (void**)&This->inplace); |
| if(FAILED(hres)) { |
| WARN("Could not get IOleInPlaceSite\n"); |
| return hres; |
| } |
| |
| hres = IOleInPlaceSite_CanInPlaceActivate(This->inplace); |
| if(hres != S_OK) { |
| WARN("CanInPlaceActivate returned: %08x\n", hres); |
| IOleInPlaceSite_Release(This->inplace); |
| return E_FAIL; |
| } |
| |
| hres = IOleInPlaceSite_GetWindow(This->inplace, &parent_hwnd); |
| if(SUCCEEDED(hres)) |
| SHSetParentHwnd(This->shell_embedding_hwnd, parent_hwnd); |
| |
| IOleInPlaceSite_OnInPlaceActivate(This->inplace); |
| |
| IOleInPlaceSite_GetWindowContext(This->inplace, &This->doc_host.frame, &This->uiwindow, |
| &This->pos_rect, &This->clip_rect, |
| &This->frameinfo); |
| |
| SetWindowPos(This->shell_embedding_hwnd, NULL, |
| This->pos_rect.left, This->pos_rect.top, |
| This->pos_rect.right-This->pos_rect.left, |
| This->pos_rect.bottom-This->pos_rect.top, |
| SWP_NOZORDER | SWP_SHOWWINDOW); |
| |
| if(This->client) { |
| IOleContainer *container; |
| |
| IOleClientSite_ShowObject(This->client); |
| |
| hres = IOleClientSite_GetContainer(This->client, &container); |
| if(SUCCEEDED(hres)) { |
| if(This->container) |
| IOleContainer_Release(This->container); |
| This->container = container; |
| } |
| } |
| |
| if(This->doc_host.frame) |
| IOleInPlaceFrame_GetWindow(This->doc_host.frame, &This->frame_hwnd); |
| |
| return S_OK; |
| } |
| |
| static HRESULT activate_ui(WebBrowser *This, IOleClientSite *active_site) |
| { |
| HRESULT hres; |
| |
| static const WCHAR wszitem[] = {'i','t','e','m',0}; |
| |
| if(This->inplace) |
| { |
| if(This->shell_embedding_hwnd) |
| ShowWindow(This->shell_embedding_hwnd, SW_SHOW); |
| return S_OK; |
| } |
| |
| hres = activate_inplace(This, active_site); |
| if(FAILED(hres)) |
| return hres; |
| |
| IOleInPlaceSite_OnUIActivate(This->inplace); |
| |
| if(This->doc_host.frame) |
| IOleInPlaceFrame_SetActiveObject(This->doc_host.frame, ACTIVEOBJ(This), wszitem); |
| if(This->uiwindow) |
| IOleInPlaceUIWindow_SetActiveObject(This->uiwindow, ACTIVEOBJ(This), wszitem); |
| |
| if(This->doc_host.frame) |
| IOleInPlaceFrame_SetMenu(This->doc_host.frame, NULL, NULL, This->shell_embedding_hwnd); |
| |
| SetFocus(This->shell_embedding_hwnd); |
| |
| return S_OK; |
| } |
| |
| static HRESULT get_client_disp_property(IOleClientSite *client, DISPID dispid, VARIANT *res) |
| { |
| IDispatch *disp = NULL; |
| DISPPARAMS dispparams = {NULL, 0}; |
| HRESULT hres; |
| |
| VariantInit(res); |
| |
| if(!client) |
| return S_OK; |
| |
| hres = IOleClientSite_QueryInterface(client, &IID_IDispatch, (void**)&disp); |
| if(FAILED(hres)) { |
| TRACE("Could not get IDispatch\n"); |
| return hres; |
| } |
| |
| hres = IDispatch_Invoke(disp, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT, |
| DISPATCH_PROPERTYGET, &dispparams, res, NULL, NULL); |
| |
| IDispatch_Release(disp); |
| |
| return hres; |
| } |
| |
| static HRESULT on_offlineconnected_change(WebBrowser *This) |
| { |
| VARIANT offline; |
| |
| get_client_disp_property(This->client, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED, &offline); |
| |
| if(V_VT(&offline) == VT_BOOL) |
| IWebBrowser2_put_Offline(WEBBROWSER2(This), V_BOOL(&offline)); |
| else if(V_VT(&offline) != VT_EMPTY) |
| WARN("wrong V_VT(silent) %d\n", V_VT(&offline)); |
| |
| return S_OK; |
| } |
| |
| static HRESULT on_silent_change(WebBrowser *This) |
| { |
| VARIANT silent; |
| |
| get_client_disp_property(This->client, DISPID_AMBIENT_SILENT, &silent); |
| |
| if(V_VT(&silent) == VT_BOOL) |
| IWebBrowser2_put_Silent(WEBBROWSER2(This), V_BOOL(&silent)); |
| else if(V_VT(&silent) != VT_EMPTY) |
| WARN("wrong V_VT(silent) %d\n", V_VT(&silent)); |
| |
| return S_OK; |
| } |
| |
| /********************************************************************** |
| * Implement the IOleObject interface for the WebBrowser control |
| */ |
| |
| #define OLEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleObject, iface) |
| |
| static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppv) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppv); |
| } |
| |
| static ULONG WINAPI OleObject_AddRef(IOleObject *iface) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| return IWebBrowser_AddRef(WEBBROWSER(This)); |
| } |
| |
| static ULONG WINAPI OleObject_Release(IOleObject *iface) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| return IWebBrowser_Release(WEBBROWSER(This)); |
| } |
| |
| static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, LPOLECLIENTSITE pClientSite) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| IOleContainer *container; |
| HRESULT hres; |
| |
| TRACE("(%p)->(%p)\n", This, pClientSite); |
| |
| if(This->client == pClientSite) |
| return S_OK; |
| |
| if(This->doc_host.hwnd) { |
| DestroyWindow(This->doc_host.hwnd); |
| This->doc_host.hwnd = NULL; |
| } |
| if(This->shell_embedding_hwnd) { |
| DestroyWindow(This->shell_embedding_hwnd); |
| This->shell_embedding_hwnd = NULL; |
| } |
| |
| if(This->inplace) { |
| IOleInPlaceSite_Release(This->inplace); |
| This->inplace = NULL; |
| } |
| |
| if(This->doc_host.hostui) { |
| IDocHostUIHandler_Release(This->doc_host.hostui); |
| This->doc_host.hostui = NULL; |
| } |
| |
| if(This->client) |
| IOleClientSite_Release(This->client); |
| |
| This->client = pClientSite; |
| |
| if(!pClientSite) { |
| if(This->doc_host.document) |
| deactivate_document(&This->doc_host); |
| return S_OK; |
| } |
| |
| IOleClientSite_AddRef(pClientSite); |
| |
| IOleClientSite_QueryInterface(This->client, &IID_IDispatch, |
| (void**)&This->doc_host.client_disp); |
| |
| IOleClientSite_QueryInterface(This->client, &IID_IDocHostUIHandler, |
| (void**)&This->doc_host.hostui); |
| |
| hres = IOleClientSite_GetContainer(This->client, &container); |
| if(SUCCEEDED(hres)) { |
| ITargetContainer *target_container; |
| |
| hres = IOleContainer_QueryInterface(container, &IID_ITargetContainer, |
| (void**)&target_container); |
| if(SUCCEEDED(hres)) { |
| FIXME("Unsupported ITargetContainer\n"); |
| ITargetContainer_Release(target_container); |
| } |
| |
| IOleContainer_Release(container); |
| } |
| |
| create_shell_embedding_hwnd(This); |
| |
| on_offlineconnected_change(This); |
| on_silent_change(This); |
| |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, LPOLECLIENTSITE *ppClientSite) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%p)\n", This, ppClientSite); |
| |
| if(!ppClientSite) |
| return E_INVALIDARG; |
| |
| if(This->client) |
| IOleClientSite_AddRef(This->client); |
| *ppClientSite = This->client; |
| |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, |
| LPCOLESTR szContainerObj) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%s, %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj)); |
| |
| /* We have nothing to do here. */ |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%d)\n", This, dwSaveOption); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker* pmk) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%d, %p)\n", This, dwWhichMoniker, pmk); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, |
| DWORD dwWhichMoniker, LPMONIKER *ppmk) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%d, %d, %p)\n", This, dwAssign, dwWhichMoniker, ppmk); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, LPDATAOBJECT pDataObject, |
| BOOL fCreation, DWORD dwReserved) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%p, %d, %d)\n", This, pDataObject, fCreation, dwReserved); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, |
| LPDATAOBJECT *ppDataObject) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%d, %p)\n", This, dwReserved, ppDataObject); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, struct tagMSG* lpmsg, |
| LPOLECLIENTSITE pActiveSite, LONG lindex, HWND hwndParent, LPCRECT lprcPosRect) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%d %p %p %d %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent, |
| lprcPosRect); |
| |
| switch (iVerb) |
| { |
| case OLEIVERB_SHOW: |
| TRACE("OLEIVERB_SHOW\n"); |
| return activate_ui(This, pActiveSite); |
| case OLEIVERB_UIACTIVATE: |
| TRACE("OLEIVERB_UIACTIVATE\n"); |
| return activate_ui(This, pActiveSite); |
| case OLEIVERB_INPLACEACTIVATE: |
| TRACE("OLEIVERB_INPLACEACTIVATE\n"); |
| return activate_inplace(This, pActiveSite); |
| case OLEIVERB_HIDE: |
| TRACE("OLEIVERB_HIDE\n"); |
| if(This->shell_embedding_hwnd) |
| ShowWindow(This->shell_embedding_hwnd, SW_HIDE); |
| return S_OK; |
| default: |
| FIXME("stub for %d\n", iVerb); |
| break; |
| } |
| |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| TRACE("(%p)->(%p)\n", This, ppEnumOleVerb); |
| return OleRegEnumVerbs(&CLSID_WebBrowser, ppEnumOleVerb); |
| } |
| |
| static HRESULT WINAPI OleObject_Update(IOleObject *iface) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)\n", This); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)\n", This); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID* pClsid) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%p)\n", This, pClsid); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, |
| LPOLESTR* pszUserType) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| TRACE("(%p, %d, %p)\n", This, dwFormOfType, pszUserType); |
| return OleRegGetUserType(&CLSID_WebBrowser, dwFormOfType, pszUserType); |
| } |
| |
| static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%x %p)\n", This, dwDrawAspect, psizel); |
| |
| /* Tests show that dwDrawAspect is ignored */ |
| This->extent = *psizel; |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%x, %p)\n", This, dwDrawAspect, psizel); |
| |
| /* Tests show that dwDrawAspect is ignored */ |
| *psizel = This->extent; |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, |
| DWORD* pdwConnection) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%p, %p)\n", This, pAdvSink, pdwConnection); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%d)\n", This, dwConnection); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%p)\n", This, ppenumAdvise); |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%x, %p)\n", This, dwAspect, pdwStatus); |
| |
| *pdwStatus = OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|OLEMISC_INSIDEOUT |
| |OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE; |
| |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE* pLogpal) |
| { |
| WebBrowser *This = OLEOBJ_THIS(iface); |
| FIXME("(%p)->(%p)\n", This, pLogpal); |
| return E_NOTIMPL; |
| } |
| |
| #undef OLEOBJ_THIS |
| |
| static const IOleObjectVtbl OleObjectVtbl = |
| { |
| OleObject_QueryInterface, |
| OleObject_AddRef, |
| OleObject_Release, |
| OleObject_SetClientSite, |
| OleObject_GetClientSite, |
| OleObject_SetHostNames, |
| OleObject_Close, |
| OleObject_SetMoniker, |
| OleObject_GetMoniker, |
| OleObject_InitFromData, |
| OleObject_GetClipboardData, |
| OleObject_DoVerb, |
| OleObject_EnumVerbs, |
| OleObject_Update, |
| OleObject_IsUpToDate, |
| OleObject_GetUserClassID, |
| OleObject_GetUserType, |
| OleObject_SetExtent, |
| OleObject_GetExtent, |
| OleObject_Advise, |
| OleObject_Unadvise, |
| OleObject_EnumAdvise, |
| OleObject_GetMiscStatus, |
| OleObject_SetColorScheme |
| }; |
| |
| /********************************************************************** |
| * Implement the IOleInPlaceObject interface |
| */ |
| |
| #define INPLACEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleInPlaceObject, iface) |
| |
| static HRESULT WINAPI OleInPlaceObject_QueryInterface(IOleInPlaceObject *iface, |
| REFIID riid, LPVOID *ppobj) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppobj); |
| } |
| |
| static ULONG WINAPI OleInPlaceObject_AddRef(IOleInPlaceObject *iface) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| return IWebBrowser_AddRef(WEBBROWSER(This)); |
| } |
| |
| static ULONG WINAPI OleInPlaceObject_Release(IOleInPlaceObject *iface) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| return IWebBrowser_Release(WEBBROWSER(This)); |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_GetWindow(IOleInPlaceObject *iface, HWND* phwnd) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%p)\n", This, phwnd); |
| |
| *phwnd = This->shell_embedding_hwnd; |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_ContextSensitiveHelp(IOleInPlaceObject *iface, |
| BOOL fEnterMode) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| FIXME("(%p)->(%x)\n", This, fEnterMode); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_InPlaceDeactivate(IOleInPlaceObject *iface) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| FIXME("(%p)\n", This); |
| |
| if(This->inplace) { |
| IOleInPlaceSite_Release(This->inplace); |
| This->inplace = NULL; |
| } |
| |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_UIDeactivate(IOleInPlaceObject *iface) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| FIXME("(%p)\n", This); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_SetObjectRects(IOleInPlaceObject *iface, |
| LPCRECT lprcPosRect, LPCRECT lprcClipRect) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| |
| TRACE("(%p)->(%p %p)\n", This, lprcPosRect, lprcClipRect); |
| |
| This->pos_rect = *lprcPosRect; |
| |
| if(lprcClipRect) |
| This->clip_rect = *lprcClipRect; |
| |
| if(This->shell_embedding_hwnd) { |
| SetWindowPos(This->shell_embedding_hwnd, NULL, |
| lprcPosRect->left, lprcPosRect->top, |
| lprcPosRect->right-lprcPosRect->left, |
| lprcPosRect->bottom-lprcPosRect->top, |
| SWP_NOZORDER | SWP_NOACTIVATE); |
| } |
| |
| return S_OK; |
| } |
| |
| static HRESULT WINAPI OleInPlaceObject_ReactivateAndUndo(IOleInPlaceObject *iface) |
| { |
| WebBrowser *This = INPLACEOBJ_THIS(iface); |
| FIXME("(%p)\n", This); |
| return E_NOTIMPL; |
| } |
| |
| #undef INPLACEOBJ_THIS |
| |
| static const IOleInPlaceObjectVtbl OleInPlaceObjectVtbl = |
| { |
| OleInPlaceObject_QueryInterface, |
| OleInPlaceObject_AddRef, |
| OleInPlaceObject_Release, |
| OleInPlaceObject_GetWindow, |
| OleInPlaceObject_ContextSensitiveHelp, |
| OleInPlaceObject_InPlaceDeactivate, |
| OleInPlaceObject_UIDeactivate, |
| OleInPlaceObject_SetObjectRects, |
| OleInPlaceObject_ReactivateAndUndo |
| }; |
| |
| /********************************************************************** |
| * Implement the IOleControl interface |
| */ |
| |
| #define CONTROL_THIS(iface) DEFINE_THIS(WebBrowser, OleControl, iface) |
| |
| static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface, |
| REFIID riid, LPVOID *ppobj) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppobj); |
| } |
| |
| static ULONG WINAPI OleControl_AddRef(IOleControl *iface) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| return IWebBrowser_AddRef(WEBBROWSER(This)); |
| } |
| |
| static ULONG WINAPI OleControl_Release(IOleControl *iface) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| return IWebBrowser_Release(WEBBROWSER(This)); |
| } |
| |
| static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, LPCONTROLINFO pCI) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| |
| TRACE("(%p)->(%p)\n", This, pCI); |
| |
| /* Tests show that this function should be not implemented */ |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, struct tagMSG *pMsg) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| FIXME("(%p)->(%p)\n", This, pMsg); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispID) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| |
| TRACE("(%p)->(%d)\n", This, dispID); |
| |
| switch(dispID) { |
| case DISPID_UNKNOWN: |
| /* Unknown means multiple properties changed, so check them all. |
| * BUT the Webbrowser OleControl object doesn't appear to do this. |
| */ |
| return S_OK; |
| case DISPID_AMBIENT_DLCONTROL: |
| return S_OK; |
| case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED: |
| return on_offlineconnected_change(This); |
| case DISPID_AMBIENT_SILENT: |
| return on_silent_change(This); |
| } |
| |
| FIXME("Unknown dispID %d\n", dispID); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze) |
| { |
| WebBrowser *This = CONTROL_THIS(iface); |
| FIXME("(%p)->(%x)\n", This, bFreeze); |
| return E_NOTIMPL; |
| } |
| |
| #undef CONTROL_THIS |
| |
| static const IOleControlVtbl OleControlVtbl = |
| { |
| OleControl_QueryInterface, |
| OleControl_AddRef, |
| OleControl_Release, |
| OleControl_GetControlInfo, |
| OleControl_OnMnemonic, |
| OleControl_OnAmbientPropertyChange, |
| OleControl_FreezeEvents |
| }; |
| |
| #define ACTIVEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleInPlaceActiveObject, iface) |
| |
| static HRESULT WINAPI InPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject *iface, |
| REFIID riid, void **ppv) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| return IWebBrowser2_QueryInterface(WEBBROWSER2(This), riid, ppv); |
| } |
| |
| static ULONG WINAPI InPlaceActiveObject_AddRef(IOleInPlaceActiveObject *iface) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| return IWebBrowser2_AddRef(WEBBROWSER2(This)); |
| } |
| |
| static ULONG WINAPI InPlaceActiveObject_Release(IOleInPlaceActiveObject *iface) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| return IWebBrowser2_Release(WEBBROWSER2(This)); |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_GetWindow(IOleInPlaceActiveObject *iface, |
| HWND *phwnd) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| return IOleInPlaceObject_GetWindow(INPLACEOBJ(This), phwnd); |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject *iface, |
| BOOL fEnterMode) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| return IOleInPlaceObject_ContextSensitiveHelp(INPLACEOBJ(This), fEnterMode); |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject *iface, |
| LPMSG lpmsg) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| FIXME("(%p)->(%p)\n", This, lpmsg); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject *iface, |
| BOOL fActivate) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| FIXME("(%p)->(%x)\n", This, fActivate); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject *iface, |
| BOOL fActivate) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| FIXME("(%p)->(%x)\n", This, fActivate); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject *iface, |
| LPCRECT lprcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fFrameWindow) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| FIXME("(%p)->(%p %p %x)\n", This, lprcBorder, pUIWindow, fFrameWindow); |
| return E_NOTIMPL; |
| } |
| |
| static HRESULT WINAPI InPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject *iface, |
| BOOL fEnable) |
| { |
| WebBrowser *This = ACTIVEOBJ_THIS(iface); |
| FIXME("(%p)->(%x)\n", This, fEnable); |
| return E_NOTIMPL; |
| } |
| |
| #undef ACTIVEOBJ_THIS |
| |
| static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl = { |
| InPlaceActiveObject_QueryInterface, |
| InPlaceActiveObject_AddRef, |
| InPlaceActiveObject_Release, |
| InPlaceActiveObject_GetWindow, |
| InPlaceActiveObject_ContextSensitiveHelp, |
| InPlaceActiveObject_TranslateAccelerator, |
| InPlaceActiveObject_OnFrameWindowActivate, |
| InPlaceActiveObject_OnDocWindowActivate, |
| InPlaceActiveObject_ResizeBorder, |
| InPlaceActiveObject_EnableModeless |
| }; |
| |
| #define OLECMD_THIS(iface) DEFINE_THIS(WebBrowser, OleCommandTarget, iface) |
| |
| static HRESULT WINAPI WBOleCommandTarget_QueryInterface(IOleCommandTarget *iface, |
| REFIID riid, void **ppv) |
| { |
| WebBrowser *This = OLECMD_THIS(iface); |
| return IWebBrowser2_QueryInterface(WEBBROWSER(This), riid, ppv); |
| } |
| |
| static ULONG WINAPI WBOleCommandTarget_AddRef(IOleCommandTarget *iface) |
| { |
| WebBrowser *This = OLECMD_THIS(iface); |
| return IWebBrowser2_AddRef(WEBBROWSER(This)); |
| } |
| |
| static ULONG WINAPI WBOleCommandTarget_Release(IOleCommandTarget *iface) |
| { |
| WebBrowser *This = OLECMD_THIS(iface); |
| return IWebBrowser2_Release(WEBBROWSER(This)); |
| } |
| |
| static HRESULT WINAPI WBOleCommandTarget_QueryStatus(IOleCommandTarget *iface, |
| const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText) |
| { |
| WebBrowser *This = OLECMD_THIS(iface); |
| IOleCommandTarget *cmdtrg; |
| HRESULT hres; |
| |
| TRACE("(%p)->(%s %u %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds, |
| pCmdText); |
| |
| if(!This->doc_host.document) |
| return 0x80040104; |
| |
| /* NOTE: There are probably some commands that we should handle here |
| * instead of forwarding to document object. */ |
| |
| hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (void**)&cmdtrg); |
| if(FAILED(hres)) |
| return hres; |
| |
| hres = IOleCommandTarget_QueryStatus(cmdtrg, pguidCmdGroup, cCmds, prgCmds, pCmdText); |
| IOleCommandTarget_Release(cmdtrg); |
| |
| return hres; |
| } |
| |
| static HRESULT WINAPI WBOleCommandTarget_Exec(IOleCommandTarget *iface, |
| const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, |
| VARIANT *pvaOut) |
| { |
| WebBrowser *This = OLECMD_THIS(iface); |
| FIXME("(%p)->(%s %d %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID, |
| nCmdexecopt, pvaIn, pvaOut); |
| return E_NOTIMPL; |
| } |
| |
| #undef OLECMD_THIS |
| |
| static const IOleCommandTargetVtbl OleCommandTargetVtbl = { |
| WBOleCommandTarget_QueryInterface, |
| WBOleCommandTarget_AddRef, |
| WBOleCommandTarget_Release, |
| WBOleCommandTarget_QueryStatus, |
| WBOleCommandTarget_Exec |
| }; |
| |
| void WebBrowser_OleObject_Init(WebBrowser *This) |
| { |
| DWORD dpi_x; |
| DWORD dpi_y; |
| HDC hdc; |
| |
| /* default aspect ratio is 96dpi / 96dpi */ |
| hdc = GetDC(0); |
| dpi_x = GetDeviceCaps(hdc, LOGPIXELSX); |
| dpi_y = GetDeviceCaps(hdc, LOGPIXELSY); |
| ReleaseDC(0, hdc); |
| |
| This->lpOleObjectVtbl = &OleObjectVtbl; |
| This->lpOleInPlaceObjectVtbl = &OleInPlaceObjectVtbl; |
| This->lpOleControlVtbl = &OleControlVtbl; |
| This->lpOleInPlaceActiveObjectVtbl = &OleInPlaceActiveObjectVtbl; |
| This->lpOleCommandTargetVtbl = &OleCommandTargetVtbl; |
| |
| This->client = NULL; |
| This->inplace = NULL; |
| This->container = NULL; |
| This->frame_hwnd = NULL; |
| This->uiwindow = NULL; |
| This->shell_embedding_hwnd = NULL; |
| |
| memset(&This->pos_rect, 0, sizeof(RECT)); |
| memset(&This->clip_rect, 0, sizeof(RECT)); |
| memset(&This->frameinfo, 0, sizeof(OLEINPLACEFRAMEINFO)); |
| |
| /* Default size is 50x20 pixels, in himetric units */ |
| This->extent.cx = MulDiv( 50, 2540, dpi_x ); |
| This->extent.cy = MulDiv( 20, 2540, dpi_y ); |
| } |
| |
| void WebBrowser_OleObject_Destroy(WebBrowser *This) |
| { |
| if(This->client) |
| IOleObject_SetClientSite(OLEOBJ(This), NULL); |
| if(This->container) |
| IOleContainer_Release(This->container); |
| if(This->uiwindow) |
| IOleInPlaceUIWindow_Release(This->uiwindow); |
| } |