【正文】 vInstance, LPSTR lpCmdLine, int nCmdShow) { MSG Message。 if(!InitWindowsClass(hInstance)) return FALSE。 if(!InitWindows(hInstance,nCmdShow)) return FALSE。 while(GetMessage(amp。Message,0,0,0)) //消息循環(huán) {TranslateMessage(amp。Message)。 DispatchMessage(amp。Message)。 } return 。 } 33 long WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG lParam) 1. { static long nXChar,nCaps,nYChar。 2. int pointx,pointy,int i,j。 3. HDC hDC。 //定義指向設備環(huán)境的句柄 4. TEXTMETRIC tm。 //存放字體各種屬性的結構體變量 5. PAINTSTRUCT PtStr。 //指向包含繪圖信息的結構體變量 6. static char *textbuf[4]={{故人西辭黃鶴樓 }, {煙花三月下揚州 }, {孤帆遠影碧空盡 }, {唯見長江天際流 }}。 7. switch(iMessage) //處理消息 8. { case WM_CREATE: //處理窗口創(chuàng)建消息 9. hDC=GetDC(hWnd) 。 //獲取當前設備表句柄 10. GetTextMetrics(hDC,amp。tm)。 //獲取字體信息 11. nXChar=。 //獲取字符寬度 12. nYChar=+。 //字符高度 13. nCaps=(amp。1?3:2)*nXChar/2。 //字間距 14. ReleaseDC(hWnd,hDC)。 return 0。 //釋放當前設備句柄 15. case WM_PAINT: //處理重畫消息 16. hDC=BeginPaint(hWnd,amp。PtStr)。 //開始繪圖 17. for(i=4。i0。i) 18. {for(j=0。j7。j++) //輸出文本 19. { pointx=100+i*nXChar*5。 pointy=50+j*(nYChar+nCaps)。 20. TextOut(hDC,pointx,pointy,textbuf[4i]+j*2,2)。 } } 21. EndPaint(hWnd,amp。PtStr)。 return 0。 //結束繪圖 22. case WM_DESTROY: //結束應用程序 PostQuitMessage(0)。 return 0。 23. default: return(DefWindowProc(hWnd,iMessage,wParam,lParam))。}} 34 創(chuàng)建自定義字體的例 題 程序 。在窗口中顯示 “ 自定義的字體 ” ，字體顏色為紅色，背景色為藍色。其運行結果應如下圖所示： 35 LRESULT CALLBACK WndProc( HWND hwnd,UINT message, WPARAM wParam,LPARAM lParam) 1. {HDC hdc 。 //設備句柄 2. PAINTSTRUCT ps 。 //畫刷結構 3. int Xchar,Ychar。 4. SIZE size。 5. LPCTSTR *pstring= “自定義的字體 ” 。 6. RECT rect 。 //無效矩形區(qū) 7. HFONT holdFont,hnewFont。 8. switch (message) //消息處理函數 9. {case WM_CREATE: return 0。 //窗口創(chuàng)建 10. case WM_PAINT: //繪制消息 11. hnewFont=CreateFont //創(chuàng)建一種新的邏輯字體 12. ( 64,0, 0, 0, 500,0,0,0, 13. GB2312_CHARSET, 14. OUT_DEFAULT_PRECIS, 15. CLIP_DEFAULT_PRECIS, 16. DEFAULT_QUALITY, 17. DEFAULT_PITCH amp。 FF_DONTCARE, 18. “黑體 ” )。 36 19. hdc=BeginPaint (hwnd, amp。ps)。 //得到設備環(huán)境句柄 20. GetClientRect (hwnd, amp。rect)。 //得到需要繪制的客戶區(qū) 21. holdFont=(HFONT)SelectObject(hdc,hnewFont)。 //選擇新的字體 22. SetTextColor(hdc,RGB(255,0,0))。 //設置文本顏色 23. SetBkColor(hdc,RGB(0,0,255))。 //設置背景顏色 24. GetTextExtentPoint32(hdc,pstring,12,amp。size)。 25. Xchar=()/。 26. Ychar=()/。 27. TextOut(hdc,Xchar,Ychar,pstring,12)。 28. SelectObject(hdc,holdFont)。 //保存原來的字體格式 29. DeleteObject(hnewFont)。 //刪除新的字體格式 30. EndPaint (hwnd, amp。ps) 。 //結束繪制 return 0 。 case WM_DESTROY: //退出消息 PostQuitMessage (0) 。 return 0 。 } return DefWindowProc(hwnd,message,wParam,lParam) 。 }