charmap.c

ReactOS是一些高手根据Windows XP的内核编写出的类XP。内核实现机理和API函数调用几乎相同。甚至可以兼容XP的程序。喜欢研究系统内核的人可以看一看。

/*
 * PROJECT:     ReactOS Character Map
 * LICENSE:     GPL - See COPYING in the top level directory
 * FILE:        base/applications/charmap/charmap.c
 * PURPOSE:     main dialog implementation
 * COPYRIGHT:   Copyright 2007 Ged Murphy <[e-mail]>
 *
 */

#include <precomp.h>

#define ID_ABOUT    0x1

HINSTANCE hInstance;

/* Font-enumeration callback */
static int CALLBACK
EnumFontNames(ENUMLOGFONTEX *lpelfe,
              NEWTEXTMETRICEX *lpntme,
              DWORD FontType,
              LPARAM lParam)
{
    HWND hwndCombo = (HWND)lParam;
    TCHAR *pszName  = lpelfe->elfLogFont.lfFaceName;

    /* make sure font doesn't already exist in our list */
    if(SendMessage(hwndCombo,
                   CB_FINDSTRING,
                   0,
                   (LPARAM)pszName) == CB_ERR)
    {
        INT idx;
        BOOL fFixed;
        BOOL fTrueType;

        /* add the font */
        idx = (INT)SendMessage(hwndCombo,
                               CB_ADDSTRING,
                               0,
                               (LPARAM)pszName);

        /* record the font's attributes (Fixedwidth and Truetype) */
        fFixed = (lpelfe->elfLogFont.lfPitchAndFamily & FIXED_PITCH) ? TRUE : FALSE;
        fTrueType = (lpelfe->elfLogFont.lfOutPrecision == OUT_STROKE_PRECIS) ? TRUE : FALSE;

        /* store this information in the list-item's userdata area */
        SendMessage(hwndCombo,
                    CB_SETITEMDATA,
                    idx,
                    MAKEWPARAM(fFixed, fTrueType));
    }

    return 1;
}


/* Initialize the font-list by enumeration all system fonts */
static VOID
FillFontStyleComboList(HWND hwndCombo)
{
    HDC hdc;
    LOGFONT lf;

    /* FIXME: for fun, draw each font in its own style */
    HFONT hFont = GetStockObject(DEFAULT_GUI_FONT);
    SendMessage(hwndCombo,
                WM_SETFONT,
                (WPARAM)hFont,
                0);

    lf.lfCharSet = DEFAULT_CHARSET;
    lf.lfFaceName[0] = _T('\0');   // all fonts
    lf.lfPitchAndFamily = 0;

    hdc = GetDC(hwndCombo);

    /* store the list of fonts in the combo */
    EnumFontFamiliesEx(hdc,
                       &lf,
                       (FONTENUMPROC)EnumFontNames,
                       (LPARAM)hwndCombo,
                       0);

    ReleaseDC(hwndCombo,
              hdc);

    SendMessage(hwndCombo,
                CB_SETCURSEL,
                0,
                0);
}


static VOID
ChangeMapFont(HWND hDlg)
{
    HWND hCombo;
    HWND hMap;
    LPTSTR lpFontName;
    INT Len;

    hCombo = GetDlgItem(hDlg, IDC_FONTCOMBO);

    Len = GetWindowTextLength(hCombo);

    if (Len != 0)
    {
        lpFontName = HeapAlloc(GetProcessHeap(),
                               0,
                               (Len + 1) * sizeof(TCHAR));

        if (lpFontName)
        {
            SendMessage(hCombo,
                        WM_GETTEXT,
                        Len + 1,
                        (LPARAM)lpFontName);

            hMap = GetDlgItem(hDlg, IDC_FONTMAP);

            SendMessage(hMap,
                        FM_SETFONT,
                        0,
                        (LPARAM)lpFontName);
        }
    }
}


static VOID
AddCharToSelection(HWND hText,
                   TCHAR ch)
{
    LPTSTR lpText;
    INT Len = GetWindowTextLength(hText);

    if (Len != 0)
    {
        lpText = HeapAlloc(GetProcessHeap(),
                           0,
                           (Len + 2) * sizeof(TCHAR));

        if (lpText)
        {
            LPTSTR lpStr = lpText;

            SendMessage(hText,
                        WM_GETTEXT,
                        Len + 1,
                        (LPARAM)lpStr);

            lpStr += Len;
            *lpStr = ch;
            lpStr++;
            *lpStr = _T('\0');

            SendMessage(hText,
                        WM_SETTEXT,
                        0,
                        (LPARAM)lpText);

            HeapFree(GetProcessHeap(),
                     0,
                     lpText);
        }
    }
    else
    {
        TCHAR szText[2];

        szText[0] = ch;
        szText[1] = _T('\0');

        SendMessage(hText,
                    WM_SETTEXT,
                    0,
                    (LPARAM)szText);
    }
}


