第１３６章ＲＴＦを印刷するその１

今回はRTFの印刷をします。その前に前章でやったクリップボードにデータがある時の対処法の改善と、「すべて選択」の追加をします。

前回のプログラムはクリップボードにデータがあればどんなデータであれ、「貼り付け」コマンドを有効にしていました。これでは、このプログラムで取り扱えないデータのとき困ります。こんなときEM_CANPASTEメッセージが便利です。


EM_CANPASTE  
wParam = (WPARAM) (UINT) uFormat; 
lParam = 0;

uFormatはテストするクリップボードフォーマットを指定します。０を指定すると現在のクリップボード上のフォーマットになります。

貼り付けることができるときは０以外の値を、できないときは０を返します。

エディットコントロールの一定の範囲の文字列を選択するには EM_EXSETSELを使います。


EM_EXSETSEL  
wParam = 0; 
lParam = (LPARAM) (CHARRANGE FAR *) ichCharRange;

ichCharRangeは前章でやった CHARRANGE構造体へのポインタです。前範囲を指定するには cpMinメンバを０にcpMaxメンバを－１にセットすれば良いですね。

さて、本題の印刷ですが基本的には普通の印刷とたいして変わらないです。今回は、プログラムを簡単にするために１ページのみの印刷です。１ページを超える文書があっても印刷されるのは１ページだけです。このプログラムを実行していろいろ試してみるとわかりますが、たとえばエディットコントロール上では１行に５０字表示されていても印刷すると紙の横幅に応じて改行されます。考えてみると印刷する紙の大きさに応じて入力を制限する必要がありそうですね。ともかく今回はあまりめんどうなことはせずに、「印刷ができる」ということを主眼にプログラムを作ります。


０．プリンタのHDCを取得しておく(hdc)
１．DOCINFO構造体をセットする(di)
２．StartDoc(hdc, &di);
３．FORMATRANGE構造体をセットする(fr)
４．SendMessage(hEdit, EM_FORMATRANGE, 0, (LPARAM)&fr);
５．StartPage(hdc);
６．SendMessage(hEdit, EM_DISPLAYBAND, 0, (LPARAM)&fr.rc);
７．EndPage(hdc);
８．キャッシュの開放
８．EndDoc(hdc);
９．hdcなどの削除

DOCINFO構造体やStartDoc, StartPage関数などはは第７７章を参照してください。


typedef struct _formatrange {  
    HDC hdc; 
    HDC hdcTarget; 
    RECT rc; 
    RECT rcPage; 
    CHARRANGE chrg; 
} FORMATRANGE;

hdcレンダリングされるデバイスのハンドルです。（プリンタ）
hdcTargetは書式設定するデバイスのハンドルです。（プリンタ)
rcはレンダリングする領域を指定するRECTです。(twip単位)
rcPageはレンダリングデバイスの全領域を指定するRECT構造体です。(TWIPS単位)
chrgはテキストの範囲を指定します。

わかりにくいところがあります。rcPageは用紙１ページの大きさ、 rcはその中に実際に印刷される領域と考えるとわかりやすいです。

また、rcやrcPageのメンバはTWIPS単位で指定します。
これは、VBなどで使われる画面上の長さの基本単位です。
１論理cmは567twip, １論理インチは1440twipです。
１論理cmを印刷すると1cm, 1論理インチを印刷すると１インチになります。

次にGetDeviceCaps関数の第２引数との関係をみると

PHYSICALWIDTH プリンタの用紙の幅に対するデバイス単位。
8.5 * 11 インチの紙で600dpiの場合8.5 * 600 = 5100 となる。
PHYSICALHEIGHT プリンタの用紙の高さに対するデバイス単位。
上と同じ用紙なら 11 * 600 = 6600デバイス単位となる。
LOGPIXELSX スクリーン幅において１論理インチあたりのピクセル数
LOGPIXELSY スクリーン高さにおいて１論理インチあたりのピクセル数
したがってfr.rcPage.right(twip)は
GetDeviceCaps(hdc, PHYSICALWIDTH) * 1440 / GetDeviceCaps(hdc, LOGPIXELSX)
となります。


EM_FORMATRANGE  
wParam = (WPARAM) (BOOL) fRender; 
lParam = (LPARAM) (FORMATRANGE FAR *) lpFmt;

fRenderは０以外のときはテキストがレンダリングされ、０のときは計測のみが行われます。

