Programming Windows程式開發設計指南->第六章 例子程式3

/*_############################################################################
  _##
  _##  Programming Windows程式開發設計指南->第六章 例子程式3
  _##  Author: xwlee                        
  _##  Time: 2007.06.21
  _##  Chang'an University
  _##  Development condition: win2003 Server+VC6.0
  _##
  _##  程式6-3  STOKFONT
  _##  STOKFONT.C 檔案
  _##  該程式在客戶區顯示Windows向視窗訊息處理常式發送的8種不同鍵盤訊息的全部資訊
  _##  程式只是進行驗證
  _## 
  _##
  _##    STOKFONT.C --   Stock Font Objects
  _##     (c) Charles Petzold, 1998
  _##  
  _##########################################################################*/
#include <windows.h>

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                                   PSTR szCmdLine, int iCmdShow)
{
       static TCHAR szAppName[] = TEXT ("StokFont") ;
       HWND                  hwnd ;
       MSG                         msg ;
       WNDCLASS         wndclass ;

       wndclass.style                     = CS_HREDRAW | CS_VREDRAW ;
       wndclass.lpfnWndProc  = WndProc ;
       wndclass.cbClsExtra            = 0 ;
       wndclass.cbWndExtra          = 0 ;
       wndclass.hInstance              = hInstance ;
       wndclass.hIcon                   = LoadIcon (NULL, IDI_APPLICATION) ;
       wndclass.hCursor         = LoadCursor (NULL, IDC_ARROW) ;
       wndclass.hbrBackground      = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
       wndclass.lpszMenuName      = NULL ;
       wndclass.lpszClassName       = szAppName ;
    
       if (!RegisterClass (&wndclass))
       {
              MessageBox ( NULL, TEXT ("Program requires Windows NT!"),
                                                     szAppName, MB_ICONERROR) ;
              return 0 ;
       }
    
       hwnd = CreateWindow (       szAppName, TEXT ("Stock Fonts"),
                                                        WS_OVERLAPPEDWINDOW | WS_VSCROLL,
                                                        CW_USEDEFAULT, CW_USEDEFAULT,
                                                        CW_USEDEFAULT, CW_USEDEFAULT,
                                                        NULL, NULL, hInstance, NULL) ;
  
       ShowWindow (hwnd, iCmdShow) ;
       UpdateWindow (hwnd) ;
       while (GetMessage (&msg, NULL, 0, 0))
       {
              TranslateMessage (&msg) ;
              DispatchMessage (&msg) ;
       }
       return msg.wParam ;
}

