[wxWidgets.git] / src / os2 / fontutil.cpp

///////////////////////////////////////////////////////////////////////////////
// Name:        msw/fontutil.cpp
// Purpose:     font-related helper functions for wxMSW
// Author:      Modified by David Webster for OS/2
// Modified by:
// Created:     01.03.00
// RCS-ID:      $Id$
// Copyright:   (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
// Licence:     wxWindows license
///////////////////////////////////////////////////////////////////////////////
#define DEBUG_PRINTF(NAME)   { static int raz=0; \
  printf( #NAME " %i\n",raz); fflush(stdout);       \
   raz++;                                        \
 }

// ============================================================================
// declarations
// ============================================================================

// ----------------------------------------------------------------------------
// headers
// ----------------------------------------------------------------------------

#ifdef __GNUG__
    #pragma implementation "fontutil.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifndef WX_PRECOMP
    #include "wx/string.h"
    #include "wx/log.h"
    #include "wx/intl.h"
#endif //WX_PRECOMP

#include "wx/os2/private.h"

#include "wx/fontutil.h"
#include "wx/fontmap.h"

#include "wx/tokenzr.h"

// ============================================================================
// implementation
// ============================================================================

// ----------------------------------------------------------------------------
// wxNativeEncodingInfo
// ----------------------------------------------------------------------------

// convert to/from the string representation: format is
//      encodingid;facename[;charset]

bool wxNativeEncodingInfo::FromString(const wxString& s)
{
    wxStringTokenizer tokenizer(s, _T(";"));

    wxString encid = tokenizer.GetNextToken();
    long enc;
    if ( !encid.ToLong(&enc) )
        return FALSE;
    encoding = (wxFontEncoding)enc;

    facename = tokenizer.GetNextToken();
    if ( !facename )
        return FALSE;

    wxString tmp = tokenizer.GetNextToken();
    if ( !tmp )
    {
        // default charset (don't use DEFAULT_CHARSET though because of subtle
        // Windows 9x/NT differences in handling it)
// TODO: what is this for OS/2?
//        charset = ANSI_CHARSET;
    }
    else
    {
        if ( wxSscanf(tmp, _T("%u"), &charset) != 1 )
        {
            // should be a number!
            return FALSE;
        }
    }

    return TRUE;
}

wxString wxNativeEncodingInfo::ToString() const
{
    wxString s;

    s << (long)encoding << _T(';') << facename;

// TODO: what is this for OS/2?
/*
    if ( charset != ANSI_CHARSET )
    {
        s << _T(';') << charset;
    }
*/
    return s;
}

// ----------------------------------------------------------------------------
// helper functions
// ----------------------------------------------------------------------------

bool wxGetNativeFontEncoding(wxFontEncoding encoding,
                             wxNativeEncodingInfo *info)
{
    wxCHECK_MSG( info, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );

    if ( encoding == wxFONTENCODING_DEFAULT )
    {
        encoding = wxFont::GetDefaultEncoding();
    }

    switch ( encoding )
    {
// TODO: fix this for OS2
/*
        // although this function is supposed to return an exact match, do do
        // some mappings here for the most common case of "standard" encoding
        case wxFONTENCODING_SYSTEM:
        case wxFONTENCODING_ISO8859_1:
        case wxFONTENCODING_ISO8859_15:
        case wxFONTENCODING_CP1252:
            info->charset = ANSI_CHARSET;
            break;

        case wxFONTENCODING_CP1250:
            info->charset = EASTEUROPE_CHARSET;
            break;

        case wxFONTENCODING_CP1251:
            info->charset = RUSSIAN_CHARSET;
            break;

        case wxFONTENCODING_CP1253:
            info->charset = GREEK_CHARSET;
            break;

        case wxFONTENCODING_CP1254:
            info->charset = TURKISH_CHARSET;
            break;

        case wxFONTENCODING_CP1255:
            info->charset = HEBREW_CHARSET;
            break;

        case wxFONTENCODING_CP1256:
            info->charset = ARABIC_CHARSET;
            break;

        case wxFONTENCODING_CP1257:
            info->charset = BALTIC_CHARSET;
            break;

        case wxFONTENCODING_CP874:
            info->charset = THAI_CHARSET;
            break;

        case wxFONTENCODING_CP437:
            info->charset = OEM_CHARSET;
            break;
*/
        default:
            // no way to translate this encoding into a Windows charset
            return FALSE;
    }

    return TRUE;
}

bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
{
   // TODO:
   /*
    // try to create such font
    LOGFONT lf;
    wxZeroMemory(lf);       // all default values

    lf.lfCharSet = info.charset;
    strncpy(lf.lfFaceName, info.facename, sizeof(lf.lfFaceName));

    HFONT hfont = ::CreateFontIndirect(&lf);
    if ( !hfont )
    {
        // no such font
        return FALSE;
    }

    ::DeleteObject((HGDIOBJ)hfont);
*/
    return TRUE;
}

// ----------------------------------------------------------------------------
// wxFont <-> LOGFONT conversion
// ----------------------------------------------------------------------------

#if 0
void wxFillLogFont(LOGFONT *logFont, const wxFont *font)
{
    int ff_family;
    wxString ff_face;

    switch ( font->GetFamily() )
    {
        case wxSCRIPT:
            ff_family = FF_SCRIPT;
            ff_face = _T("Script");
            break;

        case wxDECORATIVE:
            ff_family = FF_DECORATIVE;
            break;

        case wxROMAN:
            ff_family = FF_ROMAN;
            ff_face = _T("Times New Roman");
            break;

        case wxTELETYPE:
        case wxMODERN:
            ff_family = FF_MODERN;
            ff_face = _T("Courier New");
            break;

        case wxSWISS:
            ff_family = FF_SWISS;
            ff_face = _T("Arial");
            break;

        case wxDEFAULT:
        default:
            ff_family = FF_SWISS;
            ff_face = _T("MS Sans Serif");
    }

    BYTE ff_italic;
    switch ( font->GetStyle() )
    {
        case wxITALIC:
        case wxSLANT:
            ff_italic = 1;
            break;

        default:
            wxFAIL_MSG(wxT("unknown font slant"));
            // fall through

        case wxNORMAL:
            ff_italic = 0;
    }

    int ff_weight;
    switch ( font->GetWeight() )
    {
        default:
            wxFAIL_MSG(_T("unknown font weight"));
            // fall through

        case wxNORMAL:
            ff_weight = FW_NORMAL;
            break;

        case wxLIGHT:
            ff_weight = FW_LIGHT;
            break;

        case wxBOLD:
            ff_weight = FW_BOLD;
            break;
    }

#if 0
    HDC dc = ::GetDC(NULL);
    int ppInch = ::GetDeviceCaps(dc, LOGPIXELSY);
    ::ReleaseDC(NULL, dc);
#else
    // New behaviour: apparently ppInch varies according to Large/Small Fonts
    // setting in Windows. This messes up fonts. So, set ppInch to a constant
    // 96 dpi.
    static const int ppInch = 96;
#endif // 0/1

#if wxFONT_SIZE_COMPATIBILITY
    // Incorrect, but compatible with old wxWindows behaviour
    int nHeight = (font->GetPointSize()*ppInch/72);
#else
    // Correct for Windows compatibility
    int nHeight = - (font->GetPointSize()*ppInch/72);
#endif

    wxString facename = font->GetFaceName();
    if ( !!facename )
    {
        ff_face = facename;
    }
    //else: ff_face is a reasonable default facename for this font family

    // deal with encoding now
    wxNativeEncodingInfo info;
    wxFontEncoding encoding = font->GetEncoding();
    if ( !wxGetNativeFontEncoding(encoding, &info) )
    {
        if ( !wxTheFontMapper->GetAltForEncoding(encoding, &info) )
        {
            // unsupported encoding, replace with the default
            info.charset = ANSI_CHARSET;
        }
    }

    if ( !info.facename.IsEmpty() )
    {
        // the facename determined by the encoding overrides everything else
        ff_face = info.facename;
    }

    // transfer all the data to LOGFONT
    logFont->lfHeight = nHeight;
    logFont->lfWidth = 0;
    logFont->lfEscapement = 0;
    logFont->lfOrientation = 0;
    logFont->lfWeight = ff_weight;
    logFont->lfItalic = ff_italic;
    logFont->lfUnderline = (BYTE)font->GetUnderlined();
    logFont->lfStrikeOut = 0;
    logFont->lfCharSet = info.charset;
    logFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
    logFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
    logFont->lfQuality = PROOF_QUALITY;
    logFont->lfPitchAndFamily = DEFAULT_PITCH | ff_family;
    wxStrncpy(logFont->lfFaceName, ff_face, WXSIZEOF(logFont->lfFaceName));
}

