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

來源:互聯網
上載者:User

/*_############################################################################
  _##
  _##  Programming Windows程式開發設計指南->第五章 例子程式2
  _##  Author: xwlee                        
  _##  Time: 2007.06.18 
  _##  Chang'an University
  _##  Development condition: win2003 Server+VC6.0
  _##
  _##  程式5-2  LINEDEMO
  _##  LINEDEMO.C 檔案
  _##  畫一個矩形、一個橢圓、一個圓角矩形和兩條線段,不過不是按這一順序。
  _##  程式表明了定義封閉地區的函數實際上對這些地區進行了填入,因為在橢圓後面的線被遮住了
  _## 
  _##
  _##    LINEDEMO.C -- Line-Drawing Demonstration Program
  _##     (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 ("LineDemo") ;
       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 ("Line Demonstration"),
                                            WS_OVERLAPPEDWINDOW,
                                  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 int  cxClient, cyClient ;
       HDC              hdc ;
       PAINTSTRUCT ps ;
   
       switch (message)
       {
       case WM_SIZE:
              cxClient = LOWORD (lParam) ;
              cyClient = HIWORD (lParam) ;
              return 0 ;
         
       case WM_PAINT:
              hdc = BeginPaint (hwnd, &ps) ;
        
              Rectangle (hdc,     cxClient / 8,     cyClient / 8,
                        7 * cxClient / 8, 7 * cyClient / 8) ;
      
              MoveToEx  (hdc,        0,        0, NULL) ;

              LineTo    (hdc, cxClient, cyClient) ;

              MoveToEx  (hdc,        0, cyClient, NULL) ;

              LineTo    (hdc, cxClient,        0) ;

              Ellipse   (hdc,     cxClient / 8,     cyClient / 8,
                        7 * cxClient / 8, 7 * cyClient / 8) ;  // 橢圓

              RoundRect (hdc,     cxClient / 4,     cyClient / 4,

                        3 *    cxClient / 4, 3 * cyClient / 4,

                           cxClient / 6,    cyClient / 6) ;
       

              EndPaint (hwnd, &ps) ;
              return 0 ;

       case       WM_DESTROY:
              PostQuitMessage (0) ;
              return 0 ;
       }

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

 

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.