/* ============================================================================== This file is part of the JUCE library. Copyright (c) 2013 - Raw Material Software Ltd. Permission is granted to use this software under the terms of either: a) the GPL v2 (or any later version) b) the Affero GPL v3 Details of these licenses can be found at: www.gnu.org/licenses JUCE is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. ------------------------------------------------------------------------------ To release a closed-source product which uses JUCE, commercial licenses are available: visit www.juce.com for more information. ============================================================================== */ extern int64 getMouseEventTime(); namespace ActiveXHelpers { //============================================================================== class JuceIStorage : public ComBaseClassHelper { public: JuceIStorage() {} JUCE_COMRESULT CreateStream (const WCHAR*, DWORD, DWORD, DWORD, IStream**) { return E_NOTIMPL; } JUCE_COMRESULT OpenStream (const WCHAR*, void*, DWORD, DWORD, IStream**) { return E_NOTIMPL; } JUCE_COMRESULT CreateStorage (const WCHAR*, DWORD, DWORD, DWORD, IStorage**) { return E_NOTIMPL; } JUCE_COMRESULT OpenStorage (const WCHAR*, IStorage*, DWORD, SNB, DWORD, IStorage**) { return E_NOTIMPL; } JUCE_COMRESULT CopyTo (DWORD, IID const*, SNB, IStorage*) { return E_NOTIMPL; } JUCE_COMRESULT MoveElementTo (const OLECHAR*,IStorage*, const OLECHAR*, DWORD) { return E_NOTIMPL; } JUCE_COMRESULT Commit (DWORD) { return E_NOTIMPL; } JUCE_COMRESULT Revert() { return E_NOTIMPL; } JUCE_COMRESULT EnumElements (DWORD, void*, DWORD, IEnumSTATSTG**) { return E_NOTIMPL; } JUCE_COMRESULT DestroyElement (const OLECHAR*) { return E_NOTIMPL; } JUCE_COMRESULT RenameElement (const WCHAR*, const WCHAR*) { return E_NOTIMPL; } JUCE_COMRESULT SetElementTimes (const WCHAR*, FILETIME const*, FILETIME const*, FILETIME const*) { return E_NOTIMPL; } JUCE_COMRESULT SetClass (REFCLSID) { return S_OK; } JUCE_COMRESULT SetStateBits (DWORD, DWORD) { return E_NOTIMPL; } JUCE_COMRESULT Stat (STATSTG*, DWORD) { return E_NOTIMPL; } }; //============================================================================== class JuceOleInPlaceFrame : public ComBaseClassHelper { public: JuceOleInPlaceFrame (HWND hwnd) : window (hwnd) {} JUCE_COMRESULT GetWindow (HWND* lphwnd) { *lphwnd = window; return S_OK; } JUCE_COMRESULT ContextSensitiveHelp (BOOL) { return E_NOTIMPL; } JUCE_COMRESULT GetBorder (LPRECT) { return E_NOTIMPL; } JUCE_COMRESULT RequestBorderSpace (LPCBORDERWIDTHS) { return E_NOTIMPL; } JUCE_COMRESULT SetBorderSpace (LPCBORDERWIDTHS) { return E_NOTIMPL; } JUCE_COMRESULT SetActiveObject (IOleInPlaceActiveObject*, LPCOLESTR) { return S_OK; } JUCE_COMRESULT InsertMenus (HMENU, LPOLEMENUGROUPWIDTHS) { return E_NOTIMPL; } JUCE_COMRESULT SetMenu (HMENU, HOLEMENU, HWND) { return S_OK; } JUCE_COMRESULT RemoveMenus (HMENU) { return E_NOTIMPL; } JUCE_COMRESULT SetStatusText (LPCOLESTR) { return S_OK; } JUCE_COMRESULT EnableModeless (BOOL) { return S_OK; } JUCE_COMRESULT TranslateAccelerator (LPMSG, WORD) { return E_NOTIMPL; } private: HWND window; }; //============================================================================== class JuceIOleInPlaceSite : public ComBaseClassHelper { public: JuceIOleInPlaceSite (HWND hwnd) : window (hwnd), frame (new JuceOleInPlaceFrame (window)) {} ~JuceIOleInPlaceSite() { frame->Release(); } JUCE_COMRESULT GetWindow (HWND* lphwnd) { *lphwnd = window; return S_OK; } JUCE_COMRESULT ContextSensitiveHelp (BOOL) { return E_NOTIMPL; } JUCE_COMRESULT CanInPlaceActivate() { return S_OK; } JUCE_COMRESULT OnInPlaceActivate() { return S_OK; } JUCE_COMRESULT OnUIActivate() { return S_OK; } JUCE_COMRESULT GetWindowContext (LPOLEINPLACEFRAME* lplpFrame, LPOLEINPLACEUIWINDOW* lplpDoc, LPRECT, LPRECT, LPOLEINPLACEFRAMEINFO lpFrameInfo) { /* Note: if you call AddRef on the frame here, then some types of object (e.g. web browser control) cause leaks.. If you don't call AddRef then others crash (e.g. QuickTime).. Bit of a catch-22, so letting it leak is probably preferable. */ if (lplpFrame != nullptr) { frame->AddRef(); *lplpFrame = frame; } if (lplpDoc != nullptr) *lplpDoc = nullptr; lpFrameInfo->fMDIApp = FALSE; lpFrameInfo->hwndFrame = window; lpFrameInfo->haccel = 0; lpFrameInfo->cAccelEntries = 0; return S_OK; } JUCE_COMRESULT Scroll (SIZE) { return E_NOTIMPL; } JUCE_COMRESULT OnUIDeactivate (BOOL) { return S_OK; } JUCE_COMRESULT OnInPlaceDeactivate() { return S_OK; } JUCE_COMRESULT DiscardUndoState() { return E_NOTIMPL; } JUCE_COMRESULT DeactivateAndUndo() { return E_NOTIMPL; } JUCE_COMRESULT OnPosRectChange (LPCRECT) { return S_OK; } private: HWND window; JuceOleInPlaceFrame* frame; }; //============================================================================== class JuceIOleClientSite : public ComBaseClassHelper { public: JuceIOleClientSite (HWND window) : inplaceSite (new JuceIOleInPlaceSite (window)) {} ~JuceIOleClientSite() { inplaceSite->Release(); } JUCE_COMRESULT QueryInterface (REFIID type, void** result) { if (type == IID_IOleInPlaceSite) { inplaceSite->AddRef(); *result = static_cast (inplaceSite); return S_OK; } return ComBaseClassHelper ::QueryInterface (type, result); } JUCE_COMRESULT SaveObject() { return E_NOTIMPL; } JUCE_COMRESULT GetMoniker (DWORD, DWORD, IMoniker**) { return E_NOTIMPL; } JUCE_COMRESULT GetContainer (LPOLECONTAINER* ppContainer) { *ppContainer = nullptr; return E_NOINTERFACE; } JUCE_COMRESULT ShowObject() { return S_OK; } JUCE_COMRESULT OnShowWindow (BOOL) { return E_NOTIMPL; } JUCE_COMRESULT RequestNewObjectLayout() { return E_NOTIMPL; } private: JuceIOleInPlaceSite* inplaceSite; }; //============================================================================== static Array activeXComps; HWND getHWND (const ActiveXControlComponent* const component) { HWND hwnd = 0; const IID iid = IID_IOleWindow; if (IOleWindow* const window = (IOleWindow*) component->queryInterface (&iid)) { window->GetWindow (&hwnd); window->Release(); } return hwnd; } void offerActiveXMouseEventToPeer (ComponentPeer* const peer, HWND hwnd, UINT message, LPARAM lParam) { RECT activeXRect, peerRect; GetWindowRect (hwnd, &activeXRect); GetWindowRect ((HWND) peer->getNativeHandle(), &peerRect); switch (message) { case WM_MOUSEMOVE: case WM_LBUTTONDOWN: case WM_MBUTTONDOWN: case WM_RBUTTONDOWN: case WM_LBUTTONUP: case WM_MBUTTONUP: case WM_RBUTTONUP: peer->handleMouseEvent (0, Point (GET_X_LPARAM (lParam) + activeXRect.left - peerRect.left, GET_Y_LPARAM (lParam) + activeXRect.top - peerRect.top).toFloat(), ModifierKeys::getCurrentModifiersRealtime(), getMouseEventTime()); break; default: break; } } } //============================================================================== class ActiveXControlComponent::Pimpl : public ComponentMovementWatcher { public: Pimpl (HWND hwnd, ActiveXControlComponent& activeXComp) : ComponentMovementWatcher (&activeXComp), owner (activeXComp), controlHWND (0), storage (new ActiveXHelpers::JuceIStorage()), clientSite (new ActiveXHelpers::JuceIOleClientSite (hwnd)), control (nullptr), originalWndProc (0) { } ~Pimpl() { if (control != nullptr) { control->Close (OLECLOSE_NOSAVE); control->Release(); } clientSite->Release(); storage->Release(); } void setControlBounds (const Rectangle& bounds) const { if (controlHWND != 0) MoveWindow (controlHWND, bounds.getX(), bounds.getY(), bounds.getWidth(), bounds.getHeight(), TRUE); } void setControlVisible (bool shouldBeVisible) const { if (controlHWND != 0) ShowWindow (controlHWND, shouldBeVisible ? SW_SHOWNA : SW_HIDE); } //============================================================================== void componentMovedOrResized (bool /*wasMoved*/, bool /*wasResized*/) override { if (ComponentPeer* const peer = owner.getTopLevelComponent()->getPeer()) setControlBounds (peer->getAreaCoveredBy (owner)); } void componentPeerChanged() override { componentMovedOrResized (true, true); } void componentVisibilityChanged() override { setControlVisible (owner.isShowing()); componentPeerChanged(); } // intercepts events going to an activeX control, so we can sneakily use the mouse events static LRESULT CALLBACK activeXHookWndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) { for (int i = ActiveXHelpers::activeXComps.size(); --i >= 0;) { const ActiveXControlComponent* const ax = ActiveXHelpers::activeXComps.getUnchecked(i); if (ax->control != nullptr && ax->control->controlHWND == hwnd) { switch (message) { case WM_MOUSEMOVE: case WM_LBUTTONDOWN: case WM_MBUTTONDOWN: case WM_RBUTTONDOWN: case WM_LBUTTONUP: case WM_MBUTTONUP: case WM_RBUTTONUP: case WM_LBUTTONDBLCLK: case WM_MBUTTONDBLCLK: case WM_RBUTTONDBLCLK: if (ax->isShowing()) { if (ComponentPeer* const peer = ax->getPeer()) { ActiveXHelpers::offerActiveXMouseEventToPeer (peer, hwnd, message, lParam); if (! ax->areMouseEventsAllowed()) return 0; } } break; default: break; } return CallWindowProc (ax->control->originalWndProc, hwnd, message, wParam, lParam); } } return DefWindowProc (hwnd, message, wParam, lParam); } ActiveXControlComponent& owner; HWND controlHWND; IStorage* storage; IOleClientSite* clientSite; IOleObject* control; WNDPROC originalWndProc; }; //============================================================================== ActiveXControlComponent::ActiveXControlComponent() : mouseEventsAllowed (true) { ActiveXHelpers::activeXComps.add (this); } ActiveXControlComponent::~ActiveXControlComponent() { deleteControl(); ActiveXHelpers::activeXComps.removeFirstMatchingValue (this); } void ActiveXControlComponent::paint (Graphics& g) { if (control == nullptr) g.fillAll (Colours::lightgrey); } bool ActiveXControlComponent::createControl (const void* controlIID) { deleteControl(); if (ComponentPeer* const peer = getPeer()) { const Rectangle bounds (peer->getAreaCoveredBy (*this)); HWND hwnd = (HWND) peer->getNativeHandle(); ScopedPointer newControl (new Pimpl (hwnd, *this)); HRESULT hr; if ((hr = OleCreate (*(const IID*) controlIID, IID_IOleObject, 1 /*OLERENDER_DRAW*/, 0, newControl->clientSite, newControl->storage, (void**) &(newControl->control))) == S_OK) { newControl->control->SetHostNames (L"JUCE", 0); if (OleSetContainedObject (newControl->control, TRUE) == S_OK) { RECT rect; rect.left = bounds.getX(); rect.top = bounds.getY(); rect.right = bounds.getRight(); rect.bottom = bounds.getBottom(); if (newControl->control->DoVerb (OLEIVERB_SHOW, 0, newControl->clientSite, 0, hwnd, &rect) == S_OK) { control = newControl; control->controlHWND = ActiveXHelpers::getHWND (this); if (control->controlHWND != 0) { control->setControlBounds (bounds); control->originalWndProc = (WNDPROC) GetWindowLongPtr ((HWND) control->controlHWND, GWLP_WNDPROC); SetWindowLongPtr ((HWND) control->controlHWND, GWLP_WNDPROC, (LONG_PTR) Pimpl::activeXHookWndProc); } return true; } } } } else { // the component must have already been added to a real window when you call this! jassertfalse; } return false; } void ActiveXControlComponent::deleteControl() { control = nullptr; } void* ActiveXControlComponent::queryInterface (const void* iid) const { void* result = nullptr; if (control != nullptr && control->control != nullptr && SUCCEEDED (control->control->QueryInterface (*(const IID*) iid, &result))) return result; return nullptr; } void ActiveXControlComponent::setMouseEventsAllowed (const bool eventsCanReachControl) { mouseEventsAllowed = eventsCanReachControl; }