lpFmtはFORMATRANGE構造体のポインタです。NULLに指定するとコントロールのキャッシュが開放されます。


EM_DISPLAYBAND  
wParam = 0; 
lParam = (LPARAM) (LPRECT) lprc;

EM_FORMATRANGEメッセージで設定されている書式を用いてリッチエディットコントロールの内容を表示します。
lprcは表示に使用するデバイスの領域を指定するRECT構造体のポインタです。では、プログラムを見てみましょう。


// rich07.rcの一部

/////////////////////////////////////////////////////////////////////////////
//
// Menu
//

MYMENU MENU DISCARDABLE 
BEGIN
    POPUP "ファイル(&F)"
    BEGIN
        MENUITEM "開く(&O)",                    IDM_OPEN
        MENUITEM SEPARATOR
        MENUITEM "上書き保存(&S)",              IDM_SAVE
        MENUITEM "名前をつけて保存(&A)",        IDM_SAVEAS
        MENUITEM SEPARATOR
        MENUITEM "プリンターの設定(&U)",        IDM_PRNSET
        MENUITEM "印刷(&P)",                    IDM_PRINT
        MENUITEM SEPARATOR
        MENUITEM "終了(&X)",                    IDM_END
    END
    POPUP "編集(&E)"
    BEGIN
        MENUITEM "元に戻す(&U)",                IDM_UNDO
        MENUITEM SEPARATOR
        MENUITEM "フォントの変更(&F)",          IDM_FONT
        POPUP "段落書式"
        BEGIN
            MENUITEM "中央揃え(&C)",                IDM_CENTER
            MENUITEM "左揃え(&L)",                  IDM_LEFT
            MENUITEM "右揃え(&R)",                  IDM_RIGHT
        END
        MENUITEM SEPARATOR
        MENUITEM "コピー(&C)",                  IDM_COPY
        MENUITEM "切り取り(&T)",                IDM_CUT
        MENUITEM "貼り付け(&P)",                IDM_PASTE
        MENUITEM SEPARATOR
        MENUITEM "すべて選択(&L)",              IDM_ALL
    END
END

MYPOPUP MENU DISCARDABLE 
BEGIN
    POPUP "ダミーです"
    BEGIN
        MENUITEM "開く",                        IDM_OPEN
        MENUITEM SEPARATOR
        MENUITEM "上書き保存",                  IDM_SAVE
        MENUITEM "名前をつけて保存",            IDM_SAVEAS
        MENUITEM SEPARATOR
        MENUITEM "フォントの変更",              IDM_FONT
        MENUITEM SEPARATOR
        MENUITEM "左揃え",                      IDM_LEFT
        MENUITEM "右揃え",                      IDM_RIGHT
        MENUITEM "中央揃え",                    IDM_CENTER
        MENUITEM SEPARATOR
        MENUITEM "終了",                        IDM_END
        MENUITEM SEPARATOR
        MENUITEM "コピー",                      IDM_COPY
        MENUITEM "切り取り",                    IDM_CUT
        MENUITEM "貼り付け",                    IDM_PASTE
        MENUITEM "元に戻す",                    IDM_UNDO
        MENUITEM SEPARATOR
        MENUITEM "印刷",                        IDM_PRINT
        MENUITEM "プリンタの設定",              IDM_PRNSET
        MENUITEM SEPARATOR
        MENUITEM "すべて選択",                  IDM_ALL
    END
END

「印刷」「プリンタの設定」「すべて選択」のメニュー項目が増えました。


// rich07.cpp

#define STRICT
#include <windows.h>
#include <richedit.h>
#include "resource.h"

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
DWORD CALLBACK MySaveProc(DWORD, LPBYTE, LONG, LONG *);
DWORD CALLBACK MyReadProc(DWORD, LPBYTE, LONG, LONG *);

BOOL InitApp(HINSTANCE);
BOOL InitInstance(HINSTANCE, int);
BOOL SetInitialFont(HWND hWnd);
BOOL SetMyFont(HWND);
BOOL SetCenter(HWND);
BOOL SetLeft(HWND);
BOOL SetRight(HWND);
void ClearCheck(HMENU);//段落書式のチェックをはずす
void RTF_Save(HWND);
void RTF_SaveAs(HWND);
void RTF_Open(HWND);
void RTF_CheckMenu(HWND, HMENU);
void RTF_Print(HWND);
void RTF_All(HWND);
HDC GetPrintInfo(void);
int PrinterSet(HWND);

