]>
Commit | Line | Data |
---|---|---|
1 | ///////////////////////////////////////////////////////////////////////////// | |
2 | // Name: src/msw/ole/activex.cpp | |
3 | // Purpose: wxActiveXContainer implementation | |
4 | // Author: Ryan Norton <wxprojects@comcast.net>, Lindsay Mathieson <???> | |
5 | // Modified by: | |
6 | // Created: 11/07/04 | |
7 | // RCS-ID: $Id$ | |
8 | // Copyright: (c) 2003 Lindsay Mathieson, (c) 2005 Ryan Norton | |
9 | // Licence: wxWindows licence | |
10 | ///////////////////////////////////////////////////////////////////////////// | |
11 | ||
12 | // ============================================================================ | |
13 | // declarations | |
14 | // ============================================================================ | |
15 | ||
16 | // ---------------------------------------------------------------------------- | |
17 | // headers | |
18 | // ---------------------------------------------------------------------------- | |
19 | ||
20 | #include "wx/wxprec.h" | |
21 | ||
22 | #ifdef __BORLANDC__ | |
23 | #pragma hdrstop | |
24 | #endif | |
25 | ||
26 | #if wxUSE_ACTIVEX | |
27 | ||
28 | #ifndef WX_PRECOMP | |
29 | #include "wx/dcclient.h" | |
30 | #include "wx/math.h" | |
31 | #endif | |
32 | ||
33 | #include "wx/msw/dc.h" | |
34 | ||
35 | #include "wx/msw/ole/activex.h" | |
36 | #include "wx/msw/private.h" // for wxCopyRectToRECT | |
37 | ||
38 | // autointerfaces that we only use here | |
39 | typedef wxAutoOleInterface<IOleInPlaceSite> wxAutoIOleInPlaceSite; | |
40 | typedef wxAutoOleInterface<IOleDocument> wxAutoIOleDocument; | |
41 | typedef wxAutoOleInterface<IPersistStreamInit> wxAutoIPersistStreamInit; | |
42 | typedef wxAutoOleInterface<IAdviseSink> wxAutoIAdviseSink; | |
43 | typedef wxAutoOleInterface<IProvideClassInfo> wxAutoIProvideClassInfo; | |
44 | typedef wxAutoOleInterface<ITypeInfo> wxAutoITypeInfo; | |
45 | typedef wxAutoOleInterface<IConnectionPoint> wxAutoIConnectionPoint; | |
46 | typedef wxAutoOleInterface<IConnectionPointContainer> wxAutoIConnectionPointContainer; | |
47 | ||
48 | wxDEFINE_EVENT( wxEVT_ACTIVEX, wxActiveXEvent ); | |
49 | ||
50 | // Ole class helpers (sort of MFC-like) from wxActiveX | |
51 | #define DECLARE_OLE_UNKNOWN(cls)\ | |
52 | private:\ | |
53 | class TAutoInitInt\ | |
54 | {\ | |
55 | public:\ | |
56 | LONG l;\ | |
57 | TAutoInitInt() : l(0) {}\ | |
58 | };\ | |
59 | TAutoInitInt refCount, lockCount;\ | |
60 | static void _GetInterface(cls *self, REFIID iid, void **_interface, const char *&desc);\ | |
61 | public:\ | |
62 | LONG GetRefCount();\ | |
63 | HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void ** ppvObject);\ | |
64 | ULONG STDMETHODCALLTYPE AddRef();\ | |
65 | ULONG STDMETHODCALLTYPE Release();\ | |
66 | ULONG STDMETHODCALLTYPE AddLock();\ | |
67 | ULONG STDMETHODCALLTYPE ReleaseLock() | |
68 | ||
69 | #define DEFINE_OLE_TABLE(cls)\ | |
70 | LONG cls::GetRefCount() {return refCount.l;}\ | |
71 | HRESULT STDMETHODCALLTYPE cls::QueryInterface(REFIID iid, void ** ppvObject)\ | |
72 | {\ | |
73 | if (! ppvObject)\ | |
74 | {\ | |
75 | return E_FAIL;\ | |
76 | }\ | |
77 | const char *desc = NULL;\ | |
78 | cls::_GetInterface(this, iid, ppvObject, desc);\ | |
79 | if (! *ppvObject)\ | |
80 | {\ | |
81 | return E_NOINTERFACE;\ | |
82 | }\ | |
83 | ((IUnknown * )(*ppvObject))->AddRef();\ | |
84 | return S_OK;\ | |
85 | }\ | |
86 | ULONG STDMETHODCALLTYPE cls::AddRef()\ | |
87 | {\ | |
88 | InterlockedIncrement(&refCount.l);\ | |
89 | return refCount.l;\ | |
90 | }\ | |
91 | ULONG STDMETHODCALLTYPE cls::Release()\ | |
92 | {\ | |
93 | if (refCount.l > 0)\ | |
94 | {\ | |
95 | InterlockedDecrement(&refCount.l);\ | |
96 | if (refCount.l == 0)\ | |
97 | {\ | |
98 | delete this;\ | |
99 | return 0;\ | |
100 | }\ | |
101 | return refCount.l;\ | |
102 | }\ | |
103 | else\ | |
104 | return 0;\ | |
105 | }\ | |
106 | ULONG STDMETHODCALLTYPE cls::AddLock()\ | |
107 | {\ | |
108 | InterlockedIncrement(&lockCount.l);\ | |
109 | return lockCount.l;\ | |
110 | }\ | |
111 | ULONG STDMETHODCALLTYPE cls::ReleaseLock()\ | |
112 | {\ | |
113 | if (lockCount.l > 0)\ | |
114 | {\ | |
115 | InterlockedDecrement(&lockCount.l);\ | |
116 | return lockCount.l;\ | |
117 | }\ | |
118 | else\ | |
119 | return 0;\ | |
120 | }\ | |
121 | DEFINE_OLE_BASE(cls) | |
122 | ||
123 | #define DEFINE_OLE_BASE(cls)\ | |
124 | void cls::_GetInterface(cls *self, REFIID iid, void **_interface, const char *&desc)\ | |
125 | {\ | |
126 | *_interface = NULL;\ | |
127 | desc = NULL; | |
128 | ||
129 | #define OLE_INTERFACE(_iid, _type)\ | |
130 | if (IsEqualIID(iid, _iid))\ | |
131 | {\ | |
132 | *_interface = (IUnknown *) (_type *) self;\ | |
133 | desc = # _iid;\ | |
134 | return;\ | |
135 | } | |
136 | ||
137 | #define OLE_IINTERFACE(_face) OLE_INTERFACE(IID_##_face, _face) | |
138 | ||
139 | #define OLE_INTERFACE_CUSTOM(func)\ | |
140 | if (func(self, iid, _interface, desc))\ | |
141 | {\ | |
142 | return;\ | |
143 | } | |
144 | ||
145 | #define END_OLE_TABLE\ | |
146 | } | |
147 | ||
148 | // ============================================================================ | |
149 | // implementation | |
150 | // ============================================================================ | |
151 | ||
152 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
153 | // PixelsToHimetric | |
154 | // | |
155 | // Utility to convert from pixels to the himetric values in some COM methods | |
156 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
157 | ||
158 | ||
159 | #define HIMETRIC_PER_INCH 2540 | |
160 | #define MAP_PIX_TO_LOGHIM(x,ppli) MulDiv(HIMETRIC_PER_INCH, (x), (ppli)) | |
161 | ||
162 | static void PixelsToHimetric(SIZEL &sz) | |
163 | { | |
164 | static int logX = 0; | |
165 | static int logY = 0; | |
166 | ||
167 | if (logY == 0) | |
168 | { | |
169 | // initaliase | |
170 | HDC dc = GetDC(NULL); | |
171 | logX = GetDeviceCaps(dc, LOGPIXELSX); | |
172 | logY = GetDeviceCaps(dc, LOGPIXELSY); | |
173 | ReleaseDC(NULL, dc); | |
174 | }; | |
175 | ||
176 | #define HIMETRIC_INCH 2540 | |
177 | #define CONVERT(x, logpixels) wxMulDivInt32(HIMETRIC_INCH, (x), (logpixels)) | |
178 | ||
179 | sz.cx = CONVERT(sz.cx, logX); | |
180 | sz.cy = CONVERT(sz.cy, logY); | |
181 | ||
182 | #undef CONVERT | |
183 | #undef HIMETRIC_INCH | |
184 | } | |
185 | ||
186 | ||
187 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
188 | // | |
189 | // FrameSite | |
190 | // | |
191 | // Handles the actual wxActiveX container implementation | |
192 | // | |
193 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
194 | class FrameSite : | |
195 | public IOleClientSite, | |
196 | public IOleInPlaceSiteEx, | |
197 | public IOleInPlaceFrame, | |
198 | public IOleItemContainer, | |
199 | public IDispatch, | |
200 | public IOleCommandTarget, | |
201 | public IOleDocumentSite, | |
202 | public IAdviseSink, | |
203 | public IOleControlSite | |
204 | { | |
205 | private: | |
206 | DECLARE_OLE_UNKNOWN(FrameSite); | |
207 | ||
208 | public: | |
209 | FrameSite(wxWindow * win, wxActiveXContainer * win2) | |
210 | { | |
211 | m_window = win2; | |
212 | m_bSupportsWindowlessActivation = true; | |
213 | m_bInPlaceLocked = false; | |
214 | m_bUIActive = false; | |
215 | m_bInPlaceActive = false; | |
216 | m_bWindowless = false; | |
217 | ||
218 | m_nAmbientLocale = 0; | |
219 | m_clrAmbientForeColor = ::GetSysColor(COLOR_WINDOWTEXT); | |
220 | m_clrAmbientBackColor = ::GetSysColor(COLOR_WINDOW); | |
221 | m_bAmbientShowHatching = true; | |
222 | m_bAmbientShowGrabHandles = true; | |
223 | m_bAmbientAppearance = true; | |
224 | ||
225 | m_hDCBuffer = NULL; | |
226 | m_hWndParent = (HWND)win->GetHWND(); | |
227 | } | |
228 | virtual ~FrameSite(){} | |
229 | //***************************IDispatch***************************** | |
230 | HRESULT STDMETHODCALLTYPE GetIDsOfNames(REFIID, OLECHAR ** , | |
231 | unsigned int , LCID , | |
232 | DISPID * ) | |
233 | { return E_NOTIMPL; } | |
234 | STDMETHOD(GetTypeInfo)(unsigned int, LCID, ITypeInfo **) | |
235 | { return E_NOTIMPL; } | |
236 | HRESULT STDMETHODCALLTYPE GetTypeInfoCount(unsigned int *) | |
237 | { return E_NOTIMPL; } | |
238 | HRESULT STDMETHODCALLTYPE Invoke(DISPID dispIdMember, REFIID, LCID, | |
239 | WORD wFlags, DISPPARAMS *, | |
240 | VARIANT * pVarResult, EXCEPINFO *, | |
241 | unsigned int *) | |
242 | { | |
243 | if (!(wFlags & DISPATCH_PROPERTYGET)) | |
244 | return S_OK; | |
245 | ||
246 | if (pVarResult == NULL) | |
247 | return E_INVALIDARG; | |
248 | ||
249 | //The most common case is boolean, use as an initial type | |
250 | V_VT(pVarResult) = VT_BOOL; | |
251 | ||
252 | switch (dispIdMember) | |
253 | { | |
254 | case DISPID_AMBIENT_MESSAGEREFLECT: | |
255 | V_BOOL(pVarResult)= FALSE; | |
256 | return S_OK; | |
257 | ||
258 | case DISPID_AMBIENT_DISPLAYASDEFAULT: | |
259 | V_BOOL(pVarResult)= TRUE; | |
260 | return S_OK; | |
261 | ||
262 | case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED: | |
263 | V_BOOL(pVarResult) = TRUE; | |
264 | return S_OK; | |
265 | ||
266 | case DISPID_AMBIENT_SILENT: | |
267 | V_BOOL(pVarResult)= TRUE; | |
268 | return S_OK; | |
269 | ||
270 | case DISPID_AMBIENT_APPEARANCE: | |
271 | pVarResult->vt = VT_BOOL; | |
272 | pVarResult->boolVal = m_bAmbientAppearance; | |
273 | break; | |
274 | ||
275 | case DISPID_AMBIENT_FORECOLOR: | |
276 | pVarResult->vt = VT_I4; | |
277 | pVarResult->lVal = (long) m_clrAmbientForeColor; | |
278 | break; | |
279 | ||
280 | case DISPID_AMBIENT_BACKCOLOR: | |
281 | pVarResult->vt = VT_I4; | |
282 | pVarResult->lVal = (long) m_clrAmbientBackColor; | |
283 | break; | |
284 | ||
285 | case DISPID_AMBIENT_LOCALEID: | |
286 | pVarResult->vt = VT_I4; | |
287 | pVarResult->lVal = (long) m_nAmbientLocale; | |
288 | break; | |
289 | ||
290 | case DISPID_AMBIENT_USERMODE: | |
291 | pVarResult->vt = VT_BOOL; | |
292 | pVarResult->boolVal = m_window->m_bAmbientUserMode; | |
293 | break; | |
294 | ||
295 | case DISPID_AMBIENT_SHOWGRABHANDLES: | |
296 | pVarResult->vt = VT_BOOL; | |
297 | pVarResult->boolVal = m_bAmbientShowGrabHandles; | |
298 | break; | |
299 | ||
300 | case DISPID_AMBIENT_SHOWHATCHING: | |
301 | pVarResult->vt = VT_BOOL; | |
302 | pVarResult->boolVal = m_bAmbientShowHatching; | |
303 | break; | |
304 | ||
305 | default: | |
306 | return DISP_E_MEMBERNOTFOUND; | |
307 | } | |
308 | ||
309 | return S_OK; | |
310 | } | |
311 | ||
312 | //**************************IOleWindow*************************** | |
313 | HRESULT STDMETHODCALLTYPE GetWindow(HWND * phwnd) | |
314 | { | |
315 | if (phwnd == NULL) | |
316 | return E_INVALIDARG; | |
317 | (*phwnd) = m_hWndParent; | |
318 | return S_OK; | |
319 | } | |
320 | HRESULT STDMETHODCALLTYPE ContextSensitiveHelp(BOOL) | |
321 | {return S_OK;} | |
322 | //**************************IOleInPlaceUIWindow***************** | |
323 | HRESULT STDMETHODCALLTYPE GetBorder(LPRECT lprectBorder) | |
324 | { | |
325 | if (lprectBorder == NULL) | |
326 | return E_INVALIDARG; | |
327 | return INPLACE_E_NOTOOLSPACE; | |
328 | } | |
329 | HRESULT STDMETHODCALLTYPE RequestBorderSpace(LPCBORDERWIDTHS pborderwidths) | |
330 | { | |
331 | if (pborderwidths == NULL) | |
332 | return E_INVALIDARG; | |
333 | return INPLACE_E_NOTOOLSPACE; | |
334 | } | |
335 | HRESULT STDMETHODCALLTYPE SetBorderSpace(LPCBORDERWIDTHS) | |
336 | {return S_OK;} | |
337 | HRESULT STDMETHODCALLTYPE SetActiveObject( | |
338 | IOleInPlaceActiveObject *pActiveObject, LPCOLESTR) | |
339 | { | |
340 | if (pActiveObject) | |
341 | pActiveObject->AddRef(); | |
342 | ||
343 | m_window->m_oleInPlaceActiveObject = pActiveObject; | |
344 | return S_OK; | |
345 | } | |
346 | ||
347 | //********************IOleInPlaceFrame************************ | |
348 | ||
349 | STDMETHOD(InsertMenus)(HMENU, LPOLEMENUGROUPWIDTHS){return S_OK;} | |
350 | STDMETHOD(SetMenu)(HMENU, HOLEMENU, HWND){ return S_OK;} | |
351 | STDMETHOD(RemoveMenus)(HMENU){return S_OK;} | |
352 | STDMETHOD(SetStatusText)(LPCOLESTR){ return S_OK;} | |
353 | HRESULT STDMETHODCALLTYPE EnableModeless(BOOL){return S_OK;} | |
354 | HRESULT STDMETHODCALLTYPE TranslateAccelerator(LPMSG lpmsg, WORD) | |
355 | { | |
356 | // TODO: send an event with this id | |
357 | if (m_window->m_oleInPlaceActiveObject.Ok()) | |
358 | m_window->m_oleInPlaceActiveObject->TranslateAccelerator(lpmsg); | |
359 | return S_FALSE; | |
360 | } | |
361 | ||
362 | //*******************IOleInPlaceSite************************** | |
363 | HRESULT STDMETHODCALLTYPE CanInPlaceActivate(){return S_OK;} | |
364 | HRESULT STDMETHODCALLTYPE OnInPlaceActivate() | |
365 | { m_bInPlaceActive = true; return S_OK; } | |
366 | HRESULT STDMETHODCALLTYPE OnUIActivate() | |
367 | { m_bUIActive = true; return S_OK; } | |
368 | HRESULT STDMETHODCALLTYPE GetWindowContext(IOleInPlaceFrame **ppFrame, | |
369 | IOleInPlaceUIWindow **ppDoc, | |
370 | LPRECT lprcPosRect, | |
371 | LPRECT lprcClipRect, | |
372 | LPOLEINPLACEFRAMEINFO lpFrameInfo) | |
373 | { | |
374 | if (ppFrame == NULL || ppDoc == NULL || lprcPosRect == NULL || | |
375 | lprcClipRect == NULL || lpFrameInfo == NULL) | |
376 | { | |
377 | if (ppFrame != NULL) | |
378 | (*ppFrame) = NULL; | |
379 | if (ppDoc != NULL) | |
380 | (*ppDoc) = NULL; | |
381 | return E_INVALIDARG; | |
382 | } | |
383 | ||
384 | HRESULT hr = QueryInterface(IID_IOleInPlaceFrame, (void **) ppFrame); | |
385 | if (! SUCCEEDED(hr)) | |
386 | { | |
387 | return E_UNEXPECTED; | |
388 | } | |
389 | ||
390 | hr = QueryInterface(IID_IOleInPlaceUIWindow, (void **) ppDoc); | |
391 | if (! SUCCEEDED(hr)) | |
392 | { | |
393 | (*ppFrame)->Release(); | |
394 | *ppFrame = NULL; | |
395 | return E_UNEXPECTED; | |
396 | } | |
397 | ||
398 | RECT rect; | |
399 | ::GetClientRect(m_hWndParent, &rect); | |
400 | if (lprcPosRect) | |
401 | { | |
402 | lprcPosRect->left = lprcPosRect->top = 0; | |
403 | lprcPosRect->right = rect.right; | |
404 | lprcPosRect->bottom = rect.bottom; | |
405 | } | |
406 | if (lprcClipRect) | |
407 | { | |
408 | lprcClipRect->left = lprcClipRect->top = 0; | |
409 | lprcClipRect->right = rect.right; | |
410 | lprcClipRect->bottom = rect.bottom; | |
411 | } | |
412 | ||
413 | memset(lpFrameInfo, 0, sizeof(OLEINPLACEFRAMEINFO)); | |
414 | lpFrameInfo->cb = sizeof(OLEINPLACEFRAMEINFO); | |
415 | lpFrameInfo->hwndFrame = m_hWndParent; | |
416 | ||
417 | return S_OK; | |
418 | } | |
419 | HRESULT STDMETHODCALLTYPE Scroll(SIZE){return S_OK;} | |
420 | HRESULT STDMETHODCALLTYPE OnUIDeactivate(BOOL) | |
421 | { m_bUIActive = false; return S_OK; } | |
422 | HRESULT STDMETHODCALLTYPE OnInPlaceDeactivate() | |
423 | { m_bInPlaceActive = false; return S_OK; } | |
424 | HRESULT STDMETHODCALLTYPE DiscardUndoState(){return S_OK;} | |
425 | HRESULT STDMETHODCALLTYPE DeactivateAndUndo(){return S_OK; } | |
426 | HRESULT STDMETHODCALLTYPE OnPosRectChange(LPCRECT lprcPosRect) | |
427 | { | |
428 | if (m_window->m_oleInPlaceObject.Ok() && lprcPosRect) | |
429 | { | |
430 | // | |
431 | // Result of several hours and days of bug hunting - | |
432 | // this is called by an object when it wants to resize | |
433 | // itself to something different then our parent window - | |
434 | // don't let it :) | |
435 | // | |
436 | // m_window->m_oleInPlaceObject->SetObjectRects( | |
437 | // lprcPosRect, lprcPosRect); | |
438 | RECT rcClient; | |
439 | ::GetClientRect(m_hWndParent, &rcClient); | |
440 | m_window->m_oleInPlaceObject->SetObjectRects( | |
441 | &rcClient, &rcClient); | |
442 | } | |
443 | return S_OK; | |
444 | } | |
445 | //*************************IOleInPlaceSiteEx*********************** | |
446 | HRESULT STDMETHODCALLTYPE OnInPlaceActivateEx(BOOL * pfNoRedraw, DWORD) | |
447 | { | |
448 | #ifdef __WXWINCE__ | |
449 | IRunnableObject* runnable = NULL; | |
450 | HRESULT hr = QueryInterface( | |
451 | IID_IRunnableObject, (void**)(& runnable)); | |
452 | if (SUCCEEDED(hr)) | |
453 | { | |
454 | runnable->LockRunning(TRUE, FALSE); | |
455 | } | |
456 | #else | |
457 | OleLockRunning(m_window->m_ActiveX, TRUE, FALSE); | |
458 | #endif | |
459 | if (pfNoRedraw) | |
460 | (*pfNoRedraw) = FALSE; | |
461 | return S_OK; | |
462 | } | |
463 | ||
464 | HRESULT STDMETHODCALLTYPE OnInPlaceDeactivateEx(BOOL) | |
465 | { | |
466 | #ifdef __WXWINCE__ | |
467 | IRunnableObject* runnable = NULL; | |
468 | HRESULT hr = QueryInterface( | |
469 | IID_IRunnableObject, (void**)(& runnable)); | |
470 | if (SUCCEEDED(hr)) | |
471 | { | |
472 | runnable->LockRunning(FALSE, FALSE); | |
473 | } | |
474 | #else | |
475 | OleLockRunning(m_window->m_ActiveX, FALSE, FALSE); | |
476 | #endif | |
477 | return S_OK; | |
478 | } | |
479 | STDMETHOD(RequestUIActivate)(){ return S_OK;} | |
480 | //*************************IOleClientSite************************** | |
481 | HRESULT STDMETHODCALLTYPE SaveObject(){return S_OK;} | |
482 | const char *OleGetMonikerToStr(DWORD dwAssign) | |
483 | { | |
484 | switch (dwAssign) | |
485 | { | |
486 | case OLEGETMONIKER_ONLYIFTHERE : return "OLEGETMONIKER_ONLYIFTHERE"; | |
487 | case OLEGETMONIKER_FORCEASSIGN : return "OLEGETMONIKER_FORCEASSIGN"; | |
488 | case OLEGETMONIKER_UNASSIGN : return "OLEGETMONIKER_UNASSIGN"; | |
489 | case OLEGETMONIKER_TEMPFORUSER : return "OLEGETMONIKER_TEMPFORUSER"; | |
490 | default : return "Bad Enum"; | |
491 | } | |
492 | } | |
493 | ||
494 | const char *OleGetWhicMonikerStr(DWORD dwWhichMoniker) | |
495 | { | |
496 | switch(dwWhichMoniker) | |
497 | { | |
498 | case OLEWHICHMK_CONTAINER : return "OLEWHICHMK_CONTAINER"; | |
499 | case OLEWHICHMK_OBJREL : return "OLEWHICHMK_OBJREL"; | |
500 | case OLEWHICHMK_OBJFULL : return "OLEWHICHMK_OBJFULL"; | |
501 | default : return "Bad Enum"; | |
502 | } | |
503 | } | |
504 | STDMETHOD(GetMoniker)(DWORD, DWORD, IMoniker **){return E_FAIL;} | |
505 | HRESULT STDMETHODCALLTYPE GetContainer(LPOLECONTAINER * ppContainer) | |
506 | { | |
507 | if (ppContainer == NULL) | |
508 | return E_INVALIDARG; | |
509 | HRESULT hr = QueryInterface( | |
510 | IID_IOleContainer, (void**)(ppContainer)); | |
511 | wxASSERT(SUCCEEDED(hr)); | |
512 | return hr; | |
513 | } | |
514 | HRESULT STDMETHODCALLTYPE ShowObject() | |
515 | { | |
516 | if (m_window->m_oleObjectHWND) | |
517 | ::ShowWindow(m_window->m_oleObjectHWND, SW_SHOW); | |
518 | return S_OK; | |
519 | } | |
520 | STDMETHOD(OnShowWindow)(BOOL){return S_OK;} | |
521 | STDMETHOD(RequestNewObjectLayout)(){return E_NOTIMPL;} | |
522 | //********************IParseDisplayName*************************** | |
523 | HRESULT STDMETHODCALLTYPE ParseDisplayName( | |
524 | IBindCtx *, LPOLESTR, ULONG *, IMoniker **){return E_NOTIMPL;} | |
525 | //********************IOleContainer******************************* | |
526 | STDMETHOD(EnumObjects)(DWORD, IEnumUnknown **){return E_NOTIMPL;} | |
527 | HRESULT STDMETHODCALLTYPE LockContainer(BOOL){return S_OK;} | |
528 | //********************IOleItemContainer*************************** | |
529 | HRESULT STDMETHODCALLTYPE | |
530 | #if 0 // defined(__WXWINCE__) && __VISUALC__ < 1400 | |
531 | GetObject | |
532 | #elif defined(_UNICODE) | |
533 | GetObjectW | |
534 | #else | |
535 | GetObjectA | |
536 | #endif | |
537 | (LPOLESTR pszItem, DWORD, IBindCtx *, REFIID, void ** ppvObject) | |
538 | { | |
539 | if (pszItem == NULL || ppvObject == NULL) | |
540 | return E_INVALIDARG; | |
541 | *ppvObject = NULL; | |
542 | return MK_E_NOOBJECT; | |
543 | } | |
544 | HRESULT STDMETHODCALLTYPE GetObjectStorage( | |
545 | LPOLESTR pszItem, IBindCtx * , REFIID, void ** ppvStorage) | |
546 | { | |
547 | if (pszItem == NULL || ppvStorage == NULL) | |
548 | return E_INVALIDARG; | |
549 | *ppvStorage = NULL; | |
550 | return MK_E_NOOBJECT; | |
551 | } | |
552 | HRESULT STDMETHODCALLTYPE IsRunning(LPOLESTR pszItem) | |
553 | { | |
554 | if (pszItem == NULL) | |
555 | return E_INVALIDARG; | |
556 | return MK_E_NOOBJECT; | |
557 | } | |
558 | //***********************IOleControlSite***************************** | |
559 | HRESULT STDMETHODCALLTYPE OnControlInfoChanged() | |
560 | {return S_OK;} | |
561 | HRESULT STDMETHODCALLTYPE LockInPlaceActive(BOOL fLock) | |
562 | { | |
563 | m_bInPlaceLocked = (fLock) ? true : false; | |
564 | return S_OK; | |
565 | } | |
566 | HRESULT STDMETHODCALLTYPE GetExtendedControl(IDispatch **) | |
567 | {return E_NOTIMPL;} | |
568 | HRESULT STDMETHODCALLTYPE TransformCoords( | |
569 | POINTL * pPtlHimetric, POINTF * pPtfContainer, DWORD) | |
570 | { | |
571 | if (pPtlHimetric == NULL || pPtfContainer == NULL) | |
572 | return E_INVALIDARG; | |
573 | return E_NOTIMPL; | |
574 | } | |
575 | HRESULT STDMETHODCALLTYPE TranslateAccelerator(LPMSG, DWORD) | |
576 | {return E_NOTIMPL;} | |
577 | HRESULT STDMETHODCALLTYPE OnFocus(BOOL){return S_OK;} | |
578 | HRESULT STDMETHODCALLTYPE ShowPropertyFrame(){return E_NOTIMPL;} | |
579 | //**************************IOleCommandTarget*********************** | |
580 | HRESULT STDMETHODCALLTYPE QueryStatus(const GUID *, ULONG cCmds, | |
581 | OLECMD prgCmds[], OLECMDTEXT *) | |
582 | { | |
583 | if (prgCmds == NULL) return E_INVALIDARG; | |
584 | for (ULONG nCmd = 0; nCmd < cCmds; nCmd++) | |
585 | { | |
586 | // unsupported by default | |
587 | prgCmds[nCmd].cmdf = 0; | |
588 | } | |
589 | return OLECMDERR_E_UNKNOWNGROUP; | |
590 | } | |
591 | ||
592 | HRESULT STDMETHODCALLTYPE Exec(const GUID *, DWORD, | |
593 | DWORD, VARIANTARG *, VARIANTARG *) | |
594 | {return OLECMDERR_E_NOTSUPPORTED;} | |
595 | ||
596 | //**********************IAdviseSink************************************ | |
597 | void STDMETHODCALLTYPE OnDataChange(FORMATETC *, STGMEDIUM *) {} | |
598 | void STDMETHODCALLTYPE OnViewChange(DWORD, LONG) {} | |
599 | void STDMETHODCALLTYPE OnRename(IMoniker *){} | |
600 | void STDMETHODCALLTYPE OnSave(){} | |
601 | void STDMETHODCALLTYPE OnClose(){} | |
602 | ||
603 | //**********************IOleDocumentSite*************************** | |
604 | HRESULT STDMETHODCALLTYPE ActivateMe( | |
605 | IOleDocumentView __RPC_FAR *pViewToActivate) | |
606 | { | |
607 | wxAutoIOleInPlaceSite inPlaceSite( | |
608 | IID_IOleInPlaceSite, (IDispatch *) this); | |
609 | if (!inPlaceSite.Ok()) | |
610 | return E_FAIL; | |
611 | ||
612 | if (pViewToActivate) | |
613 | { | |
614 | m_window->m_docView = pViewToActivate; | |
615 | m_window->m_docView->SetInPlaceSite(inPlaceSite); | |
616 | } | |
617 | else | |
618 | { | |
619 | wxAutoIOleDocument oleDoc( | |
620 | IID_IOleDocument, m_window->m_oleObject); | |
621 | if (! oleDoc.Ok()) | |
622 | return E_FAIL; | |
623 | ||
624 | HRESULT hr = oleDoc->CreateView(inPlaceSite, NULL, | |
625 | 0, m_window->m_docView.GetRef()); | |
626 | if (hr != S_OK) | |
627 | return E_FAIL; | |
628 | ||
629 | m_window->m_docView->SetInPlaceSite(inPlaceSite); | |
630 | } | |
631 | ||
632 | m_window->m_docView->UIActivate(TRUE); | |
633 | return S_OK; | |
634 | } | |
635 | ||
636 | ||
637 | protected: | |
638 | wxActiveXContainer * m_window; | |
639 | ||
640 | HDC m_hDCBuffer; | |
641 | HWND m_hWndParent; | |
642 | ||
643 | bool m_bSupportsWindowlessActivation; | |
644 | bool m_bInPlaceLocked; | |
645 | bool m_bInPlaceActive; | |
646 | bool m_bUIActive; | |
647 | bool m_bWindowless; | |
648 | ||
649 | LCID m_nAmbientLocale; | |
650 | COLORREF m_clrAmbientForeColor; | |
651 | COLORREF m_clrAmbientBackColor; | |
652 | bool m_bAmbientShowHatching; | |
653 | bool m_bAmbientShowGrabHandles; | |
654 | bool m_bAmbientAppearance; | |
655 | }; | |
656 | ||
657 | DEFINE_OLE_TABLE(FrameSite) | |
658 | OLE_INTERFACE(IID_IUnknown, IOleClientSite) | |
659 | OLE_IINTERFACE(IOleClientSite) | |
660 | OLE_INTERFACE(IID_IOleWindow, IOleInPlaceSite) | |
661 | OLE_IINTERFACE(IOleInPlaceSite) | |
662 | OLE_IINTERFACE(IOleInPlaceSiteEx) | |
663 | OLE_IINTERFACE(IOleInPlaceUIWindow) | |
664 | OLE_IINTERFACE(IOleInPlaceFrame) | |
665 | OLE_IINTERFACE(IParseDisplayName) | |
666 | OLE_IINTERFACE(IOleContainer) | |
667 | OLE_IINTERFACE(IOleItemContainer) | |
668 | OLE_IINTERFACE(IDispatch) | |
669 | OLE_IINTERFACE(IOleCommandTarget) | |
670 | OLE_IINTERFACE(IOleDocumentSite) | |
671 | OLE_IINTERFACE(IAdviseSink) | |
672 | OLE_IINTERFACE(IOleControlSite) | |
673 | END_OLE_TABLE | |
674 | ||
675 | ||
676 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
677 | // | |
678 | // wxActiveXEvents | |
679 | // | |
680 | // Handles and sends activex events received from the ActiveX control | |
681 | // to the appropriate wxEvtHandler | |
682 | // | |
683 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
684 | class wxActiveXEvents : public IDispatch | |
685 | { | |
686 | private: | |
687 | DECLARE_OLE_UNKNOWN(wxActiveXEvents); | |
688 | ||
689 | ||
690 | wxActiveXContainer *m_activeX; | |
691 | IID m_customId; | |
692 | bool m_haveCustomId; | |
693 | ||
694 | friend bool wxActiveXEventsInterface(wxActiveXEvents *self, REFIID iid, void **_interface, const char *&desc); | |
695 | ||
696 | public: | |
697 | ||
698 | // a pointer to this static variable is used as an 'invalid_entry_marker' | |
699 | // wxVariants containing a void* to this variables are 'empty' in the sense | |
700 | // that the actual ActiveX OLE parameter has not been converted and inserted | |
701 | // into m_params. | |
702 | static wxVariant ms_invalidEntryMarker; | |
703 | ||
704 | wxActiveXEvents(wxActiveXContainer *ax) : m_activeX(ax), m_haveCustomId(false) {} | |
705 | wxActiveXEvents(wxActiveXContainer *ax, REFIID iid) : m_activeX(ax), m_customId(iid), m_haveCustomId(true) {} | |
706 | virtual ~wxActiveXEvents() | |
707 | { | |
708 | } | |
709 | ||
710 | // IDispatch | |
711 | STDMETHODIMP GetIDsOfNames(REFIID, OLECHAR**, unsigned int, LCID, DISPID*) | |
712 | { | |
713 | return E_NOTIMPL; | |
714 | } | |
715 | ||
716 | STDMETHODIMP GetTypeInfo(unsigned int, LCID, ITypeInfo**) | |
717 | { | |
718 | return E_NOTIMPL; | |
719 | } | |
720 | ||
721 | STDMETHODIMP GetTypeInfoCount(unsigned int*) | |
722 | { | |
723 | return E_NOTIMPL; | |
724 | } | |
725 | ||
726 | ||
727 | STDMETHODIMP Invoke(DISPID dispIdMember, REFIID riid, | |
728 | LCID lcid, | |
729 | WORD wFlags, DISPPARAMS * pDispParams, | |
730 | VARIANT * pVarResult, EXCEPINFO * pExcepInfo, | |
731 | unsigned int * puArgErr) | |
732 | { | |
733 | if (wFlags & (DISPATCH_PROPERTYGET | DISPATCH_PROPERTYPUT | DISPATCH_PROPERTYPUTREF)) | |
734 | return E_NOTIMPL; | |
735 | ||
736 | wxASSERT(m_activeX); | |
737 | ||
738 | // ActiveX Event | |
739 | ||
740 | // Dispatch Event | |
741 | wxActiveXEvent event; | |
742 | event.SetEventType(wxEVT_ACTIVEX); | |
743 | // Create an empty list of Variants | |
744 | // Note that the event parameters use lazy evaluation | |
745 | // They are not actually created until wxActiveXEvent::operator[] is called | |
746 | event.m_params.NullList(); | |
747 | event.m_dispid = dispIdMember; | |
748 | ||
749 | // save the native (MSW) event parameters for event handlers that need to access them | |
750 | // this can be done on the stack since wxActiveXEvent is also allocated on the stack | |
751 | wxActiveXEventNativeMSW eventParameters(dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr); | |
752 | event.SetClientData(&eventParameters); | |
753 | ||
754 | // The event parameters are not copied to event.m_params until they are actually | |
755 | // referenced in wxActiveXEvent::operator[] | |
756 | // This increases performance and avoids error messages and/or crashes | |
757 | // when the event has parameters that are not (yet or never) supported | |
758 | // by wxConvertOleToVariant | |
759 | ||
760 | // process the events from the activex method | |
761 | m_activeX->ProcessEvent(event); | |
762 | for (DWORD i = 0; i < pDispParams->cArgs; i++) | |
763 | { | |
764 | size_t params_index = pDispParams->cArgs - i - 1; | |
765 | if (params_index < event.m_params.GetCount()) { | |
766 | wxVariant &vx = event.m_params[params_index]; | |
767 | // copy the result back to pDispParams only if the event has been accessed | |
768 | // i.e. if vx != ms_invalidEntryMarker | |
769 | if (!vx.IsType(wxActiveXEvents::ms_invalidEntryMarker.GetType()) || vx!=ms_invalidEntryMarker) { | |
770 | VARIANTARG& va = pDispParams->rgvarg[i]; | |
771 | wxConvertVariantToOle(vx, va); | |
772 | } | |
773 | } | |
774 | } | |
775 | ||
776 | if(event.GetSkipped()) | |
777 | return DISP_E_MEMBERNOTFOUND; | |
778 | ||
779 | return S_OK; | |
780 | } | |
781 | }; | |
782 | ||
783 | namespace | |
784 | { | |
785 | // just a unique global variable | |
786 | const int invalid_entry_marker = 0; | |
787 | } | |
788 | ||
789 | wxVariant wxActiveXEvents::ms_invalidEntryMarker((void*)&invalid_entry_marker); | |
790 | ||
791 | size_t wxActiveXEvent::ParamCount() const | |
792 | { | |
793 | wxActiveXEventNativeMSW *native=GetNativeParameters(); | |
794 | // 'native' will always be != if the event has been created | |
795 | // for an actual active X event. | |
796 | // But it may be zero if the event has been created by wx program code. | |
797 | if (native) | |
798 | return native->pDispParams ? native->pDispParams->cArgs : 0; | |
799 | ||
800 | return m_params.GetCount(); | |
801 | } | |
802 | ||
803 | wxVariant &wxActiveXEvent::operator [](size_t idx) | |
804 | { | |
805 | wxASSERT(idx < ParamCount()); | |
806 | wxActiveXEventNativeMSW *native=GetNativeParameters(); | |
807 | // 'native' will always be != if the event has been created | |
808 | // for an actual active X event. | |
809 | // But it may be zero if the event has been created by wx program code. | |
810 | if (native) | |
811 | { | |
812 | while ( m_params.GetCount()<=idx ) | |
813 | { | |
814 | m_params.Append(wxActiveXEvents::ms_invalidEntryMarker); | |
815 | } | |
816 | ||
817 | wxVariant& vx = m_params[idx]; | |
818 | if ( vx.IsType(wxActiveXEvents::ms_invalidEntryMarker.GetType()) && | |
819 | vx == wxActiveXEvents::ms_invalidEntryMarker) | |
820 | { | |
821 | // copy the _real_ parameter into this one | |
822 | // NOTE: m_params stores the parameters in *reverse* order. | |
823 | // Whyever, but this was the case in the original implementation of | |
824 | // wxActiveXEvents::Invoke | |
825 | // Keep this convention. | |
826 | VARIANTARG& va = native->pDispParams->rgvarg[ native->pDispParams->cArgs - idx - 1 ]; | |
827 | wxConvertOleToVariant(va, vx); | |
828 | } | |
829 | return vx; | |
830 | } | |
831 | return m_params[idx]; | |
832 | } | |
833 | ||
834 | bool wxActiveXEventsInterface(wxActiveXEvents *self, REFIID iid, void **_interface, const char *&desc) | |
835 | { | |
836 | if (self->m_haveCustomId && IsEqualIID(iid, self->m_customId)) | |
837 | { | |
838 | *_interface = (IUnknown *) (IDispatch *) self; | |
839 | desc = "Custom Dispatch Interface"; | |
840 | return true; | |
841 | } | |
842 | ||
843 | return false; | |
844 | } | |
845 | ||
846 | DEFINE_OLE_TABLE(wxActiveXEvents) | |
847 | OLE_IINTERFACE(IUnknown) | |
848 | OLE_INTERFACE(IID_IDispatch, IDispatch) | |
849 | OLE_INTERFACE_CUSTOM(wxActiveXEventsInterface) | |
850 | END_OLE_TABLE | |
851 | ||
852 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
853 | // | |
854 | // wxActiveXContainer | |
855 | // | |
856 | //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ | |
857 | ||
858 | //--------------------------------------------------------------------------- | |
859 | // wxActiveXContainer Constructor | |
860 | // | |
861 | // Initializes members and creates the native ActiveX container | |
862 | //--------------------------------------------------------------------------- | |
863 | wxActiveXContainer::wxActiveXContainer(wxWindow * parent, | |
864 | REFIID iid, IUnknown* pUnk) | |
865 | : m_realparent(parent) | |
866 | { | |
867 | m_bAmbientUserMode = true; | |
868 | m_docAdviseCookie = 0; | |
869 | CreateActiveX(iid, pUnk); | |
870 | } | |
871 | ||
872 | //--------------------------------------------------------------------------- | |
873 | // wxActiveXContainer Destructor | |
874 | // | |
875 | // Destroys members (the FrameSite et al. are destroyed implicitly | |
876 | // through COM ref counting) | |
877 | //--------------------------------------------------------------------------- | |
878 | wxActiveXContainer::~wxActiveXContainer() | |
879 | { | |
880 | // disconnect connection points | |
881 | if (m_oleInPlaceObject.Ok()) | |
882 | { | |
883 | m_oleInPlaceObject->InPlaceDeactivate(); | |
884 | m_oleInPlaceObject->UIDeactivate(); | |
885 | } | |
886 | ||
887 | if (m_oleObject.Ok()) | |
888 | { | |
889 | if (m_docAdviseCookie != 0) | |
890 | m_oleObject->Unadvise(m_docAdviseCookie); | |
891 | ||
892 | m_oleObject->DoVerb( | |
893 | OLEIVERB_HIDE, NULL, m_clientSite, 0, (HWND) GetHWND(), NULL); | |
894 | m_oleObject->Close(OLECLOSE_NOSAVE); | |
895 | m_oleObject->SetClientSite(NULL); | |
896 | } | |
897 | ||
898 | // m_clientSite uses m_frameSite so destroy it first | |
899 | m_clientSite.Free(); | |
900 | delete m_frameSite; | |
901 | ||
902 | // our window doesn't belong to us, don't destroy it | |
903 | m_hWnd = NULL; | |
904 | } | |
905 | ||
906 | // VZ: we might want to really report an error instead of just asserting here | |
907 | #if wxDEBUG_LEVEL | |
908 | #define CHECK_HR(hr) \ | |
909 | wxASSERT_LEVEL_2_MSG( SUCCEEDED(hr), \ | |
910 | wxString::Format("HRESULT = %X", (unsigned)(hr)) ) | |
911 | #else | |
912 | #define CHECK_HR(hr) wxUnusedVar(hr) | |
913 | #endif | |
914 | ||
915 | //--------------------------------------------------------------------------- | |
916 | // wxActiveXContainer::CreateActiveX | |
917 | // | |
918 | // Actually creates the ActiveX container through the FrameSite | |
919 | // and sets up ActiveX events | |
920 | // | |
921 | // TODO: Document this more | |
922 | //--------------------------------------------------------------------------- | |
923 | void wxActiveXContainer::CreateActiveX(REFIID iid, IUnknown* pUnk) | |
924 | { | |
925 | HRESULT hret; | |
926 | hret = m_ActiveX.QueryInterface(iid, pUnk); | |
927 | CHECK_HR(hret); | |
928 | ||
929 | // FrameSite | |
930 | m_frameSite = new FrameSite(m_realparent, this); | |
931 | // oleClientSite | |
932 | hret = m_clientSite.QueryInterface( | |
933 | IID_IOleClientSite, (IDispatch *) m_frameSite); | |
934 | CHECK_HR(hret); | |
935 | // adviseSink | |
936 | wxAutoIAdviseSink adviseSink(IID_IAdviseSink, (IDispatch *) m_frameSite); | |
937 | wxASSERT(adviseSink.Ok()); | |
938 | ||
939 | // Get Dispatch interface | |
940 | hret = m_Dispatch.QueryInterface(IID_IDispatch, m_ActiveX); | |
941 | CHECK_HR(hret); | |
942 | ||
943 | // | |
944 | // SETUP TYPEINFO AND ACTIVEX EVENTS | |
945 | // | |
946 | ||
947 | // get type info via class info | |
948 | wxAutoIProvideClassInfo classInfo(IID_IProvideClassInfo, m_ActiveX); | |
949 | wxASSERT(classInfo.Ok()); | |
950 | ||
951 | // type info | |
952 | wxAutoITypeInfo typeInfo; | |
953 | hret = classInfo->GetClassInfo(typeInfo.GetRef()); | |
954 | CHECK_HR(hret); | |
955 | wxASSERT(typeInfo.Ok()); | |
956 | ||
957 | // TYPEATTR | |
958 | TYPEATTR *ta = NULL; | |
959 | hret = typeInfo->GetTypeAttr(&ta); | |
960 | CHECK_HR(hret); | |
961 | ||
962 | // this should be a TKIND_COCLASS | |
963 | wxASSERT(ta->typekind == TKIND_COCLASS); | |
964 | ||
965 | // iterate contained interfaces | |
966 | for (int i = 0; i < ta->cImplTypes; i++) | |
967 | { | |
968 | HREFTYPE rt = 0; | |
969 | ||
970 | // get dispatch type info handle | |
971 | hret = typeInfo->GetRefTypeOfImplType(i, &rt); | |
972 | if (! SUCCEEDED(hret)) | |
973 | continue; | |
974 | ||
975 | // get dispatch type info interface | |
976 | wxAutoITypeInfo ti; | |
977 | hret = typeInfo->GetRefTypeInfo(rt, ti.GetRef()); | |
978 | if (! ti.Ok()) | |
979 | continue; | |
980 | ||
981 | CHECK_HR(hret); | |
982 | ||
983 | // check if default event sink | |
984 | bool defEventSink = false; | |
985 | int impTypeFlags = 0; | |
986 | typeInfo->GetImplTypeFlags(i, &impTypeFlags); | |
987 | ||
988 | if (impTypeFlags & IMPLTYPEFLAG_FDEFAULT) | |
989 | { | |
990 | if (impTypeFlags & IMPLTYPEFLAG_FSOURCE) | |
991 | { | |
992 | // WXOLE_TRACEOUT("Default Event Sink"); | |
993 | defEventSink = true; | |
994 | if (impTypeFlags & IMPLTYPEFLAG_FDEFAULTVTABLE) | |
995 | { | |
996 | // WXOLE_TRACEOUT("*ERROR* - Default Event Sink is via vTable"); | |
997 | defEventSink = false; | |
998 | wxFAIL_MSG(wxT("Default event sink is in vtable!")); | |
999 | } | |
1000 | } | |
1001 | } | |
1002 | ||
1003 | ||
1004 | // wxAutoOleInterface<> assumes a ref has already been added | |
1005 | // TYPEATTR | |
1006 | TYPEATTR *ta = NULL; | |
1007 | hret = ti->GetTypeAttr(&ta); | |
1008 | CHECK_HR(hret); | |
1009 | ||
1010 | if (ta->typekind == TKIND_DISPATCH) | |
1011 | { | |
1012 | // WXOLE_TRACEOUT("GUID = " << GetIIDName(ta->guid).c_str()); | |
1013 | if (defEventSink) | |
1014 | { | |
1015 | wxAutoIConnectionPoint cp; | |
1016 | DWORD adviseCookie = 0; | |
1017 | ||
1018 | wxAutoIConnectionPointContainer cpContainer(IID_IConnectionPointContainer, m_ActiveX); | |
1019 | wxASSERT( cpContainer.Ok()); | |
1020 | ||
1021 | HRESULT hret = | |
1022 | cpContainer->FindConnectionPoint(ta->guid, cp.GetRef()); | |
1023 | CHECK_HR(hret); | |
1024 | ||
1025 | if ( cp ) | |
1026 | { | |
1027 | IDispatch* disp; | |
1028 | m_frameSite->QueryInterface(IID_IDispatch, (void**)&disp); | |
1029 | hret = cp->Advise(new wxActiveXEvents(this, ta->guid), | |
1030 | &adviseCookie); | |
1031 | CHECK_HR(hret); | |
1032 | } | |
1033 | } | |
1034 | } | |
1035 | ||
1036 | ti->ReleaseTypeAttr(ta); | |
1037 | } | |
1038 | ||
1039 | // free | |
1040 | typeInfo->ReleaseTypeAttr(ta); | |
1041 | ||
1042 | // | |
1043 | // END | |
1044 | // | |
1045 | ||
1046 | // Get IOleObject interface | |
1047 | hret = m_oleObject.QueryInterface(IID_IOleObject, m_ActiveX); | |
1048 | CHECK_HR(hret); | |
1049 | ||
1050 | // get IViewObject Interface | |
1051 | hret = m_viewObject.QueryInterface(IID_IViewObject, m_ActiveX); | |
1052 | CHECK_HR(hret); | |
1053 | ||
1054 | // document advise | |
1055 | m_docAdviseCookie = 0; | |
1056 | hret = m_oleObject->Advise(adviseSink, &m_docAdviseCookie); | |
1057 | CHECK_HR(hret); | |
1058 | ||
1059 | // TODO:Needed? | |
1060 | // hret = m_viewObject->SetAdvise(DVASPECT_CONTENT, 0, adviseSink); | |
1061 | m_oleObject->SetHostNames(L"wxActiveXContainer", NULL); | |
1062 | OleSetContainedObject(m_oleObject, TRUE); | |
1063 | OleRun(m_oleObject); | |
1064 | ||
1065 | ||
1066 | // Get IOleInPlaceObject interface | |
1067 | hret = m_oleInPlaceObject.QueryInterface( | |
1068 | IID_IOleInPlaceObject, m_ActiveX); | |
1069 | CHECK_HR(hret); | |
1070 | ||
1071 | // status | |
1072 | DWORD dwMiscStatus; | |
1073 | m_oleObject->GetMiscStatus(DVASPECT_CONTENT, &dwMiscStatus); | |
1074 | CHECK_HR(hret); | |
1075 | ||
1076 | // set client site first ? | |
1077 | if (dwMiscStatus & OLEMISC_SETCLIENTSITEFIRST) | |
1078 | m_oleObject->SetClientSite(m_clientSite); | |
1079 | ||
1080 | ||
1081 | // stream init | |
1082 | wxAutoIPersistStreamInit | |
1083 | pPersistStreamInit(IID_IPersistStreamInit, m_oleObject); | |
1084 | ||
1085 | if (pPersistStreamInit.Ok()) | |
1086 | { | |
1087 | hret = pPersistStreamInit->InitNew(); | |
1088 | CHECK_HR(hret); | |
1089 | } | |
1090 | ||
1091 | if (! (dwMiscStatus & OLEMISC_SETCLIENTSITEFIRST)) | |
1092 | m_oleObject->SetClientSite(m_clientSite); | |
1093 | ||
1094 | ||
1095 | m_oleObjectHWND = 0; | |
1096 | ||
1097 | if (m_oleInPlaceObject.Ok()) | |
1098 | { | |
1099 | hret = m_oleInPlaceObject->GetWindow(&m_oleObjectHWND); | |
1100 | if (SUCCEEDED(hret)) | |
1101 | ::SetActiveWindow(m_oleObjectHWND); | |
1102 | } | |
1103 | ||
1104 | ||
1105 | if (! (dwMiscStatus & OLEMISC_INVISIBLEATRUNTIME)) | |
1106 | { | |
1107 | RECT posRect; | |
1108 | wxCopyRectToRECT(m_realparent->GetClientSize(), posRect); | |
1109 | ||
1110 | if (posRect.right > 0 && posRect.bottom > 0 && | |
1111 | m_oleInPlaceObject.Ok()) | |
1112 | { | |
1113 | m_oleInPlaceObject->SetObjectRects(&posRect, &posRect); | |
1114 | } | |
1115 | ||
1116 | hret = m_oleObject->DoVerb(OLEIVERB_INPLACEACTIVATE, NULL, | |
1117 | m_clientSite, 0, (HWND)m_realparent->GetHWND(), &posRect); | |
1118 | CHECK_HR(hret); | |
1119 | ||
1120 | hret = m_oleObject->DoVerb(OLEIVERB_SHOW, 0, m_clientSite, 0, | |
1121 | (HWND)m_realparent->GetHWND(), &posRect); | |
1122 | CHECK_HR(hret); | |
1123 | } | |
1124 | ||
1125 | if (! m_oleObjectHWND && m_oleInPlaceObject.Ok()) | |
1126 | { | |
1127 | hret = m_oleInPlaceObject->GetWindow(&m_oleObjectHWND); | |
1128 | CHECK_HR(hret); | |
1129 | } | |
1130 | ||
1131 | if (m_oleObjectHWND) | |
1132 | { | |
1133 | ::SetActiveWindow(m_oleObjectHWND); | |
1134 | ::ShowWindow(m_oleObjectHWND, SW_SHOW); | |
1135 | ||
1136 | this->AssociateHandle(m_oleObjectHWND); | |
1137 | this->Reparent(m_realparent); | |
1138 | ||
1139 | wxWindow* pWnd = m_realparent; | |
1140 | int id = m_realparent->GetId(); | |
1141 | ||
1142 | pWnd->Connect(id, wxEVT_SIZE, | |
1143 | wxSizeEventHandler(wxActiveXContainer::OnSize), 0, this); | |
1144 | // this->Connect(GetId(), wxEVT_PAINT, | |
1145 | // wxPaintEventHandler(wxActiveXContainer::OnPaint), 0, this); | |
1146 | pWnd->Connect(id, wxEVT_SET_FOCUS, | |
1147 | wxFocusEventHandler(wxActiveXContainer::OnSetFocus), 0, this); | |
1148 | pWnd->Connect(id, wxEVT_KILL_FOCUS, | |
1149 | wxFocusEventHandler(wxActiveXContainer::OnKillFocus), 0, this); | |
1150 | } | |
1151 | } | |
1152 | ||
1153 | //--------------------------------------------------------------------------- | |
1154 | // wxActiveXContainer::OnSize | |
1155 | // | |
1156 | // Called when the parent is resized - we need to do this to actually | |
1157 | // move the ActiveX control to where the parent is | |
1158 | //--------------------------------------------------------------------------- | |
1159 | void wxActiveXContainer::OnSize(wxSizeEvent& event) | |
1160 | { | |
1161 | int w, h; | |
1162 | GetParent()->GetClientSize(&w, &h); | |
1163 | ||
1164 | RECT posRect; | |
1165 | posRect.left = 0; | |
1166 | posRect.top = 0; | |
1167 | posRect.right = w; | |
1168 | posRect.bottom = h; | |
1169 | ||
1170 | if (w <= 0 && h <= 0) | |
1171 | return; | |
1172 | ||
1173 | // extents are in HIMETRIC units | |
1174 | if (m_oleObject.Ok()) | |
1175 | { | |
1176 | m_oleObject->DoVerb(OLEIVERB_HIDE, 0, m_clientSite, 0, | |
1177 | (HWND)m_realparent->GetHWND(), &posRect); | |
1178 | ||
1179 | SIZEL sz = {w, h}; | |
1180 | PixelsToHimetric(sz); | |
1181 | ||
1182 | SIZEL sz2; | |
1183 | ||
1184 | m_oleObject->GetExtent(DVASPECT_CONTENT, &sz2); | |
1185 | if (sz2.cx != sz.cx || sz.cy != sz2.cy) | |
1186 | m_oleObject->SetExtent(DVASPECT_CONTENT, &sz); | |
1187 | ||
1188 | m_oleObject->DoVerb(OLEIVERB_SHOW, 0, m_clientSite, 0, | |
1189 | (HWND)m_realparent->GetHWND(), &posRect); | |
1190 | } | |
1191 | ||
1192 | if (m_oleInPlaceObject.Ok()) | |
1193 | m_oleInPlaceObject->SetObjectRects(&posRect, &posRect); | |
1194 | ||
1195 | event.Skip(); | |
1196 | } | |
1197 | ||
1198 | //--------------------------------------------------------------------------- | |
1199 | // wxActiveXContainer::OnPaint | |
1200 | // | |
1201 | // Called when the parent is resized - repaints the ActiveX control | |
1202 | //--------------------------------------------------------------------------- | |
1203 | void wxActiveXContainer::OnPaint(wxPaintEvent& WXUNUSED(event)) | |
1204 | { | |
1205 | wxPaintDC dc(this); | |
1206 | // Draw only when control is windowless or deactivated | |
1207 | if (m_viewObject) | |
1208 | { | |
1209 | int w, h; | |
1210 | GetParent()->GetSize(&w, &h); | |
1211 | RECT posRect; | |
1212 | posRect.left = 0; | |
1213 | posRect.top = 0; | |
1214 | posRect.right = w; | |
1215 | posRect.bottom = h; | |
1216 | ||
1217 | #if !(defined(_WIN32_WCE) && _WIN32_WCE < 400) | |
1218 | ::RedrawWindow(m_oleObjectHWND, NULL, NULL, RDW_INTERNALPAINT); | |
1219 | #else | |
1220 | ::InvalidateRect(m_oleObjectHWND, NULL, false); | |
1221 | #endif | |
1222 | RECTL *prcBounds = (RECTL *) &posRect; | |
1223 | wxMSWDCImpl *msw = wxDynamicCast( dc.GetImpl() , wxMSWDCImpl ); | |
1224 | m_viewObject->Draw(DVASPECT_CONTENT, -1, NULL, NULL, NULL, | |
1225 | (HDC)msw->GetHDC(), prcBounds, NULL, NULL, 0); | |
1226 | } | |
1227 | } | |
1228 | ||
1229 | //--------------------------------------------------------------------------- | |
1230 | // wxActiveXContainer::OnSetFocus | |
1231 | // | |
1232 | // Called when the focus is set on the parent - activates the activex control | |
1233 | //--------------------------------------------------------------------------- | |
1234 | void wxActiveXContainer::OnSetFocus(wxFocusEvent& event) | |
1235 | { | |
1236 | if (m_oleInPlaceActiveObject.Ok()) | |
1237 | m_oleInPlaceActiveObject->OnFrameWindowActivate(TRUE); | |
1238 | ||
1239 | event.Skip(); | |
1240 | } | |
1241 | ||
1242 | //--------------------------------------------------------------------------- | |
1243 | // wxActiveXContainer::OnKillFocus | |
1244 | // | |
1245 | // Called when the focus is killed on the parent - | |
1246 | // deactivates the activex control | |
1247 | //--------------------------------------------------------------------------- | |
1248 | void wxActiveXContainer::OnKillFocus(wxFocusEvent& event) | |
1249 | { | |
1250 | if (m_oleInPlaceActiveObject.Ok()) | |
1251 | m_oleInPlaceActiveObject->OnFrameWindowActivate(FALSE); | |
1252 | ||
1253 | event.Skip(); | |
1254 | } | |
1255 | ||
1256 | #endif // wxUSE_ACTIVEX |