-//---------------------------------------------------------------------------
-//
-// wxActiveX (Ryan Norton's version :))
-// wxActiveX is (C) 2003 Lindsay Mathieson
-//
-//---------------------------------------------------------------------------
-#define WX_DECLARE_AUTOOLE(wxAutoOleInterface, I) \
-class wxAutoOleInterface \
-{ \
- protected: \
- I *m_interface; \
-\
- public: \
- explicit wxAutoOleInterface(I *pInterface = NULL) : m_interface(pInterface) {} \
- wxAutoOleInterface(REFIID riid, IUnknown *pUnk) : m_interface(NULL) \
- { QueryInterface(riid, pUnk); } \
- wxAutoOleInterface(REFIID riid, IDispatch *pDispatch) : m_interface(NULL) \
- { QueryInterface(riid, pDispatch); } \
- wxAutoOleInterface(REFCLSID clsid, REFIID riid) : m_interface(NULL)\
- { CreateInstance(clsid, riid); }\
- wxAutoOleInterface(const wxAutoOleInterface& ti) : m_interface(NULL)\
- { operator = (ti); }\
-\
- wxAutoOleInterface& operator = (const wxAutoOleInterface& ti)\
- {\
- if (ti.m_interface)\
- ti.m_interface->AddRef();\
- Free();\
- m_interface = ti.m_interface;\
- return *this;\
- }\
-\
- wxAutoOleInterface& operator = (I *&ti)\
- {\
- Free();\
- m_interface = ti;\
- return *this;\
- }\
-\
- ~wxAutoOleInterface() { Free(); }\
-\
- inline void Free()\
- {\
- if (m_interface)\
- m_interface->Release();\
- m_interface = NULL;\
- }\
-\
- HRESULT QueryInterface(REFIID riid, IUnknown *pUnk)\
- {\
- Free();\
- wxASSERT(pUnk != NULL);\
- return pUnk->QueryInterface(riid, (void **) &m_interface);\
- }\
-\
- HRESULT CreateInstance(REFCLSID clsid, REFIID riid)\
- {\
- Free();\
- return CoCreateInstance(clsid, NULL, CLSCTX_ALL, riid, (void **) &m_interface);\
- }\
-\
- inline operator I *() const {return m_interface;}\
- inline I* operator ->() {return m_interface;}\
- inline I** GetRef() {return &m_interface;}\
- inline bool Ok() const {return m_interface != NULL;}\
-};
-
-WX_DECLARE_AUTOOLE(wxAutoIDispatch, IDispatch)
-WX_DECLARE_AUTOOLE(wxAutoIOleClientSite, IOleClientSite)
-WX_DECLARE_AUTOOLE(wxAutoIUnknown, IUnknown)
-WX_DECLARE_AUTOOLE(wxAutoIOleObject, IOleObject)
-WX_DECLARE_AUTOOLE(wxAutoIOleInPlaceObject, IOleInPlaceObject)
-WX_DECLARE_AUTOOLE(wxAutoIOleInPlaceActiveObject, IOleInPlaceActiveObject)
-WX_DECLARE_AUTOOLE(wxAutoIOleDocumentView, IOleDocumentView)
-WX_DECLARE_AUTOOLE(wxAutoIViewObject, IViewObject)
-WX_DECLARE_AUTOOLE(wxAutoIOleInPlaceSite, IOleInPlaceSite)
-WX_DECLARE_AUTOOLE(wxAutoIOleDocument, IOleDocument)
-WX_DECLARE_AUTOOLE(wxAutoIPersistStreamInit, IPersistStreamInit)
-WX_DECLARE_AUTOOLE(wxAutoIAdviseSink, IAdviseSink)
-
-class wxActiveX : public wxWindow
-{
-public:
- wxActiveX(wxWindow * parent, REFIID iid, IUnknown* pUnk);
- virtual ~wxActiveX();
-
- void OnSize(wxSizeEvent&);
- void OnPaint(wxPaintEvent&);
- void OnSetFocus(wxFocusEvent&);
- void OnKillFocus(wxFocusEvent&);
-
-protected:
- friend class FrameSite;
-
- wxAutoIDispatch m_Dispatch;
- wxAutoIOleClientSite m_clientSite;
- wxAutoIUnknown m_ActiveX;
- wxAutoIOleObject m_oleObject;
- wxAutoIOleInPlaceObject m_oleInPlaceObject;
- wxAutoIOleInPlaceActiveObject m_oleInPlaceActiveObject;
- wxAutoIOleDocumentView m_docView;
- wxAutoIViewObject m_viewObject;
- HWND m_oleObjectHWND;
- bool m_bAmbientUserMode;
- DWORD m_docAdviseCookie;
- wxWindow* m_realparent;
-
- void CreateActiveX(REFIID, IUnknown*);
-};
-
-#define DECLARE_OLE_UNKNOWN(cls)\
- private:\
- class TAutoInitInt\
- {\
- public:\
- LONG l;\
- TAutoInitInt() : l(0) {}\
- };\
- TAutoInitInt refCount, lockCount;\
- static void _GetInterface(cls *self, REFIID iid, void **_interface, const char *&desc);\
- public:\
- LONG GetRefCount();\
- HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void ** ppvObject);\
- ULONG STDMETHODCALLTYPE AddRef();\
- ULONG STDMETHODCALLTYPE Release();\
- ULONG STDMETHODCALLTYPE AddLock();\
- ULONG STDMETHODCALLTYPE ReleaseLock()
-
-#define DEFINE_OLE_TABLE(cls)\
- LONG cls::GetRefCount() {return refCount.l;}\
- HRESULT STDMETHODCALLTYPE cls::QueryInterface(REFIID iid, void ** ppvObject)\
- {\
- if (! ppvObject)\
- {\
- return E_FAIL;\
- };\
- const char *desc = NULL;\
- cls::_GetInterface(this, iid, ppvObject, desc);\
- if (! *ppvObject)\
- {\
- return E_NOINTERFACE;\
- };\
- ((IUnknown * )(*ppvObject))->AddRef();\
- return S_OK;\
- };\
- ULONG STDMETHODCALLTYPE cls::AddRef()\
- {\
- InterlockedIncrement(&refCount.l);\
- return refCount.l;\
- };\
- ULONG STDMETHODCALLTYPE cls::Release()\
- {\
- if (refCount.l > 0)\
- {\
- InterlockedDecrement(&refCount.l);\
- if (refCount.l == 0)\
- {\
- delete this;\
- return 0;\
- };\
- return refCount.l;\
- }\
- else\
- return 0;\
- }\
- ULONG STDMETHODCALLTYPE cls::AddLock()\
- {\
- InterlockedIncrement(&lockCount.l);\
- return lockCount.l;\
- };\
- ULONG STDMETHODCALLTYPE cls::ReleaseLock()\
- {\
- if (lockCount.l > 0)\
- {\
- InterlockedDecrement(&lockCount.l);\
- return lockCount.l;\
- }\
- else\
- return 0;\
- }\
- DEFINE_OLE_BASE(cls)
-
-#define DEFINE_OLE_BASE(cls)\
- void cls::_GetInterface(cls *self, REFIID iid, void **_interface, const char *&desc)\
- {\
- *_interface = NULL;\
- desc = NULL;
-
-#define OLE_INTERFACE(_iid, _type)\
- if (IsEqualIID(iid, _iid))\
- {\
- *_interface = (IUnknown *) (_type *) self;\
- desc = # _iid;\
- return;\
- }
-
-#define OLE_IINTERFACE(_face) OLE_INTERFACE(IID_##_face, _face)
-
-#define OLE_INTERFACE_CUSTOM(func)\
- if (func(self, iid, _interface, desc))\
- {\
- return;\
- }
-
-#define END_OLE_TABLE\
- }
-
-
-class FrameSite :
- public IOleClientSite,
- public IOleInPlaceSiteEx,
- public IOleInPlaceFrame,
- public IOleItemContainer,
- public IDispatch,
- public IOleCommandTarget,
- public IOleDocumentSite,
- public IAdviseSink,
- public IOleControlSite
-{
-private:
- DECLARE_OLE_UNKNOWN(FrameSite);
-
-public:
- FrameSite(wxWindow * win, wxActiveX * win2)
- {
- m_window = win2;
- m_bSupportsWindowlessActivation = true;
- m_bInPlaceLocked = false;
- m_bUIActive = false;
- m_bInPlaceActive = false;
- m_bWindowless = false;
-
- m_nAmbientLocale = 0;
- m_clrAmbientForeColor = ::GetSysColor(COLOR_WINDOWTEXT);
- m_clrAmbientBackColor = ::GetSysColor(COLOR_WINDOW);
- m_bAmbientShowHatching = true;
- m_bAmbientShowGrabHandles = true;
- m_bAmbientAppearance = true;
-
- m_hDCBuffer = NULL;
- m_hWndParent = (HWND)win->GetHWND();
- }
- virtual ~FrameSite(){}
- //***************************IDispatch*****************************
- HRESULT STDMETHODCALLTYPE GetIDsOfNames(REFIID, OLECHAR ** ,
- unsigned int , LCID ,
- DISPID * )
- { return E_NOTIMPL; }
- STDMETHOD(GetTypeInfo)(unsigned int, LCID, ITypeInfo **)
- { return E_NOTIMPL; }
- HRESULT STDMETHODCALLTYPE GetTypeInfoCount(unsigned int *)
- { return E_NOTIMPL; }
- HRESULT STDMETHODCALLTYPE Invoke(DISPID dispIdMember, REFIID, LCID,
- WORD wFlags, DISPPARAMS *,
- VARIANT * pVarResult, EXCEPINFO *,
- unsigned int *)
- {
- if (!(wFlags & DISPATCH_PROPERTYGET))
- return S_OK;
-
- if (pVarResult == NULL)
- return E_INVALIDARG;
-
- //The most common case is boolean, use as an initial type
- V_VT(pVarResult) = VT_BOOL;
-
- switch (dispIdMember)
- {
- case DISPID_AMBIENT_MESSAGEREFLECT:
- V_BOOL(pVarResult)= FALSE;
- return S_OK;
-
- case DISPID_AMBIENT_DISPLAYASDEFAULT:
- V_BOOL(pVarResult)= TRUE;
- return S_OK;
-
- case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
- V_BOOL(pVarResult) = TRUE;
- return S_OK;
-
- case DISPID_AMBIENT_SILENT:
- V_BOOL(pVarResult)= TRUE;
- return S_OK;
-
- case DISPID_AMBIENT_APPEARANCE:
- pVarResult->vt = VT_BOOL;
- pVarResult->boolVal = m_bAmbientAppearance;
- break;
-
- case DISPID_AMBIENT_FORECOLOR:
- pVarResult->vt = VT_I4;
- pVarResult->lVal = (long) m_clrAmbientForeColor;
- break;
-
- case DISPID_AMBIENT_BACKCOLOR:
- pVarResult->vt = VT_I4;
- pVarResult->lVal = (long) m_clrAmbientBackColor;
- break;
-
- case DISPID_AMBIENT_LOCALEID:
- pVarResult->vt = VT_I4;
- pVarResult->lVal = (long) m_nAmbientLocale;
- break;
-
- case DISPID_AMBIENT_USERMODE:
- pVarResult->vt = VT_BOOL;
- pVarResult->boolVal = m_window->m_bAmbientUserMode;
- break;
-
- case DISPID_AMBIENT_SHOWGRABHANDLES:
- pVarResult->vt = VT_BOOL;
- pVarResult->boolVal = m_bAmbientShowGrabHandles;
- break;
-
- case DISPID_AMBIENT_SHOWHATCHING:
- pVarResult->vt = VT_BOOL;
- pVarResult->boolVal = m_bAmbientShowHatching;
- break;
-
- default:
- return DISP_E_MEMBERNOTFOUND;
- }
-
- return S_OK;
- }
-
- //**************************IOleWindow***************************
- HRESULT STDMETHODCALLTYPE GetWindow(HWND * phwnd)
- {
- if (phwnd == NULL)
- return E_INVALIDARG;
- (*phwnd) = m_hWndParent;
- return S_OK;
- }
- HRESULT STDMETHODCALLTYPE ContextSensitiveHelp(BOOL)
- {return S_OK;}
- //**************************IOleInPlaceUIWindow*****************
- HRESULT STDMETHODCALLTYPE GetBorder(LPRECT lprectBorder)
- {
- if (lprectBorder == NULL)
- return E_INVALIDARG;
- return INPLACE_E_NOTOOLSPACE;
- }
- HRESULT STDMETHODCALLTYPE RequestBorderSpace(LPCBORDERWIDTHS pborderwidths)
- {
- if (pborderwidths == NULL)
- return E_INVALIDARG;
- return INPLACE_E_NOTOOLSPACE;
- }
- HRESULT STDMETHODCALLTYPE SetBorderSpace(LPCBORDERWIDTHS)
- {return S_OK;}
- HRESULT STDMETHODCALLTYPE SetActiveObject(
- IOleInPlaceActiveObject *pActiveObject, LPCOLESTR)
- {
- if (pActiveObject)
- pActiveObject->AddRef();
-
- m_window->m_oleInPlaceActiveObject = pActiveObject;
- return S_OK;
- }
-
- //********************IOleInPlaceFrame************************
-
- STDMETHOD(InsertMenus)(HMENU, LPOLEMENUGROUPWIDTHS){return S_OK;}
- STDMETHOD(SetMenu)(HMENU, HOLEMENU, HWND){ return S_OK;}
- STDMETHOD(RemoveMenus)(HMENU){return S_OK;}
- STDMETHOD(SetStatusText)(LPCOLESTR){ return S_OK;}
- HRESULT STDMETHODCALLTYPE EnableModeless(BOOL){return S_OK;}
- HRESULT STDMETHODCALLTYPE TranslateAccelerator(LPMSG lpmsg, WORD)
- {
- // TODO: send an event with this id
- if (m_window->m_oleInPlaceActiveObject.Ok())
- m_window->m_oleInPlaceActiveObject->TranslateAccelerator(lpmsg);
- return S_FALSE;
- }
-
- //*******************IOleInPlaceSite**************************
- HRESULT STDMETHODCALLTYPE CanInPlaceActivate(){return S_OK;}
- HRESULT STDMETHODCALLTYPE OnInPlaceActivate()
- { m_bInPlaceActive = true; return S_OK; }
- HRESULT STDMETHODCALLTYPE OnUIActivate()
- { m_bUIActive = true; return S_OK; }
- HRESULT STDMETHODCALLTYPE GetWindowContext(IOleInPlaceFrame **ppFrame,
- IOleInPlaceUIWindow **ppDoc,
- LPRECT lprcPosRect,
- LPRECT lprcClipRect,
- LPOLEINPLACEFRAMEINFO lpFrameInfo)
- {
- if (ppFrame == NULL || ppDoc == NULL || lprcPosRect == NULL ||
- lprcClipRect == NULL || lpFrameInfo == NULL)
- {
- if (ppFrame != NULL)
- (*ppFrame) = NULL;
- if (ppDoc != NULL)
- (*ppDoc) = NULL;
- return E_INVALIDARG;
- }
-
- HRESULT hr = QueryInterface(IID_IOleInPlaceFrame, (void **) ppFrame);
- if (! SUCCEEDED(hr))
- {
- return E_UNEXPECTED;
- };
-
- hr = QueryInterface(IID_IOleInPlaceUIWindow, (void **) ppDoc);
- if (! SUCCEEDED(hr))
- {
- (*ppFrame)->Release();
- *ppFrame = NULL;
- return E_UNEXPECTED;
- };
-
- RECT rect;
- ::GetClientRect(m_hWndParent, &rect);
- if (lprcPosRect)
- {
- lprcPosRect->left = lprcPosRect->top = 0;
- lprcPosRect->right = rect.right;
- lprcPosRect->bottom = rect.bottom;
- };
- if (lprcClipRect)
- {
- lprcClipRect->left = lprcClipRect->top = 0;
- lprcClipRect->right = rect.right;
- lprcClipRect->bottom = rect.bottom;
- };
-
- memset(lpFrameInfo, 0, sizeof(OLEINPLACEFRAMEINFO));
- lpFrameInfo->cb = sizeof(OLEINPLACEFRAMEINFO);
- lpFrameInfo->hwndFrame = m_hWndParent;
-
- return S_OK;
- }
- HRESULT STDMETHODCALLTYPE Scroll(SIZE){return S_OK;}
- HRESULT STDMETHODCALLTYPE OnUIDeactivate(BOOL)
- { m_bUIActive = false; return S_OK; }
- HRESULT STDMETHODCALLTYPE OnInPlaceDeactivate()
- { m_bInPlaceActive = false; return S_OK; }
- HRESULT STDMETHODCALLTYPE DiscardUndoState(){return S_OK;}
- HRESULT STDMETHODCALLTYPE DeactivateAndUndo(){return S_OK; }
- HRESULT STDMETHODCALLTYPE OnPosRectChange(LPCRECT lprcPosRect)
- {
- if (m_window->m_oleInPlaceObject.Ok() && lprcPosRect)
- {
- m_window->m_oleInPlaceObject->SetObjectRects(
- lprcPosRect, lprcPosRect);
- }
- return S_OK;
- }
- //*************************IOleInPlaceSiteEx***********************
- HRESULT STDMETHODCALLTYPE OnInPlaceActivateEx(BOOL * pfNoRedraw, DWORD)
- {
- OleLockRunning(m_window->m_ActiveX, TRUE, FALSE);
- if (pfNoRedraw)
- (*pfNoRedraw) = FALSE;
- return S_OK;
- }
-
- HRESULT STDMETHODCALLTYPE OnInPlaceDeactivateEx(BOOL)
- {
- OleLockRunning(m_window->m_ActiveX, FALSE, FALSE);
- return S_OK;
- }
- STDMETHOD(RequestUIActivate)(){ return S_OK;}
- //*************************IOleClientSite**************************
- HRESULT STDMETHODCALLTYPE SaveObject(){return S_OK;}
- const char *OleGetMonikerToStr(DWORD dwAssign)
- {
- switch (dwAssign)
- {
- case OLEGETMONIKER_ONLYIFTHERE : return "OLEGETMONIKER_ONLYIFTHERE";
- case OLEGETMONIKER_FORCEASSIGN : return "OLEGETMONIKER_FORCEASSIGN";
- case OLEGETMONIKER_UNASSIGN : return "OLEGETMONIKER_UNASSIGN";
- case OLEGETMONIKER_TEMPFORUSER : return "OLEGETMONIKER_TEMPFORUSER";
- default : return "Bad Enum";
- };
- };
-
- const char *OleGetWhicMonikerStr(DWORD dwWhichMoniker)
- {
- switch(dwWhichMoniker)
- {
- case OLEWHICHMK_CONTAINER : return "OLEWHICHMK_CONTAINER";
- case OLEWHICHMK_OBJREL : return "OLEWHICHMK_OBJREL";
- case OLEWHICHMK_OBJFULL : return "OLEWHICHMK_OBJFULL";
- default : return "Bad Enum";
- };
- };
- STDMETHOD(GetMoniker)(DWORD, DWORD, IMoniker **){return E_FAIL;}
- HRESULT STDMETHODCALLTYPE GetContainer(LPOLECONTAINER * ppContainer)
- {
- if (ppContainer == NULL)
- return E_INVALIDARG;
- HRESULT hr = QueryInterface(
- IID_IOleContainer, (void**)(ppContainer));
- wxASSERT(SUCCEEDED(hr));
- return hr;
- }
- HRESULT STDMETHODCALLTYPE ShowObject()
- {
- if (m_window->m_oleObjectHWND)
- ::ShowWindow(m_window->m_oleObjectHWND, SW_SHOW);
- return S_OK;
- }
- STDMETHOD(OnShowWindow)(BOOL){return S_OK;}
- STDMETHOD(RequestNewObjectLayout)(){return E_NOTIMPL;}
- //********************IParseDisplayName***************************
- HRESULT STDMETHODCALLTYPE ParseDisplayName(
- IBindCtx *, LPOLESTR, ULONG *, IMoniker **){return E_NOTIMPL;}
- //********************IOleContainer*******************************
- STDMETHOD(EnumObjects)(DWORD, IEnumUnknown **){return E_NOTIMPL;}
- HRESULT STDMETHODCALLTYPE LockContainer(BOOL){return S_OK;}
- //********************IOleItemContainer***************************
- HRESULT STDMETHODCALLTYPE
- #ifdef _UNICODE
- GetObjectW
- #else
- GetObjectA
- #endif
- (LPOLESTR pszItem, DWORD, IBindCtx *, REFIID, void ** ppvObject)
- {
- if (pszItem == NULL || ppvObject == NULL)
- return E_INVALIDARG;
- *ppvObject = NULL;
- return MK_E_NOOBJECT;
- }
- HRESULT STDMETHODCALLTYPE GetObjectStorage(
- LPOLESTR pszItem, IBindCtx * , REFIID, void ** ppvStorage)
- {
- if (pszItem == NULL || ppvStorage == NULL)
- return E_INVALIDARG;
- *ppvStorage = NULL;
- return MK_E_NOOBJECT;
- }
- HRESULT STDMETHODCALLTYPE IsRunning(LPOLESTR pszItem)
- {
- if (pszItem == NULL)
- return E_INVALIDARG;
- return MK_E_NOOBJECT;
- }
- //***********************IOleControlSite*****************************
- HRESULT STDMETHODCALLTYPE OnControlInfoChanged()
- {return S_OK;}
- HRESULT STDMETHODCALLTYPE LockInPlaceActive(BOOL fLock)
- {
- m_bInPlaceLocked = (fLock) ? true : false;
- return S_OK;
- }
- HRESULT STDMETHODCALLTYPE GetExtendedControl(IDispatch **)
- {return E_NOTIMPL;}
- HRESULT STDMETHODCALLTYPE TransformCoords(
- POINTL * pPtlHimetric, POINTF * pPtfContainer, DWORD)
- {
- if (pPtlHimetric == NULL || pPtfContainer == NULL)
- return E_INVALIDARG;
- return E_NOTIMPL;
- }
- HRESULT STDMETHODCALLTYPE TranslateAccelerator(LPMSG, DWORD)
- {return E_NOTIMPL;}
- HRESULT STDMETHODCALLTYPE OnFocus(BOOL){return S_OK;}
- HRESULT STDMETHODCALLTYPE ShowPropertyFrame(){return E_NOTIMPL;}
- //**************************IOleCommandTarget***********************
- HRESULT STDMETHODCALLTYPE QueryStatus(const GUID *, ULONG cCmds,
- OLECMD prgCmds[], OLECMDTEXT *)
- {
- if (prgCmds == NULL) return E_INVALIDARG;
- for (ULONG nCmd = 0; nCmd < cCmds; nCmd++)
- {
- // unsupported by default
- prgCmds[nCmd].cmdf = 0;
- }
- return OLECMDERR_E_UNKNOWNGROUP;
- }
-
- HRESULT STDMETHODCALLTYPE Exec(const GUID *, DWORD,
- DWORD, VARIANTARG *, VARIANTARG *)
- {return OLECMDERR_E_NOTSUPPORTED;}
-
- //**********************IAdviseSink************************************
- void STDMETHODCALLTYPE OnDataChange(FORMATETC *, STGMEDIUM *) {}
- void STDMETHODCALLTYPE OnViewChange(DWORD, LONG) {}
- void STDMETHODCALLTYPE OnRename(IMoniker *){}
- void STDMETHODCALLTYPE OnSave(){}
- void STDMETHODCALLTYPE OnClose(){}
-
- //**********************IOleDocumentSite***************************
- HRESULT STDMETHODCALLTYPE ActivateMe(
- IOleDocumentView __RPC_FAR *pViewToActivate)
- {
- wxAutoIOleInPlaceSite inPlaceSite(
- IID_IOleInPlaceSite, (IDispatch *) this);
- if (!inPlaceSite.Ok())
- return E_FAIL;
-
- if (pViewToActivate)
- {
- m_window->m_docView = pViewToActivate;
- m_window->m_docView->SetInPlaceSite(inPlaceSite);
- }
- else
- {
- wxAutoIOleDocument oleDoc(
- IID_IOleDocument, m_window->m_oleObject);
- if (! oleDoc.Ok())
- return E_FAIL;
-
- HRESULT hr = oleDoc->CreateView(inPlaceSite, NULL,
- 0, m_window->m_docView.GetRef());
- if (hr != S_OK)
- return E_FAIL;
-
- m_window->m_docView->SetInPlaceSite(inPlaceSite);
- };
-
- m_window->m_docView->UIActivate(TRUE);
- return S_OK;
- };
-
-
-protected:
- wxActiveX * m_window;
-
- HDC m_hDCBuffer;
- HWND m_hWndParent;
-
- bool m_bSupportsWindowlessActivation;
- bool m_bInPlaceLocked;
- bool m_bInPlaceActive;
- bool m_bUIActive;
- bool m_bWindowless;
-
- LCID m_nAmbientLocale;
- COLORREF m_clrAmbientForeColor;
- COLORREF m_clrAmbientBackColor;
- bool m_bAmbientShowHatching;
- bool m_bAmbientShowGrabHandles;
- bool m_bAmbientAppearance;
-};
-
-DEFINE_OLE_TABLE(FrameSite)
- OLE_INTERFACE(IID_IUnknown, IOleClientSite)
- OLE_IINTERFACE(IOleClientSite)
- OLE_INTERFACE(IID_IOleWindow, IOleInPlaceSite)
- OLE_IINTERFACE(IOleInPlaceSite)
- OLE_IINTERFACE(IOleInPlaceSiteEx)
- OLE_IINTERFACE(IOleInPlaceUIWindow)
- OLE_IINTERFACE(IOleInPlaceFrame)
- OLE_IINTERFACE(IParseDisplayName)
- OLE_IINTERFACE(IOleContainer)
- OLE_IINTERFACE(IOleItemContainer)
- OLE_IINTERFACE(IDispatch)
- OLE_IINTERFACE(IOleCommandTarget)
- OLE_IINTERFACE(IOleDocumentSite)
- OLE_IINTERFACE(IAdviseSink)
- OLE_IINTERFACE(IOleControlSite)
-END_OLE_TABLE;
-
-
-wxActiveX::wxActiveX(wxWindow * parent, REFIID iid, IUnknown* pUnk)
- : m_realparent(parent)
-{
- m_bAmbientUserMode = true;
- m_docAdviseCookie = 0;
- CreateActiveX(iid, pUnk);
-}
-
-wxActiveX::~wxActiveX()
-{
- // disconnect connection points
- if (m_oleInPlaceObject.Ok())
- {
- m_oleInPlaceObject->InPlaceDeactivate();
- m_oleInPlaceObject->UIDeactivate();
- }
-
- if (m_oleObject.Ok())
- {
- if (m_docAdviseCookie != 0)
- m_oleObject->Unadvise(m_docAdviseCookie);
-
- m_oleObject->DoVerb(
- OLEIVERB_HIDE, NULL, m_clientSite, 0, (HWND) GetHWND(), NULL);
- m_oleObject->Close(OLECLOSE_NOSAVE);
- m_oleObject->SetClientSite(NULL);
- }
-}
-
-void wxActiveX::CreateActiveX(REFIID iid, IUnknown* pUnk)
-{
- HRESULT hret;
- hret = m_ActiveX.QueryInterface(iid, pUnk);
- wxASSERT(SUCCEEDED(hret));
-
- // FrameSite
- FrameSite *frame = new FrameSite(m_realparent, this);
- // oleClientSite
- hret = m_clientSite.QueryInterface(
- IID_IOleClientSite, (IDispatch *) frame);
- wxASSERT(SUCCEEDED(hret));
- // adviseSink
- wxAutoIAdviseSink adviseSink(IID_IAdviseSink, (IDispatch *) frame);
- wxASSERT(adviseSink.Ok());
-
- // Get Dispatch interface
- hret = m_Dispatch.QueryInterface(IID_IDispatch, m_ActiveX);
-
- // Get IOleObject interface
- hret = m_oleObject.QueryInterface(IID_IOleObject, m_ActiveX);
- wxASSERT(SUCCEEDED(hret));
-
- // get IViewObject Interface
- hret = m_viewObject.QueryInterface(IID_IViewObject, m_ActiveX);
- wxASSERT(SUCCEEDED(hret));
-
- // document advise
- m_docAdviseCookie = 0;
- hret = m_oleObject->Advise(adviseSink, &m_docAdviseCookie);
- m_oleObject->SetHostNames(L"wxActiveXContainer", NULL);
- OleSetContainedObject(m_oleObject, TRUE);
- OleRun(m_oleObject);
-
-
- // Get IOleInPlaceObject interface
- hret = m_oleInPlaceObject.QueryInterface(
- IID_IOleInPlaceObject, m_ActiveX);
- wxASSERT(SUCCEEDED(hret));
-
- // status
- DWORD dwMiscStatus;
- m_oleObject->GetMiscStatus(DVASPECT_CONTENT, &dwMiscStatus);
- wxASSERT(SUCCEEDED(hret));
-
- // set client site first ?
- if (dwMiscStatus & OLEMISC_SETCLIENTSITEFIRST)
- m_oleObject->SetClientSite(m_clientSite);
-
-
- // stream init
- wxAutoIPersistStreamInit
- pPersistStreamInit(IID_IPersistStreamInit, m_oleObject);
-
- if (pPersistStreamInit.Ok())
- {
- hret = pPersistStreamInit->InitNew();
- }
-
- if (! (dwMiscStatus & OLEMISC_SETCLIENTSITEFIRST))
- m_oleObject->SetClientSite(m_clientSite);
-
-
- RECT posRect;
- ::GetClientRect((HWND)m_realparent->GetHWND(), &posRect);
-
- m_oleObjectHWND = 0;
-
- if (m_oleInPlaceObject.Ok())
- {
- hret = m_oleInPlaceObject->GetWindow(&m_oleObjectHWND);
- if (SUCCEEDED(hret))
- ::SetActiveWindow(m_oleObjectHWND);
- }
-
-
- if (! (dwMiscStatus & OLEMISC_INVISIBLEATRUNTIME))
- {
- if (posRect.right > 0 && posRect.bottom > 0 &&
- m_oleInPlaceObject.Ok())
- m_oleInPlaceObject->SetObjectRects(&posRect, &posRect);
-
- hret = m_oleObject->DoVerb(OLEIVERB_INPLACEACTIVATE, NULL,
- m_clientSite, 0, (HWND)m_realparent->GetHWND(), &posRect);
- hret = m_oleObject->DoVerb(OLEIVERB_SHOW, 0, m_clientSite, 0,
- (HWND)m_realparent->GetHWND(), &posRect);
- }
-
- if (! m_oleObjectHWND && m_oleInPlaceObject.Ok())
- {
- hret = m_oleInPlaceObject->GetWindow(&m_oleObjectHWND);
- }
-
- if (m_oleObjectHWND)
- {
- ::SetActiveWindow(m_oleObjectHWND);
- ::ShowWindow(m_oleObjectHWND, SW_SHOW);
-
- this->AssociateHandle(m_oleObjectHWND);
- this->Reparent(m_realparent);
-
- wxWindow* pWnd = m_realparent;
- int id = m_realparent->GetId();
-
- pWnd->Connect(id, wxEVT_SIZE,
- wxSizeEventHandler(wxActiveX::OnSize), 0, this);
- pWnd->Connect(id, wxEVT_SET_FOCUS,
- wxFocusEventHandler(wxActiveX::OnSetFocus), 0, this);
- pWnd->Connect(id, wxEVT_KILL_FOCUS,
- wxFocusEventHandler(wxActiveX::OnKillFocus), 0, this);
- }
-}
-
-#define HIMETRIC_PER_INCH 2540
-#define MAP_PIX_TO_LOGHIM(x,ppli) MulDiv(HIMETRIC_PER_INCH, (x), (ppli))
-
-static void PixelsToHimetric(SIZEL &sz)
-{
- static int logX = 0;
- static int logY = 0;
-
- if (logY == 0)
- {
- // initaliase
- HDC dc = GetDC(NULL);
- logX = GetDeviceCaps(dc, LOGPIXELSX);
- logY = GetDeviceCaps(dc, LOGPIXELSY);
- ReleaseDC(NULL, dc);
- };
-
-#define HIMETRIC_INCH 2540
-#define CONVERT(x, logpixels) MulDiv(HIMETRIC_INCH, (x), (logpixels))
-
- sz.cx = CONVERT(sz.cx, logX);
- sz.cy = CONVERT(sz.cy, logY);
-
-#undef CONVERT
-#undef HIMETRIC_INCH
-}
-
-
-void wxActiveX::OnSize(wxSizeEvent& event)
-{
- int w, h;
- GetParent()->GetClientSize(&w, &h);
-
- RECT posRect;
- posRect.left = 0;
- posRect.top = 0;
- posRect.right = w;
- posRect.bottom = h;
-
- if (w <= 0 && h <= 0)
- return;
-
- // extents are in HIMETRIC units
- if (m_oleObject.Ok())
- {
- SIZEL sz = {w, h};
- PixelsToHimetric(sz);
-
- SIZEL sz2;
-
- m_oleObject->GetExtent(DVASPECT_CONTENT, &sz2);
- if (sz2.cx != sz.cx || sz.cy != sz2.cy)
- m_oleObject->SetExtent(DVASPECT_CONTENT, &sz);
- };
-
- if (m_oleInPlaceObject.Ok())
- m_oleInPlaceObject->SetObjectRects(&posRect, &posRect);
-
- event.Skip();
-}
-
-void wxActiveX::OnPaint(wxPaintEvent& WXUNUSED(event))
-{
- wxPaintDC dc(this);
- // Draw only when control is windowless or deactivated
- if (m_viewObject)
- {
- dc.BeginDrawing();
- int w, h;
- GetParent()->GetSize(&w, &h);
- RECT posRect;
- posRect.left = 0;
- posRect.top = 0;
- posRect.right = w;
- posRect.bottom = h;
-
- ::RedrawWindow(m_oleObjectHWND, NULL, NULL, RDW_INTERNALPAINT);
- RECTL *prcBounds = (RECTL *) &posRect;
- m_viewObject->Draw(DVASPECT_CONTENT, -1, NULL, NULL, NULL,
- (HDC)dc.GetHDC(), prcBounds, NULL, NULL, 0);
-
- dc.EndDrawing();
- }
-
-// We've got this one I think
-// event.Skip();
-}
-
-void wxActiveX::OnSetFocus(wxFocusEvent& event)
-{
- if (m_oleInPlaceActiveObject.Ok())
- m_oleInPlaceActiveObject->OnFrameWindowActivate(TRUE);
-
- event.Skip();
-}
-
-void wxActiveX::OnKillFocus(wxFocusEvent& event)
-{
- if (m_oleInPlaceActiveObject.Ok())
- m_oleInPlaceActiveObject->OnFrameWindowActivate(FALSE);
-
- event.Skip();
-}
projects / wxWidgets.git / blobdiff