char szClassName[] = "rich07";        //ウィンドウクラス
HINSTANCE hInst;
DWORD dwMyMask; //CHARFORMATで使うマスク値
char szFName[MAX_PATH];
int nFileType; //1:RTF 2:TXT
char *szAppTitle = "猫でもわかるRTF";
PRINTER_INFO_5 prninfo[3];

int WINAPI WinMain(HINSTANCE hCurInst, HINSTANCE hPrevInst,
                   LPSTR lpsCmdLine, int nCmdShow)
{
    MSG msg;
    
    if (!InitApp(hCurInst))
        return FALSE;
    if (!InitInstance(hCurInst, nCmdShow)) 
        return FALSE;
    while (GetMessage(&msg, NULL, 0, 0)) {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    return msg.wParam;
}

今回新しく作る関数はRTF_AllとRTF_Print関数です。
GetPrinterInfo関数とPrinterSet関数は第７９章で作ったものをそのまま流用しています。


//ウィンドウ・クラスの登録

BOOL InitApp(HINSTANCE hInst)
{
    WNDCLASSEX wc;
    wc.cbSize = sizeof(WNDCLASSEX);
    wc.style = CS_HREDRAW | CS_VREDRAW;
    wc.lpfnWndProc = WndProc;    //プロシージャ名
    wc.cbClsExtra = 0;
    wc.cbWndExtra = 0;
    wc.hInstance = hInst;        //インスタンス
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
    wc.lpszMenuName = "MYMENU";    //メニュー名
    wc.lpszClassName = (LPCSTR)szClassName;
    wc.hIconSm = LoadIcon(NULL, IDI_APPLICATION);
    return (RegisterClassEx(&wc));
}

//ウィンドウの生成

BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
    HWND hWnd;
    hInst = hInstance;

    hWnd = CreateWindow(szClassName,
            szAppTitle,    //タイトルバーにこの名前が表示されます
            WS_OVERLAPPEDWINDOW,//ウィンドウの種類
            CW_USEDEFAULT,    //Ｘ座標
            CW_USEDEFAULT,    //Ｙ座標
            CW_USEDEFAULT,    //幅
            CW_USEDEFAULT,    //高さ
            NULL,//親ウィンドウのハンドル、親を作るときはNULL
            NULL,/メニューハンドル、クラスメニューを使うときはNULL
            hInstance,//インスタンスハンドル
            NULL);
    if (!hWnd)
        return FALSE;
    ShowWindow(hWnd, nCmdShow);
    UpdateWindow(hWnd);
    return TRUE;
}

ここは，前回までと同じです。


//ウィンドウプロシージャ

LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
{
    int id;
    static HINSTANCE hRtLib;
    static HWND hEdit;
    DWORD dwEvent;
    MSGFILTER *pmf;
    HMENU hMenu, hSub;
    int x, y;
    POINT pt;

    switch (msg) {
        case WM_CREATE:
            hRtLib = LoadLibrary("RICHED32.DLL");
            hEdit = CreateWindowEx(WS_EX_CLIENTEDGE,
                "RICHEDIT",
                "",
                WS_CHILD | WS_VISIBLE | WS_BORDER | ES_MULTILINE |
                WS_VSCROLL | ES_AUTOVSCROLL | ES_NOHIDESEL,
                0, 0,
                0, 0, //とりあえず幅、高さ０のウィンドウを作る
                hWnd,
                (HMENU)1,
                hInst,
                NULL);
            dwEvent = SendMessage(hEdit, EM_GETEVENTMASK, 0, 0);
            dwEvent |= ENM_MOUSEEVENTS;
            SendMessage(hEdit, EM_SETEVENTMASK, 0, (LPARAM)dwEvent);
            SetInitialFont(hEdit);
            break;
        case WM_NOTIFY:
            switch (((NMHDR*)lp)->code ) {
                case EN_MSGFILTER:
                    pmf = (MSGFILTER *)lp;
                    if (pmf->msg == WM_RBUTTONDOWN){
                        x = LOWORD(pmf->lParam);
                        y = HIWORD(pmf->lParam);
                        hMenu = LoadMenu(hInst, "MYPOPUP");
                        hSub = GetSubMenu(hMenu, 0);
                        pt.x = (LONG)x;
                        pt.y = (LONG)y;
                        ClientToScreen(hEdit, &pt);
                        TrackPopupMenu(hSub,
                            TPM_LEFTALIGN,
                            pt.x, pt.y, 
                            0, hWnd, NULL);
                        DestroyMenu(hMenu);
                    }
                    break;
            }
            break;
        case WM_SIZE:
            MoveWindow(hEdit, 0, 0, LOWORD(lp), HIWORD(lp), TRUE);
            SetFocus(hEdit);
            break;
        case WM_INITMENUPOPUP:
            RTF_CheckMenu(hEdit, (HMENU)wp);
            break;
        case WM_COMMAND:
            switch (LOWORD(wp)) {
                case IDM_END:
                    SendMessage(hWnd, WM_CLOSE, 0, 0);
                    break;
                case IDM_ALL:
                    RTF_All(hEdit);
                    break;
                case IDM_FONT:
                    SetMyFont(hEdit);
                    break;
                case IDM_CENTER:
                    SetCenter(hEdit);
                    break;
                case IDM_LEFT:
                    SetLeft(hEdit);
                    break;
                case IDM_RIGHT:
                    SetRight(hEdit);
                    break;
                case IDM_SAVE:
                    RTF_Save(hEdit);
                    break;
                case IDM_SAVEAS:
                    RTF_SaveAs(hEdit);
                    break;
                case IDM_OPEN:
                    RTF_Open(hEdit);
                    break;
                case IDM_COPY:
                    SendMessage(hEdit, WM_COPY, 0, 0);
                    break;
                case IDM_CUT:
                    SendMessage(hEdit, WM_CUT, 0, 0);
                    break;
                case IDM_PASTE:
                    SendMessage(hEdit, WM_PASTE, 0, 0);
                    break;
                case IDM_UNDO:
                    SendMessage(hEdit, WM_UNDO, 0, 0);
                    SendMessage(hEdit, EM_SETMODIFY, (WPARAM)FALSE, 0);
                    break;
                case IDM_PRINT:
                    RTF_Print(hEdit);
                    break;
                case IDM_PRNSET:
                    PrinterSet(hEdit);
                    break;
            }
            break;
        case WM_CLOSE:
            if (SendMessage(hEdit, EM_GETMODIFY, 0, 0)) {
                id = MessageBox(hWnd,
                        "文書が変更されています。保存しますか。", "注意！",
                        MB_YESNO);
                if (id == IDYES)
                    RTF_Save(hEdit);
            }
            id = MessageBox(hWnd,
                "終了してもよいですか",
                "終了確認",
                MB_YESNO | MB_ICONQUESTION);
            if (id == IDYES) {
                DestroyWindow(hEdit);
                DestroyWindow(hWnd);
            } else
                SetFocus(hEdit);
            break;
        case WM_DESTROY:
            if(FreeLibrary(hRtLib) == 0)
                MessageBox(NULL, "ライブラリ開放失敗", "Error", MB_OK);
            PostQuitMessage(0);
            break;
        default:
            return (DefWindowProc(hWnd, msg, wp, lp));
    }
    return 0L;
}

WM_COMMANDのところにIDM_PRINT, IDM_PRNSET, IDM_ALLが増えただけです。


BOOL SetInitialFont(HWND hEdit)//最初のフォントの設定
{
    CHARFORMAT cfm;
    memset(&cfm, 0, sizeof(CHARFORMAT));
    cfm.cbSize = sizeof(CHARFORMAT);
    cfm.dwMask = CFM_BOLD | CFM_CHARSET | CFM_COLOR |
        CFM_FACE | CFM_ITALIC | CFM_SIZE | CFM_STRIKEOUT |
        CFM_UNDERLINE;
    dwMyMask = cfm.dwMask;//以後dwMyMaskの値を使う
    cfm.bCharSet = SHIFTJIS_CHARSET;
    strcpy(cfm.szFaceName, "ＭＳ ゴシック");
    if (SendMessage(hEdit, EM_SETCHARFORMAT, SCF_SELECTION,
        (LPARAM)&cfm) == 0) {
        MessageBox(hEdit, "EM_SETCHARFORMAT失敗です", "Error", MB_OK);
        return FALSE;
    }
    return TRUE;
}


