source: trunk/Lucide/SOURCE/gui/fontsInfoDlg.cpp @ 2

#define INCL_WIN
#include <os2.h>

#include <process.h>

#include <ludoc.xh>

#include "luutils.h"
#include "fontsInfoDlg.h"
#include "Lucide_res.h"
#include "messages.h"


FontsInfoDlg::FontsInfoDlg( HWND hWndFrame, LuDocument *_doc )
{
    hFrame     = hWndFrame;
    doc        = _doc;
    hDialog    = NULLHANDLE;
    hContainer = NULLHANDLE;
    name       = newstrdupL( FONTINFO_NAME );
    type       = newstrdupL( FONTINFO_TYPE );
    embed      = newstrdupL( FONTINFO_EMBEDDED );
}

FontsInfoDlg::~FontsInfoDlg()
{
    delete name;
    delete type;
    delete embed;
}

void FontsInfoDlg::doDialog()
{
    WinDlgBox( HWND_DESKTOP, hFrame, fontsInfoDlgProc,
               NULLHANDLE, IDD_FONTINFO, this );
    delete this;
}


struct ListRec
{
    MINIRECORDCORE miniRecordCore;
    PSZ type;
    PSZ embed;
};


void FontsInfoDlg::loadList()
{
    Environment *ev = somGetGlobalEnvironment();
    LuDocument_LuFontInfoSequence *fonts = doc->getFontInfo( ev );

    if ( fonts != NULL )
    {
        for ( int i = 0; i < fonts->_length; i++ )
        {
            ListRec *r = (ListRec *)WinSendMsg( hContainer, CM_ALLOCRECORD,
              MPFROMLONG( ( sizeof( ListRec ) - sizeof( MINIRECORDCORE ) ) ),
                                      MPFROMSHORT( 1 ) );

            r->miniRecordCore.cb = sizeof( MINIRECORDCORE );
            r->miniRecordCore.flRecordAttr = 0;
            r->miniRecordCore.ptlIcon.x = 0;
            r->miniRecordCore.ptlIcon.y = 0;
            r->miniRecordCore.pszIcon = newstrdup( fonts->_buffer[i].name );
            r->miniRecordCore.hptrIcon = NULLHANDLE;
            r->type = newstrdup( fonts->_buffer[i].type );
            r->embed = newstrdup( fonts->_buffer[i].embedded );

            RECORDINSERT ri;
            ri.cb = sizeof( RECORDINSERT );
            ri.pRecordParent= NULL;
            ri.pRecordOrder = (PRECORDCORE)CMA_END;
            ri.zOrder = (USHORT)CMA_TOP;
            ri.cRecordsInsert = 1;
            ri.fInvalidateRecord = TRUE;
            WinSendMsg( hContainer, CM_INSERTRECORD, MPFROMP( r ), MPFROMP( &ri ) );
        }

        LuDocument::freeFontInfo( ev, fonts );
    }
}

void FontsInfoDlg::loadthread( void *p )
{
    FontsInfoDlg *_this = (FontsInfoDlg *)p;
    HAB thab = WinInitialize( 0 );
    HMQ thmq = WinCreateMsgQueue( thab, 0 );

    _this->loadList();

    WinSetDlgItemText( _this->hDialog, IDC_ENUMLABEL, "" );
    WinEnableControl( _this->hDialog, DID_OK, TRUE );
    WinInvalidateRect( _this->hDialog, NULL, TRUE );

    WinDestroyMsgQueue( thmq );
    WinTerminate( thab );
    _endthread();
}

