TOP > カテゴリ > C/C++ >

フォント選択ダイアログを表示する(C/C++版)

フォント選択ダイアログを表示するサンプルです。

サンプルの実行画面

ソースコード

[Sample25.c]

//--------------------------------------------------------------------------------------
//  ■フォント選択ダイアログを表示する■ Sample NO.25
//
//--------------------------------------------------------------------------------------

#include <windows.h>

//コマンドID
#define ID_BUTTON 101
#define ID_DUMMY  102

HFONT    hFont,hNewFont; 
HWND     hDummy;
COLORREF Colors;

//汎用プロシージャ
HFONT FontDiaog(HWND hwndOwner,HWND hwnd,DWORD Flags,WORD FontType,COLORREF *Colors);
HFONT SetWindowFont(HWND hwnd,int Height,int Weight,BOOL Italic,BOOL Underlin,BOOL StrikeOut, LPCTSTR FontName);
HWND  CreateControlWindow(HWND hwndParent, int Left, int Top,int Width, int Height,int dwExStyle ,int dwFlag ,LPCTSTR Caption, LPCTSTR ClassName,HMENU ChildID,HINSTANCE hInstance);
HWND  CreateMainWindow(int Width,int Height,LPCTSTR Caption,HINSTANCE hInstance,int nCmdShow,WNDPROC lpfnWndProc, DWORD dwstyle,DWORD dwExstyle,LPCTSTR MenuID,HICON hIcon);

//コールバックプロシージャ
LRESULT CALLBACK  WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam);

//------------------------------------------------------
//■関数 ScreenCenterX(ローカル)
//■用途 ウインドウを中央にする為にX座標(LEFT)を算出する
//■引数
//        Width     ...ウインドウの横幅
//------------------------------------------------------
int ScreenCenterX(int Width)
{ 
 int X;
  X = (GetSystemMetrics(SM_CXSCREEN)- Width) / 2;
 if (X<0) X=0;
 return(X);
}

//------------------------------------------------------
//■関数 ScreenCenterY(ローカル)
//■用途 ウインドウを中央にする為にY座標(TOP)を算出する
//■引数
//        Height     ...ウインドウの縦幅
//------------------------------------------------------
int ScreenCenterY(int Height)
{ 
 int Y;
 Y= (GetSystemMetrics(SM_CYSCREEN)- Height) / 2;
 if (Y<0) Y=0;
 return(Y);
}


//---------------------------------------------------------------
//■関数 SetWindowFont
//■用途 ウインドウのフォントを変更する
//■引数
//        hwnd       ...フォントを変更するウインドウのハンドル
//        Height     ...フォントの縦幅
//        Weight     ...フォントの太さ 
//        Italic     ...斜体フラグ
//        Underlin   ...アンダーラインフラグ
//        StrikeOut  ...打ち消し線フラグ
//        FontName   ...フォントの名前
//■戻り値  
//        フォントのハンドル
//---------------------------------------------------------------
HFONT SetWindowFont(HWND hwnd,int Height,int Weight,BOOL Italic,BOOL Underlin,BOOL StrikeOut, LPCTSTR FontName)
{
 HFONT hFont;
  hFont=  (CreateFont(-12,0,0,0,Weight,Italic,Underlin,StrikeOut,SHIFTJIS_CHARSET,
                    OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH,FontName));
  SendMessage(hwnd,WM_SETFONT,(WPARAM)hFont,TRUE); 
  return(hFont);
}


//------------------------------------------------------
//■関数 CreateMainWindow
//■用途 メインウインドウを作成する
//■引数
//        Width      ...ウインドウの横幅
//        Height     ...ウインドウの縦幅
//        Caption    ...タイトル名
//        hInstance  ...インスタンスハンドル
//        nCmdShow   ...ウインドウの表示形態
//        lpfnWndProc...コールバックプロシージャ
//        dwstyle    ...ウインドウスタイル
//        dwExstyle  ...拡張ウインドウスタイル
//        MenuID     ...メニューのID
//        hIcon      ...アイコン
//■戻り値
//  ウインドウのハンドル
//------------------------------------------------------
HWND CreateMainWindow(int Width,int Height,LPCTSTR Caption,HINSTANCE hInstance,int nCmdShow,WNDPROC lpfnWndProc, DWORD dwstyle,DWORD dwExstyle,LPCTSTR MenuID,HICON hIcon)
{
    HWND     hWnd;     //メインウインドウのハンドル
    WNDCLASS myClass;  //WNDCLASS構造体
    
   //WNDCLASS構造体を0で初期化
    ZeroMemory(&myClass,sizeof(WNDCLASS));
 
//--->WNDCLASS構造体の設定&ウインドウクラスの登録

    //ウインドウスタイルを設定 
    myClass.style         =CS_HREDRAW | CS_VREDRAW; 
    //コールバックプロシージャへのポインタ
    myClass.lpfnWndProc   = lpfnWndProc;    
    //インスタンスハンドルを設定
    myClass.hInstance        =hInstance;
    //カーソルの設定(Windows標準リソースを使用)  
    myClass.hCursor        =LoadCursor(NULL, IDC_ARROW);
    //ウインドウの背景を設定(デフォルトカラー)    
    myClass.hbrBackground    =(HBRUSH)COLOR_WINDOW;
    //クラス名の設定(Borland Delphi風)  
    myClass.lpszClassName    ="TForm";
    //アイコンの指定
    myClass.hIcon =hIcon;
    //メニューの設定
    myClass.lpszMenuName=MenuID;
        
    //ウィンドウ クラスを登録
    RegisterClass(&myClass); 
    
//--->ウインドウの作成&表示
   
    //メインウインドウの生成
    hWnd = CreateWindowEx(
                        //拡張ウインドウスタイル
                        dwExstyle,
                        //登録されたクラス名のアドレス 
                        "TForm",
                        //ウインドウ名
                        Caption,    
                        //ウインドウスタイルを設定
                        dwstyle,      
                        //X座標の位置設定
                        ScreenCenterX(Width),
                        //Y座標の位置設定
                        ScreenCenterY(Height),       
                        //横幅を設定
                        Width,       
                        //縦幅を設定
                        Height,  
                        //親ウインドウを設定
                        NULL,
                        //メニューを設定
                        NULL,        
                        //インスタンスを識別
                        hInstance,     
                        //作成したウインドウに渡すデータへのポインタ
                        NULL); 
     
    //ウインドウの表示(表示方法はnCmdShowに従う)
    ShowWindow(hWnd, nCmdShow);
    return(hWnd);
}

