1 /*
2 * Implementation of IOleObject interfaces for WebBrowser control
3 *
4 * - IOleObject
5 * - IOleInPlaceObject
6 * - IOleControl
7 *
8 * Copyright 2001 John R. Sheets (for CodeWeavers)
9 * Copyright 2005 Jacek Caban
10 *
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.
15 *
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.
20 *
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
24 */
25
26 #include <string.h>
27 #include "wine/debug.h"
28 #include "shdocvw.h"
29 #include "htiframe.h"
30 #include "idispids.h"
31 #include "mshtmdid.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
34
35 /* shlwapi.dll */
36 HWND WINAPI SHSetParentHwnd(HWND hWnd, HWND hWndParent);
37
38 static ATOM shell_embedding_atom = 0;
39
40 static LRESULT resize_window(WebBrowser *This, LONG width, LONG height)
41 {
42 if(This->doc_host.hwnd)
43 SetWindowPos(This->doc_host.hwnd, NULL, 0, 0, width, height,
44 SWP_NOZORDER | SWP_NOACTIVATE);
45
46 return 0;
47 }
48
49 static LRESULT WINAPI shell_embedding_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
50 {
51 WebBrowser *This;
52
53 static const WCHAR wszTHIS[] = {'T','H','I','S',0};
54
55 if(msg == WM_CREATE) {
56 This = *(WebBrowser**)lParam;
57 SetPropW(hwnd, wszTHIS, This);
58 }else {
59 This = GetPropW(hwnd, wszTHIS);
60 }
61
62 switch(msg) {
63 case WM_SIZE:
64 return resize_window(This, LOWORD(lParam), HIWORD(lParam));
65 case WM_DOCHOSTTASK:
66 return process_dochost_task(&This->doc_host, lParam);
67 }
68
69 return DefWindowProcW(hwnd, msg, wParam, lParam);
70 }
71
72 static void create_shell_embedding_hwnd(WebBrowser *This)
73 {
74 IOleInPlaceSite *inplace;
75 HWND parent = NULL;
76 HRESULT hres;
77
78 static const WCHAR wszShellEmbedding[] =
79 {'S','h','e','l','l',' ','E','m','b','e','d','d','i','n','g',0};
80
81 if(!shell_embedding_atom) {
82 static WNDCLASSEXW wndclass = {
83 sizeof(wndclass),
84 CS_DBLCLKS,
85 shell_embedding_proc,
86 0, 0 /* native uses 8 */, NULL, NULL, NULL,
87 (HBRUSH)(COLOR_WINDOW + 1), NULL,
88 wszShellEmbedding,
89 NULL
90 };
91 wndclass.hInstance = shdocvw_hinstance;
92
93 RegisterClassExW(&wndclass);
94 }
95
96 hres = IOleClientSite_QueryInterface(This->client, &IID_IOleInPlaceSite, (void**)&inplace);
97 if(SUCCEEDED(hres)) {
98 IOleInPlaceSite_GetWindow(inplace, &parent);
99 IOleInPlaceSite_Release(inplace);
100 }
101
102 This->doc_host.frame_hwnd = This->shell_embedding_hwnd = CreateWindowExW(
103 WS_EX_WINDOWEDGE,
104 wszShellEmbedding, wszShellEmbedding,
105 WS_CLIPSIBLINGS | WS_CLIPCHILDREN
106 | (parent ? WS_CHILD | WS_TABSTOP : WS_POPUP | WS_MAXIMIZEBOX),
107 0, 0, 0, 0, parent,
108 NULL, shdocvw_hinstance, This);
109
110 TRACE("parent=%p hwnd=%p\n", parent, This->shell_embedding_hwnd);
111 }
112
113 static HRESULT activate_inplace(WebBrowser *This, IOleClientSite *active_site)
114 {
115 HWND parent_hwnd;
116 HRESULT hres;
117
118 if(This->inplace)
119 return S_OK;
120
121 if(!active_site)
122 return E_INVALIDARG;
123
124 hres = IOleClientSite_QueryInterface(active_site, &IID_IOleInPlaceSite,
125 (void**)&This->inplace);
126 if(FAILED(hres)) {
127 WARN("Could not get IOleInPlaceSite\n");
128 return hres;
129 }
130
131 hres = IOleInPlaceSite_CanInPlaceActivate(This->inplace);
132 if(hres != S_OK) {
133 WARN("CanInPlaceActivate returned: %08x\n", hres);
134 IOleInPlaceSite_Release(This->inplace);
135 return E_FAIL;
136 }
137
138 hres = IOleInPlaceSite_GetWindow(This->inplace, &parent_hwnd);
139 if(SUCCEEDED(hres))
140 SHSetParentHwnd(This->shell_embedding_hwnd, parent_hwnd);
141
142 IOleInPlaceSite_OnInPlaceActivate(This->inplace);
143
144 IOleInPlaceSite_GetWindowContext(This->inplace, &This->doc_host.frame, &This->uiwindow,
145 &This->pos_rect, &This->clip_rect,
146 &This->frameinfo);
147
148 SetWindowPos(This->shell_embedding_hwnd, NULL,
149 This->pos_rect.left, This->pos_rect.top,
150 This->pos_rect.right-This->pos_rect.left,
151 This->pos_rect.bottom-This->pos_rect.top,
152 SWP_NOZORDER | SWP_SHOWWINDOW);
153
154 if(This->client) {
155 IOleClientSite_ShowObject(This->client);
156 IOleClientSite_GetContainer(This->client, &This->container);
157 }
158
159 if(This->doc_host.frame)
160 IOleInPlaceFrame_GetWindow(This->doc_host.frame, &This->frame_hwnd);
161
162 return S_OK;
163 }
164
165 static HRESULT activate_ui(WebBrowser *This, IOleClientSite *active_site)
166 {
167 HRESULT hres;
168
169 static const WCHAR wszitem[] = {'i','t','e','m',0};
170
171 if(This->inplace)
172 {
173 if(This->shell_embedding_hwnd)
174 ShowWindow(This->shell_embedding_hwnd, SW_SHOW);
175 return S_OK;
176 }
177
178 hres = activate_inplace(This, active_site);
179 if(FAILED(hres))
180 return hres;
181
182 IOleInPlaceSite_OnUIActivate(This->inplace);
183
184 if(This->doc_host.frame)
185 IOleInPlaceFrame_SetActiveObject(This->doc_host.frame, ACTIVEOBJ(This), wszitem);
186 if(This->uiwindow)
187 IOleInPlaceUIWindow_SetActiveObject(This->uiwindow, ACTIVEOBJ(This), wszitem);
188
189 if(This->doc_host.frame)
190 IOleInPlaceFrame_SetMenu(This->doc_host.frame, NULL, NULL, This->shell_embedding_hwnd);
191
192 SetFocus(This->shell_embedding_hwnd);
193
194 return S_OK;
195 }
196
197 static HRESULT get_client_disp_property(IOleClientSite *client, DISPID dispid, VARIANT *res)
198 {
199 IDispatch *disp = NULL;
200 DISPPARAMS dispparams = {NULL, 0};
201 HRESULT hres;
202
203 VariantInit(res);
204
205 if(!client)
206 return S_OK;
207
208 hres = IOleClientSite_QueryInterface(client, &IID_IDispatch, (void**)&disp);
209 if(FAILED(hres)) {
210 TRACE("Could not get IDispatch\n");
211 return hres;
212 }
213
214 hres = IDispatch_Invoke(disp, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
215 DISPATCH_PROPERTYGET, &dispparams, res, NULL, NULL);
216
217 IDispatch_Release(disp);
218
219 return hres;
220 }
221
222 static HRESULT on_offlineconnected_change(WebBrowser *This)
223 {
224 VARIANT offline;
225
226 get_client_disp_property(This->client, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED, &offline);
227
228 if(V_VT(&offline) == VT_BOOL)
229 IWebBrowser2_put_Offline(WEBBROWSER2(This), V_BOOL(&offline));
230 else if(V_VT(&offline) != VT_EMPTY)
231 WARN("wrong V_VT(silent) %d\n", V_VT(&offline));
232
233 return S_OK;
234 }
235
236 static HRESULT on_silent_change(WebBrowser *This)
237 {
238 VARIANT silent;
239
240 get_client_disp_property(This->client, DISPID_AMBIENT_SILENT, &silent);
241
242 if(V_VT(&silent) == VT_BOOL)
243 IWebBrowser2_put_Silent(WEBBROWSER2(This), V_BOOL(&silent));
244 else if(V_VT(&silent) != VT_EMPTY)
245 WARN("wrong V_VT(silent) %d\n", V_VT(&silent));
246
247 return S_OK;
248 }
249
250 /**********************************************************************
251 * Implement the IOleObject interface for the WebBrowser control
252 */
253
254 #define OLEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleObject, iface)
255
256 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppv)
257 {
258 WebBrowser *This = OLEOBJ_THIS(iface);
259 return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppv);
260 }
261
262 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
263 {
264 WebBrowser *This = OLEOBJ_THIS(iface);
265 return IWebBrowser_AddRef(WEBBROWSER(This));
266 }
267
268 static ULONG WINAPI OleObject_Release(IOleObject *iface)
269 {
270 WebBrowser *This = OLEOBJ_THIS(iface);
271 return IWebBrowser_Release(WEBBROWSER(This));
272 }
273
274 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, LPOLECLIENTSITE pClientSite)
275 {
276 WebBrowser *This = OLEOBJ_THIS(iface);
277 IOleContainer *container;
278 HRESULT hres;
279
280 TRACE("(%p)->(%p)\n", This, pClientSite);
281
282 if(This->client == pClientSite)
283 return S_OK;
284
285 if(This->doc_host.hwnd) {
286 DestroyWindow(This->doc_host.hwnd);
287 This->doc_host.hwnd = NULL;
288 }
289 if(This->shell_embedding_hwnd) {
290 DestroyWindow(This->shell_embedding_hwnd);
291 This->shell_embedding_hwnd = NULL;
292 }
293
294 if(This->inplace) {
295 IOleInPlaceSite_Release(This->inplace);
296 This->inplace = NULL;
297 }
298
299 if(This->doc_host.hostui) {
300 IDocHostUIHandler_Release(This->doc_host.hostui);
301 This->doc_host.hostui = NULL;
302 }
303
304 if(This->client)
305 IOleClientSite_Release(This->client);
306
307 This->client = pClientSite;
308
309 if(!pClientSite) {
310 if(This->doc_host.document)
311 deactivate_document(&This->doc_host);
312 return S_OK;
313 }
314
315 IOleClientSite_AddRef(pClientSite);
316
317 IOleClientSite_QueryInterface(This->client, &IID_IDispatch,
318 (void**)&This->doc_host.client_disp);
319
320 IOleClientSite_QueryInterface(This->client, &IID_IDocHostUIHandler,
321 (void**)&This->doc_host.hostui);
322
323 hres = IOleClientSite_GetContainer(This->client, &container);
324 if(SUCCEEDED(hres)) {
325 ITargetContainer *target_container;
326
327 hres = IOleContainer_QueryInterface(container, &IID_ITargetContainer,
328 (void**)&target_container);
329 if(SUCCEEDED(hres)) {
330 FIXME("Unsupported ITargetContainer\n");
331 ITargetContainer_Release(target_container);
332 }
333
334 IOleContainer_Release(container);
335 }
336
337 create_shell_embedding_hwnd(This);
338
339 on_offlineconnected_change(This);
340 on_silent_change(This);
341
342 return S_OK;
343 }
344
345 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, LPOLECLIENTSITE *ppClientSite)
346 {
347 WebBrowser *This = OLEOBJ_THIS(iface);
348
349 TRACE("(%p)->(%p)\n", This, ppClientSite);
350
351 if(!ppClientSite)
352 return E_INVALIDARG;
353
354 if(This->client)
355 IOleClientSite_AddRef(This->client);
356 *ppClientSite = This->client;
357
358 return S_OK;
359 }
360
361 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp,
362 LPCOLESTR szContainerObj)
363 {
364 WebBrowser *This = OLEOBJ_THIS(iface);
365
366 TRACE("(%p)->(%s, %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
367
368 /* We have nothing to do here. */
369 return S_OK;
370 }
371
372 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
373 {
374 WebBrowser *This = OLEOBJ_THIS(iface);
375 FIXME("(%p)->(%d)\n", This, dwSaveOption);
376 return E_NOTIMPL;
377 }
378
379 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker* pmk)
380 {
381 WebBrowser *This = OLEOBJ_THIS(iface);
382 FIXME("(%p)->(%d, %p)\n", This, dwWhichMoniker, pmk);
383 return E_NOTIMPL;
384 }
385
386 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign,
387 DWORD dwWhichMoniker, LPMONIKER *ppmk)
388 {
389 WebBrowser *This = OLEOBJ_THIS(iface);
390 FIXME("(%p)->(%d, %d, %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
391 return E_NOTIMPL;
392 }
393
394 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, LPDATAOBJECT pDataObject,
395 BOOL fCreation, DWORD dwReserved)
396 {
397 WebBrowser *This = OLEOBJ_THIS(iface);
398 FIXME("(%p)->(%p, %d, %d)\n", This, pDataObject, fCreation, dwReserved);
399 return E_NOTIMPL;
400 }
401
402 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved,
403 LPDATAOBJECT *ppDataObject)
404 {
405 WebBrowser *This = OLEOBJ_THIS(iface);
406 FIXME("(%p)->(%d, %p)\n", This, dwReserved, ppDataObject);
407 return E_NOTIMPL;
408 }
409
410 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, struct tagMSG* lpmsg,
411 LPOLECLIENTSITE pActiveSite, LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
412 {
413 WebBrowser *This = OLEOBJ_THIS(iface);
414
415 TRACE("(%p)->(%d %p %p %d %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent,
416 lprcPosRect);
417
418 switch (iVerb)
419 {
420 case OLEIVERB_SHOW:
421 TRACE("OLEIVERB_SHOW\n");
422 return activate_ui(This, pActiveSite);
423 case OLEIVERB_UIACTIVATE:
424 TRACE("OLEIVERB_UIACTIVATE\n");
425 return activate_ui(This, pActiveSite);
426 case OLEIVERB_INPLACEACTIVATE:
427 TRACE("OLEIVERB_INPLACEACTIVATE\n");
428 return activate_inplace(This, pActiveSite);
429 case OLEIVERB_HIDE:
430 TRACE("OLEIVERB_HIDE\n");
431 if(This->shell_embedding_hwnd)
432 ShowWindow(This->shell_embedding_hwnd, SW_HIDE);
433 return S_OK;
434 default:
435 FIXME("stub for %d\n", iVerb);
436 break;
437 }
438
439 return E_NOTIMPL;
440 }
441
442 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
443 {
444 WebBrowser *This = OLEOBJ_THIS(iface);
445 TRACE("(%p)->(%p)\n", This, ppEnumOleVerb);
446 return OleRegEnumVerbs(&CLSID_WebBrowser, ppEnumOleVerb);
447 }
448
449 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
450 {
451 WebBrowser *This = OLEOBJ_THIS(iface);
452 FIXME("(%p)\n", This);
453 return E_NOTIMPL;
454 }
455
456 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
457 {
458 WebBrowser *This = OLEOBJ_THIS(iface);
459 FIXME("(%p)\n", This);
460 return E_NOTIMPL;
461 }
462
463 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID* pClsid)
464 {
465 WebBrowser *This = OLEOBJ_THIS(iface);
466 FIXME("(%p)->(%p)\n", This, pClsid);
467 return E_NOTIMPL;
468 }
469
470 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType,
471 LPOLESTR* pszUserType)
472 {
473 WebBrowser *This = OLEOBJ_THIS(iface);
474 TRACE("(%p, %d, %p)\n", This, dwFormOfType, pszUserType);
475 return OleRegGetUserType(&CLSID_WebBrowser, dwFormOfType, pszUserType);
476 }
477
478 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
479 {
480 WebBrowser *This = OLEOBJ_THIS(iface);
481
482 TRACE("(%p)->(%x %p)\n", This, dwDrawAspect, psizel);
483
484 /* Tests show that dwDrawAspect is ignored */
485 This->extent = *psizel;
486 return S_OK;
487 }
488
489 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
490 {
491 WebBrowser *This = OLEOBJ_THIS(iface);
492
493 TRACE("(%p)->(%x, %p)\n", This, dwDrawAspect, psizel);
494
495 /* Tests show that dwDrawAspect is ignored */
496 *psizel = This->extent;
497 return S_OK;
498 }
499
500 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink,
501 DWORD* pdwConnection)
502 {
503 WebBrowser *This = OLEOBJ_THIS(iface);
504 FIXME("(%p)->(%p, %p)\n", This, pAdvSink, pdwConnection);
505 return E_NOTIMPL;
506 }
507
508 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
509 {
510 WebBrowser *This = OLEOBJ_THIS(iface);
511 FIXME("(%p)->(%d)\n", This, dwConnection);
512 return E_NOTIMPL;
513 }
514
515 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
516 {
517 WebBrowser *This = OLEOBJ_THIS(iface);
518 FIXME("(%p)->(%p)\n", This, ppenumAdvise);
519 return S_OK;
520 }
521
522 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
523 {
524 WebBrowser *This = OLEOBJ_THIS(iface);
525
526 TRACE("(%p)->(%x, %p)\n", This, dwAspect, pdwStatus);
527
528 *pdwStatus = OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|OLEMISC_INSIDEOUT
529 |OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE;
530
531 return S_OK;
532 }
533
534 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE* pLogpal)
535 {
536 WebBrowser *This = OLEOBJ_THIS(iface);
537 FIXME("(%p)->(%p)\n", This, pLogpal);
538 return E_NOTIMPL;
539 }
540
541 #undef OLEOBJ_THIS
542
543 static const IOleObjectVtbl OleObjectVtbl =
544 {
545 OleObject_QueryInterface,
546 OleObject_AddRef,
547 OleObject_Release,
548 OleObject_SetClientSite,
549 OleObject_GetClientSite,
550 OleObject_SetHostNames,
551 OleObject_Close,
552 OleObject_SetMoniker,
553 OleObject_GetMoniker,
554 OleObject_InitFromData,
555 OleObject_GetClipboardData,
556 OleObject_DoVerb,
557 OleObject_EnumVerbs,
558 OleObject_Update,
559 OleObject_IsUpToDate,
560 OleObject_GetUserClassID,
561 OleObject_GetUserType,
562 OleObject_SetExtent,
563 OleObject_GetExtent,
564 OleObject_Advise,
565 OleObject_Unadvise,
566 OleObject_EnumAdvise,
567 OleObject_GetMiscStatus,
568 OleObject_SetColorScheme
569 };
570
571 /**********************************************************************
572 * Implement the IOleInPlaceObject interface
573 */
574
575 #define INPLACEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleInPlaceObject, iface)
576
577 static HRESULT WINAPI OleInPlaceObject_QueryInterface(IOleInPlaceObject *iface,
578 REFIID riid, LPVOID *ppobj)
579 {
580 WebBrowser *This = INPLACEOBJ_THIS(iface);
581 return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppobj);
582 }
583
584 static ULONG WINAPI OleInPlaceObject_AddRef(IOleInPlaceObject *iface)
585 {
586 WebBrowser *This = INPLACEOBJ_THIS(iface);
587 return IWebBrowser_AddRef(WEBBROWSER(This));
588 }
589
590 static ULONG WINAPI OleInPlaceObject_Release(IOleInPlaceObject *iface)
591 {
592 WebBrowser *This = INPLACEOBJ_THIS(iface);
593 return IWebBrowser_Release(WEBBROWSER(This));
594 }
595
596 static HRESULT WINAPI OleInPlaceObject_GetWindow(IOleInPlaceObject *iface, HWND* phwnd)
597 {
598 WebBrowser *This = INPLACEOBJ_THIS(iface);
599
600 TRACE("(%p)->(%p)\n", This, phwnd);
601
602 *phwnd = This->shell_embedding_hwnd;
603 return S_OK;
604 }
605
606 static HRESULT WINAPI OleInPlaceObject_ContextSensitiveHelp(IOleInPlaceObject *iface,
607 BOOL fEnterMode)
608 {
609 WebBrowser *This = INPLACEOBJ_THIS(iface);
610 FIXME("(%p)->(%x)\n", This, fEnterMode);
611 return E_NOTIMPL;
612 }
613
614 static HRESULT WINAPI OleInPlaceObject_InPlaceDeactivate(IOleInPlaceObject *iface)
615 {
616 WebBrowser *This = INPLACEOBJ_THIS(iface);
617 FIXME("(%p)\n", This);
618 return E_NOTIMPL;
619 }
620
621 static HRESULT WINAPI OleInPlaceObject_UIDeactivate(IOleInPlaceObject *iface)
622 {
623 WebBrowser *This = INPLACEOBJ_THIS(iface);
624 FIXME("(%p)\n", This);
625 return E_NOTIMPL;
626 }
627
628 static HRESULT WINAPI OleInPlaceObject_SetObjectRects(IOleInPlaceObject *iface,
629 LPCRECT lprcPosRect, LPCRECT lprcClipRect)
630 {
631 WebBrowser *This = INPLACEOBJ_THIS(iface);
632
633 TRACE("(%p)->(%p %p)\n", This, lprcPosRect, lprcClipRect);
634
635 This->pos_rect = *lprcPosRect;
636
637 if(lprcClipRect)
638 This->clip_rect = *lprcClipRect;
639
640 if(This->shell_embedding_hwnd) {
641 SetWindowPos(This->shell_embedding_hwnd, NULL,
642 lprcPosRect->left, lprcPosRect->top,
643 lprcPosRect->right-lprcPosRect->left,
644 lprcPosRect->bottom-lprcPosRect->top,
645 SWP_NOZORDER | SWP_NOACTIVATE);
646 }
647
648 return S_OK;
649 }
650
651 static HRESULT WINAPI OleInPlaceObject_ReactivateAndUndo(IOleInPlaceObject *iface)
652 {
653 WebBrowser *This = INPLACEOBJ_THIS(iface);
654 FIXME("(%p)\n", This);
655 return E_NOTIMPL;
656 }
657
658 #undef INPLACEOBJ_THIS
659
660 static const IOleInPlaceObjectVtbl OleInPlaceObjectVtbl =
661 {
662 OleInPlaceObject_QueryInterface,
663 OleInPlaceObject_AddRef,
664 OleInPlaceObject_Release,
665 OleInPlaceObject_GetWindow,
666 OleInPlaceObject_ContextSensitiveHelp,
667 OleInPlaceObject_InPlaceDeactivate,
668 OleInPlaceObject_UIDeactivate,
669 OleInPlaceObject_SetObjectRects,
670 OleInPlaceObject_ReactivateAndUndo
671 };
672
673 /**********************************************************************
674 * Implement the IOleControl interface
675 */
676
677 #define CONTROL_THIS(iface) DEFINE_THIS(WebBrowser, OleControl, iface)
678
679 static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface,
680 REFIID riid, LPVOID *ppobj)
681 {
682 WebBrowser *This = CONTROL_THIS(iface);
683 return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppobj);
684 }
685
686 static ULONG WINAPI OleControl_AddRef(IOleControl *iface)
687 {
688 WebBrowser *This = CONTROL_THIS(iface);
689 return IWebBrowser_AddRef(WEBBROWSER(This));
690 }
691
692 static ULONG WINAPI OleControl_Release(IOleControl *iface)
693 {
694 WebBrowser *This = CONTROL_THIS(iface);
695 return IWebBrowser_Release(WEBBROWSER(This));
696 }
697
698 static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, LPCONTROLINFO pCI)
699 {
700 WebBrowser *This = CONTROL_THIS(iface);
701
702 TRACE("(%p)->(%p)\n", This, pCI);
703
704 /* Tests show that this function should be not implemented */
705 return E_NOTIMPL;
706 }
707
708 static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, struct tagMSG *pMsg)
709 {
710 WebBrowser *This = CONTROL_THIS(iface);
711 FIXME("(%p)->(%p)\n", This, pMsg);
712 return E_NOTIMPL;
713 }
714
715 static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispID)
716 {
717 WebBrowser *This = CONTROL_THIS(iface);
718
719 TRACE("(%p)->(%d)\n", This, dispID);
720
721 switch(dispID) {
722 case DISPID_UNKNOWN:
723 /* Unknown means multiple properties changed, so check them all.
724 * BUT the Webbrowser OleControl object doesn't appear to do this.
725 */
726 return S_OK;
727 case DISPID_AMBIENT_DLCONTROL:
728 return S_OK;
729 case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
730 return on_offlineconnected_change(This);
731 case DISPID_AMBIENT_SILENT:
732 return on_silent_change(This);
733 }
734
735 FIXME("Unknown dispID %d\n", dispID);
736 return E_NOTIMPL;
737 }
738
739 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze)
740 {
741 WebBrowser *This = CONTROL_THIS(iface);
742 FIXME("(%p)->(%x)\n", This, bFreeze);
743 return E_NOTIMPL;
744 }
745
746 #undef CONTROL_THIS
747
748 static const IOleControlVtbl OleControlVtbl =
749 {
750 OleControl_QueryInterface,
751 OleControl_AddRef,
752 OleControl_Release,
753 OleControl_GetControlInfo,
754 OleControl_OnMnemonic,
755 OleControl_OnAmbientPropertyChange,
756 OleControl_FreezeEvents
757 };
758
759 #define ACTIVEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleInPlaceActiveObject, iface)
760
761 static HRESULT WINAPI InPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject *iface,
762 REFIID riid, void **ppv)
763 {
764 WebBrowser *This = ACTIVEOBJ_THIS(iface);
765 return IWebBrowser2_QueryInterface(WEBBROWSER2(This), riid, ppv);
766 }
767
768 static ULONG WINAPI InPlaceActiveObject_AddRef(IOleInPlaceActiveObject *iface)
769 {
770 WebBrowser *This = ACTIVEOBJ_THIS(iface);
771 return IWebBrowser2_AddRef(WEBBROWSER2(This));
772 }
773
774 static ULONG WINAPI InPlaceActiveObject_Release(IOleInPlaceActiveObject *iface)
775 {
776 WebBrowser *This = ACTIVEOBJ_THIS(iface);
777 return IWebBrowser2_Release(WEBBROWSER2(This));
778 }
779
780 static HRESULT WINAPI InPlaceActiveObject_GetWindow(IOleInPlaceActiveObject *iface,
781 HWND *phwnd)
782 {
783 WebBrowser *This = ACTIVEOBJ_THIS(iface);
784 return IOleInPlaceObject_GetWindow(INPLACEOBJ(This), phwnd);
785 }
786
787 static HRESULT WINAPI InPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject *iface,
788 BOOL fEnterMode)
789 {
790 WebBrowser *This = ACTIVEOBJ_THIS(iface);
791 return IOleInPlaceObject_ContextSensitiveHelp(INPLACEOBJ(This), fEnterMode);
792 }
793
794 static HRESULT WINAPI InPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject *iface,
795 LPMSG lpmsg)
796 {
797 WebBrowser *This = ACTIVEOBJ_THIS(iface);
798 FIXME("(%p)->(%p)\n", This, lpmsg);
799 return E_NOTIMPL;
800 }
801
802 static HRESULT WINAPI InPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject *iface,
803 BOOL fActivate)
804 {
805 WebBrowser *This = ACTIVEOBJ_THIS(iface);
806 FIXME("(%p)->(%x)\n", This, fActivate);
807 return E_NOTIMPL;
808 }
809
810 static HRESULT WINAPI InPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject *iface,
811 BOOL fActivate)
812 {
813 WebBrowser *This = ACTIVEOBJ_THIS(iface);
814 FIXME("(%p)->(%x)\n", This, fActivate);
815 return E_NOTIMPL;
816 }
817
818 static HRESULT WINAPI InPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject *iface,
819 LPCRECT lprcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fFrameWindow)
820 {
821 WebBrowser *This = ACTIVEOBJ_THIS(iface);
822 FIXME("(%p)->(%p %p %x)\n", This, lprcBorder, pUIWindow, fFrameWindow);
823 return E_NOTIMPL;
824 }
825
826 static HRESULT WINAPI InPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject *iface,
827 BOOL fEnable)
828 {
829 WebBrowser *This = ACTIVEOBJ_THIS(iface);
830 FIXME("(%p)->(%x)\n", This, fEnable);
831 return E_NOTIMPL;
832 }
833
834 #undef ACTIVEOBJ_THIS
835
836 static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl = {
837 InPlaceActiveObject_QueryInterface,
838 InPlaceActiveObject_AddRef,
839 InPlaceActiveObject_Release,
840 InPlaceActiveObject_GetWindow,
841 InPlaceActiveObject_ContextSensitiveHelp,
842 InPlaceActiveObject_TranslateAccelerator,
843 InPlaceActiveObject_OnFrameWindowActivate,
844 InPlaceActiveObject_OnDocWindowActivate,
845 InPlaceActiveObject_ResizeBorder,
846 InPlaceActiveObject_EnableModeless
847 };
848
849 #define OLECMD_THIS(iface) DEFINE_THIS(WebBrowser, OleCommandTarget, iface)
850
851 static HRESULT WINAPI WBOleCommandTarget_QueryInterface(IOleCommandTarget *iface,
852 REFIID riid, void **ppv)
853 {
854 WebBrowser *This = OLECMD_THIS(iface);
855 return IWebBrowser2_QueryInterface(WEBBROWSER(This), riid, ppv);
856 }
857
858 static ULONG WINAPI WBOleCommandTarget_AddRef(IOleCommandTarget *iface)
859 {
860 WebBrowser *This = OLECMD_THIS(iface);
861 return IWebBrowser2_AddRef(WEBBROWSER(This));
862 }
863
864 static ULONG WINAPI WBOleCommandTarget_Release(IOleCommandTarget *iface)
865 {
866 WebBrowser *This = OLECMD_THIS(iface);
867 return IWebBrowser2_Release(WEBBROWSER(This));
868 }
869
870 static HRESULT WINAPI WBOleCommandTarget_QueryStatus(IOleCommandTarget *iface,
871 const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
872 {
873 WebBrowser *This = OLECMD_THIS(iface);
874 IOleCommandTarget *cmdtrg;
875 HRESULT hres;
876
877 TRACE("(%p)->(%s %u %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds,
878 pCmdText);
879
880 if(!This->doc_host.document)
881 return 0x80040104;
882
883 /* NOTE: There are probably some commands that we should handle here
884 * instead of forwarding to document object. */
885
886 hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (void**)&cmdtrg);
887 if(FAILED(hres))
888 return hres;
889
890 hres = IOleCommandTarget_QueryStatus(cmdtrg, pguidCmdGroup, cCmds, prgCmds, pCmdText);
891 IOleCommandTarget_Release(cmdtrg);
892
893 return hres;
894 }
895
896 static HRESULT WINAPI WBOleCommandTarget_Exec(IOleCommandTarget *iface,
897 const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn,
898 VARIANT *pvaOut)
899 {
900 WebBrowser *This = OLECMD_THIS(iface);
901 FIXME("(%p)->(%s %d %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID,
902 nCmdexecopt, pvaIn, pvaOut);
903 return E_NOTIMPL;
904 }
905
906 #undef OLECMD_THIS
907
908 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
909 WBOleCommandTarget_QueryInterface,
910 WBOleCommandTarget_AddRef,
911 WBOleCommandTarget_Release,
912 WBOleCommandTarget_QueryStatus,
913 WBOleCommandTarget_Exec
914 };
915
916 void WebBrowser_OleObject_Init(WebBrowser *This)
917 {
918 DWORD dpi_x;
919 DWORD dpi_y;
920 HDC hdc;
921
922 /* default aspect ratio is 96dpi / 96dpi */
923 hdc = GetDC(0);
924 dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
925 dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
926 ReleaseDC(0, hdc);
927
928 This->lpOleObjectVtbl = &OleObjectVtbl;
929 This->lpOleInPlaceObjectVtbl = &OleInPlaceObjectVtbl;
930 This->lpOleControlVtbl = &OleControlVtbl;
931 This->lpOleInPlaceActiveObjectVtbl = &OleInPlaceActiveObjectVtbl;
932 This->lpOleCommandTargetVtbl = &OleCommandTargetVtbl;
933
934 This->client = NULL;
935 This->inplace = NULL;
936 This->container = NULL;
937 This->frame_hwnd = NULL;
938 This->uiwindow = NULL;
939 This->shell_embedding_hwnd = NULL;
940
941 memset(&This->pos_rect, 0, sizeof(RECT));
942 memset(&This->clip_rect, 0, sizeof(RECT));
943 memset(&This->frameinfo, 0, sizeof(OLEINPLACEFRAMEINFO));
944
945 /* Default size is 50x20 pixels, in himetric units */
946 This->extent.cx = MulDiv( 50, 2540, dpi_x );
947 This->extent.cy = MulDiv( 20, 2540, dpi_y );
948 }
949
950 void WebBrowser_OleObject_Destroy(WebBrowser *This)
951 {
952 if(This->client)
953 IOleObject_SetClientSite(OLEOBJ(This), NULL);
954 if(This->container)
955 IOleContainer_Release(This->container);
956 if(This->uiwindow)
957 IOleInPlaceUIWindow_Release(This->uiwindow);
958 }
959
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.