+
+// ----------------------------------------------------------------------------
+// constants
+// ----------------------------------------------------------------------------
+
+// the mask used to extract the pitch from LOGFONT::lfPitchAndFamily field
+static const int PITCH_MASK = FIXED_PITCH | VARIABLE_PITCH;
+
+// ----------------------------------------------------------------------------
+// wxFontRefData - the internal description of the font
+// ----------------------------------------------------------------------------
+
+class WXDLLEXPORT wxFontRefData: public wxGDIRefData
+{
+public:
+ // constructors
+ wxFontRefData()
+ {
+ Init(-1, wxSize(0,0), false, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL,
+ wxFONTWEIGHT_NORMAL, false, wxEmptyString,
+ wxFONTENCODING_DEFAULT);
+ }
+
+ wxFontRefData(int size,
+ const wxSize& pixelSize,
+ bool sizeUsingPixels,
+ wxFontFamily family,
+ wxFontStyle style,
+ wxFontWeight weight,
+ bool underlined,
+ const wxString& faceName,
+ wxFontEncoding encoding)
+ {
+ Init(size, pixelSize, sizeUsingPixels, family, style, weight,
+ underlined, faceName, encoding);
+ }
+
+ wxFontRefData(const wxNativeFontInfo& info, WXHFONT hFont = 0)
+ {
+ Init(info, hFont);
+ }
+
+ wxFontRefData(const wxFontRefData& data) : wxGDIRefData()
+ {
+ if ( data.m_nativeFontInfoOk )
+ {
+ Init(data.m_nativeFontInfo);
+ }
+ else
+ {
+ Init(data.m_pointSize, data.m_pixelSize, data.m_sizeUsingPixels,
+ data.m_family, data.m_style, data.m_weight,
+ data.m_underlined, data.m_faceName, data.m_encoding);
+ }
+ }
+
+ virtual ~wxFontRefData();
+
+ // operations
+ bool Alloc(const wxFont *font);
+
+ void Free();
+
+ // all wxFont accessors
+ int GetPointSize() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetPointSize()
+ : m_pointSize;
+ }
+
+ wxSize GetPixelSize() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetPixelSize()
+ : m_pixelSize;
+ }
+
+ bool IsUsingSizeInPixels() const
+ {
+ return m_nativeFontInfoOk ? true : m_sizeUsingPixels;
+ }
+
+ wxFontFamily GetFamily() const
+ {
+ return m_family;
+ }
+
+ wxFontStyle GetStyle() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetStyle()
+ : m_style;
+ }
+
+ wxFontWeight GetWeight() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetWeight()
+ : m_weight;
+ }
+
+ bool GetUnderlined() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetUnderlined()
+ : m_underlined;
+ }
+
+ wxString GetFaceName() const
+ {
+ wxString s;
+ if ( m_nativeFontInfoOk )
+ s = m_nativeFontInfo.GetFaceName();
+ else
+ s = m_faceName;
+
+ return s;
+ }
+
+ wxFontEncoding GetEncoding() const
+ {
+ return m_nativeFontInfoOk ? m_nativeFontInfo.GetEncoding()
+ : m_encoding;
+ }
+
+ WXHFONT GetHFONT(const wxFont *font) const
+ {
+ if ( !m_hFont )
+ const_cast<wxFontRefData *>(this)->Alloc(font);
+
+ return (WXHFONT)m_hFont;
+ }
+
+ bool HasHFONT() const
+ {
+ return m_hFont != 0;
+ }
+
+ // ... and setters: notice that all of them invalidate the currently
+ // allocated HFONT, if any, so that the next call to GetHFONT() recreates a
+ // new one
+ void SetPointSize(int pointSize)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ {
+ m_nativeFontInfo.SetPointSize(pointSize);
+ }
+ else
+ {
+ m_pointSize = pointSize;
+ m_sizeUsingPixels = false;
+ }
+ }
+
+ void SetPixelSize(const wxSize& pixelSize)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ {
+ m_nativeFontInfo.SetPixelSize(pixelSize);
+ }
+ else
+ {
+ m_pixelSize = pixelSize;
+ m_sizeUsingPixels = true;
+ }
+ }
+
+ void SetFamily(wxFontFamily family)
+ {
+ Free();
+
+ m_family = family;
+ }
+
+ void SetStyle(wxFontStyle style)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ m_nativeFontInfo.SetStyle((wxFontStyle)style);
+ else
+ m_style = style;
+ }
+
+ void SetWeight(wxFontWeight weight)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ m_nativeFontInfo.SetWeight((wxFontWeight)weight);
+ else
+ m_weight = weight;
+ }
+
+ bool SetFaceName(const wxString& faceName)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ return m_nativeFontInfo.SetFaceName(faceName);
+
+ m_faceName = faceName;
+ return true;
+ }
+
+ void SetUnderlined(bool underlined)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ m_nativeFontInfo.SetUnderlined(underlined);
+ else
+ m_underlined = underlined;
+ }
+
+ void SetEncoding(wxFontEncoding encoding)
+ {
+ Free();
+
+ if ( m_nativeFontInfoOk )
+ m_nativeFontInfo.SetEncoding(encoding);
+ else
+ m_encoding = encoding;
+ }
+
+ // native font info
+ bool HasNativeFontInfo() const { return m_nativeFontInfoOk; }
+
+ const wxNativeFontInfo& GetNativeFontInfo() const
+ { return m_nativeFontInfo; }
+
+ void SetNativeFontInfo(const wxNativeFontInfo& nativeFontInfo)
+ {
+ Free();
+
+ m_nativeFontInfo = nativeFontInfo;
+ m_nativeFontInfoOk = true;
+ }
+
+protected:
+ // common part of all ctors
+ void Init(int size,
+ const wxSize& pixelSize,
+ bool sizeUsingPixels,
+ wxFontFamily family,
+ wxFontStyle style,
+ wxFontWeight weight,
+ bool underlined,
+ const wxString& faceName,
+ wxFontEncoding encoding);
+
+ void Init(const wxNativeFontInfo& info, WXHFONT hFont = 0);
+
+ // font characteristics
+ int m_pointSize;
+ wxSize m_pixelSize;
+ bool m_sizeUsingPixels;
+ wxFontFamily m_family;
+ wxFontStyle m_style;
+ wxFontWeight m_weight;
+ bool m_underlined;
+ wxString m_faceName;
+ wxFontEncoding m_encoding;
+
+ // Windows font handle, created on demand in GetHFONT()
+ HFONT m_hFont;
+
+ // Native font info
+ wxNativeFontInfo m_nativeFontInfo;
+ bool m_nativeFontInfoOk;
+};
+
+#define M_FONTDATA ((wxFontRefData*)m_refData)
+
+// ============================================================================
+// implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// wxFontRefData
+// ----------------------------------------------------------------------------
+
+void wxFontRefData::Init(int pointSize,
+ const wxSize& pixelSize,
+ bool sizeUsingPixels,
+ wxFontFamily family,
+ wxFontStyle style,
+ wxFontWeight weight,
+ bool underlined,
+ const wxString& faceName,
+ wxFontEncoding encoding)
+{
+ m_style = style;
+ m_pointSize = pointSize == -1 ? wxNORMAL_FONT->GetPointSize() : pointSize;
+ m_pixelSize = pixelSize;
+ m_sizeUsingPixels = sizeUsingPixels;
+ m_family = family;
+ m_style = style;
+ m_weight = weight;
+ m_underlined = underlined;
+ m_faceName = faceName;
+ m_encoding = encoding;
+
+ m_hFont = 0;
+
+ m_nativeFontInfoOk = false;
+}
+
+void wxFontRefData::Init(const wxNativeFontInfo& info, WXHFONT hFont)
+{
+ // hFont may be zero, or it be passed in case we really want to
+ // use the exact font created in the underlying system
+ // (for example where we can't guarantee conversion from HFONT
+ // to LOGFONT back to HFONT)
+ m_hFont = (HFONT)hFont;
+
+ m_nativeFontInfoOk = true;
+ m_nativeFontInfo = info;
+ // This is the best we can do since we don't have the
+ // correct information at this point.
+ m_family = wxFONTFAMILY_SWISS;
+}
+
+wxFontRefData::~wxFontRefData()
+{
+ Free();
+}
+
+bool wxFontRefData::Alloc(const wxFont *font)
+{
+ if ( !m_nativeFontInfoOk )
+ {
+ wxFillLogFont(&m_nativeFontInfo.lf, font);
+ m_nativeFontInfoOk = true;
+ }
+
+ m_hFont = ::CreateFontIndirect(&m_nativeFontInfo.lf);
+ if ( !m_hFont )
+ {
+ wxLogLastError(wxT("CreateFont"));
+ return false;
+ }
+
+ return true;
+}
+
+void wxFontRefData::Free()
+{
+ if ( m_hFont )
+ {
+ if ( !::DeleteObject(m_hFont) )
+ {
+ wxLogLastError(wxT("DeleteObject(font)"));
+ }
+
+ m_hFont = 0;
+ }
+}
+
+// ----------------------------------------------------------------------------
+// wxNativeFontInfo
+// ----------------------------------------------------------------------------
+
+void wxNativeFontInfo::Init()
+{
+ wxZeroMemory(lf);
+
+ // we get better font quality if we use PROOF_QUALITY instead of
+ // DEFAULT_QUALITY but some fonts (e.g. "Terminal 6pt") are not available
+ // then so we allow to set a global option to choose between quality and
+ // wider font selection
+#ifdef __WXWINCE__
+ lf.lfQuality = CLEARTYPE_QUALITY;
+#else
+ lf.lfQuality = wxSystemOptions::GetOptionInt(_T("msw.font.no-proof-quality"))
+ ? DEFAULT_QUALITY
+ : PROOF_QUALITY;
+#endif
+}
+
+int wxNativeFontInfo::GetPointSize() const
+{
+ // FIXME: using the screen here results in incorrect font size calculation
+ // for printing!
+ const int ppInch = ::GetDeviceCaps(ScreenHDC(), LOGPIXELSY);
+
+ // BC++ 2007 doesn't provide abs(long) overload, hence the cast
+ return (int) (((72.0*abs((int)lf.lfHeight)) / (double) ppInch) + 0.5);
+}
+
+wxSize wxNativeFontInfo::GetPixelSize() const
+{
+ wxSize ret;
+ ret.SetHeight(abs((int)lf.lfHeight));
+ ret.SetWidth(lf.lfWidth);
+ return ret;
+}
+
+wxFontStyle wxNativeFontInfo::GetStyle() const
+{
+ return lf.lfItalic ? wxFONTSTYLE_ITALIC : wxFONTSTYLE_NORMAL;
+}
+
+wxFontWeight wxNativeFontInfo::GetWeight() const
+{
+ if ( lf.lfWeight <= 300 )
+ return wxFONTWEIGHT_LIGHT;
+
+ if ( lf.lfWeight >= 600 )
+ return wxFONTWEIGHT_BOLD;
+
+ return wxFONTWEIGHT_NORMAL;
+}
+
+bool wxNativeFontInfo::GetUnderlined() const
+{
+ return lf.lfUnderline != 0;
+}
+
+wxString wxNativeFontInfo::GetFaceName() const
+{
+ return lf.lfFaceName;
+}
+
+wxFontFamily wxNativeFontInfo::GetFamily() const
+{
+ wxFontFamily family;
+
+ // extract family from pitch-and-family
+ switch ( lf.lfPitchAndFamily & ~PITCH_MASK )
+ {
+ case FF_ROMAN:
+ family = wxFONTFAMILY_ROMAN;
+ break;
+
+ default:
+ wxFAIL_MSG( _T("unknown LOGFONT::lfFamily value") );
+ // fall through
+
+ case FF_SWISS:
+ family = wxFONTFAMILY_SWISS;
+ break;
+
+ case FF_SCRIPT:
+ family = wxFONTFAMILY_SCRIPT;
+ break;
+
+ case FF_MODERN:
+ family = wxFONTFAMILY_MODERN;
+ break;
+
+ case FF_DECORATIVE:
+ family = wxFONTFAMILY_DECORATIVE;
+ break;
+ }
+
+ return family;
+}
+
+wxFontEncoding wxNativeFontInfo::GetEncoding() const
+{
+ return wxGetFontEncFromCharSet(lf.lfCharSet);
+}
+
+void wxNativeFontInfo::SetPointSize(int pointsize)
+{
+ // FIXME: using the screen here results in incorrect font size calculation
+ // for printing!
+ const int ppInch = ::GetDeviceCaps(ScreenHDC(), LOGPIXELSY);
+
+ lf.lfHeight = -(int)((pointsize*((double)ppInch)/72.0) + 0.5);
+}
+
+void wxNativeFontInfo::SetPixelSize(const wxSize& pixelSize)
+{
+ lf.lfHeight = pixelSize.GetHeight();
+ lf.lfWidth = pixelSize.GetWidth();
+}
+
+
+void wxNativeFontInfo::SetStyle(wxFontStyle style)
+{
+ switch ( style )
+ {
+ default:
+ wxFAIL_MSG( _T("unknown font style") );
+ // fall through
+
+ case wxFONTSTYLE_NORMAL:
+ lf.lfItalic = FALSE;
+ break;
+
+ case wxFONTSTYLE_ITALIC:
+ case wxFONTSTYLE_SLANT:
+ lf.lfItalic = TRUE;
+ break;
+ }
+}
+
+void wxNativeFontInfo::SetWeight(wxFontWeight weight)
+{
+ switch ( weight )
+ {
+ default:
+ wxFAIL_MSG( _T("unknown font weight") );
+ // fall through
+
+ case wxFONTWEIGHT_NORMAL:
+ lf.lfWeight = FW_NORMAL;
+ break;
+
+ case wxFONTWEIGHT_LIGHT:
+ lf.lfWeight = FW_LIGHT;
+ break;
+
+ case wxFONTWEIGHT_BOLD:
+ lf.lfWeight = FW_BOLD;
+ break;
+ }
+}
+
+void wxNativeFontInfo::SetUnderlined(bool underlined)
+{
+ lf.lfUnderline = underlined;
+}
+
+bool wxNativeFontInfo::SetFaceName(const wxString& facename)
+{
+ wxStrlcpy(lf.lfFaceName, facename.c_str(), WXSIZEOF(lf.lfFaceName));
+ return true;
+}
+
+void wxNativeFontInfo::SetFamily(wxFontFamily family)
+{
+ BYTE ff_family;
+ wxArrayString facename;
+
+ // the list of fonts associated with a family was partially
+ // taken from http://www.codestyle.org/css/font-family
+
+ switch ( family )
+ {
+ case wxSCRIPT:
+ ff_family = FF_SCRIPT;
+ facename.Add(_T("Script"));
+ facename.Add(_T("Brush Script MT"));
+ facename.Add(_T("Comic Sans MS"));
+ facename.Add(_T("Lucida Handwriting"));
+ break;
+
+ case wxDECORATIVE:
+ ff_family = FF_DECORATIVE;
+ facename.Add(_T("Old English Text MT"));
+ facename.Add(_T("Comic Sans MS"));
+ facename.Add(_T("Lucida Handwriting"));
+ break;
+
+ case wxROMAN:
+ ff_family = FF_ROMAN;
+ facename.Add(_T("Times New Roman"));
+ facename.Add(_T("Georgia"));
+ facename.Add(_T("Garamond"));
+ facename.Add(_T("Bookman Old Style"));
+ facename.Add(_T("Book Antiqua"));
+ break;
+
+ case wxTELETYPE:
+ case wxMODERN:
+ ff_family = FF_MODERN;
+ facename.Add(_T("Courier New"));
+ facename.Add(_T("Lucida Console"));
+ facename.Add(_T("Andale Mono"));
+ facename.Add(_T("OCR A Extended"));
+ facename.Add(_T("Terminal"));
+ break;
+
+ case wxSWISS:
+ ff_family = FF_SWISS;
+ facename.Add(_T("Arial"));
+ facename.Add(_T("Century Gothic"));
+ facename.Add(_T("Lucida Sans Unicode"));
+ facename.Add(_T("Tahoma"));
+ facename.Add(_T("Trebuchet MS"));
+ facename.Add(_T("Verdana"));
+ break;
+
+ case wxDEFAULT:
+ default:
+ {
+ // We want Windows 2000 or later to have new fonts even MS Shell Dlg
+ // is returned as default GUI font for compatibility
+ int verMaj;
+ ff_family = FF_SWISS;
+ if(wxGetOsVersion(&verMaj) == wxOS_WINDOWS_NT && verMaj >= 5)
+ facename.Add(_T("MS Shell Dlg 2"));
+ else
+ facename.Add(_T("MS Shell Dlg"));
+
+ // Quoting the MSDN:
+ // "MS Shell Dlg is a mapping mechanism that enables
+ // U.S. English Microsoft Windows NT, and Microsoft Windows 2000 to
+ // support locales that have characters that are not contained in code
+ // page 1252. It is not a font but a face name for a nonexistent font."
+ }
+ }
+
+ lf.lfPitchAndFamily = (BYTE)(DEFAULT_PITCH) | ff_family;
+
+ if ( !wxStrlen(lf.lfFaceName) )
+ {
+ SetFaceName(facename);
+ }
+}
+
+void wxNativeFontInfo::SetEncoding(wxFontEncoding encoding)