//------------------------------------------------------
//■関数名  ControlCreate
//■用途    ウインドウ(コントロール)を作成
//■引数
//       hwndParent ...親ウインドウのハンドル
//       Left       ...作成するウインドウの左隅のX座標
//       Top        ...作成するウインドウの左隅のY座標
//       Width      ...作成するウインドウの横幅
//       Height     ...作成するウインドウの縦幅
//       dwExStyle  ...ウインドウの拡張フラグ
//       dwFlag     ...ウインドウの作成フラグ
//       Caption    ...作成するウインドウのキャプション
//       ClassName  ...作成するウインドウクラス名
//       ChildID    ...子ウインドウの識別子
//       hInstance  ...インスタンスハンドル 
//■戻り値
//  子ウインドウのハンドル
//------------------------------------------------------
HWND CreateControlWindow(HWND hwndParent, int Left, int Top,int Width, int Height,int dwExStyle ,int dwFlag ,LPCTSTR Caption, LPCTSTR ClassName,HMENU ChildID,HINSTANCE hInstance)
 { 
 return CreateWindowEx(dwExStyle,ClassName,Caption,WS_CHILD | WS_VISIBLE | dwFlag    ,
                         Left, Top, Width, Height, hwndParent, ChildID, hInstance, NULL);
 }


//------------------------------------------------------------
//■関数 FontDiaog
//■用途 フォント選択ダイアログを表示する
//■引数
//        hwndOwner  ...親ウインドウのハンドル
//        hwnd       ...フォントダイアログの土台になるウインドウ
//        Flags      ...ダイアログのフラグ
//        FontType   ...フォントのタイプ
//        Colors     ...フォントのカラー値(戻り値)
//■戻り値
//      成功 選択されたフォントのハンドルとフォントのカラー値
//      失敗 0
//-------------------------------------------------------------
HFONT FontDiaog(HWND hwndOwner,HWND hwnd,DWORD Flags,WORD FontType,COLORREF *Colors)
{
  HDC   hDC;
  HFONT hFont;
  LOGFONT LogFont;
  CHOOSEFONT CHF;

  ZeroMemory(&CHF,sizeof(CHOOSEFONT));
  ZeroMemory(&LogFont,sizeof(LOGFONT));

  //LogFont情報を取得
  hFont=(HFONT)SendMessage(hwnd,WM_GETFONT,0,0);
  GetObject(hFont,sizeof(LOGFONT),&LogFont);
  //ここのフォントを削除するとシステムのフォントになってしまうので削除しない。
  // DeleteObject(hFont);
  hFont=NULL;
  
  hDC=GetDC(hwnd);

  //CHOOSEFONT構造体の設定
  CHF.lStructSize = sizeof(CHOOSEFONT); 
  CHF.hDC=hDC;
  CHF.hwndOwner = hwndOwner;
  CHF.lpLogFont =&LogFont;
  CHF.Flags =Flags ;
  CHF.rgbColors =*Colors; 
  CHF.nFontType =FontType ;
 
  ReleaseDC(hwnd,hDC);
  if (ChooseFont(&CHF))
  {
     *Colors=CHF.rgbColors;
     hFont= CreateFontIndirect(CHF.lpLogFont);
     if (hFont!=NULL)
        return(hFont);
     else
        return(0);
  }
  else
    return(0);
}