BOOL SetMyFont(HWND hEdit)
{
    CHARFORMAT cfm;
    CHOOSEFONT cf;
    LOGFONT lf;
    HDC hDC;

    memset(&cf, 0, sizeof(CHOOSEFONT));
    memset(&lf, 0, sizeof(LOGFONT));
    cfm.cbSize = sizeof(CHARFORMAT);
    

    //今までの設定を取得してそれをCHOOSEFONT構造体に渡す
    SendMessage(hEdit, EM_GETCHARFORMAT, TRUE, (LPARAM)&cfm);
    hDC = GetDC(hEdit);
    lf.lfHeight = MulDiv(cfm.yHeight,
        GetDeviceCaps(hDC, LOGPIXELSY), -1440);
    ReleaseDC(hEdit, hDC);
    cfm.dwMask = dwMyMask;
    if (cfm.dwEffects & CFE_BOLD)
        lf.lfWeight = FW_BOLD;
    else
        lf.lfWeight = FW_NORMAL;
    if (cfm.dwEffects & CFE_ITALIC)
        lf.lfItalic = TRUE;
    if (cfm.dwEffects & CFE_UNDERLINE)
        lf.lfUnderline = TRUE;
    if (cfm.dwEffects & CFE_STRIKEOUT)
        lf.lfStrikeOut = TRUE;
    lf.lfCharSet = cfm.bCharSet;
    lf.lfQuality = DEFAULT_QUALITY;
    lf.lfPitchAndFamily = cfm.bPitchAndFamily;
    strcpy( lf.lfFaceName, cfm.szFaceName );
    cf.rgbColors = cfm.crTextColor;
    cf.lStructSize = sizeof(CHOOSEFONT);
    cf.hwndOwner = hEdit;
    cf.lpLogFont = &lf;
    cf.Flags = CF_SCREENFONTS | CF_EFFECTS | CF_INITTOLOGFONTSTRUCT;
    
    //フォント選択ダイアログを出して新しい設定を取得する
    if (ChooseFont(&cf))
    {
        cfm.cbSize = sizeof(CHARFORMAT);
        cfm.dwMask = dwMyMask;
        cfm.yHeight = 2 * cf.iPointSize;
        cfm.dwEffects = 0;
        if (lf.lfWeight >= FW_BOLD)
            cfm.dwEffects |= CFE_BOLD;
        if (lf.lfItalic)
            cfm.dwEffects |= CFE_ITALIC;
        if (lf.lfUnderline)
            cfm.dwEffects |= CFE_UNDERLINE;
        if (lf.lfStrikeOut)
            cfm.dwEffects |= CFE_STRIKEOUT;
        cfm.crTextColor = (COLORREF)cf.rgbColors;
        cfm.bPitchAndFamily = lf.lfPitchAndFamily;
        cfm.bCharSet = lf.lfCharSet;
        strcpy(cfm.szFaceName, lf.lfFaceName);
        if(SendMessage(hEdit, EM_SETCHARFORMAT, 
            SCF_SELECTION, (LPARAM)&cfm) == 0) {
            MessageBox(hEdit, "失敗です", "Error", MB_OK);
            return FALSE;
        }
    }
    SetFocus(hEdit);
    return TRUE;
}

BOOL SetCenter(HWND hEdit)
{
    PARAFORMAT pf;

    memset(&pf, 0, sizeof(PARAFORMAT));
    pf.cbSize = sizeof(PARAFORMAT);
    pf.dwMask = PFM_ALIGNMENT;
    pf.wAlignment = PFA_CENTER;
    SendMessage(hEdit, EM_SETPARAFORMAT, 0, (LPARAM)&pf);
    SetFocus(hEdit);
    return TRUE;
}

BOOL SetLeft(HWND hEdit)
{
    PARAFORMAT pf;
    memset(&pf, 0, sizeof(PARAFORMAT));
    pf.cbSize = sizeof(PARAFORMAT);
    
    pf.dwMask = PFM_ALIGNMENT;
    pf.wAlignment = PFA_LEFT;
    SendMessage(hEdit, EM_SETPARAFORMAT, 0, (LPARAM)&pf);
    SetFocus(hEdit);
    return TRUE;
}

BOOL SetRight(HWND hEdit)
{
    PARAFORMAT pf;
    memset(&pf, 0, sizeof(PARAFORMAT));
    pf.cbSize = sizeof(PARAFORMAT);
    
    pf.dwMask = PFM_ALIGNMENT;
    pf.wAlignment = PFA_RIGHT;
    SendMessage(hEdit, EM_SETPARAFORMAT, 0, (LPARAM)&pf);
    SetFocus(hEdit);
    return TRUE;
}

