home *** CD-ROM | disk | FTP | other *** search
- /*
- * ICLISITE.CPP
- * Patron Chapter 22
- *
- * Implementation of the IOleClientSite interface for
- * Patron's tenants.
- *
- * Copyright (c)1993-1995 Microsoft Corporation, All Rights Reserved
- *
- * Kraig Brockschmidt, Microsoft
- * Internet : kraigb@microsoft.com
- * Compuserve: >INTERNET:kraigb@microsoft.com
- */
-
-
- #include "patron.h"
-
-
- /*
- * CImpIOleClientSite::CImpIOleClientSite
- * CImpIOleClientSite::~CImpIOleClientSite
- *
- * Parameters (Constructor):
- * pTenant PCTenant of the tenant we're in.
- * pUnkOuter LPUNKNOWN to which we delegate.
- */
-
- CImpIOleClientSite::CImpIOleClientSite(PCTenant pTenant
- , LPUNKNOWN pUnkOuter)
- {
- m_cRef=0;
- m_pTen=pTenant;
- m_pUnkOuter=pUnkOuter;
- return;
- }
-
- CImpIOleClientSite::~CImpIOleClientSite(void)
- {
- return;
- }
-
-
-
-
- /*
- * CImpIOleClientSite::QueryInterface
- * CImpIOleClientSite::AddRef
- * CImpIOleClientSite::Release
- *
- * Purpose:
- * IUnknown members for CImpIOleClientSite object.
- */
-
- STDMETHODIMP CImpIOleClientSite::QueryInterface(REFIID riid
- , PPVOID ppv)
- {
- return m_pUnkOuter->QueryInterface(riid, ppv);
- }
-
-
- STDMETHODIMP_(ULONG) CImpIOleClientSite::AddRef(void)
- {
- ++m_cRef;
- return m_pUnkOuter->AddRef();
- }
-
- STDMETHODIMP_(ULONG) CImpIOleClientSite::Release(void)
- {
- --m_cRef;
- return m_pUnkOuter->Release();
- }
-
-
-
-
- /*
- * CImpIOleClientSite::SaveObject
- *
- * Purpose:
- * Requests that the container call OleSave for the object that
- * lives here. Typically this happens on server shutdown.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::SaveObject(void)
- {
- //We're already set up with the tenant to save; this is trivial.
- m_pTen->Update();
- return NOERROR;
- }
-
-
-
-
-
- /*
- * CImpIOleClientSite::GetMoniker
- *
- * Purpose:
- * Retrieves the moniker for the site in which this object lives,
- * either the moniker relative to the container or the full
- * moniker.
- *
- * Parameters:
- * dwAssign DWORD specifying that the object wants moniker
- * assignment. Yeah. Right. Got any bridges to
- * sell?
- * dwWhich DWORD identifying which moniker the object
- * wants, either the container's moniker, the
- * moniker relative to this client site, or the
- * full moniker.
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::GetMoniker(DWORD dwAssign
- , DWORD dwWhich, LPMONIKER *ppmk)
- {
- *ppmk=NULL;
-
- switch (dwWhich)
- {
- case OLEWHICHMK_CONTAINER:
- //This is just the file we're living in.
- if (NULL!=m_pTen->m_pmkFile)
- *ppmk=m_pTen->m_pmkFile;
-
- break;
-
- case OLEWHICHMK_OBJREL:
- //This is everything but the filename.
- if (NULL!=m_pTen->m_pmk)
- *ppmk=m_pTen->m_pmk;
-
- break;
-
- case OLEWHICHMK_OBJFULL:
- //Concatenate file and relative monikers for this one.
- if (NULL!=m_pTen->m_pmkFile && NULL!=m_pTen->m_pmk)
- {
- return m_pTen->m_pmkFile->ComposeWith
- (m_pTen->m_pmk, FALSE, ppmk);
- }
-
- break;
- }
-
- if (NULL==*ppmk)
- return ResultFromScode(E_FAIL);
-
- (*ppmk)->AddRef();
- return NOERROR;
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::GetContainer
- *
- * Purpose:
- * Returns a pointer to the document's IOleContainer interface.
- *
- * Parameters:
- * ppContainer LPOLECONTAINER * in which to return the
- * interface.
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::GetContainer(LPOLECONTAINER
- * ppContainer)
- {
- PCPage pPage;
-
- *ppContainer=NULL;
-
- /*
- * Here we want to get the interface on the page we're in.
- * The function we call in CPages does not AddRef the page, but
- * QueryInterface does.
- */
- m_pTen->m_pPG->IPageGetFromID((DWORD)-1L, &pPage, FALSE);
-
- if (NULL!=pPage)
- {
- return pPage->QueryInterface(IID_IOleItemContainer
- , (PPVOID)ppContainer);
- }
-
- return ResultFromScode(E_FAIL);
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::ShowObject
- *
- * Purpose:
- * Tells the container to bring the object fully into view as much
- * as possible, that is, scroll the document.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::ShowObject(void)
- {
- HWND hWnd, hWndT;
-
- /*
- * We let the tenant do this, since it can access the current
- * scroll position as a friend of CPages whereas we cannot.
- */
- //CHAPTER22MOD
- //Don't try to show objects that are always active.
- if (!((OLEMISC_INSIDEOUT | OLEMISC_ACTIVATEWHENVISIBLE)
- & m_pTen->m_grfMisc))
- m_pTen->ShowYourself();
- //End CHAPTER22MOD
-
- //For linking to embedding, show the main window.
- hWndT=GetParent(m_pTen->m_hWnd);
-
- while (NULL!=hWndT)
- {
- hWnd=hWndT;
- hWndT=GetParent(hWnd);
- }
-
- ShowWindow(hWnd, SW_SHOWNOACTIVATE);
-
- //CHAPTER22MOD
- m_pTen->UpdateInPlaceObjectRects(NULL, TRUE);
- //End CHAPTER22MOD
-
- return NOERROR;
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::OnShowWindow
- *
- * Purpose:
- * Informs the container if the object is showing itself or
- * hiding itself. This is done only in the opening mode and allows
- * the container to know when to shade or unshade the object.
- *
- * Parameters:
- * fShow BOOL indiciating that the object is being shown
- * (TRUE) or hidden (FALSE).
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::OnShowWindow(BOOL fShow)
- {
- //All we have to do is tell the tenant of the open state change.
- m_pTen->ShowAsOpen(fShow);
- return NOERROR;
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::RequestNewObjectLayout
- *
- * Purpose:
- * Called when the object needs more room in the container.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::RequestNewObjectLayout(void)
- {
- return ResultFromScode(E_NOTIMPL);
- }
-