WTL CComboBox 增加所有字体名（迁移2011-03-10）

今天为CComboBox控件增加系统中的字体名折腾了半天， 记录下防止再犯， 或许以后用不到。

1. 定义一个CComboBox的对象：

CComboBox m_cbChiFont;

2. 给上面的对象关联一个资源ID：

m_cbChiFont.Attach(GetDlgItem(IDC_CHI_FONT));

3. 关键地方来了， 首先定义函数所需要的参数， 然后调用EnumFontFamiliesEx(…)， 通过这个函数的回调函数来获取字体名，注意回调函数要在类外提前声明， 实现也要在类外，不然会报错，代码如下：

int CALLBACK EnumFontProc(ENUMLOGFONTEX *lpelfe, NEWTEXTMETRICEX *lpntme, int FontType, LPARAM lParam);
class xxxx : public xxxx
{
...
LRESULT OnInitDialog(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
{
    LOGFONT lf;
    HDC hdc;
    hdc = GetDC();
    lf.lfCharSet = GB2312_CHARSET;
    lf.lfFaceName[0] = '/0';
    ::EnumFontFamiliesEx(hdc,&lf,(FONTENUMPROCW)EnumFontProc, (LPARAM)this, 0);
    ReleaseDC(hdc);
    ....
}
...
};
int CALLBACK EnumFontProc(ENUMLOGFONTEX *lpelfe, NEWTEXTMETRICEX *lpntme, int FontType, LPARAM lParam)
	{
		CStyleSetDlg *pWnd = (CStyleSetDlg*)lParam;
		if (lpelfe->elfLogFont.lfFaceName[0] != '@')
		{
			pWnd->m_cbChiFont.AddString(lpelfe->elfLogFont.lfFaceName);
		}
		return 1;
	}

解释：

EnumFontFamiliesEx第四个参数this，是将当前窗口类的句柄（指针）传给回调函数， 这样我们就可以在回调函数中获取当前窗口指针， 通过这个指针找到ComboBox的对象， 就可以对其进行操作了。

if (lpelfe->elfLogFont.lfFaceName[0] != ’@‘)是为了去掉前面带有@号的字体名， 这种字体是在原来的基础上旋转90度。

EnumFontProc(…)回调函数最后一定要返回1， 这样它会多次调用。 返回0的话就只能执行一次，得到一种字体名。