//--------------------------------------------------------
//■関数 WinMain
//■用途 メインの関数 
//■引数
// hInstance    ...現在のインスタンスのハンドル
// hPrevInstance...以前のインスタンスのハンドル
// pszCmdLine   ...コマンド ラインのアドレス
// nCmdShow     ...ウィンドウの表示状態
//--------------------------------------------------------
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
{    
   MSG    msg;

     //メインウインドウを作成
     CreateMainWindow(280,230,"フォント選択ダイアログを表示する",hInstance,nCmdShow,(WNDPROC)WindowProc,
                   WS_OVERLAPPEDWINDOW,WS_EX_CONTROLPARENT | WS_EX_WINDOWEDGE,NULL,LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION)));

  //送られてくるメッセージを翻訳してプロシージャに渡す  
  while (GetMessage(&msg, NULL, 0, 0)) 
   {
      TranslateMessage(&msg); 
      DispatchMessage(&msg);   
  } 
 return (msg.wParam);
}

//------------------------------------------------------
// ■関数 WindowProc
// ■用途 メインウインドウに送られるメッセージを処理
// ■引数
//        hwnd    ...ウインドウのハンドル
//        uMsg    ...メッセージID
//        wParam  ...第1メッセージ パラメータ    
//        lParam  ...第2メッセージ パラメータ
//------------------------------------------------------
LRESULT CALLBACK  WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam)
{   
    PAINTSTRUCT Paint;
    HFONT  hOldFont;
    HDC hDC;
    char  _buffer[500];
    
    switch (uMsg)
    {
    case WM_CREATE: 
                   //ボタンコントロール作成
                  CreateControlWindow(hwnd,10,10,250,25,0,
                         BS_PUSHBUTTON    ,"開く","BUTTON",(HMENU)ID_BUTTON,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));  
                  //ダミーウインドウ
                  hDummy= CreateControlWindow(hwnd,1,1,1,1,0 ,
                         0,"ダミーウインドウ","STATIC",(HMENU)ID_DUMMY,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));   
                  //ダミーウインドウに初期フォントを設定
                  hFont=SetWindowFont(hDummy,-12,FW_REGULAR,FALSE,FALSE,FALSE,"MS Pゴシック");
                  break;
    case WM_COMMAND:

                    if (LOWORD(wParam)==ID_BUTTON)
                    {
                      if (hNewFont!=0) hOldFont=hNewFont;
                       //フォント選択ダイアログを表示  
                       hNewFont=FontDiaog(hwnd,hDummy,CF_SCREENFONTS | CF_EFFECTS | CF_INITTOLOGFONTSTRUCT,
                                          SCREEN_FONTTYPE,&Colors);
                       if (hNewFont!=0)
                       { 
                         //ダミーウインドウにフォントを割り当てる 
                         SendMessage(hDummy,WM_SETFONT,(WPARAM)hNewFont,TRUE);
                         DeleteObject(hOldFont);
               
                         //文字列連結 
                         wsprintf(_buffer,"フォントカラー R:%d G:%d B:%d",GetRValue(Colors),
                                                                         GetGValue(Colors),
                                                                         GetBValue(Colors));
                         //ウインドウテキストに設定
                         SetWindowText(hwnd,_buffer);
                         //メインウインドウを更新
                         InvalidateRect(hwnd,NULL,TRUE);
                       }
                       else
                           hNewFont=hOldFont;
                    }
                  break;
  case WM_PAINT:    
             //ダミーウインドウのフォントを使用してメインウインドウのデバイスコンテキストにテキストを描画
             hDC=  BeginPaint(hwnd, &Paint);
             if (hNewFont==0)
               hOldFont = (HFONT)SelectObject(hDC, hFont);
             else
               hOldFont = (HFONT)SelectObject(hDC, hNewFont);
          
             SetTextColor(hDC, Colors);        
              SetBkMode(hDC,TRANSPARENT);
             TextOut(hDC, 90, 110, (LPCTSTR)"フォントのテスト", 16);
             SelectObject(hDC, hOldFont);           
             EndPaint(hwnd, &Paint);
             break;
      case WM_DESTROY:
                  DeleteObject(hFont);
                  DeleteObject(hNewFont);
                  PostQuitMessage(0);
                  break;
      //その他のメッセージはWindowsに任せる
      default:return(DefWindowProc(hwnd, uMsg, wParam, lParam)); 
    }
    return (0);
}

ソースコード一式のダウンロード

capi_sample25.zip 3,921 バイト

動作環境

このサンプルは 「Windows98」及び「Microsoft Visual C++5.0」「Borland C++ Compiler 5.5」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。

Visual C++5.0でのコンパイル

VC5.0でサンプルをコンパイルする場合は新規プロジェクト(Win32Application)を作成後、各ファイルを追加してビルドしてください。

Borland C++ Compiler 5.5でのコンパイル

BCC5.5でサンプルをコンパイルする場合は「bcc32.exe」で*.c又は*.cppファイルをコンパイルします。リソースがある場合は「brc32.exe」で*resファイルを付与してください。

サンプルについて

このWindows APIサンプル集(C/C++版)は2000年頃にC/C++言語の学習の為に作成したものです。コードはエレガントではなく「初心者レベルのコーディング」です。仕事などの業務で利用する際にはエラー処理やメモリ解放などの再確認を必ずして下さい。





関連記事



公開日:2015年03月19日
記事NO:00481