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的话就只能执行一次，得到一种字体名。