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

まず前回の問題を解決します。

前章までのプログラムでは、一行に入力できる文字数はウィンドウの大きさに依存していて、印刷すると一行の文字数が違っていました。また、１ページ分しか印刷できませんでした。

まず、１ページに収まらない長い文書を印刷するときはどうすればよいのでしょうか。実は

SendMessage(hEdit, EM_FORMATRANGE, TRUE, (LPARAM)&fr);

の戻り値は次のページの文字インデックス（最後の文字インデックス＋１）となります。これを利用すれば良いですね。


while (fr.chrg.cpMin < lTextLen) {
    lNextMin = SendMessage(hEdit, EM_FORMATRANGE, TRUE, (LPARAM)&fr);
    StartPage(hdc);
    SendMessage(hEdit, EM_DISPLAYBAND, 0, (LPARAM)&fr.rc);
    EndPage(hdc);
    fr.chrg.cpMin = lNextMin;
}

このようにすれば、FORMATRANGE構造体のchrg.cpMinが次々と次の１ページの先頭を表すことになります。そして、cpMinが印刷するテキストの長さよりも小さいときはこれを繰り返せばよいことになります。

せっかくですから，印刷のときにページ番号も印刷されるとうれしいですね。これは、どうすればよいのでしょうか。

別に難しいことはありません。プリンタのhdcがわかっていますから TextOutなどを使ってプリンタに書きこめば良いですね。


int RTF_AddPageNo(HDC hdc, int nPage)
{
    int wx, wy, x, y;
    char szPage[64];
    char *szPage_Org = "-- %d --";
    int nTextW; //テキストの幅
    TEXTMETRIC tm;

    wx = GetDeviceCaps(hdc, PHYSICALWIDTH);
    wy = GetDeviceCaps(hdc, PHYSICALHEIGHT);
    wsprintf(szPage, szPage_Org, nPage);

    GetTextMetrics(hdc, &tm);
    nTextW = (int)tm.tmAveCharWidth * strlen(szPage);

    x = (wx - nTextW) / 2;
    y = 40;

    TextOut (hdc, x, y, szPage, strlen(szPage));
    return nPage;
}

これは、nPageページを印刷するときに用紙の上のほうの真ん中にページ番号を印刷する関数です。hdcはもちろんプリンタのhdcです。 szPageに「-- 3 --」などというページ番号が入ります。そして、この文字列が用紙の中央に来るようにします。用紙の幅はGetDeviceCaps(hdc, PHYSICALWIDTH);で求めます。

ページ番号の幅は文字１つの幅に文字数をかけたもので求めます。
GetTextMetrics(hdc, &tm);
でTEXTMETRIC構造体に情報をもらいます。そしてtmAveCharWidth メンバを調べると１文字の横幅がわかります。文字の幅は文字によって微妙に異なるので平均的なものです。 GetTextMetrics関数などは第７７章を参照してください。

さて、この関数では使わないwyを求めています。これは、あとでページを下のほうに入れるときに使おうと思って今から準備したものです。関数の引数も増やして、任意の位置に好きな文字列を使ってページを入れれるように作り直してみてください。

さて、

次の大問題は

１行に入力できる文字数がウィンドウの幅に依存していて用紙の幅には関係していないということでした。これは、意外に簡単に解決できます。見たとおりに印刷できることを WYSIWYG(What You See Is What You Get)といいます。これを実現するには


EM_SETTARGETDEVICE
wParam = (WPARAM) (HDC) hdcTarget; 
lParam = (LPARAM) (int) cxLineWidth;

を使います。hdcTargetはプリンタのhdcを指定します。 cxLineWidthには印刷される横幅を指定します。さて、ヘルプには書いてないのですがcxLineWidthの単位はtwipです。

これをリッチエディットコントロールに送ってやると印刷される横幅分しか入力できなくなります。

さて、こうなるとまた問題が生じます。今までは入力がウィンドウの横幅いっぱいまで来ると自動的に次の行に行っていました。しかし、今度は入力できる横幅が決まっています。ウィンドウがこれよりも狭いときは水平スクロールバーを出さなくてはいけません。

この解決策も簡単です。エディットコントロールを作るときに WS_HSCROLL | ES_HAUTOSCROLLのウィンドウスタイルを加えてやるとよいです。

さらに、今回は「新規作成」コマンドも追加してみました。これは、特に説明は不要と思われます。

では、プログラムを見てみましょう。


// rich08.rcの一部

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

MYMENU MENU DISCARDABLE 
BEGIN
    POPUP "ファイル(&F)"
    BEGIN
        MENUITEM "新規作成(&N)",                IDM_NEW
        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_NEW
        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

「新規作成」が増えました。


// rich08.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);
int RTF_AddPageNo(HDC, int);
void RTF_SetWYSIWYG(HWND);
void RTF_New(HWND);

char szClassName[] = "rich08";        //ウィンドウクラス
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;
}

