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