如何获得一个系统的字体资源，并用ComboBox显示出来

[gaoxt1983]

谢谢各位

[mengqimxz]

void CCommspyDlg::OnFont()
{
CFontDialog dlg;

if(dlg.DoModal() == IDOK)
{
m_fontDisplay.DeleteObject();

m_settings.nPointSize = dlg.GetSize();
m_settings.strFontName = dlg.GetFaceName();

m_fontDisplay.CreatePointFont(m_settings.nPointSize, m_settings.strFontName);

m_display.SetFont(&m_fontDisplay);
}
}

[mengqimxz]

CEdit m_display;
CFont m_fontDisplay;

[Kudeet]

这是一个枚举打印机支持的所有字体的函数和它的回调函数

BOOL CDlgPrintDlg::EnumerateFonts()
{
HDC hDC;
// 获得系统字体
hDC = ::GetWindowDC(NULL);
LOGFONT lf;
ZeroMemory(&lf,sizeof(lf));
lf.lfCharSet = GB2312_CHARSET;
if (!EnumFontFamiliesEx(hDC,// 设备环境句柄
&lf, // 指向LOGFONT指针
(FONTENUMPROC)EnumFamScreenCallBackEx,// 回调函数
(LPARAM) this,
(DWORD) 0))
return FALSE;
::ReleaseDC(NULL,hDC);
return TRUE;
}

BOOL CALLBACK AFX_EXPORT CDlgPrintDlg::EnumFamScreenCallBackEx(
ENUMLOGFONTEX* pelf, NEWTEXTMETRICEX* /*lpntm*/, int FontType, LPVOID pThis)
{
// 若打印机不支持该字体类型，则返回
if (FontType & RASTER_FONTTYPE)
return 1;
// 添加字体类型
CString ss;
if(FontType & TRUETYPE_FONTTYPE)
ss=_T(pelf->elfLogFont.lfFaceName);
int kk=((CDlgPrintDlg*)pThis)->m_List.AddString(ss);//添加字体到控件
return 1;
}

[gaoxt1983]

1楼的，忘了说了，不能用CFontDialog

[DentistryDoctor]

//****************************************************************************************
void CBCGPToolbarFontCombo::RebuildFonts ()
{
ASSERT (m_lstFonts.IsEmpty ());

//------------------------------
// First, take the screen fonts:
//------------------------------
CWindowDC dc (NULL);

LOGFONT lf;
memset(&lf, 0, sizeof(LOGFONT));
lf.lfCharSet = m_nCharSet;

::EnumFontFamiliesEx (dc.GetSafeHdc (), &lf,
(FONTENUMPROC) EnumFamScreenCallBackEx, (LPARAM) this, NULL);

//-----------------------------
// Now, take the printer fonts:
//-----------------------------
CPrintDialog dlgPrint (FALSE);

if (AfxGetApp ()->GetPrinterDeviceDefaults (&dlgPrint.m_pd))
{
HDC hDCPrint = dlgPrint.CreatePrinterDC ();
ASSERT (hDCPrint != NULL);

::EnumFontFamiliesEx (hDCPrint, &lf,
(FONTENUMPROC) EnumFamPrinterCallBackEx, (LPARAM) this, NULL);

::DeleteObject (hDCPrint);
}
}

请参考BCG的CBCGPToolbarFontCombo/CBCGPFontComboBox

[gaoxt1983]

laiyiling(陌生人·100%·小象) 有简单一点的吗，我实在看不懂……

[Kudeet]

五、枚举所有字体
LOGFONT lf;
lf.lfCharSet = DEFAULT_CHARSET; // Initialize the LOGFONT structure
strcpy(lf.lfFaceName,"");
CClientDC dc (this);
//Enumerate the font families
::EnumFontFamiliesEx((HDC) dc,&lf,
(FONTENUMPROC) EnumFontFamProc,(LPARAM) this,0);
//枚举函数
int CALLBACK EnumFontFamProc(LPENUMLOGFONT lpelf,LPNEWTEXTMETRIC lpntm,DWORD nFontType,long lparam)
{
// Create a pointer to the dialog window
CDay7Dlg* pWnd = (CDay7Dlg*) lparam;
// add the font name to the list box
pWnd ->m_ctlFontList.AddString(lpelf ->elfLogFont.lfFaceName);
// Return 1 to continue font enumeration
return 1;
}
其中m_ctlFontList是一个列表控件变量

已经不能再简单啦！

[yo_jo]

void CUseFontDlg::FillFontList()
{
int iCount; //获取的字体的总数目
int iCurCount; //用于循环的变量
CString strCurFont; //当前获取的字体名
CString strPrvFont=""; //上一个字体名
LOGFONT myFont;

//初始化结构体LOGFONT
myFont.lfCharSet=DEFAULT_CHARSET;
strcpy(myFont.lfFaceName,"");

//清空LIST控件内容
m_ctlListFont.ResetContent();

//建立当前的设备上下文
CClientDC myDC(this);

//例举所有字体
::EnumFontFamiliesEx((HDC)myDC,&myFont,(FONTENUMPROC)EnumFontFamProc,(LPARAM)this,0);

//获取字体的总数目
iCount=m_ctlListFont.GetCount();

//利用循环来删除LISTFONT中的重复项
for (iCurCount=iCount;iCurCount>0;iCurCount--)
{
m_ctlListFont.GetText((iCurCount-1),strCurFont);
if(strCurFont==strPrvFont)
m_ctlListFont.DeleteString(iCurCount-1);
strPrvFont=strCurFont;
}

}
----------------------------------------------------------------------------
// m_ctlListFont ：存放字体的ListBox控件