WinMainの中身は今までと全く同じです。


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

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_HSCROLL |
                WS_VSCROLL | ES_AUTOVSCROLL  | ES_AUTOHSCROLL | 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);
            //リッチエディットコントロールをWYSIWYGの幅にする
            //要するにプリンタにセットしてある用紙の幅に合わせる
            RTF_SetWYSIWYG(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_NEW:
                    RTF_New(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);
                    RTF_SetWYSIWYG(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_CREATEのところで、リッチエディットコントロールを作るときのウィンドウスタイルが今までと少し変更になりました。また、作った後すぐに自作関数RTF_SetWYSIWYG関数（後述）を呼んで、入力できる幅を制限しています。

WM_COMMANDのIDM_NEWで自作関数RTF_New（後述）を呼んでいます。

IDM_PRNSETのところでプリンタの設定を変えたところでもRTF_SetWYSIWYG関数を呼んでいます。ようしの向き，大きさなどが変えられた可能性があるからです。


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;
}

この部分は特に変更はありません。


void RTF_Print(HWND hEdit)
{
    static FORMATRANGE fr;
    DOCINFO di;
    HDC hdc;
    LONG lTextLen;
    LONG lNextMin = 0;
    int nPage = 1; //印刷ページ

    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));
        
    //用紙の上下左右は１インチ(1440twip)あけて印刷
    fr.rc.top = 1440;
    fr.rc.left = 1440;
    fr.rc.right = fr.rcPage.right - 1440;
    fr.rc.bottom = fr.rcPage.bottom -1440;

    lTextLen = SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0);
    fr.chrg.cpMin = 0;
    fr.chrg.cpMax = lTextLen;

    StartDoc(hdc, &di);
    while (fr.chrg.cpMin < lTextLen) {
        lNextMin = SendMessage(hEdit, EM_FORMATRANGE, TRUE, (LPARAM)&fr);
        StartPage(hdc);
        SendMessage(hEdit, EM_DISPLAYBAND, 0, (LPARAM)&fr.rc);
        RTF_AddPageNo(hdc, nPage);
        EndPage(hdc);
        fr.chrg.cpMin = lNextMin;
        nPage++;
    }
    SendMessage(hEdit, EM_FORMATRANGE, TRUE, NULL);
    EndDoc(hdc);

    DeleteDC(hdc);
    return;
}

SendMessage(hEdit, EM_FORMATRANGE, ....);
StartPage(hdc);
SendMessage(hEdit, EM_DISPLAYBAND, ...);
EndPage(hdc);
がループになっていて１ページ分を印刷します。また、このループの中に自作関数RTF_AddPageNoをいれて、ページの印刷をさせています。


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;
}

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


int RTF_AddPageNo(HDC hdc, int nPage)
{
    int wx, wy, x, y;
    char szPage[64];
    char *szPage_Org = "-- %d --";
    int nTextW; //テキストの幅
    TEXTMETRIC tm;

    wx = GetDeviceCaps(hdc, PHYSICALWIDTH);
    wy = GetDeviceCaps(hdc, PHYSICALHEIGHT);
    wsprintf(szPage, szPage_Org, nPage);

    GetTextMetrics(hdc, &tm);
    nTextW = (int)tm.tmAveCharWidth * strlen(szPage);

    x = (wx - nTextW) / 2;
    y = 40;

    TextOut (hdc, x, y, szPage, strlen(szPage));
    return nPage;
}

これは、最初に説明したページ番号を印刷する関数です。この関数の引数をもっと増やして印刷する場所、文字列を呼び出し側で自由に設定できるようにしてみてください。そのためには印刷の設定ダイアログも作る必要がありますね。 y = 40;というのは用紙の上の方ということで筆者が勝手に設定した値です。これもきちんと計算してください。（本文が印刷される部分と重ならないように）


void RTF_SetWYSIWYG(HWND hEdit)
{
    HDC hdc; //プリンタのhdc
    int nPrnW;
    int nLog;
    int w; //RTFに設定する横幅(twip)
    
    hdc = GetPrintInfo();
    nPrnW = GetDeviceCaps(hdc, PHYSICALWIDTH);
    nLog = GetDeviceCaps(hdc, LOGPIXELSX);

    //左右１インチあけるので1440*2(twip)引く
    w = MulDiv(nPrnW, 1440, nLog) - 1440 * 2;

    if (SendMessage(hEdit, EM_SETTARGETDEVICE, (WPARAM)hdc, (LPARAM)w) == 0)
        MessageBox(hEdit, "RTF横幅設定でエラーが発生しました", "ERROR", MB_OK);
    return;

EM_SETTARGEDEVICEメッセージを送るときのWPARAMの値に注意してください。twip単位です。また、今回のプログラムでは左右に１インチの余白を設けているので２インチ分引くことも忘れないでください。デバイス単位をtwip単位に変換する方法は前章を参照してください。


void RTF_New(HWND hEdit)
{
    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);
    }
    SetWindowText(hEdit, "");
    strcpy(szTitle, szAppTitle);
    strcat(szTitle, " [ 無題 ]");
    SetWindowText(GetParent(hEdit), szTitle);
    SendMessage(hEdit, EM_SETMODIFY, FALSE, 0);
    SetFocus(hEdit);
    return;
}

「新規作成」コマンドの中身です。

さて、今回で印刷部分が少しましなものになってきました。しかし、まだまだ不満の多いプログラムです。

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

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

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

while (fr.chrg.cpMin < lTextLen) { lNextMin = SendMessage(hEdit, EM_FORMATRANGE, TRUE, (LPARAM)&fr); StartPage(hdc); SendMessage(hEdit, EM_DISPLAYBAND, 0, (LPARAM)&fr.rc); EndPage(hdc); fr.chrg.cpMin = lNextMin; }

次の大問題は

EM_SETTARGETDEVICE wParam = (WPARAM) (HDC) hdcTarget; lParam = (LPARAM) (int) cxLineWidth;

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