void ClearCheck(HMENU hMenu)
{
    CheckMenuItem(hMenu, IDM_LEFT, MF_BYCOMMAND | MF_UNCHECKED);
    CheckMenuItem(hMenu, IDM_RIGHT, MF_BYCOMMAND | MF_UNCHECKED);
    CheckMenuItem(hMenu, IDM_CENTER, MF_BYCOMMAND | MF_UNCHECKED);
    return;
}

void RTF_Save(HWND hEdit)
{
    EDITSTREAM eds;
    HANDLE hFile;

    if (strcmp(szFName, "") == 0) {
        MessageBox(hEdit, "ファイル名を設定してください", "ファイル名", MB_OK);
        RTF_SaveAs(hEdit);
    }
    hFile = CreateFile(szFName, GENERIC_WRITE, 0,
                        NULL, CREATE_ALWAYS,
                        FILE_ATTRIBUTE_NORMAL | FILE_FLAG_WRITE_THROUGH, NULL);
    eds.dwCookie = (DWORD)hFile;
    eds.dwError = 0;
    eds.pfnCallback = MySaveProc;
    switch (nFileType) {
        case 1:
            SendMessage(hEdit, EM_STREAMOUT, (WPARAM)SF_RTF, (LPARAM)&eds);
            break;
        case 2:
            SendMessage(hEdit, EM_STREAMOUT, (WPARAM)SF_TEXT, (LPARAM)&eds);
            break;
        default:
            MessageBox(hEdit, "Error", "ok", MB_OK);
            break;
    }
    CloseHandle(hFile);
    SendMessage(hEdit, EM_SETMODIFY, (WPARAM)FALSE, 0);
    return;
}

void RTF_SaveAs(HWND hEdit)
{
    OPENFILENAME of;
    HWND hParent;
    char szTitle[MAX_PATH];
    
    memset(&of, 0, sizeof(OPENFILENAME));

    of.lStructSize = sizeof(OPENFILENAME);
    of.hwndOwner = hEdit;
    of.lpstrFilter = "RTF(*.rtf)\0 *.rtf\0TEXT(*.txt)\0 *.txt\0\0";
    of.lpstrFile = szFName;
    of.nMaxFile = MAX_PATH;
    of.Flags = OFN_PATHMUSTEXIST | OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY;
    of.lpstrDefExt = "rtf";
    if (GetSaveFileName(&of)) {
        nFileType = of.nFilterIndex;
        RTF_Save(hEdit);
    }
    hParent = GetParent(hEdit);
    strcpy(szTitle, szAppTitle);
    strcat(szTitle, " [");
    strcat(szTitle, szFName);
    strcat(szTitle, "]");
    SetWindowText(hParent, szTitle);

    return;
}

DWORD CALLBACK MySaveProc(DWORD dwCookie, LPBYTE pbbuf, LONG cb, LONG *pcb)
{
    if (WriteFile((HANDLE)dwCookie, pbbuf, cb, (LPDWORD)pcb, NULL))
        return FALSE;
    else
        return TRUE;
}

void RTF_Open(HWND hEdit)
{
    OPENFILENAME of;
    HANDLE hFile;
    EDITSTREAM eds;
    HWND hParent;
    char szTitle[MAX_PATH];
    int id;

    if (SendMessage(hEdit, EM_GETMODIFY, 0, 0)) {
        id = MessageBox(hEdit,
            "文書が変更されています。\n保存しますか？",
            "注意！", MB_OKCANCEL | MB_ICONQUESTION);
        if (id == IDOK)
            RTF_Save(hEdit);
        SetFocus(hEdit);
    }

    memset(&of, 0, sizeof(OPENFILENAME));

    of.lStructSize = sizeof(OPENFILENAME);
    of.hwndOwner = hEdit;
    of.lpstrFilter = "RTF(*.rtf)\0 *.rtf\0TEXT(*.txt)\0 *.txt\0\0";
    of.lpstrFile = szFName;
    of.nMaxFile = MAX_PATH;
    of.Flags = OFN_PATHMUSTEXIST;
    of.lpstrDefExt = "rtf";
    if (GetOpenFileName(&of) == 0) 
        return;
    nFileType = of.nFilterIndex;
    hFile = CreateFile(szFName, GENERIC_READ, 0, NULL, OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL, NULL);
    if (hFile == INVALID_HANDLE_VALUE) {
        MessageBox(hEdit, "ハンドルが無効です", "Error", MB_OK);
        return;
    }
    eds.dwCookie = (DWORD)hFile;
    eds.dwError = 0;
    eds.pfnCallback = MyReadProc;
    switch (nFileType) {
        case 1:
            SendMessage(hEdit, EM_STREAMIN, SF_RTF, (LPARAM)&eds);
            break;
        case 2:
            SendMessage(hEdit, EM_STREAMIN, SF_TEXT, (LPARAM)&eds);
            break;
    }
    SendMessage(hEdit, EM_SETMODIFY, (WPARAM)FALSE, 0);
    CloseHandle(hFile);
    strcpy(szTitle, szAppTitle);
    strcat(szTitle, " [");
    strcat(szTitle, szFName);
    strcat(szTitle, "]");
    hParent = GetParent(hEdit);
    SetWindowText(hParent, szTitle);
    return;
}