wxFont wxCreateFontFromLogFont(const LOGFONT *logFont)
{
DEBUG_PRINTF(wxCreateFontFromLogFont)

    // extract family from pitch-and-family
    int lfFamily = logFont->lfPitchAndFamily;
    if ( lfFamily & FIXED_PITCH )
        lfFamily -= FIXED_PITCH;
    if ( lfFamily & VARIABLE_PITCH )
        lfFamily -= VARIABLE_PITCH;

    int fontFamily;
    switch ( lfFamily )
    {
        case FF_ROMAN:
            fontFamily = wxROMAN;
            break;

        case FF_SWISS:
            fontFamily = wxSWISS;
            break;

        case FF_SCRIPT:
            fontFamily = wxSCRIPT;
            break;

        case FF_MODERN:
            fontFamily = wxMODERN;
            break;

        case FF_DECORATIVE:
            fontFamily = wxDECORATIVE;
            break;

        default:
            fontFamily = wxSWISS;
    }

    // weight and style
    int fontWeight = wxNORMAL;
    switch ( logFont->lfWeight )
    {
        case FW_LIGHT:
            fontWeight = wxLIGHT;
            break;

        default:
        case FW_NORMAL:
            fontWeight = wxNORMAL;
            break;

        case FW_BOLD:
            fontWeight = wxBOLD;
            break;
    }

    int fontStyle = logFont->lfItalic ? wxITALIC : wxNORMAL;

    bool fontUnderline = logFont->lfUnderline != 0;

    wxString fontFace = logFont->lfFaceName;

    // font size
    HDC dc = ::GetDC(NULL);

    // remember that 1pt = 1/72inch
    int height = abs(logFont->lfHeight);
    int fontPoints = (72*height)/GetDeviceCaps(dc, LOGPIXELSY);

    ::ReleaseDC(NULL, dc);

    wxFontEncoding fontEncoding;
    switch ( logFont->lfCharSet )
    {
        default:
            wxFAIL_MSG(wxT("unsupported charset"));
            // fall through

        case ANSI_CHARSET:
            fontEncoding = wxFONTENCODING_CP1252;
            break;

#ifdef __WIN32__
        case EASTEUROPE_CHARSET:
            fontEncoding = wxFONTENCODING_CP1250;
            break;

        case BALTIC_CHARSET:
            fontEncoding = wxFONTENCODING_CP1257;
            break;

        case RUSSIAN_CHARSET:
            fontEncoding = wxFONTENCODING_CP1251;
            break;

        case ARABIC_CHARSET:
            fontEncoding = wxFONTENCODING_CP1256;
            break;

        case GREEK_CHARSET:
            fontEncoding = wxFONTENCODING_CP1253;
            break;

        case HEBREW_CHARSET:
            fontEncoding = wxFONTENCODING_CP1255;
            break;

        case TURKISH_CHARSET:
            fontEncoding = wxFONTENCODING_CP1254;
            break;

        case THAI_CHARSET:
            fontEncoding = wxFONTENCODING_CP437;
            break;
#endif

        case OEM_CHARSET:
            fontEncoding = wxFONTENCODING_CP437;
            break;
    }

    return wxFont(fontPoints, fontFamily, fontStyle,
                  fontWeight, fontUnderline, fontFace,
                  fontEncoding);
}
#endif // 0
Commit	Line	Data
d8cde57b DW	1	///////////////////////////////////////////////////////////////////////////////
	2	// Name: msw/fontutil.cpp
	3	// Purpose: font-related helper functions for wxMSW
	4	// Author: Modified by David Webster for OS/2
	5	// Modified by:
	6	// Created: 01.03.00
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
	9	// Licence: wxWindows license
	10	///////////////////////////////////////////////////////////////////////////////
7e99520b DW	11	#define DEBUG_PRINTF(NAME) { static int raz=0; \
	12	printf( #NAME " %i\n",raz); fflush(stdout); \
	13	raz++; \
	14	}
d8cde57b DW	15
	16	// ============================================================================
	17	// declarations
	18	// ============================================================================
	19
	20	// ----------------------------------------------------------------------------
	21	// headers
	22	// ----------------------------------------------------------------------------
	23
a4372af6 SN	24	#ifdef __GNUG__
	25	#pragma implementation "fontutil.h"
	26	#endif
	27
