+ Free();
+}
+
+bool wxFontRefData::Alloc(wxFont *font)
+{
+ if ( !m_nativeFontInfoOk )
+ {
+ wxFillLogFont(&m_nativeFontInfo.lf, font);
+ m_nativeFontInfoOk = TRUE;
+ }
+
+ HFONT hfont = ::CreateFontIndirect(&m_nativeFontInfo.lf);
+ if ( !hfont )
+ {
+ wxLogLastError(wxT("CreateFont"));
+
+ return FALSE;
+ }
+
+ m_hFont = (WXHFONT)hfont;
+
+ return TRUE;
+}
+
+void wxFontRefData::Free()
+{
+ if ( m_hFont )
+ {
+ if ( !::DeleteObject((HFONT) m_hFont) )
+ {
+ wxLogLastError(wxT("DeleteObject(font)"));
+ }
+
+ m_hFont = 0;
+ }
+}
+
+// ----------------------------------------------------------------------------
+// wxNativeFontInfo
+// ----------------------------------------------------------------------------
+
+void wxNativeFontInfo::Init()
+{
+ wxZeroMemory(lf);
+}
+
+int wxNativeFontInfo::GetPointSize() const
+{
+ // FIXME: using the screen here results in incorrect font size calculation
+ // for printing!
+ const int ppInch = ::GetDeviceCaps(ScreenHDC(), LOGPIXELSY);
+
+ return (int) (((72.0*(double)abs(lf.lfHeight)) / (double) ppInch) + 0.5);
+}
+
+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)
+{
+#if wxFONT_SIZE_COMPATIBILITY
+ // Incorrect, but compatible with old wxWindows behaviour
+ lf.lfHeight = (pointSize*ppInch)/72;
+#else // wxFONT_SIZE_COMPATIBILITY
+ // 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);
+#endif // wxFONT_SIZE_COMPATIBILITY/!wxFONT_SIZE_COMPATIBILITY
+}
+
+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;
+}
+
+void wxNativeFontInfo::SetFaceName(wxString facename)
+{
+ wxStrncpy(lf.lfFaceName, facename, WXSIZEOF(lf.lfFaceName));
+}
+
+void wxNativeFontInfo::SetFamily(wxFontFamily family)
+{
+ int ff_family;
+ wxString facename;
+
+ switch ( family )
+ {
+ case wxSCRIPT:
+ ff_family = FF_SCRIPT;
+ facename = _T("Script");
+ break;
+
+ case wxDECORATIVE:
+ ff_family = FF_DECORATIVE;
+ facename = _T("Old English Text MT");
+ break;
+
+ case wxROMAN:
+ ff_family = FF_ROMAN;
+ facename = _T("Times New Roman");
+ break;
+
+ case wxTELETYPE:
+ case wxMODERN:
+ ff_family = FF_MODERN;
+ facename = _T("Courier New");
+ break;
+
+ case wxSWISS:
+ ff_family = FF_SWISS;
+ facename = _T("Arial");
+ break;
+
+ case wxDEFAULT:
+ default:
+ ff_family = FF_SWISS;
+ facename = _T("MS Sans Serif");
+ }
+
+ lf.lfPitchAndFamily = DEFAULT_PITCH | ff_family;
+
+ if ( !wxStrlen(lf.lfFaceName) )