MRESULT EXPENTRY FontsInfoDlg::fontsInfoDlgProc( HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2 )
{
    // This is a static method, so we don't know which instantiation we're
    // dealing with. But we can get a pseudo-this from the parameter to
    // WM_INITDLG, which we therafter store with the window and retrieve
    // as follows:
    FontsInfoDlg *_this = (FontsInfoDlg *)WinQueryWindowULong( hwnd, QWL_USER );

    switch (msg)
    {

        // Dialog has just been created
        case WM_INITDLG:
        {
            // Save the mp2 into our user data so that subsequent calls have
            // access to the parent C++ object
            WinSetWindowULong( hwnd, QWL_USER, (ULONG)mp2 );
            _this = (FontsInfoDlg *)mp2;
            _this->hDialog = hwnd;
            _this->hContainer = WinWindowFromID( hwnd, IDC_FONTSLIST );
            localizeDialog( hwnd );
            centerWindow( _this->hFrame, hwnd );

            // init container
            CNRINFO ci;
            ci.cb = sizeof( CNRINFO );
            WinSendMsg( _this->hContainer, CM_QUERYCNRINFO, MPFROMP( &ci ), MPFROMSHORT( ci.cb ) );
            ci.flWindowAttr &= ~( CV_NAME | CV_FLOW | CV_TEXT | CV_ICON );
            ci.flWindowAttr |= ( CV_DETAIL | CV_MINI | CA_DETAILSVIEWTITLES );
            WinSendMsg( _this->hContainer, CM_SETCNRINFO, MPFROMP( &ci ), MPFROMLONG( CMA_FLWINDOWATTR ) );

            PFIELDINFO pFieldInfo = (PFIELDINFO)WinSendMsg( _this->hContainer, CM_ALLOCDETAILFIELDINFO,
                                             MPFROMSHORT( 3 ), MPVOID );
            PFIELDINFO pFldInfo = pFieldInfo;
            pFldInfo->cb = sizeof( FIELDINFO );
            pFldInfo->flData = CFA_STRING | CFA_HORZSEPARATOR | CFA_SEPARATOR;
            pFldInfo->flTitle = CFA_CENTER;
            pFldInfo->pTitleData = (PVOID)_this->name;
            pFldInfo->offStruct = FIELDOFFSET( ListRec, miniRecordCore.pszIcon );
            pFldInfo = pFldInfo->pNextFieldInfo;
            pFldInfo->cb = sizeof( FIELDINFO );
            pFldInfo->flData = CFA_STRING | CFA_HORZSEPARATOR | CFA_SEPARATOR;
            pFldInfo->flTitle = CFA_CENTER;
            pFldInfo->pTitleData = (PVOID)_this->type;
            pFldInfo->offStruct = FIELDOFFSET( ListRec, type );
            pFldInfo = pFldInfo->pNextFieldInfo;
            pFldInfo->cb = sizeof( FIELDINFO );
            pFldInfo->flData = CFA_STRING | CFA_HORZSEPARATOR | CFA_SEPARATOR;
            pFldInfo->flTitle = CFA_CENTER;
            pFldInfo->pTitleData = (PVOID)_this->embed;
            pFldInfo->offStruct = FIELDOFFSET( ListRec, embed );

            FIELDINFOINSERT fieldInfoInsert;
            fieldInfoInsert.cb = sizeof( FIELDINFOINSERT );
            fieldInfoInsert.pFieldInfoOrder = (PFIELDINFO)CMA_FIRST;
            fieldInfoInsert.cFieldInfoInsert = 3;
            fieldInfoInsert.fInvalidateFieldInfo = TRUE;
            WinSendMsg( _this->hContainer, CM_INSERTDETAILFIELDINFO,
                        MPFROMP( pFieldInfo ), MPFROMP( &fieldInfoInsert ) );

            _beginthread( loadthread, NULL, 32768, _this );

            return (MRESULT)FALSE;
        }

        case WM_DESTROY:
        {
            ListRec *pRecords = (ListRec *)WinSendMsg( _this->hContainer, CM_QUERYRECORD,
                                MPFROMP( NULL ), MPFROM2SHORT( CMA_FIRST, CMA_ITEMORDER ) );
            ListRec *pr = pRecords;

            while ( pr != NULL )
            {
                delete pr->miniRecordCore.pszIcon;
                delete pr->type;
                delete pr->embed;
                pr = (ListRec *)WinSendMsg( _this->hContainer, CM_QUERYRECORD,
                                    MPFROMP( pr ), MPFROM2SHORT( CMA_NEXT, CMA_ITEMORDER ) );
            }
            WinSendMsg( _this->hContainer, CM_REMOVERECORD,
                        MPFROMP( NULL ), MPFROM2SHORT( 0, CMA_FREE ) );
        }
        break;

    }
    return WinDefDlgProc( hwnd, msg, mp1, mp2 );
}