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