comtl32/listview: Cache Header control window GWL_STYLE.
[wine] / dlls / shdocvw / oleobject.c
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_UNKNOWN:
722         /* Unknown means multiple properties changed, so check them all.
723          * BUT the Webbrowser OleControl object doesn't appear to do this.
724          */
725         return S_OK;
726     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
727         return on_offlineconnected_change(This);
728     case DISPID_AMBIENT_SILENT:
729         return on_silent_change(This);
730     }
731
732     FIXME("Unknown dispID %d\n", dispID);
733     return E_NOTIMPL;
734 }
735
736 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze)
737 {
738     WebBrowser *This = CONTROL_THIS(iface);
739     FIXME("(%p)->(%x)\n", This, bFreeze);
740     return E_NOTIMPL;
741 }
742
743 #undef CONTROL_THIS
744
745 static const IOleControlVtbl OleControlVtbl =
746 {
747     OleControl_QueryInterface,
748     OleControl_AddRef,
749     OleControl_Release,
750     OleControl_GetControlInfo,
751     OleControl_OnMnemonic,
752     OleControl_OnAmbientPropertyChange,
753     OleControl_FreezeEvents
754 };
755
756 #define ACTIVEOBJ_THIS(iface) DEFINE_THIS(WebBrowser, OleInPlaceActiveObject, iface)
757
758 static HRESULT WINAPI InPlaceActiveObject_QueryInterface(IOleInPlaceActiveObject *iface,
759                                                             REFIID riid, void **ppv)
760 {
761     WebBrowser *This = ACTIVEOBJ_THIS(iface);
762     return IWebBrowser2_QueryInterface(WEBBROWSER2(This), riid, ppv);
763 }
764
765 static ULONG WINAPI InPlaceActiveObject_AddRef(IOleInPlaceActiveObject *iface)
766 {
767     WebBrowser *This = ACTIVEOBJ_THIS(iface);
768     return IWebBrowser2_AddRef(WEBBROWSER2(This));
769 }
770
771 static ULONG WINAPI InPlaceActiveObject_Release(IOleInPlaceActiveObject *iface)
772 {
773     WebBrowser *This = ACTIVEOBJ_THIS(iface);
774     return IWebBrowser2_Release(WEBBROWSER2(This));
775 }
776
777 static HRESULT WINAPI InPlaceActiveObject_GetWindow(IOleInPlaceActiveObject *iface,
778                                                     HWND *phwnd)
779 {
780     WebBrowser *This = ACTIVEOBJ_THIS(iface);
781     return IOleInPlaceObject_GetWindow(INPLACEOBJ(This), phwnd);
782 }
783
784 static HRESULT WINAPI InPlaceActiveObject_ContextSensitiveHelp(IOleInPlaceActiveObject *iface,
785                                                                BOOL fEnterMode)
786 {
787     WebBrowser *This = ACTIVEOBJ_THIS(iface);
788     return IOleInPlaceObject_ContextSensitiveHelp(INPLACEOBJ(This), fEnterMode);
789 }
790
791 static HRESULT WINAPI InPlaceActiveObject_TranslateAccelerator(IOleInPlaceActiveObject *iface,
792                                                                LPMSG lpmsg)
793 {
794     WebBrowser *This = ACTIVEOBJ_THIS(iface);
795     FIXME("(%p)->(%p)\n", This, lpmsg);
796     return E_NOTIMPL;
797 }
798
799 static HRESULT WINAPI InPlaceActiveObject_OnFrameWindowActivate(IOleInPlaceActiveObject *iface,
800                                                                 BOOL fActivate)
801 {
802     WebBrowser *This = ACTIVEOBJ_THIS(iface);
803     FIXME("(%p)->(%x)\n", This, fActivate);
804     return E_NOTIMPL;
805 }
806
807 static HRESULT WINAPI InPlaceActiveObject_OnDocWindowActivate(IOleInPlaceActiveObject *iface,
808                                                               BOOL fActivate)
809 {
810     WebBrowser *This = ACTIVEOBJ_THIS(iface);
811     FIXME("(%p)->(%x)\n", This, fActivate);
812     return E_NOTIMPL;
813 }
814
815 static HRESULT WINAPI InPlaceActiveObject_ResizeBorder(IOleInPlaceActiveObject *iface,
816         LPCRECT lprcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fFrameWindow)
817 {
818     WebBrowser *This = ACTIVEOBJ_THIS(iface);
819     FIXME("(%p)->(%p %p %x)\n", This, lprcBorder, pUIWindow, fFrameWindow);
820     return E_NOTIMPL;
821 }
822
823 static HRESULT WINAPI InPlaceActiveObject_EnableModeless(IOleInPlaceActiveObject *iface,
824                                                          BOOL fEnable)
825 {
826     WebBrowser *This = ACTIVEOBJ_THIS(iface);
827     FIXME("(%p)->(%x)\n", This, fEnable);
828     return E_NOTIMPL;
829 }
830
831 #undef ACTIVEOBJ_THIS
832
833 static const IOleInPlaceActiveObjectVtbl OleInPlaceActiveObjectVtbl = {
834     InPlaceActiveObject_QueryInterface,
835     InPlaceActiveObject_AddRef,
836     InPlaceActiveObject_Release,
837     InPlaceActiveObject_GetWindow,
838     InPlaceActiveObject_ContextSensitiveHelp,
839     InPlaceActiveObject_TranslateAccelerator,
840     InPlaceActiveObject_OnFrameWindowActivate,
841     InPlaceActiveObject_OnDocWindowActivate,
842     InPlaceActiveObject_ResizeBorder,
843     InPlaceActiveObject_EnableModeless
844 };
845
846 #define OLECMD_THIS(iface) DEFINE_THIS(WebBrowser, OleCommandTarget, iface)
847
848 static HRESULT WINAPI WBOleCommandTarget_QueryInterface(IOleCommandTarget *iface,
849         REFIID riid, void **ppv)
850 {
851     WebBrowser *This = OLECMD_THIS(iface);
852     return IWebBrowser2_QueryInterface(WEBBROWSER(This), riid, ppv);
853 }
854
855 static ULONG WINAPI WBOleCommandTarget_AddRef(IOleCommandTarget *iface)
856 {
857     WebBrowser *This = OLECMD_THIS(iface);
858     return IWebBrowser2_AddRef(WEBBROWSER(This));
859 }
860
861 static ULONG WINAPI WBOleCommandTarget_Release(IOleCommandTarget *iface)
862 {
863     WebBrowser *This = OLECMD_THIS(iface);
864     return IWebBrowser2_Release(WEBBROWSER(This));
865 }
866
867 static HRESULT WINAPI WBOleCommandTarget_QueryStatus(IOleCommandTarget *iface,
868         const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
869 {
870     WebBrowser *This = OLECMD_THIS(iface);
871     IOleCommandTarget *cmdtrg;
872     HRESULT hres;
873
874     TRACE("(%p)->(%s %u %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds,
875           pCmdText);
876
877     if(!This->doc_host.document)
878         return 0x80040104;
879
880     /* NOTE: There are probably some commands that we should handle here
881      * instead of forwarding to document object. */
882
883     hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (void**)&cmdtrg);
884     if(FAILED(hres))
885         return hres;
886
887     hres = IOleCommandTarget_QueryStatus(cmdtrg, pguidCmdGroup, cCmds, prgCmds, pCmdText);
888     IOleCommandTarget_Release(cmdtrg);
889
890     return hres;
891 }
892
893 static HRESULT WINAPI WBOleCommandTarget_Exec(IOleCommandTarget *iface,
894         const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn,
895         VARIANT *pvaOut)
896 {
897     WebBrowser *This = OLECMD_THIS(iface);
898     FIXME("(%p)->(%s %d %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID,
899           nCmdexecopt, pvaIn, pvaOut);
900     return E_NOTIMPL;
901 }
902
903 #undef OLECMD_THIS
904
905 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
906     WBOleCommandTarget_QueryInterface,
907     WBOleCommandTarget_AddRef,
908     WBOleCommandTarget_Release,
909     WBOleCommandTarget_QueryStatus,
910     WBOleCommandTarget_Exec
911 };
912
913 void WebBrowser_OleObject_Init(WebBrowser *This)
914 {
915     DWORD dpi_x;
916     DWORD dpi_y;
917     HDC hdc;
918
919     /* default aspect ratio is 96dpi / 96dpi */
920     hdc = GetDC(0);
921     dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
922     dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
923     ReleaseDC(0, hdc);
924
925     This->lpOleObjectVtbl              = &OleObjectVtbl;
926     This->lpOleInPlaceObjectVtbl       = &OleInPlaceObjectVtbl;
927     This->lpOleControlVtbl             = &OleControlVtbl;
928     This->lpOleInPlaceActiveObjectVtbl = &OleInPlaceActiveObjectVtbl;
929     This->lpOleCommandTargetVtbl     = &OleCommandTargetVtbl;
930
931     This->client = NULL;
932     This->inplace = NULL;
933     This->container = NULL;
934     This->frame_hwnd = NULL;
935     This->uiwindow = NULL;
936     This->shell_embedding_hwnd = NULL;
937
938     memset(&This->pos_rect, 0, sizeof(RECT));
939     memset(&This->clip_rect, 0, sizeof(RECT));
940     memset(&This->frameinfo, 0, sizeof(OLEINPLACEFRAMEINFO));
941
942     /* Default size is 50x20 pixels, in himetric units */
943     This->extent.cx = MulDiv( 50, 2540, dpi_x );
944     This->extent.cy = MulDiv( 20, 2540, dpi_y );
945 }
946
947 void WebBrowser_OleObject_Destroy(WebBrowser *This)
948 {
949     if(This->client)
950         IOleObject_SetClientSite(OLEOBJ(This), NULL);
951     if(This->container)
952         IOleContainer_Release(This->container);
953     if(This->uiwindow)
954         IOleInPlaceUIWindow_Release(This->uiwindow);
955 }