LPDISPATCH CElementPropPage::GetControlDispatch()
{
// Get the property page's IDispatch array
ULONG ulObjects;
LPDISPATCH* lpObjectArray = GetObjectArray( &ulObjects );
ASSERT( lpObjectArray != NULL );
// I'm assuming there is but one control, ours.
// This is a pretty straightforward assumption
// Most containers don’t even support multi-control
// selection of custom property pages, yet.
return( lpObjectArray[0] );
}
void CFontPropPage::OnObjectsChanged()
{
ULONG nObjects;
if (GetObjectArray(&nObjects) != NULL && m_hWnd != NULL)
{
FillPropnameList(IID_IFontDisp, 1, m_FontProp);
if ( m_FontProp.GetCount() > 0 )
FillFacenameList();
else
{
m_FontNames.EnableWindow(FALSE);
m_FontSizes.EnableWindow(FALSE);
m_FontStyles.EnableWindow(FALSE);
GetDlgItem(AFX_IDC_STRIKEOUT)->EnableWindow(FALSE);
GetDlgItem(AFX_IDC_UNDERLINE)->EnableWindow(FALSE);
}
}
if (m_hWnd != NULL)
OnSelchangeFontprop();
}
BOOL CFontPropPage::GetFontProps(CDataExchange* /* pDX */,
FONTOBJECT* pfobj, LPCTSTR pszPropName, MERGEOBJECT* pmobj)
{
USES_CONVERSION;
BOOL bStatus = FALSE;
COleDispatchDriver PropDispDriver;
ULONG nObjects;
LPDISPATCH* ppDisp = GetObjectArray(&nObjects);
for (ULONG i = 0; i < nObjects; i++)
{
DISPID dwDispID;
// Get the Dispatch ID for the property and if successful get the value
LPCOLESTR lpOleStr = T2COLE(pszPropName);
if (SUCCEEDED(ppDisp[i]->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpOleStr,
1, m_lcid, &dwDispID)))
{
LPDISPATCH pFontDisp;
// Get property
PropDispDriver.AttachDispatch(ppDisp[i], FALSE);
PropDispDriver.GetProperty(dwDispID, VT_DISPATCH, &pFontDisp);
PropDispDriver.DetachDispatch();
if (pFontDisp == NULL)
continue;
// Get font interface
IFont * pFont;
HRESULT hresult = pFontDisp->QueryInterface(IID_IFont, (void**)&pFont);
if (hresult == S_OK)
{
BOOL bTemp;
// Set font characteristics
OLECHAR *pszName;
pFont->get_Name(&pszName);
if (lstrcmp(OLE2CT(pszName), pfobj->strName) != 0 && i != 0)
pmobj->bNameOK = FALSE;
pfobj->strName = pszName;
SysFreeString(pszName);
CY cyTemp;
pFont->get_Size(&cyTemp);
if ((cyTemp.Lo != pfobj->cySize.Lo || cyTemp.Hi != pfobj->cySize.Hi) && i != 0)
pmobj->bSizeOK = FALSE;
pfobj->cySize = cyTemp;
pFont->get_Bold(&bTemp);
if (pfobj->bBold != bTemp && i != 0)
pmobj->bStyleOK = FALSE;
pfobj->bBold = bTemp;
pFont->get_Italic(&bTemp);
if (pfobj->bItalic != bTemp && i != 0)
pmobj->bStyleOK = FALSE;
pfobj->bItalic = bTemp;
pFont->get_Underline(&bTemp);
if (pfobj->bUnderline != bTemp && i != 0)
pmobj->bUnderlineOK = FALSE;
pfobj->bUnderline = bTemp;
pFont->get_Strikethrough(&bTemp);
if (pfobj->bStrikethrough != bTemp && i != 0)
pmobj->bStrikethroughOK = FALSE;
pfobj->bStrikethrough = bTemp;
short sTemp;
pFont->get_Weight(&sTemp);
if (pfobj->sWeight != sTemp && i != 0)
pmobj->bStyleOK = FALSE;
pfobj->sWeight = sTemp;
// Release the font interface
RELEASE(pFont);
bStatus = TRUE;
}
// Release font interface
RELEASE(pFontDisp);
}
}
return bStatus;
}
BOOL CFontPropPage::SetFontProps(CDataExchange* pDX, FONTOBJECT fobj, LPCTSTR pszPropName)
{
USES_CONVERSION;
BOOL bStatus = FALSE;
COleDispatchDriver PropDispDriver;
// Set the properties for all the objects
ASSERT_KINDOF(COlePropertyPage, pDX->m_pDlgWnd);
COlePropertyPage* propDialog = (COlePropertyPage*)(pDX->m_pDlgWnd);
ULONG nObjects;
LPDISPATCH* ppDisp = GetObjectArray(&nObjects);
for (ULONG i = 0; i < nObjects; i++)
{
DISPID dwDispID;
// Get the Dispatch ID for the property and if successful set the value
LPCOLESTR lpOleStr = T2COLE(pszPropName);
if (SUCCEEDED(ppDisp[i]->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpOleStr,
1, m_lcid, &dwDispID)))
{
LPDISPATCH pFontDisp = NULL;
// Get property
PropDispDriver.AttachDispatch(ppDisp[i], FALSE);
TRY
PropDispDriver.GetProperty(dwDispID, VT_DISPATCH, &pFontDisp);
END_TRY
PropDispDriver.DetachDispatch();
if (pFontDisp == NULL)
continue;
// Get font interface
IFont * pFont;
HRESULT hresult = pFontDisp->QueryInterface(IID_IFont, (void**)&pFont);
if (hresult == S_OK)
{
// Set font characteristics
if (propDialog->GetControlStatus(AFX_IDC_FONTNAMES))
{
BSTR bstrName = fobj.strName.AllocSysString();
pFont->put_Name(bstrName);
SysFreeString(bstrName);
}
if (propDialog->GetControlStatus(AFX_IDC_FONTSIZES))
pFont->put_Size(fobj.cySize);
if (propDialog->GetControlStatus(AFX_IDC_FONTSTYLES))
{
pFont->put_Bold(fobj.bBold);
pFont->put_Italic(fobj.bItalic);
pFont->put_Weight(fobj.sWeight);
}
if (propDialog->GetControlStatus(AFX_IDC_UNDERLINE))
pFont->put_Underline(fobj.bUnderline);
if (propDialog->GetControlStatus(AFX_IDC_STRIKEOUT))
pFont->put_Strikethrough(fobj.bStrikethrough);
// Release the font interface
RELEASE(pFont);
bStatus = TRUE;
}
// Release the font dispatch interface
RELEASE(pFontDisp);
}
}
return bStatus;
}
void CStockPropPage::FillPropnameList(REFGUID guid, int nIndirect, CComboBox& combo)
{
USES_CONVERSION;
combo.ResetContent();
UINT cProps = 0;
ULONG nObjects;
LPDISPATCH* ppDisp = GetObjectArray(&nObjects);
if (ppDisp != NULL)
{
LPTYPEINFO pTypeInfo;
LPTYPEATTR pTypeAttr;
LPVARDESC pVarDesc;
ULONG iObj;
WORD iProp;
BSTR rgbstr[1];
UINT cName;
// Get the property sheet locale
LPPROPERTYPAGESITE pPageSite;
if ((pPageSite = GetPageSite()) != NULL)
if (FAILED(pPageSite->GetLocaleID(&m_lcid)))
m_lcid = 0;
// Iterate through all objects.
for (iObj = 0; iObj < nObjects; iObj++)
{
pTypeInfo = NULL;
if ((ppDisp[iObj] != NULL) &&
SUCCEEDED(ppDisp[iObj]->GetTypeInfo(0, m_lcid, &pTypeInfo)))
{
ASSERT(pTypeInfo != NULL);
pTypeAttr = NULL;
if (SUCCEEDED(pTypeInfo->GetTypeAttr(&pTypeAttr)))
{
ASSERT(pTypeAttr != NULL);
// Iterate through all properties of object.
for (iProp = 0; iProp < pTypeAttr->cVars; iProp++)
{
pVarDesc = NULL;
if (SUCCEEDED(pTypeInfo->GetVarDesc(iProp, &pVarDesc)))
{
// Check whether property has desired type
if (!(pVarDesc->wVarFlags & VARFLAG_FHIDDEN) &&
AfxOleTypeMatchGuid(pTypeInfo,
&pVarDesc->elemdescVar.tdesc, guid,
nIndirect))
{
// Get property name and insert into list.
if (SUCCEEDED(pTypeInfo->GetNames(
pVarDesc->memid, rgbstr, 1, &cName)))
{
// Don't insert duplicates.
LPCTSTR lpstr = OLE2CT(rgbstr[0]);
if (combo.FindString(-1, lpstr)
== CB_ERR)
{
int iItem = combo.AddString(lpstr);
if (iItem >= 0)
{
combo.SetItemData(iItem, (DWORD)pVarDesc->memid);
++cProps;
}
}
SysFreeString(rgbstr[0]);
}
}
pTypeInfo->ReleaseVarDesc(pVarDesc);
}
}
pTypeInfo->ReleaseTypeAttr(pTypeAttr);
}
pTypeInfo->Release();
}
}
}
// Select the first one
m_iPropName = 0; // Prevents save from happening
if (combo.SetCurSel(0) != CB_ERR)
combo.GetLBText(0, m_strPropName);
// Disable or set the size of the combo, as appropriate
if (cProps <= 1)
combo.EnableWindow(FALSE);
else
_AfxSizeComboToContent(&combo);
UpdateData(FALSE);
SetModifiedFlag(FALSE);
}
