home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / MS_VC.50 / VC / MFC / SRC / CTLOBJ.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-30  |  10.4 KB  |  422 lines
  1. // This is a part of the Microsoft Foundation Classes C++ library.
  2. // Copyright (C) 1992-1997 Microsoft Corporation
  3. // All rights reserved.
  4. //
  5. // This source code is only intended as a supplement to the
  6. // Microsoft Foundation Classes Reference and related
  7. // electronic documentation provided with the library.
  8. // See these sources for detailed information regarding the
  9. // Microsoft Foundation Classes product.
  10.  
  11. #include "stdafx.h"
  12.  
  13. #ifdef AFXCTL_CORE2_SEG
  14. #pragma code_seg(AFXCTL_CORE2_SEG)
  15. #endif
  16.  
  17. #ifdef _DEBUG
  18. #undef THIS_FILE
  19. static char THIS_FILE[] = __FILE__;
  20. #endif
  21.  
  22. #define new DEBUG_NEW
  23.  
  24. /////////////////////////////////////////////////////////////////////////////
  25. // COleControl::XOleObject
  26.  
  27. STDMETHODIMP_(ULONG) COleControl::XOleObject::AddRef()
  28. {
  29.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  30.     return (ULONG)pThis->ExternalAddRef();
  31. }
  32.  
  33. STDMETHODIMP_(ULONG) COleControl::XOleObject::Release()
  34. {
  35.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  36.     return (ULONG)pThis->ExternalRelease();
  37. }
  38.  
  39. STDMETHODIMP COleControl::XOleObject::QueryInterface(
  40.     REFIID iid, LPVOID* ppvObj)
  41. {
  42.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  43.     return (HRESULT)pThis->ExternalQueryInterface(&iid, ppvObj);
  44. }
  45.  
  46. STDMETHODIMP COleControl::XOleObject::SetClientSite(LPOLECLIENTSITE pClientSite)
  47. {
  48.     METHOD_PROLOGUE_EX(COleControl, OleObject)
  49.  
  50.     ASSERT_NULL_OR_POINTER(pClientSite, IOleClientSite);
  51.  
  52.     // maintain reference counts
  53.     if (pClientSite != NULL)
  54.         pClientSite->AddRef();
  55.     RELEASE(pThis->m_pClientSite);
  56.     pThis->m_pClientSite = pClientSite;
  57.  
  58.     // Release existing pointer to ambient property dispinterface.
  59.     pThis->m_ambientDispDriver.ReleaseDispatch();
  60.  
  61.     if (pClientSite != NULL)
  62.     {
  63.         BOOL bValue;
  64.         pThis->m_bAutoClip =
  65.             pThis->GetAmbientProperty(DISPID_AMBIENT_AUTOCLIP, VT_BOOL, &bValue) ? bValue : 0;
  66.         pThis->m_bMsgReflect =
  67.             pThis->GetAmbientProperty(DISPID_AMBIENT_MESSAGEREFLECT, VT_BOOL, &bValue) ? bValue : 0;
  68.         pThis->m_bUIDead = (BYTE)(pThis->AmbientUIDead());
  69.     }
  70.  
  71.     // Release existing pointer to in-place site, if any.
  72.     RELEASE(pThis->m_pInPlaceSite);
  73.  
  74.     // Initialize pointer to control site
  75.     LPVOID pInterface;
  76.     if (pClientSite == NULL ||
  77.         FAILED(pClientSite->QueryInterface(IID_IOleControlSite, &pInterface)))
  78.     {
  79.         pInterface = NULL;
  80.     }
  81.  
  82.     RELEASE(pThis->m_pControlSite);
  83.     pThis->m_pControlSite = (LPOLECONTROLSITE) pInterface;
  84.  
  85.     // Initialize pointer to simple frame site
  86.     if (pClientSite == NULL || !pThis->m_bSimpleFrame ||
  87.         FAILED(pClientSite->QueryInterface(IID_ISimpleFrameSite, &pInterface)))
  88.     {
  89.         pInterface = NULL;
  90.     }
  91.  
  92.     RELEASE(pThis->m_pSimpleFrameSite);
  93.     pThis->m_pSimpleFrameSite = (LPSIMPLEFRAMESITE) pInterface;
  94.  
  95.     // Let the control run its own code here.
  96.     pThis->OnSetClientSite();
  97.  
  98.     // Unless IPersist*::Load or IPersist*::InitNew is called after this,
  99.     // we can't count on ambient properties being available while loading.
  100.     pThis->m_bCountOnAmbients = FALSE;
  101.  
  102.     return S_OK;
  103. }
  104.  
  105. STDMETHODIMP COleControl::XOleObject::GetClientSite(LPOLECLIENTSITE* ppClientSite)
  106. {
  107.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  108.  
  109.     ASSERT_POINTER(ppClientSite, LPOLECLIENTSITE);
  110.  
  111.     LPOLECLIENTSITE pClientSite = pThis->m_pClientSite;
  112.     *ppClientSite = pClientSite;
  113.     if (pClientSite != NULL)
  114.         pClientSite->AddRef();
  115.  
  116.     return (pClientSite != NULL) ? S_OK : E_FAIL;
  117. }
  118.  
  119. STDMETHODIMP COleControl::XOleObject::SetHostNames(LPCOLESTR, LPCOLESTR)
  120. {
  121.     return S_OK;
  122. }
  123.  
  124. STDMETHODIMP COleControl::XOleObject::Close(DWORD dwSaveOption)
  125. {
  126.     METHOD_PROLOGUE_EX(COleControl, OleObject)
  127.     pThis->OnClose(dwSaveOption);
  128.     return S_OK;
  129. }
  130.  
  131. void COleControl::OnClose(DWORD dwSaveOption)
  132. {
  133.     if (m_bInPlaceActive)
  134.         m_xOleInPlaceObject.InPlaceDeactivate();
  135.  
  136.     if (((dwSaveOption == OLECLOSE_SAVEIFDIRTY) || (dwSaveOption == OLECLOSE_PROMPTSAVE)) &&
  137.         m_bModified)
  138.     {
  139.         SendAdvise(OBJECTCODE_SAVEOBJECT);
  140.         SendAdvise(OBJECTCODE_SAVED);
  141.     }
  142. }
  143.  
  144. STDMETHODIMP COleControl::XOleObject::SetMoniker(DWORD, LPMONIKER)
  145. {
  146.     return E_NOTIMPL;
  147. }
  148.  
  149. STDMETHODIMP COleControl::XOleObject::GetMoniker(DWORD, DWORD, LPMONIKER*)
  150. {
  151.     return E_NOTIMPL;
  152. }
  153.  
  154. STDMETHODIMP COleControl::XOleObject::InitFromData(LPDATAOBJECT, BOOL, DWORD)
  155. {
  156.     return E_NOTIMPL;
  157. }
  158.  
  159. STDMETHODIMP COleControl::XOleObject::GetClipboardData(DWORD, LPDATAOBJECT*)
  160. {
  161.     return E_NOTIMPL;
  162. }
  163.  
  164. STDMETHODIMP COleControl::XOleObject::DoVerb(LONG iVerb, LPMSG lpmsg,
  165.     LPOLECLIENTSITE pActiveSite, LONG lindex, HWND hwndParent,
  166.     LPCRECT lprcPosRect)
  167. {
  168.     METHOD_PROLOGUE_EX(COleControl, OleObject)
  169.  
  170.     TRY
  171.     {
  172.         if (pThis->OnDoVerb(iVerb, lpmsg, hwndParent, lprcPosRect))
  173.             return S_OK;                 // Custom verb succeeded
  174.     }
  175.     CATCH (CException, e)
  176.     {
  177.         return E_FAIL;     // Custom verb failed
  178.     }
  179.     END_CATCH
  180.  
  181.     // Custom verb not found, invoke standard verb instead.
  182.  
  183.     HRESULT hr;
  184.  
  185.     switch (iVerb)
  186.     {
  187.     case OLEIVERB_HIDE:
  188.         pThis->m_xOleInPlaceObject.UIDeactivate();
  189.         return pThis->OnHide();
  190.  
  191.  
  192.     case OLEIVERB_SHOW:
  193.         return pThis->OnOpen(TRUE, lpmsg);      // Try in-place first
  194.  
  195.     case OLEIVERB_UIACTIVATE:
  196.     case OLEIVERB_INPLACEACTIVATE:
  197.         if (pThis->m_bOpen)
  198.             return OLE_E_NOT_INPLACEACTIVE;    // Already open
  199.  
  200.         // FALL THRU
  201.  
  202.     case OLEIVERB_PRIMARY:
  203.         if (lprcPosRect != NULL)
  204.             CopyRect(&pThis->m_rcPos, lprcPosRect);
  205.         else
  206.             memset(&pThis->m_rcPos, 0, sizeof(pThis->m_rcPos));
  207.         return pThis->OnActivateInPlace((iVerb != OLEIVERB_INPLACEACTIVATE), lpmsg);
  208.  
  209.     case OLEIVERB_OPEN:
  210.         return pThis->OnOpen(FALSE, lpmsg);     // Don't try in-place
  211.  
  212.     case OLEIVERB_PROPERTIES:
  213.         return pThis->OnProperties(lpmsg, hwndParent, lprcPosRect) ?
  214.                 S_OK : E_FAIL;
  215.  
  216.     default:
  217.         // negative verbs not understood should return E_NOTIMPL
  218.         if (iVerb < 0)
  219.             return E_NOTIMPL;
  220.  
  221.         // positive verb not processed --
  222.         // according to OLE spec, primary verb should be executed
  223.         // instead.
  224.         if (SUCCEEDED(hr = DoVerb(OLEIVERB_PRIMARY, lpmsg, pActiveSite,
  225.                                 lindex, hwndParent, lprcPosRect)))
  226.             return OLEOBJ_S_INVALIDVERB;
  227.         else
  228.             return hr;
  229.     }
  230. }
  231.  
  232. BOOL COleControl::OnDoVerb(LONG iVerb, LPMSG lpMsg, HWND hWndParent,
  233.     LPCRECT lpRect)
  234. {
  235.     return DoOleVerb(iVerb, lpMsg, hWndParent, lpRect);
  236. }
  237.  
  238. STDMETHODIMP COleControl::XOleObject::EnumVerbs(LPENUMOLEVERB* ppenumOleVerb)
  239. {
  240.     METHOD_PROLOGUE_EX(COleControl, OleObject)
  241.     return pThis->OnEnumVerbs(ppenumOleVerb) ?
  242.         S_OK : OLEOBJ_E_NOVERBS;
  243. }
  244.  
  245. BOOL COleControl::OnEnumVerbs(LPENUMOLEVERB* ppenumOleVerb)
  246. {
  247.     return EnumOleVerbs(ppenumOleVerb);
  248. }
  249.  
  250. STDMETHODIMP COleControl::XOleObject::Update()
  251. {
  252.     return S_OK;
  253. }
  254.  
  255. STDMETHODIMP COleControl::XOleObject::IsUpToDate()
  256. {
  257.     return S_OK;
  258. }
  259.  
  260. STDMETHODIMP COleControl::XOleObject::GetUserClassID(CLSID* pClsid)
  261. {
  262.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  263.     return pThis->GetClassID(pClsid);
  264. }
  265.  
  266. STDMETHODIMP COleControl::XOleObject::GetUserType(DWORD, LPOLESTR* ppszUserType)
  267. {
  268.     METHOD_PROLOGUE_EX(COleControl, OleObject)
  269.     UNUSED(ppszUserType);   // not used in release builds
  270.     ASSERT_POINTER(ppszUserType, LPOLESTR);
  271.     TCHAR szUserType[256];
  272.     pThis->GetUserType(szUserType);
  273.     *ppszUserType = AfxAllocTaskOleString(szUserType);
  274.     return S_OK;
  275. }
  276.  
  277. void COleControl::GetUserType(LPTSTR pszUserType)
  278. {
  279.     ASSERT(pszUserType != NULL);
  280.     pszUserType[0] = '\0';
  281.  
  282.     TRY
  283.     {
  284.         AfxLoadString(GetUserTypeNameID(), pszUserType);
  285.     }
  286.     END_TRY
  287. }
  288.  
  289. STDMETHODIMP COleControl::XOleObject::SetExtent(DWORD dwDrawAspect, LPSIZEL lpsizel)
  290. {
  291.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  292.  
  293.     if (dwDrawAspect & DVASPECT_CONTENT)
  294.         return pThis->OnSetExtent(lpsizel) ? S_OK : E_FAIL;
  295.     else
  296.         return E_NOTIMPL;
  297. }
  298.  
  299. BOOL COleControl::OnSetExtent(LPSIZEL lpSizeL)
  300. {
  301.     if (m_bChangingExtent)  // Prevent infinite recursion!
  302.         return FALSE;
  303.  
  304.     m_bChangingExtent = TRUE;
  305.  
  306.     // Update the control's extent.
  307.     m_cxExtent = lpSizeL->cx;
  308.     m_cyExtent = lpSizeL->cy;
  309.  
  310.     // Mark the control dirty and force a repaint.
  311.     SetModifiedFlag();
  312.     InvalidateControl();
  313.  
  314.     SIZEL szlPixels;
  315.     _AfxXformSizeInHimetricToPixels(NULL, lpSizeL, &szlPixels);
  316.  
  317.     CRect rectNew(m_rcPos);
  318.     rectNew.right = rectNew.left + (int)szlPixels.cx;
  319.     rectNew.bottom = rectNew.top + (int)szlPixels.cy;
  320.  
  321.     if ((m_pInPlaceSite != NULL) && m_bInPlaceActive)
  322.     {
  323.         // If the control is in-place active, tell the container to resize.
  324.         m_pInPlaceSite->OnPosRectChange(&rectNew);
  325.     }
  326.     else if (m_bOpen)
  327.     {
  328.         // If the control is open, resize it.
  329.         ResizeOpenControl((int)szlPixels.cx, (int)szlPixels.cy);
  330.     }
  331.     else
  332.     {
  333.         CopyRect(m_rcPos, rectNew);
  334.  
  335.         // Resize off-screen window, if any.
  336.         if (m_hWnd != NULL)
  337.             ::SetWindowPos(m_hWnd, NULL, 0, 0, (int)szlPixels.cx,
  338.                 (int)szlPixels.cy, SWP_NOZORDER|SWP_NOMOVE|SWP_NOACTIVATE);
  339.     }
  340.  
  341.     m_bChangingExtent = FALSE;
  342.     return TRUE;
  343. }
  344.  
  345. STDMETHODIMP COleControl::XOleObject::GetExtent(DWORD dwDrawAspect,
  346.     LPSIZEL lpsizel)
  347. {
  348.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  349.  
  350.     if (dwDrawAspect & DVASPECT_CONTENT)
  351.     {
  352.         lpsizel->cx = pThis->m_cxExtent;
  353.         lpsizel->cy = pThis->m_cyExtent;
  354.         return S_OK;
  355.     }
  356.     return E_NOTIMPL;
  357. }
  358.  
  359. STDMETHODIMP COleControl::XOleObject::Advise(LPADVISESINK pAdvSink,
  360.     DWORD* pdwConnection)
  361. {
  362.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  363.  
  364.     // If no advise holder exists, create one.
  365.     // Then delegate this call to the advise holder.
  366.  
  367.     if (pThis->m_pOleAdviseHolder == NULL)
  368.     {
  369.         HRESULT hr;
  370.         if (FAILED(hr = CreateOleAdviseHolder(&pThis->m_pOleAdviseHolder)))
  371.             return hr;
  372.     }
  373.  
  374.     return pThis->m_pOleAdviseHolder->Advise(pAdvSink, pdwConnection);
  375. }
  376.  
  377. STDMETHODIMP COleControl::XOleObject::Unadvise(DWORD dwConnection)
  378. {
  379.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  380.  
  381.     if (pThis->m_pOleAdviseHolder != NULL)
  382.         return pThis->m_pOleAdviseHolder->Unadvise(dwConnection);
  383.  
  384.     return E_FAIL;
  385. }
  386.  
  387. STDMETHODIMP COleControl::XOleObject::EnumAdvise(LPENUMSTATDATA* ppenumAdvise)
  388. {
  389.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  390.  
  391.     if (pThis->m_pOleAdviseHolder != NULL)
  392.         return pThis->m_pOleAdviseHolder->EnumAdvise(ppenumAdvise);
  393.  
  394.     return E_FAIL;
  395. }
  396.  
  397. STDMETHODIMP COleControl::XOleObject::GetMiscStatus(DWORD dwAspect,
  398.     DWORD* pdwStatus)
  399. {
  400.     METHOD_PROLOGUE_EX_(COleControl, OleObject)
  401.     ASSERT_POINTER(pdwStatus, DWORD);
  402.  
  403.     if (dwAspect == DVASPECT_CONTENT)
  404.         *pdwStatus = pThis->GetMiscStatus();
  405.     else
  406.         *pdwStatus = 0;
  407.  
  408.     return S_OK;
  409. }
  410.  
  411. STDMETHODIMP COleControl::XOleObject::SetColorScheme(LPLOGPALETTE)
  412. {
  413.     return E_NOTIMPL;
  414. }
  415.  
  416. /////////////////////////////////////////////////////////////////////////////
  417. // Force any extra compiler-generated code into AFX_INIT_SEG
  418.  
  419. #ifdef AFX_INIT_SEG
  420. #pragma code_seg(AFX_INIT_SEG)
  421. #endif
  422.