1 /*****************************************************************************
2 * oleobject.cpp: ActiveX control for VLC
3 *****************************************************************************
4 * Copyright (C) 2005 VideoLAN (Centrale Réseaux) and its contributors
6 * Authors: Damien Fouilleul <Damien.Fouilleul@laposte.net>
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
21 *****************************************************************************/
24 #include "oleobject.h"
32 VLCOleObject::VLCOleObject(VLCPlugin *p_instance) :
33 _p_clientsite(NULL), _p_instance(p_instance)
35 CreateOleAdviseHolder(&_p_advise_holder);
38 VLCOleObject::~VLCOleObject()
40 _p_advise_holder->Release();
44 STDMETHODIMP VLCOleObject::Advise(IAdviseSink *pAdvSink, DWORD *dwConnection)
46 return _p_advise_holder->Advise(pAdvSink, dwConnection);
49 STDMETHODIMP VLCOleObject::Close(DWORD dwSaveOption)
51 _p_advise_holder->SendOnClose();
53 return _p_instance->onClose(dwSaveOption);
56 STDMETHODIMP VLCOleObject::DoVerb(LONG iVerb, LPMSG lpMsg, LPOLECLIENTSITE pActiveSite,
57 LONG lIndex, HWND hwndParent, LPCRECT lprcPosRect)
61 case OLEIVERB_PRIMARY:
64 case OLEIVERB_INPLACEACTIVATE:
65 return doInPlaceActivate(lpMsg, pActiveSite, hwndParent, lprcPosRect);
68 _p_instance->setVisible(FALSE);
71 case OLEIVERB_UIACTIVATE:
72 return doUIActivate(lpMsg, pActiveSite, hwndParent, lprcPosRect);
74 case OLEIVERB_DISCARDUNDOSTATE:
78 return OLEOBJ_S_INVALIDVERB;
82 HRESULT VLCOleObject::doInPlaceActivate(LPMSG lpMsg, LPOLECLIENTSITE pActiveSite, HWND hwndParent, LPCRECT lprcPosRect)
86 LPCRECT lprcClipRect = lprcPosRect;
88 if( NULL != pActiveSite )
90 // check if already activated
91 if( _p_instance->isInPlaceActive() )
93 // just attempt to show object then
94 pActiveSite->ShowObject();
95 _p_instance->setVisible(TRUE);
99 LPOLEINPLACESITE p_inPlaceSite;
101 if( SUCCEEDED(pActiveSite->QueryInterface(IID_IOleInPlaceSite, (void**)&p_inPlaceSite)) )
103 if( S_OK != p_inPlaceSite->CanInPlaceActivate() )
105 return OLEOBJ_S_CANNOT_DOVERB_NOW;
108 LPOLEINPLACEFRAME p_inPlaceFrame;
109 LPOLEINPLACEUIWINDOW p_inPlaceUIWindow;
110 OLEINPLACEFRAMEINFO oleFrameInfo;
112 if( SUCCEEDED(p_inPlaceSite->GetWindowContext(&p_inPlaceFrame, &p_inPlaceUIWindow, &posRect, &clipRect, &oleFrameInfo)) )
114 lprcPosRect = &posRect;
115 lprcClipRect = &clipRect;
117 if( NULL != p_inPlaceFrame )
118 p_inPlaceFrame->Release();
119 if( NULL != p_inPlaceUIWindow )
120 p_inPlaceUIWindow->Release();
123 if( (NULL == hwndParent) && FAILED(p_inPlaceSite->GetWindow(&hwndParent)) )
125 p_inPlaceSite->Release();
126 return OLEOBJ_S_INVALIDHWND;
129 else if( NULL == hwndParent )
131 return OLEOBJ_S_INVALIDHWND;
134 if( FAILED(_p_instance->onActivateInPlace(lpMsg, hwndParent, lprcPosRect, lprcClipRect)) )
136 if( NULL != p_inPlaceSite )
137 p_inPlaceSite->Release();
138 return OLEOBJ_S_CANNOT_DOVERB_NOW;
141 if( NULL != p_inPlaceSite )
142 p_inPlaceSite->OnPosRectChange(lprcPosRect);
144 pActiveSite->ShowObject();
145 _p_instance->setVisible(TRUE);
147 if( NULL != p_inPlaceSite )
149 p_inPlaceSite->OnInPlaceActivate();
150 p_inPlaceSite->Release();
155 switch( lpMsg->message )
158 case WM_LBUTTONDBLCLK:
159 doUIActivate(lpMsg, pActiveSite, hwndParent, lprcPosRect);
167 return OLEOBJ_S_CANNOT_DOVERB_NOW;
170 HRESULT VLCOleObject::doUIActivate(LPMSG lpMsg, LPOLECLIENTSITE pActiveSite, HWND hwndParent, LPCRECT lprcPosRect)
172 if( NULL != pActiveSite )
174 // check if already activated
175 if( ! _p_instance->isInPlaceActive() )
176 return OLE_E_NOT_INPLACEACTIVE;
178 LPOLEINPLACESITE p_inPlaceSite;
180 if( SUCCEEDED(pActiveSite->QueryInterface(IID_IOleInPlaceSite, (void**)&p_inPlaceSite)) )
182 p_inPlaceSite->OnUIActivate();
184 if( NULL != lprcPosRect )
186 p_inPlaceSite->OnPosRectChange(lprcPosRect);
188 p_inPlaceSite->Release();
191 pActiveSite->ShowObject();
192 _p_instance->setVisible(TRUE);
193 _p_instance->setFocus(TRUE);
200 STDMETHODIMP VLCOleObject::EnumAdvise(IEnumSTATDATA **ppEnumAdvise)
202 return _p_advise_holder->EnumAdvise(ppEnumAdvise);
205 STDMETHODIMP VLCOleObject::EnumVerbs(IEnumOleVerb **ppEnumOleVerb)
210 STDMETHODIMP VLCOleObject::GetClientSite(LPOLECLIENTSITE *ppClientSite)
212 if( NULL == ppClientSite )
215 if( NULL != _p_clientsite )
216 _p_clientsite->AddRef();
218 *ppClientSite = _p_clientsite;
222 STDMETHODIMP VLCOleObject::GetClipboardData(DWORD dwReserved, LPDATAOBJECT *ppDataObject)
227 STDMETHODIMP VLCOleObject::GetExtent(DWORD dwDrawAspect, SIZEL *pSizel)
232 if( dwDrawAspect & DVASPECT_CONTENT )
234 *pSizel = _p_instance->getExtent();
242 STDMETHODIMP VLCOleObject::GetMiscStatus(DWORD dwAspect, DWORD *pdwStatus)
244 if( NULL != pdwStatus )
249 case DVASPECT_CONTENT:
250 *pdwStatus = OLEMISC_RECOMPOSEONRESIZE
251 | OLEMISC_CANTLINKINSIDE
253 | OLEMISC_ACTIVATEWHENVISIBLE
254 | OLEMISC_SETCLIENTSITEFIRST;
263 STDMETHODIMP VLCOleObject::GetMoniker(DWORD dwAssign, DWORD dwWhichMoniker, LPMONIKER *ppMoniker)
265 if( NULL != _p_clientsite )
266 return _p_clientsite->GetMoniker(dwAssign,dwWhichMoniker, ppMoniker);
271 STDMETHODIMP VLCOleObject::GetUserClassID(LPCLSID pClsid)
276 pClsid = const_cast<LPCLSID>(&_p_instance->getClassID());
280 STDMETHODIMP VLCOleObject::GetUserType(DWORD dwFormOfType, LPOLESTR *pszUserType)
285 STDMETHODIMP VLCOleObject::InitFromData(LPDATAOBJECT pDataObject, BOOL fCreation, DWORD dwReserved)
290 STDMETHODIMP VLCOleObject::IsUpToDate(void)
295 STDMETHODIMP VLCOleObject::SetClientSite(LPOLECLIENTSITE pClientSite)
298 if( NULL != pClientSite )
300 pClientSite->AddRef();
303 ** retrieve container ambient properties
308 if( SUCCEEDED(GetObjectProperty(pClientSite, DISPID_AMBIENT_CODEPAGE, v)) )
310 _p_instance->setCodePage(V_I4(&v));
315 if( NULL != _p_clientsite )
316 _p_clientsite->Release();
318 _p_clientsite = pClientSite;
319 _p_instance->onClientSiteChanged(pClientSite);
324 STDMETHODIMP VLCOleObject::SetColorScheme(LOGPALETTE *pLogpal)
329 STDMETHODIMP VLCOleObject::SetExtent(DWORD dwDrawAspect, SIZEL *pSizel)
334 if( dwDrawAspect & DVASPECT_CONTENT )
336 _p_instance->setExtent(*pSizel);
338 if( _p_instance->isInPlaceActive() )
340 LPOLEINPLACESITE p_inPlaceSite;
342 if( SUCCEEDED(_p_clientsite->QueryInterface(IID_IOleInPlaceSite, (void**)&p_inPlaceSite)) )
346 if( SUCCEEDED(p_inPlaceSite->GetWindow(&hwnd)) )
348 // use HIMETRIC to pixel transform
349 RECT posRect = _p_instance->getPosRect();
350 HDC hDC = GetDC(hwnd);
351 posRect.right = (pSizel->cx*GetDeviceCaps(hDC, LOGPIXELSX)/2540L)+posRect.left;
352 posRect.bottom = (pSizel->cy*GetDeviceCaps(hDC, LOGPIXELSY)/2540L)+posRect.top;
354 p_inPlaceSite->OnPosRectChange(&posRect);
356 p_inPlaceSite->Release();
364 STDMETHODIMP VLCOleObject::SetHostNames(LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
369 STDMETHODIMP VLCOleObject::SetMoniker(DWORD dwWhichMoniker, LPMONIKER pMoniker)
371 return _p_advise_holder->SendOnRename(pMoniker);
374 STDMETHODIMP VLCOleObject::Unadvise(DWORD dwConnection)
376 return _p_advise_holder->Unadvise(dwConnection);
379 STDMETHODIMP VLCOleObject::Update(void)