Windows程序设计 PickFont（源代码）.rar

/*----------------------------------------- PICKFONT.C -- Create Logical Font (c) Charles Petzold, 1998 -----------------------------------------*/ #include <windows.h> #include "resource.h" // Structure shared between main window and dialog box typedef struct { int iDevice, iMapMode ; BOOL fMatchAspect ; BOOL fAdvGraphics ; LOGFONT lf ; TEXTMETRIC tm ; TCHAR szFaceName [LF_FULLFACESIZE] ; } DLGPARAMS ; // Formatting for BCHAR fields of TEXTMETRIC structure #ifdef UNICODE #define BCHARFORM TEXT ("0x%04X") #else #define BCHARFORM TEXT ("0x%02X") #endif // Global variables HWND hdlg ; TCHAR szAppName[] = TEXT ("PickFont") ; // Forward declarations of functions LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ; BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM) ; void SetLogFontFromFields (HWND hdlg, DLGPARAMS * pdp) ; void SetFieldsFromTextMetric (HWND hdlg, DLGPARAMS * pdp) ; void MySetMapMode (HDC hdc, int iMapMode) ; int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow) { 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 = szAppName ; wndclass.lpszClassName = szAppName ; if (!RegisterClass (&wndclass)) { MessageBox (NULL, TEXT ("This program requires Windows NT!"), szAppName, MB_ICONERROR) ; return 0 ; } hwnd = CreateWindow (szAppName, TEXT ("PickFont: Create Logical Font"), WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInstance, NULL) ; ShowWindow (hwnd, iCmdShow) ; UpdateWindow (hwnd) ; while (GetMessage (&msg, NULL, 0, 0)) { if (hdlg == 0 || !IsDialogMessage (hdlg, &msg)) { TranslateMessage (&msg) ; DispatchMessage (&msg) ; } } return msg.wParam ; } LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) { static DLGPARAMS dp ; static TCHAR szText[] = TEXT ("\x41\x42\x43\x44\x45 ") TEXT ("\x61\x62\x63\x64\x65 ") TEXT ("\xC0\xC1\xC2\xC3\xC4\xC5 ") TEXT ("\xE0\xE1\xE2\xE3\xE4\xE5 ") #ifdef UNICODE TEXT ("\x0390\x0391\x0392\x0393\x0394\x0395 ") TEXT ("\x03B0\x03B1\x03B2\x03B3\x03B4\x03B5 ") TEXT ("\x0410\x0411\x0412\x0413\x0414\x0415 ") TEXT ("\x0430\x0431\x0432\x0433\x0434\x0435 ") TEXT ("\x5000\x5001\x5002\x5003\x5004") #endif ; HDC hdc ; PAINTSTRUCT ps ; RECT rect ; switch (message) { case WM_CREATE: dp.iDevice = IDM_DEVICE_SCREEN ; hdlg = CreateDialogParam (((LPCREATESTRUCT) lParam)->hInstance, szAppName, hwnd, DlgProc, (LPARAM) &dp) ; return 0 ; case WM_SETFOCUS: SetFocus (hdlg) ; return 0 ; case WM_COMMAND: switch (LOWORD (wParam)) { case IDM_DEVICE_SCREEN: case IDM_DEVICE_PRINTER: CheckMenuItem (GetMenu (hwnd), dp.iDevice, MF_UNCHECKED) ; dp.iDevice = LOWORD (wParam) ; CheckMenuItem (GetMenu (hwnd), dp.iDevice, MF_CHECKED) ; SendMessage (hwnd, WM_COMMAND, IDOK, 0) ; return 0 ; } break ; case WM_PAINT: hdc = BeginPaint (hwnd, &ps) ; // Set graphics mode so escapement works in Windows NT SetGraphicsMode (hdc, dp.fAdvGraphics ? GM_ADVANCED : GM_COMPATIBLE) ; // Set the mapping mode and the mapper flag MySetMapMode (hdc, dp.iMapMode) ; SetMapperFlags (hdc, dp.fMatchAspect) ; // Find the point to begin drawing text GetClientRect (hdlg, &rect) ; rect.bottom += 1 ; DPtoLP (hdc, (PPOINT) &rect, 2) ; // Create and select the font; display the text SelectObject (hdc, CreateFontIndirect (&dp.lf)) ; TextOut (hdc, rect.left, rect.bottom, szText, lstrlen (szText)) ; DeleteObject (SelectObject (hdc, GetStockObject (SYSTEM_FONT))) ; EndPaint (hwnd, &ps) ; return 0 ; case WM_DESTROY: PostQuitMessage (0) ; return 0 ; } return DefWindowProc (hwnd, message, wParam, lParam) ; } BOOL CALLBACK DlgProc (HWND hdlg, UINT message, WPARAM wParam, LPARAM lParam) { static DLGPARAMS * pdp ; static PRINTDLG pd = { sizeof (PRINTDLG) } ; HDC hdcDevice ; HFONT hFont ; switch (message) { case WM_INITDIALOG: // Save pointer to dialog-parameters structure in WndProc pdp = (DLGPARAMS *) lParam ; SendDlgItemMessage (hdlg, IDC_LF_FACENAME, EM_LIMITTEXT, LF_FACESIZE - 1, 0) ; CheckRadioButton (hdlg, IDC_OUT_DEFAULT, IDC_OUT_OUTLINE, IDC_OUT_DEFAULT) ; CheckRadioButton (hdlg, IDC_DEFAULT_QUALITY, IDC_PROOF_QUALITY, IDC_DEFAULT_QUALITY) ; CheckRadioButton (hdlg, IDC_DEFAULT_PITCH, IDC_VARIABLE_PITCH, IDC_DEFAULT_PITCH) ; CheckRadioButton (hdlg, IDC_FF_DONTCARE, IDC_FF_DECORATIVE, IDC_FF_DONTCARE) ; CheckRadioButton (hdlg, IDC_MM_TEXT, IDC_MM_LOGTWIPS, IDC_MM_TEXT) ; SendMessage (hdlg, WM_COMMAND, IDOK, 0) ; // fall through case WM_SETFOCUS: SetFocus (GetDlgItem (hdlg, IDC_LF_HEIGHT)) ; return FALSE ; case WM_COMMAND: switch (LOWORD (wParam)) { case IDC_CHARSET_HELP: MessageBox (hdlg, TEXT ("0 = Ansi\n") TEXT ("1 = Default\n") TEXT ("2 = Symbol\n") TEXT ("128 = Shift JIS (Japanese)\n") TEXT ("129 = Hangul (Korean)\n") TEXT ("130 = Johab (Korean)\n") TEXT ("134 = GB 2312 (Simplified Chinese)\n") TEXT ("136 = Chinese Big 5 (Traditional Chinese)\n") TEXT ("177 = Hebrew\n") TEXT ("178 = Arabic\n") TEXT ("161 = Greek\n") TEXT ("162 = Turkish\n") TEXT ("163 = Vietnamese\n") TEXT ("204 = Russian\n") TEXT ("222 = Thai\n") TEXT ("238 = East European\n") TEXT ("255 = OEM"), szApp