DWORD CALLBACK MyReadProc(DWORD dwCookie, LPBYTE pbBuf, LONG cb, LONG *pcb)
{
    ReadFile((HANDLE)dwCookie, pbBuf, cb, (LPDWORD)pcb, NULL);
    return(FALSE);
}

これは、前回までと全く同じです。


void RTF_CheckMenu(HWND hEdit, HMENU hMenu)
{
    CHARRANGE cr;
    PARAFORMAT pf;

    SendMessage(hEdit, EM_EXGETSEL, 0, (LPARAM)&cr);
    if (cr.cpMin == cr.cpMax) {
        EnableMenuItem(hMenu, IDM_CUT, MF_GRAYED | MF_BYCOMMAND);
        EnableMenuItem(hMenu, IDM_COPY, MF_GRAYED | MF_BYCOMMAND);
    } else {
        EnableMenuItem(hMenu, IDM_CUT, MF_ENABLED | MF_BYCOMMAND);
        EnableMenuItem(hMenu, IDM_COPY, MF_ENABLED | MF_BYCOMMAND);
    }
    if (SendMessage(hEdit, EM_GETMODIFY, 0, 0)) {
        EnableMenuItem(hMenu, IDM_UNDO, MF_ENABLED | MF_BYCOMMAND);
    } else {
        EnableMenuItem(hMenu, IDM_UNDO, MF_GRAYED | MF_BYCOMMAND);
    }
    if (SendMessage(hEdit, EM_CANPASTE, 0, 0)) {
        EnableMenuItem(hMenu, IDM_PASTE, MF_ENABLED | MF_BYCOMMAND);
    } else {
        EnableMenuItem(hMenu, IDM_PASTE, MF_GRAYED | MF_BYCOMMAND);
    }
    memset(&pf, 0, sizeof(PARAFORMAT));
    pf.cbSize = sizeof(PARAFORMAT);
    SendMessage(hEdit, EM_GETPARAFORMAT, 0, (LPARAM)&pf);
    ClearCheck(hMenu);
    switch (pf.wAlignment) {
        case PFA_LEFT:
            CheckMenuItem(hMenu, IDM_LEFT, MF_CHECKED | MF_BYCOMMAND);
            break;
        case PFA_RIGHT:
            CheckMenuItem(hMenu, IDM_RIGHT, MF_CHECKED | MF_BYCOMMAND);
            break;
        case PFA_CENTER:
            CheckMenuItem(hMenu, IDM_CENTER, MF_CHECKED | MF_BYCOMMAND);
            break;
    }
    return;
}

貼り付けコマンドを実行できるかどうかをEM_CANPASTEメッセージを使って判断しているところが前回より進歩？しています。