LRESULT CALLBACK WndProc (       HWND hwnd, UINT message, WPARAM wParam,LPARAM lParam)
{
       static struct
       {
              int     idStockFont ;
              TCHAR * szStockFont ;
       }
       stockfont [] = { OEM_FIXED_FONT,        "OEM_FIXED_FONT",
                                          ANSI_FIXED_FONT,   "ANSI_FIXED_FONT",   
                                          ANSI_VAR_FONT,              "ANSI_VAR_FONT",
                                          SYSTEM_FONT,         "SYSTEM_FONT",
                                          DEVICE_DEFAULT_FONT,"DEVICE_DEFAULT_FONT",
                                          SYSTEM_FIXED_FONT,    "SYSTEM_FIXED_FONT",
                                          DEFAULT_GUI_FONT,       "DEFAULT_GUI_FONT" } ;
 

       static int  iFont, cFonts = sizeof stockfont / sizeof stockfont[0] ;
       HDC                     hdc ;
       int                  i, x, y, cxGrid, cyGrid ;
       PAINTSTRUCT     ps ;
       TCHAR                szFaceName [LF_FACESIZE], szBuffer [LF_FACESIZE + 64] ;
       TEXTMETRIC  tm ;

       switch (message)
       {
       case WM_CREATE:
              SetScrollRange (hwnd, SB_VERT, 0, cFonts - 1, TRUE) ;
              return 0 ;

       case WM_DISPLAYCHANGE:
              InvalidateRect (hwnd, NULL, TRUE) ;
              return 0 ;

       case WM_VSCROLL:
              switch (LOWORD (wParam))
              {    
              case SB_TOP:             iFont = 0 ;                   break ;
              case SB_BOTTOM:                  iFont = cFonts - 1 ;       break ;
              case SB_LINEUP:
              case SB_PAGEUP:      iFont -= 1 ;                   break ;
              case SB_LINEDOWN:
              case SB_PAGEDOWN:         iFont += 1 ;                        break ;
              case SB_THUMBPOSITION:       iFont = HIWORD (wParam) ;       break ;
              }

              iFont = max (0, min (cFonts - 1, iFont)) ;
              SetScrollPos (hwnd, SB_VERT, iFont, TRUE) ;
              InvalidateRect (hwnd, NULL, TRUE) ;
              return 0 ;

       case WM_KEYDOWN:
            switch (wParam)
              {
              case VK_HOME: SendMessage (hwnd, WM_VSCROLL, SB_TOP, 0) ;       break ;
              case VK_END:  SendMessage (hwnd, WM_VSCROLL, SB_BOTTOM, 0) ;   break ;
              case VK_PRIOR:
              case VK_LEFT:
              case VK_UP:   SendMessage (hwnd, WM_VSCROLL, SB_LINEUP, 0) ;   break ;
              case VK_NEXT:
              case VK_RIGHT:
              case VK_DOWN: SendMessage (hwnd, WM_VSCROLL, SB_PAGEDOWN, 0) ; break ;
              }
              return 0 ;

       case WM_PAINT:
              hdc = BeginPaint (hwnd, &ps) ;

              SelectObject (hdc, GetStockObject (stockfont[iFont].idStockFont)) ;
              GetTextFace (hdc, LF_FACESIZE, szFaceName) ;
              GetTextMetrics (hdc, &tm) ;
              cxGrid = max (3 * tm.tmAveCharWidth, 2 * tm.tmMaxCharWidth) ;
              cyGrid = tm.tmHeight + 3 ;

              TextOut (hdc, 0, 0, szBuffer,
              wsprintf (       szBuffer, TEXT (" %s: Face Name = %s, CharSet = %i"),
                                   stockfont[iFont].szStockFont,
                                   szFaceName, tm.tmCharSet)) ;

              SetTextAlign (hdc, TA_TOP | TA_CENTER) ;
              // vertical and horizontal lines
              for (i = 0 ; i < 17 ; i++)
              {
                     MoveToEx (hdc, (i + 2) * cxGrid,  2 * cyGrid, NULL) ;
                     LineTo   (hdc, (i + 2) * cxGrid, 19 * cyGrid) ;
 
                     MoveToEx (hdc,      cxGrid, (i + 3) * cyGrid, NULL) ;
                     LineTo   (hdc, 18 * cxGrid, (i + 3) * cyGrid) ;
              }

                            // vertical and horizontal headings

 

              for (i = 0 ; i < 16 ; i++)
              {
             TextOut (hdc, (2 * i + 5) * cxGrid / 2, 2 * cyGrid + 2, szBuffer,
              wsprintf (szBuffer, TEXT ("%X-"), i)) ;
              TextOut (hdc, 3 * cxGrid / 2, (i + 3) * cyGrid + 2, szBuffer,
              wsprintf (szBuffer, TEXT ("-%X"), i)) ;
              }

                            // characters

 

              for (y = 0 ; y < 16 ; y++)

              for (x = 0 ; x < 16 ; x++)

              {

              TextOut (hdc, (2 * x + 5) * cxGrid / 2,

                                                               (y + 3) * cyGrid + 2, szBuffer,

              wsprintf (szBuffer, TEXT ("%c"), 16 * x + y)) ;

          }

 

              EndPaint (hwnd, &ps) ;

              return 0 ;

         

       case WM_DESTROY:

              PostQuitMessage (0) ;

              return 0 ;

     }

       return DefWindowProc (hwnd, message, wParam, lParam) ;

}