ResFont.cpp

Go to the documentation of this file.

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Project: uLib - User mode utility library.
// Module: Resource fonts - Allow using custom fonts without installing them.
// Author: Copyright (c) Love Nystrom
// License: NNOSL (BSD descendant, see NNOSL.txt in the base directory).
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#include <uLib/ResFont.h>
#include <uLib/UtilFunc.h>
#include <uLib/StrFunc.h>

TTResFont::TTResFont()
: _pDir( (PTTFDirectory)NULL ), _hfMemo( NULL ), _Size( 0 ), _nFonts( 0 )
{
    memset( TypeFace, 0, sizeof(TypeFace) );
}

TTResFont::TTResFont( HMODULE hModule, CSTR Id, CSTR Type )
: _pDir( (PTTFDirectory)NULL ), _hfMemo( NULL ), _Size( 0 ), _nFonts( 0 )
{
    memset( TypeFace, 0, sizeof(TypeFace) );
    Load( hModule, Id, Type );
}

TTResFont::~TTResFont()
{
    _freeFontMem();
}

bool TTResFont::Load( HMODULE hModule, CSTR Id, CSTR Type )
{
    TypeFace[0] = 0;
    _freeFontMem(); // Free previous resource font, if any
    if (!hModule) hModule = GetModuleHandle( NULL );
    
    _pDir = (PTTFDirectory) LoadCustomResource( hModule, Id, Type, &_Size );
    // NOTE: ReactOS is missing AddFontMemResourceEx...
    _hfMemo = _pDir ? AddFontMemResourceEx( _pDir, _Size, NULL, (DWORD*)&_nFonts ) : NULL;

    if (_hfMemo) _getTypeface();
    return (_hfMemo != NULL);
}

HFONT TTResFont::CreateFont( int Points, int Weight, DWORD CharSet, DWORD Quality )
{
    return _hfMemo
        ? CreateFontEx( TypeFace, Points, Weight, CharSet, Quality ) 
        : NULL;
}

void TTResFont::_freeFontMem()
{
    if (_hfMemo)
    {
        RemoveFontMemResourceEx( _hfMemo ); 
        _hfMemo = NULL;
    }
}

bool TTResFont::_getTypeface()
{
    TypeFace[0] = 0;

    // Scan for the name table directory entry.

    PTTFDirEntry pNameTbl = NULL;
    UINT ix = 0, nTbl = _bswap16( _pDir->NrTables );
    while( ix < nTbl )
    {
        PTTFDirEntry pEntry = &_pDir->Entry[ix];
        if (pEntry->Tag == TTT_NAME)
        {
            pNameTbl = pEntry;
            break;
        }
        ix++;
    }
    if (pNameTbl)
    {
        // Get the name table itself.
        
        ULONG tblOffs = _bswap32( pNameTbl->Offset );
        PTTFNames pNames = PTTFNames( PBYTE(_pDir) + tblOffs );
        
        // Scan for the family name record.

        USHORT nNames = _bswap16( pNames->NrNames );
        ix = 0;
        while( ix < nNames )
        {
            PTTFNameRec pRec = &pNames->Names[ix];
            USHORT recId = _bswap16( pRec->Id );
            if (recId == TTNI_FAMILY) // Check the "name id".
            {
                // Locate the name in the string space.

                USHORT strOffs = _bswap16( pNames->Offset );
                USHORT nameOffs = _bswap16( pRec->Offset );
                USHORT nameLen =  _bswap16( pRec->Length );
                if (nameLen >= dimof(TypeFace)) nameLen = dimof(TypeFace)-1; // Clip the excess.

                CSTR pName = CSTR( PBYTE(pNames) + strOffs + nameOffs );
                _tcsncpyz( TypeFace, pName, nameLen+1 );
                break;
            }
            ix++;
        }
    }
    return (TypeFace[0] != 0);
}