home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / progwin / chap12 / arcs.c next >
Encoding:
C/C++ Source or Header  |  1990-11-12  |  4.6 KB  |  140 lines
  1. /*-------------------------------------------------------
  2.    ARCS.C -- Demonstrates Drawing Arcs, Chords, and Pies
  3.              (c) Charles Petzold, 1990
  4.   -------------------------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include "arcs.h"
  8.  
  9. long FAR PASCAL WndProc (HWND, WORD, WORD, LONG) ;
  10.  
  11. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  12.                     LPSTR lpszCmdLine, int nCmdShow)
  13.      {
  14.      static char szAppName[] = "Arcs" ;
  15.      HWND        hwnd ;
  16.      MSG         msg ;
  17.      WNDCLASS    wndclass ;
  18.  
  19.      if (!hPrevInstance) 
  20.           {
  21.           wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  22.           wndclass.lpfnWndProc   = WndProc ;
  23.           wndclass.cbClsExtra    = 0 ;
  24.           wndclass.cbWndExtra    = 0 ;
  25.           wndclass.hInstance     = hInstance ;
  26.           wndclass.hIcon         = NULL ;
  27.           wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  28.           wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
  29.           wndclass.lpszMenuName  = szAppName ;
  30.           wndclass.lpszClassName = szAppName ;
  31.  
  32.           RegisterClass (&wndclass) ;
  33.           }
  34.  
  35.      hwnd = CreateWindow (szAppName, "Arcs, Chords, and Pies",
  36.                           WS_OVERLAPPEDWINDOW,
  37.                           CW_USEDEFAULT, CW_USEDEFAULT,
  38.                           CW_USEDEFAULT, CW_USEDEFAULT,
  39.                           NULL, NULL, hInstance, NULL) ;
  40.  
  41.      ShowWindow (hwnd, nCmdShow) ;
  42.      UpdateWindow (hwnd) ;
  43.  
  44.      while (GetMessage (&msg, NULL, 0, 0))
  45.           {
  46.           TranslateMessage (&msg) ;
  47.           DispatchMessage (&msg) ;
  48.           }
  49.      return msg.wParam ;
  50.      }
  51.  
  52. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  53.      {
  54.      static short cxClient, cyClient, x1, x2, x3, x4, y1, y2, y3, y4,
  55.                   nFigure = IDM_ARC ;
  56.      HDC          hdc ;
  57.      HMENU        hMenu ; 
  58.      HPEN         hPen ;
  59.      PAINTSTRUCT  ps ;
  60.      short        x, y ;
  61.  
  62.      switch (message)
  63.           {
  64.           case WM_SIZE:
  65.                x3 = y3 = 0 ;
  66.                x4 = cxClient = LOWORD (lParam) ;
  67.                y4 = cyClient = HIWORD (lParam) ;
  68.                x2 = 3 * (x1 = cxClient / 4) ;
  69.                y2 = 3 * (y1 = cyClient / 4) ;
  70.                return 0 ;
  71.  
  72.           case WM_COMMAND:
  73.                switch (wParam)
  74.                     {
  75.                     case IDM_ARC:
  76.                     case IDM_CHORD:
  77.                     case IDM_PIE:
  78.                          hMenu = GetMenu (hwnd) ;
  79.                          CheckMenuItem (hMenu, nFigure, MF_UNCHECKED) ;
  80.                          CheckMenuItem (hMenu, nFigure = wParam, MF_CHECKED) ;
  81.                          InvalidateRect (hwnd, NULL, FALSE) ;
  82.                          return 0 ;
  83.                     }
  84.                break ;
  85.  
  86.           case WM_LBUTTONDOWN:
  87.                if (!(wParam & MK_SHIFT))
  88.                     {
  89.                     x3 = LOWORD (lParam) ;
  90.                     y3 = HIWORD (lParam) ;
  91.                     InvalidateRect (hwnd, NULL, TRUE) ;
  92.                     return 0 ;
  93.                     }    
  94.                                         // fall through for MK_SHIFT
  95.           case WM_RBUTTONDOWN:
  96.                x4 = LOWORD (lParam) ;   
  97.                y4 = HIWORD (lParam) ;
  98.                InvalidateRect (hwnd, NULL, TRUE) ;
  99.                return 0 ;
  100.  
  101.           case WM_PAINT:
  102.                hdc = BeginPaint (hwnd, &ps) ;
  103.  
  104.                hPen = SelectObject (hdc, CreatePen (PS_DOT, 1, 0L)) ;
  105.                Rectangle (hdc, x1, y1, x2, y2) ;
  106.                Ellipse   (hdc, x1, y1, x2, y2) ;
  107.  
  108.                DeleteObject (SelectObject (hdc, CreatePen (PS_SOLID, 3, 0L))) ;
  109.  
  110.                switch (nFigure)
  111.                     {
  112.                     case IDM_ARC:
  113.                          Arc (hdc, x1, y1, x2, y2, x3, y3, x4, y4) ;
  114.                          break ;
  115.  
  116.                     case IDM_CHORD:
  117.                          Chord (hdc, x1, y1, x2, y2, x3, y3, x4, y4) ;
  118.                          break ;
  119.  
  120.                     case IDM_PIE:
  121.                          Pie (hdc, x1, y1, x2, y2, x3, y3, x4, y4) ;
  122.                          break ;
  123.                     }
  124.  
  125.                DeleteObject (SelectObject (hdc, hPen)) ;
  126.  
  127.                MoveTo (hdc, x3, y3) ;
  128.                LineTo (hdc, cxClient / 2, cyClient / 2) ;
  129.                LineTo (hdc, x4, y4) ;
  130.  
  131.                EndPaint (hwnd, &ps) ;
  132.                return 0 ;
  133.  
  134.           case WM_DESTROY:
  135.                PostQuitMessage (0) ;
  136.                return 0 ;
  137.           }
  138.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  139.      }
  140.