static BOOL CALLBACK
DlgProc(HWND hDlg,
        UINT Message,
        WPARAM wParam,
        LPARAM lParam)
{
    switch(Message)
    {
        case WM_INITDIALOG:
        {
            HICON hSmIcon;
            HICON hBgIcon;
            HMENU hSysMenu;

            hSmIcon = LoadImage(hInstance,
                                MAKEINTRESOURCE(IDI_ICON),
                                IMAGE_ICON,
                                16,
                                16,
                                0);
            hBgIcon = LoadImage(hInstance,
                                MAKEINTRESOURCE(IDI_ICON),
                                IMAGE_ICON,
                                32,
                                32,
                                0);

            SendMessage(hDlg,
                        WM_SETICON,
                        ICON_SMALL,
                        (LPARAM)hSmIcon);
            SendMessage(hDlg,
                        WM_SETICON,
                        ICON_BIG,
                        (LPARAM)hBgIcon);

            FillFontStyleComboList(GetDlgItem(hDlg,
                                              IDC_FONTCOMBO));

            ChangeMapFont(hDlg);

            hSysMenu = GetSystemMenu(hDlg,
                                     FALSE);
            if (hSysMenu != NULL)
            {
                LPCTSTR lpAboutText = NULL;

                if (LoadString(hInstance,
                               IDS_ABOUT,
                               (LPTSTR)&lpAboutText,
                               0))
                {
                    AppendMenu(hSysMenu,
                               MF_SEPARATOR,
                               0,
                               NULL);
                    AppendMenu(hSysMenu,
                               MF_STRING,
                               ID_ABOUT,
                               lpAboutText);
                }
            }
            return TRUE;
        }
        break;

        case WM_CLOSE:
        {
            EndDialog(hDlg, 0);
        }
        break;

        case WM_COMMAND:
        {
            switch(LOWORD(wParam))
            {
                case IDC_FONTCOMBO:
                {
                    if (HIWORD(wParam) == CBN_SELCHANGE)
                    {
                        ChangeMapFont(hDlg);
                    }
                }
                break;

                case IDC_SELECT:
                {
                    TCHAR ch;
                    HWND hMap = GetDlgItem(hDlg, IDC_FONTMAP);

                    ch = SendMessage(hMap, FM_GETCHAR, 0, 0);

                    if (ch)
                    {
                        AddCharToSelection(GetDlgItem(hDlg, IDC_TEXTBOX),
                                           ch);
                    }

                    break;
                }

                case IDOK:
                    EndDialog(hDlg, 0);
                break;
            }
        }
        break;

        case WM_SYSCOMMAND:
        {
            switch(wParam)
            {
                case ID_ABOUT:
                    ShowAboutDlg(hDlg);
                break;
            }
        }
        break;

        case WM_NOTIFY:
        {
            LPMAPNOTIFY lpnm = (LPMAPNOTIFY)lParam;

            switch (lpnm->hdr.idFrom)
            {
                case IDC_FONTMAP:
                {
                    switch (lpnm->hdr.code)
                    {
                        case FM_SETCHAR:
                        {
                            AddCharToSelection(GetDlgItem(hDlg, IDC_TEXTBOX),
                                               lpnm->ch);
                        }
                        break;
                    }
                }
                break;
            }
        }
        break;

        default:
            return FALSE;
    }

    return FALSE;
}


INT WINAPI
_tWinMain(HINSTANCE hInst,
          HINSTANCE hPrev,
          LPTSTR Cmd,
          int iCmd)
{
    INITCOMMONCONTROLSEX iccx;
    INT Ret = 1;

    hInstance = hInst;

    iccx.dwSize = sizeof(INITCOMMONCONTROLSEX);
    iccx.dwICC = ICC_TAB_CLASSES;
    InitCommonControlsEx(&iccx);

    if (RegisterMapClasses(hInstance))
    {
        Ret = DialogBox(hInstance,
                        MAKEINTRESOURCE(IDD_CHARMAP),
                        NULL,
                        (DLGPROC)DlgProc) >= 0;

        UnregisterMapClasses(hInstance);
    }

    return Ret;
}