void RTF_Print(HWND hEdit)
{
    FORMATRANGE fr;
    DOCINFO di;
    HDC hdc;

    memset(&fr, 0, sizeof(FORMATRANGE));
    memset(&di, 0, sizeof(DOCINFO));

    di.cbSize = sizeof(DOCINFO);
    if (strcmp(szFName, "") == 0)
        di.lpszDocName = "No Title";
    else 
        GetFileTitle(szFName, (LPTSTR)di.lpszDocName, sizeof(di.lpszDocName));

    hdc = GetPrintInfo();
    if (hdc == 0) {
        MessageBox(hEdit, "プリンタが取得できません", "Error",
            MB_OK | MB_ICONASTERISK);
        return;
    }
    fr.hdc = hdc;
    fr.hdcTarget = hdc;
    fr.rcPage.left = 0;
    fr.rcPage.top = 0;
    fr.rcPage.right = MulDiv(GetDeviceCaps(hdc, PHYSICALWIDTH),
        1440, GetDeviceCaps(hdc, LOGPIXELSX));
    fr.rcPage.bottom = MulDiv(GetDeviceCaps(hdc, PHYSICALHEIGHT),
        1440, GetDeviceCaps(hdc, LOGPIXELSY));
    //用紙の上下左右は１インチあけて印刷
    fr.rc.top = 1440;
    fr.rc.left = 1440;
    fr.rc.right = fr.rcPage.right - 1440;
    fr.rc.bottom = fr.rcPage.bottom -1440;
    //ここでは、コントロール上の文字列が１ページに収まっていると
    //と仮定しています
    fr.chrg.cpMin = 0;
    fr.chrg.cpMax = -1;

    StartDoc(hdc, &di);
    SendMessage(hEdit, EM_FORMATRANGE, TRUE, (LPARAM)&fr);
    StartPage(hdc);
    SendMessage(hEdit, EM_DISPLAYBAND, 0, (LPARAM)&fr.rc);
    EndPage(hdc);
    SendMessage(hEdit, EM_FORMATRANGE, TRUE, NULL);
    EndDoc(hdc);
    DeleteDC(hdc);
    return;
}

twipの計算は面倒くさいです。あくまでもエディットコントロールには１ページの印刷で間に合う分量の文字列しかないとの仮定のもとでのプログラムです。色，フォント、下線なども印刷されます。


int PrinterSet(HWND hEdit)
{
    HANDLE hPrint;
    GetPrintInfo();
    OpenPrinter(prninfo[0].pPrinterName, &hPrint, NULL);
    PrinterProperties(hEdit, hPrint);
    ClosePrinter(hPrint);
    return 0;
}

HDC GetPrintInfo(void)
{    
    DWORD dwNeeded, dwReturned;
    if (EnumPrinters(PRINTER_ENUM_DEFAULT, NULL, 5, (LPBYTE)&prninfo,
        sizeof(prninfo), &dwNeeded, &dwReturned)) {
        return CreateDC(NULL, prninfo[0].pPrinterName, NULL, NULL);
    }
    return 0;
}

第７９章で作ったものの流用です。


void RTF_All(HWND hEdit)
{
    CHARRANGE cr;

    cr.cpMin = 0;
    cr.cpMax = -1;
    SendMessage(hEdit, EM_EXSETSEL, 0, (LPARAM)&cr);
    return;
}

「すべて選択」コマンドの関数です。

今回は「新規作成」コマンドがありませんが、自分で作ってみてください。

[SDK第２部 Index] [総合Index] [Previous Chapter] [Next Chapter]

Update 03/Aug/1998 By Y.Kumei
当ホーム・ページの一部または全部を無断で複写、複製、転載あるいはコンピュータ等のファイルに保存することを禁じます。

PHYSICALWIDTH	プリンタの用紙の幅に対するデバイス単位。 8.5 * 11 インチの紙で600dpiの場合8.5 * 600 = 5100 となる。
PHYSICALHEIGHT	プリンタの用紙の高さに対するデバイス単位。上と同じ用紙なら 11 * 600 = 6600デバイス単位となる。
LOGPIXELSX	スクリーン幅において１論理インチあたりのピクセル数
LOGPIXELSY	スクリーン高さにおいて１論理インチあたりのピクセル数

第１３６章 ＲＴＦを印刷する その１

EM_CANPASTE wParam = (WPARAM) (UINT) uFormat; lParam = 0;

EM_EXSETSEL wParam = 0; lParam = (LPARAM) (CHARRANGE FAR *) ichCharRange;

typedef struct _formatrange { HDC hdc; HDC hdcTarget; RECT rc; RECT rcPage; CHARRANGE chrg; } FORMATRANGE;

EM_FORMATRANGE wParam = (WPARAM) (BOOL) fRender; lParam = (LPARAM) (FORMATRANGE FAR *) lpFmt;

EM_DISPLAYBAND wParam = 0; lParam = (LPARAM) (LPRECT) lprc;

void RTF_All(HWND hEdit) { CHARRANGE cr; cr.cpMin = 0; cr.cpMax = -1; SendMessage(hEdit, EM_EXSETSEL, 0, (LPARAM)&cr); return; }

第１３６章ＲＴＦを印刷するその１