home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / progwin / chap09 / popmenu.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-12  |  4.5 KB  |  131 lines
  1. /*----------------------------------------
  2.    POPMENU.C -- Popup Menu Demonstration
  3.                 (c) Charles Petzold, 1990
  4.   ----------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include "popmenu.h"
  8.  
  9. long FAR PASCAL WndProc (HWND, WORD, WORD, LONG) ;
  10.  
  11. char   szAppName [] = "PopMenu" ;
  12. HANDLE hInst ;
  13.  
  14. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  15.                     LPSTR lpszCmdLine, int nCmdShow)
  16.      {
  17.      HWND     hwnd ;
  18.      MSG      msg ;
  19.      WNDCLASS wndclass ;
  20.  
  21.      if (!hPrevInstance) 
  22.           {
  23.           wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  24.           wndclass.lpfnWndProc   = WndProc ;
  25.           wndclass.cbClsExtra    = 0 ;
  26.           wndclass.cbWndExtra    = 0 ;
  27.           wndclass.hInstance     = hInstance ;
  28.           wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
  29.           wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  30.           wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
  31.           wndclass.lpszMenuName  = NULL ;
  32.           wndclass.lpszClassName = szAppName ;
  33.  
  34.           RegisterClass (&wndclass) ;
  35.           }
  36.  
  37.      hInst = hInstance ;
  38.  
  39.      hwnd = CreateWindow (szAppName, "Popup Menu Demonstration",
  40.                           WS_OVERLAPPEDWINDOW,
  41.                           CW_USEDEFAULT, CW_USEDEFAULT,
  42.                           CW_USEDEFAULT, CW_USEDEFAULT,
  43.                           NULL, NULL, hInstance, NULL) ;
  44.  
  45.      ShowWindow (hwnd, nCmdShow) ;
  46.      UpdateWindow (hwnd) ;
  47.  
  48.      while (GetMessage (&msg, NULL, 0, 0))
  49.           {
  50.           TranslateMessage (&msg) ;
  51.           DispatchMessage (&msg) ;
  52.           }
  53.      return msg.wParam ;
  54.      }
  55.  
  56. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  57.      {
  58.      static HMENU hMenu ;
  59.      static int   wColorID [5] = { WHITE_BRUSH,  LTGRAY_BRUSH, GRAY_BRUSH,
  60.                                    DKGRAY_BRUSH, BLACK_BRUSH } ;
  61.      static WORD  wSelection = IDM_WHITE ;
  62.      POINT        point ;
  63.  
  64.      switch (message)
  65.           {
  66.           case WM_CREATE:
  67.                hMenu = LoadMenu (hInst, szAppName) ;
  68.                hMenu = GetSubMenu (hMenu, 0) ;
  69.                return 0 ;
  70.  
  71.           case WM_RBUTTONDOWN:
  72.                point = MAKEPOINT (lParam) ;
  73.                ClientToScreen (hwnd, &point) ;
  74.  
  75.                TrackPopupMenu (hMenu, 0, point.x, point.y, 0, hwnd, NULL) ;
  76.                return 0 ;
  77.  
  78.           case WM_COMMAND:
  79.                switch (wParam)
  80.                     {
  81.                     case IDM_NEW:
  82.                     case IDM_OPEN:
  83.                     case IDM_SAVE:
  84.                     case IDM_SAVEAS:
  85.                     case IDM_UNDO:
  86.                     case IDM_CUT:
  87.                     case IDM_COPY:
  88.                     case IDM_PASTE:
  89.                     case IDM_CLEAR:
  90.                          MessageBeep (0) ;
  91.                          return 0 ;
  92.  
  93.                     case IDM_WHITE:          // Note: Logic below
  94.                     case IDM_LTGRAY:         //   assumes that IDM_WHITE
  95.                     case IDM_GRAY:           //   through IDM_BLACK are
  96.                     case IDM_DKGRAY:         //   consecutive numbers in
  97.                     case IDM_BLACK:          //   the order shown here.
  98.  
  99.                          CheckMenuItem (hMenu, wSelection, MF_UNCHECKED) ;
  100.                          wSelection = wParam ;
  101.                          CheckMenuItem (hMenu, wSelection, MF_CHECKED) ;
  102.      
  103.                          SetClassWord (hwnd, GCW_HBRBACKGROUND,
  104.                               GetStockObject (wColorID [wParam - IDM_WHITE])) ;
  105.  
  106.                          InvalidateRect (hwnd, NULL, TRUE) ;
  107.                          return 0 ;
  108.  
  109.                     case IDM_ABOUT:
  110.                          MessageBox (hwnd, "Popup Menu Demonstration Program.",
  111.                                      szAppName, MB_ICONINFORMATION | MB_OK) ;
  112.                          return 0 ;
  113.  
  114.                     case IDM_EXIT:
  115.                          SendMessage (hwnd, WM_CLOSE, 0, 0L) ;
  116.                          return 0 ;
  117.  
  118.                     case IDM_HELP:
  119.                          MessageBox (hwnd, "Help not yet implemented.",
  120.                                      szAppName, MB_ICONINFORMATION | MB_OK) ;
  121.                          return 0 ;
  122.                     }
  123.                break ;
  124.  
  125.           case WM_DESTROY :
  126.                PostQuitMessage (0) ;
  127.                return 0 ;
  128.           }
  129.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  130.      }
  131.