d8cde57b DW	28	// For compilers that support precompilation, includes "wx.h".
	29	#include "wx/wxprec.h"
	30
	31	#ifndef WX_PRECOMP
	32	#include "wx/string.h"
	33	#include "wx/log.h"
	34	#include "wx/intl.h"
	35	#endif //WX_PRECOMP
	36
	37	#include "wx/os2/private.h"
	38
	39	#include "wx/fontutil.h"
	40	#include "wx/fontmap.h"
	41
	42	#include "wx/tokenzr.h"
	43
	44	// ============================================================================
	45	// implementation
	46	// ============================================================================
	47
	48	// ----------------------------------------------------------------------------
	49	// wxNativeEncodingInfo
	50	// ----------------------------------------------------------------------------
	51
	52	// convert to/from the string representation: format is
1e1d0be1	53	// encodingid;facename[;charset]
d8cde57b DW	54
	55	bool wxNativeEncodingInfo::FromString(const wxString& s)
	56	{
	57	wxStringTokenizer tokenizer(s, _T(";"));
	58
1e1d0be1 VS	59	wxString encid = tokenizer.GetNextToken();
	60	long enc;
	61	if ( !encid.ToLong(&enc) )
	62	return FALSE;
	63	encoding = (wxFontEncoding)enc;
	64
d8cde57b DW	65	facename = tokenizer.GetNextToken();
	66	if ( !facename )
	67	return FALSE;
	68
	69	wxString tmp = tokenizer.GetNextToken();
	70	if ( !tmp )
	71	{
	72	// default charset (don't use DEFAULT_CHARSET though because of subtle
	73	// Windows 9x/NT differences in handling it)
	74	// TODO: what is this for OS/2?
	75	// charset = ANSI_CHARSET;
	76	}
	77	else
	78	{
	79	if ( wxSscanf(tmp, _T("%u"), &charset) != 1 )
	80	{
	81	// should be a number!
	82	return FALSE;
	83	}
	84	}
	85
	86	return TRUE;
	87	}
	88
	89	wxString wxNativeEncodingInfo::ToString() const
	90	{
1e1d0be1	91	wxString s;
7e99520b	92
1e1d0be1 VS	93	s << (long)encoding << _T(';') << facename;
1e1d0be1 VS	94
d8cde57b DW	95	// TODO: what is this for OS/2?
	96	/*
	97	if ( charset != ANSI_CHARSET )
	98	{
	99	s << _T(';') << charset;
	100	}
	101	*/
	102	return s;
	103	}
	104
	105	// ----------------------------------------------------------------------------
	106	// helper functions
	107	// ----------------------------------------------------------------------------
	108
	109	bool wxGetNativeFontEncoding(wxFontEncoding encoding,
	110	wxNativeEncodingInfo *info)
	111	{
	112	wxCHECK_MSG( info, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );
	113
	114	if ( encoding == wxFONTENCODING_DEFAULT )
	115	{
	116	encoding = wxFont::GetDefaultEncoding();
	117	}
	118
	119	switch ( encoding )
	120	{
	121	// TODO: fix this for OS2
	122	/*
	123	// although this function is supposed to return an exact match, do do
	124	// some mappings here for the most common case of "standard" encoding
	125	case wxFONTENCODING_SYSTEM:
	126	case wxFONTENCODING_ISO8859_1:
	127	case wxFONTENCODING_ISO8859_15:
	128	case wxFONTENCODING_CP1252:
	129	info->charset = ANSI_CHARSET;
	130	break;
	131
	132	case wxFONTENCODING_CP1250:
	133	info->charset = EASTEUROPE_CHARSET;
	134	break;
	135
	136	case wxFONTENCODING_CP1251:
	137	info->charset = RUSSIAN_CHARSET;
	138	break;
	139
	140	case wxFONTENCODING_CP1253:
	141	info->charset = GREEK_CHARSET;
	142	break;
	143
	144	case wxFONTENCODING_CP1254:
	145	info->charset = TURKISH_CHARSET;
	146	break;
	147
	148	case wxFONTENCODING_CP1255:
	149	info->charset = HEBREW_CHARSET;
	150	break;
	151
	152	case wxFONTENCODING_CP1256:
	153	info->charset = ARABIC_CHARSET;
	154	break;
	155
	156	case wxFONTENCODING_CP1257:
	157	info->charset = BALTIC_CHARSET;
	158	break;
159
160	case wxFONTENCODING_CP874:
161	info->charset = THAI_CHARSET;
162	break;
163
164	case wxFONTENCODING_CP437:
165	info->charset = OEM_CHARSET;
166	break;
167	*/
168	default:
169	// no way to translate this encoding into a Windows charset
170	return FALSE;
171	}
172
173	return TRUE;
174	}
175
176	bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
177	{
178	// TODO:
179	/*
180	// try to create such font
181	LOGFONT lf;
182	wxZeroMemory(lf); // all default values
183
184	lf.lfCharSet = info.charset;
185	strncpy(lf.lfFaceName, info.facename, sizeof(lf.lfFaceName));
186
187	HFONT hfont = ::CreateFontIndirect(&lf);
188	if ( !hfont )
189	{
190	// no such font
191	return FALSE;
192	}
193
194	::DeleteObject((HGDIOBJ)hfont);
195	*/
196	return TRUE;
197	}
198
199	// ----------------------------------------------------------------------------
200	// wxFont <-> LOGFONT conversion
201	// ----------------------------------------------------------------------------
202
203	#if 0
204	void wxFillLogFont(LOGFONT logFont, const wxFont font)
205	{
206	int ff_family;
207	wxString ff_face;
208
209	switch ( font->GetFamily() )
210	{
211	case wxSCRIPT:
212	ff_family = FF_SCRIPT;
213	ff_face = _T("Script");
214	break;
215
216	case wxDECORATIVE:
217	ff_family = FF_DECORATIVE;
218	break;
219
220	case wxROMAN:
221	ff_family = FF_ROMAN;
222	ff_face = _T("Times New Roman");
223	break;
224
225	case wxTELETYPE:
226	case wxMODERN:
227	ff_family = FF_MODERN;
228	ff_face = _T("Courier New");
229	break;
230
231	case wxSWISS:
232	ff_family = FF_SWISS;
233	ff_face = _T("Arial");
234	break;
235
236	case wxDEFAULT:
237	default:
238	ff_family = FF_SWISS;
239	ff_face = _T("MS Sans Serif");
240	}
241
242	BYTE ff_italic;
243	switch ( font->GetStyle() )
244	{
245	case wxITALIC:
246	case wxSLANT:
247	ff_italic = 1;
248	break;
249
250	default:
251	wxFAIL_MSG(wxT("unknown font slant"));
252	// fall through
253
254	case wxNORMAL:
255	ff_italic = 0;
256	}
257
258	int ff_weight;
259	switch ( font->GetWeight() )
260	{
261	default:
262	wxFAIL_MSG(_T("unknown font weight"));
263	// fall through
264
265	case wxNORMAL:
266	ff_weight = FW_NORMAL;
267	break;
268
269	case wxLIGHT:
270	ff_weight = FW_LIGHT;
271	break;
272
273	case wxBOLD:
274	ff_weight = FW_BOLD;
275	break;
276	}
277
278	#if 0
279	HDC dc = ::GetDC(NULL);
280	int ppInch = ::GetDeviceCaps(dc, LOGPIXELSY);
281	::ReleaseDC(NULL, dc);
282	#else
283	// New behaviour: apparently ppInch varies according to Large/Small Fonts
284	// setting in Windows. This messes up fonts. So, set ppInch to a constant
285	// 96 dpi.
286	static const int ppInch = 96;
287	#endif // 0/1
288
289	#if wxFONT_SIZE_COMPATIBILITY
290	// Incorrect, but compatible with old wxWindows behaviour
291	int nHeight = (font->GetPointSize()*ppInch/72);
292	#else
293	// Correct for Windows compatibility
294	int nHeight = - (font->GetPointSize()*ppInch/72);
295	#endif
296
297	wxString facename = font->GetFaceName();
298	if ( !!facename )
299	{
300	ff_face = facename;
301	}
302	//else: ff_face is a reasonable default facename for this font family
303
304	// deal with encoding now
305	wxNativeEncodingInfo info;
306	wxFontEncoding encoding = font->GetEncoding();
307	if ( !wxGetNativeFontEncoding(encoding, &info) )
308	{
309	if ( !wxTheFontMapper->GetAltForEncoding(encoding, &info) )
310	{
311	// unsupported encoding, replace with the default
312	info.charset = ANSI_CHARSET;
313	}
314	}
315
316	if ( !info.facename.IsEmpty() )
317	{
318	// the facename determined by the encoding overrides everything else
319	ff_face = info.facename;
320	}
321
322	// transfer all the data to LOGFONT
323	logFont->lfHeight = nHeight;
324	logFont->lfWidth = 0;
325	logFont->lfEscapement = 0;
326	logFont->lfOrientation = 0;
327	logFont->lfWeight = ff_weight;
328	logFont->lfItalic = ff_italic;
329	logFont->lfUnderline = (BYTE)font->GetUnderlined();
330	logFont->lfStrikeOut = 0;
331	logFont->lfCharSet = info.charset;
332	logFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
333	logFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
334	logFont->lfQuality = PROOF_QUALITY;
335	logFont->lfPitchAndFamily = DEFAULT_PITCH \| ff_family;
336	wxStrncpy(logFont->lfFaceName, ff_face, WXSIZEOF(logFont->lfFaceName));
337	}
338
339	wxFont wxCreateFontFromLogFont(const LOGFONT *logFont)
340	{
7e99520b DW	341	DEBUG_PRINTF(wxCreateFontFromLogFont)
7e99520b DW	342
d8cde57b DW	343	// extract family from pitch-and-family
	344	int lfFamily = logFont->lfPitchAndFamily;
	345	if ( lfFamily & FIXED_PITCH )
	346	lfFamily -= FIXED_PITCH;
	347	if ( lfFamily & VARIABLE_PITCH )
	348	lfFamily -= VARIABLE_PITCH;
	349
	350	int fontFamily;
	351	switch ( lfFamily )
	352	{
	353	case FF_ROMAN:
	354	fontFamily = wxROMAN;
	355	break;
	356
	357	case FF_SWISS:
	358	fontFamily = wxSWISS;
	359	break;
	360
	361	case FF_SCRIPT:
	362	fontFamily = wxSCRIPT;
	363	break;
	364
	365	case FF_MODERN:
	366	fontFamily = wxMODERN;
	367	break;
	368
	369	case FF_DECORATIVE:
	370	fontFamily = wxDECORATIVE;
	371	break;
	372
	373	default:
	374	fontFamily = wxSWISS;
	375	}
	376
	377	// weight and style
	378	int fontWeight = wxNORMAL;
	379	switch ( logFont->lfWeight )
	380	{
	381	case FW_LIGHT:
	382	fontWeight = wxLIGHT;
	383	break;
	384
	385	default:
	386	case FW_NORMAL:
	387	fontWeight = wxNORMAL;
	388	break;
	389
	390	case FW_BOLD:
	391	fontWeight = wxBOLD;
	392	break;
	393	}
	394
	395	int fontStyle = logFont->lfItalic ? wxITALIC : wxNORMAL;
	396
	397	bool fontUnderline = logFont->lfUnderline != 0;
	398
	399	wxString fontFace = logFont->lfFaceName;
	400
	401	// font size
	402	HDC dc = ::GetDC(NULL);
	403
	404	// remember that 1pt = 1/72inch
	405	int height = abs(logFont->lfHeight);
	406	int fontPoints = (72*height)/GetDeviceCaps(dc, LOGPIXELSY);
407
408	::ReleaseDC(NULL, dc);
409
410	wxFontEncoding fontEncoding;
411	switch ( logFont->lfCharSet )
412	{
413	default:
414	wxFAIL_MSG(wxT("unsupported charset"));
415	// fall through
416
417	case ANSI_CHARSET:
418	fontEncoding = wxFONTENCODING_CP1252;
419	break;
420
421	#ifdef __WIN32__
422	case EASTEUROPE_CHARSET:
423	fontEncoding = wxFONTENCODING_CP1250;
424	break;
425
426	case BALTIC_CHARSET:
427	fontEncoding = wxFONTENCODING_CP1257;
428	break;
429
430	case RUSSIAN_CHARSET:
431	fontEncoding = wxFONTENCODING_CP1251;
432	break;
433
434	case ARABIC_CHARSET:
435	fontEncoding = wxFONTENCODING_CP1256;
436	break;
437
438	case GREEK_CHARSET:
439	fontEncoding = wxFONTENCODING_CP1253;
440	break;
441
442	case HEBREW_CHARSET:
443	fontEncoding = wxFONTENCODING_CP1255;
444	break;
445
446	case TURKISH_CHARSET:
447	fontEncoding = wxFONTENCODING_CP1254;
448	break;
449
450	case THAI_CHARSET:
451	fontEncoding = wxFONTENCODING_CP437;
452	break;
453	#endif
454
455	case OEM_CHARSET:
456	fontEncoding = wxFONTENCODING_CP437;
457	break;
458	}
459
460	return wxFont(fontPoints, fontFamily, fontStyle,
461	fontWeight, fontUnderline, fontFace,
462	fontEncoding);
463	}
464	#endif // 0
465