带测试用例的office控件

/*************************************************************************** * DSOFCONTROL.CPP * * CDsoFramerControl: The Base Control * * Copyright (c)1999-2001 Microsoft Corporation, All Rights Reserved * Written by DSO Office Integration, Microsoft Developer Support * * THIS CODE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, * EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. * ***************************************************************************/ #include "dsoframer.h" //////////////////////////////////////////////////////////////////////// // CDsoFramerControl - The Main Control Class // // Serves as a base for the ActiveX Document site object which will do // the actual embedding. // CDsoFramerControl::CDsoFramerControl(LPUNKNOWN punk) { ODS("CDsoFramerControl::CDsoFramerControl\n"); m_pOuterUnknown = ((punk) ? punk : (IUnknown*)&m_xInternalUnknown); } CDsoFramerControl::~CDsoFramerControl(void) { ODS("CDsoFramerControl::~CDsoFramerControl\n"); RELEASE_INTERFACE(m_pITypeInfo); RELEASE_INTERFACE(m_pClientSite); RELEASE_INTERFACE(m_pControlSite); RELEASE_INTERFACE(m_pInPlaceSite); RELEASE_INTERFACE(m_pInPlaceFrame); RELEASE_INTERFACE(m_pInPlaceUIWindow); RELEASE_INTERFACE(m_pViewAdviseSink); RELEASE_INTERFACE(m_pOleAdviseHolder); } //////////////////////////////////////////////////////////////////////// // CDsoFramerControl::InitializeNewInstance // // Sets up the inital state for the control. Any other member variable // not set here will be NULL/FALSE thanks to zero-init in MemAlloc. // STDMETHODIMP CDsoFramerControl::InitializeNewInstance() { m_clrBorderColor = 0x80000010; // System Button Shadow Color m_clrBackColor = 0x80000005; // System Window Background Color m_clrForeColor = 0x80000008; // System Window Text Color m_clrTBarColor = 0x80000010; // System Button Shadow Color m_clrTBarTextColor = 0x80000014; // System Button Highlight Color m_fBorderStyle = dsoBorderFlat; m_fShowTitlebar = TRUE; m_fShowToolbars = TRUE; m_wMenuItems = 0xFFFF; // All items are "enabled" by default return S_OK; } //////////////////////////////////////////////////////////////////////// // CDsoFramerControl::InPlaceActivate // // Does all the work in-place activating and/or ui activating the // control when asked to do so. Sets up the main control window, the // needed interfaces, and (if not in design) subclasses the main top-level // window we can monitor messages that must be forwarded to an ip active // DocObject when we have one loaded. // STDMETHODIMP CDsoFramerControl::InPlaceActivate(LONG lVerb) { HRESULT hr; SIZEL sizel; TRACE1("CDsoFramerControl::InPlaceActivate - %d\n", lVerb); // if we don't have a client site, then there's not much to do. if (!m_pClientSite) return S_OK; // get an InPlace site pointer. if (NULL == m_pInPlaceSite) { hr = m_pClientSite->QueryInterface(IID_IOleInPlaceSite, (void **)&m_pInPlaceSite); RETURN_ON_FAILURE(hr); } // if we're not already active, go and do it. if (!m_fInPlaceActive) { OLEINPLACEFRAMEINFO InPlaceFrameInfo; RECT rcPos, rcClip; hr = m_pInPlaceSite->CanInPlaceActivate(); if (hr != S_OK){ if (!FAILED(hr)) hr = E_FAIL; goto cleanup;} // if we are here, then we have permission to go in-place active. // now, announce our intentions to actually go ahead and do this. hr = m_pInPlaceSite->OnInPlaceActivate(); GOTO_ON_FAILURE(hr, cleanup); // if we're here, we're ready to go in-place active. we just need // to set up some flags, and then create the window [if we have one] m_fInPlaceActive = TRUE; // we need to get some information about our location in the parent // window, as well as some information about the parent hr = m_pInPlaceSite->GetWindow(&m_hwndParent); if (FAILED(hr) || !IsWindow(m_hwndParent)) { hr = OLE_E_INVALIDHWND; goto cleanup; } InPlaceFrameInfo.cb = sizeof(OLEINPLACEFRAMEINFO); hr = m_pInPlaceSite->GetWindowContext(&m_pInPlaceFrame, &m_pInPlaceUIWindow, &rcPos, &rcClip, &InPlaceFrameInfo); GOTO_ON_FAILURE(hr, cleanup); // make sure we'll display ourselves in the correct location with the correct size sizel.cx = rcPos.right - rcPos.left; sizel.cy = rcPos.bottom - rcPos.top; m_Size = sizel; m_xOleInplaceObject.SetObjectRects(&rcPos, &rcClip); // finally, create our window if we have to! if (NULL == m_hwnd) { WNDCLASS wndclass; EnterCriticalSection(&v_csecThreadSynch); if (GetClassInfo(v_hModule, "DSOFramerOCXWnd", &wndclass) == 0) { memset(&wndclass, 0, sizeof(WNDCLASS)); wndclass.style = CS_VREDRAW | CS_HREDRAW | CS_DBLCLKS; wndclass.lpfnWndProc = CDsoFramerControl::ControlWindowProc; wndclass.hInstance = v_hModule; wndclass.hCursor = LoadCursor(NULL, IDC_ARROW); wndclass.lpszClassName = "DSOFramerOCXWnd"; RegisterClass(&wndclass); } m_hwnd = CreateWindowEx(0, "DSOFramerOCXWnd", NULL, WS_CHILD | WS_CLIPSIBLINGS | WS_VISIBLE, rcPos.left, rcPos.top, m_Size.cx, m_Size.cy, m_hwndParent, NULL, v_hModule, NULL); if (m_hwnd) SetWindowLong(m_hwnd, GWL_USERDATA, (LONG)this); LeaveCriticalSection(&v_csecThreadSynch); if (!m_hwnd) {hr = E_FAIL; goto cleanup;} } // finally, tell the host of this m_pClientSite->ShowObject(); } // if we're not inplace visible yet, do so now. if (!m_fInPlaceVisible) SetInPlaceVisible(TRUE); // Hook top-level parent window if in RunMode. This let's us // track WM_ACTIVATEAPP messages, which are critical for DocObjs... if (!m_pFrameHook) m_pFrameHook = CDsoFrameWindowHook::AttachToFrameWindow(m_hwnd, this); // if we were asked to UIActivate, and we currently are not, do so! if ((lVerb == OLEIVERB_PRIMARY || lVerb == OLEIVERB_UIACTIVATE) && (!m_fUIActive)) { m_fUIActive = TRUE; // inform the container of our intent m_pInPlaceSite->OnUIActivate(); // notify the hook we have taked focus... if (m_pFrameHook) m_pFrameHook->SetActiveComponent(this); // take the focus [which is what UI Activation is all about !] SetFocus(m_hwnd); // set ourselves up in the host. if (m_pInPlaceFrame) m_pInPlaceFrame->SetActiveObject((IOleInPlaceActiveObject*)&m_xOleInplaceActiveObject, NULL); if (m_pInPlaceUIWindow) m_pInPlaceUIWindow->SetActiveObject((IOleInPlaceActiveObject*)&m_xOleInplaceActiveObject, NULL); // we have to explicitly say we don't wany any border space. if (m_pInPlaceFrame) m_pInPlaceFrame->SetBorderSpace(NULL); if (m_pInPlaceUIWindow) m_pInPlaceUIWindow->SetBorderSpace(NULL); } return S_OK; // be-de-be-de-be-de that's all folks! cleanup: // something catastrophic happened [or, at least something bad]. // die a horrible fiery mangled painful death. m_fInPlaceActive = FALSE; return hr; } //////////////////////////////////////////////////////////////////////// // CDsoFramerControl::SetInPlaceVisible // // Make sure our control is visible or not (does not actually take ui // focus, that should be done in InPlaceActivate). // STDMETHODIMP_(void) CDsoFramerControl::SetInPlaceVisible(BOOL fShow) { BOOL fVisible; m_fInPlaceVisible = fShow; // don't do anything if we don't have a window. otherwise, set it if (m_hwnd) { fVisible = IsWindowVisible(m_hwnd); if (fVisible && !fShow)