home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / progwin / chap10 / colors2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-12  |  4.6 KB  |  132 lines
  1. /*--------------------------------------------------------
  2.    COLORS2.C -- Version using Modeless Dialog Box Version
  3.                 (c) Charles Petzold, 1990
  4.   --------------------------------------------------------*/
  5.  
  6. #include <windows.h>
  7.  
  8. long FAR PASCAL WndProc     (HWND, WORD, WORD, LONG) ;
  9. BOOL FAR PASCAL ColorScrDlg (HWND, WORD, WORD, LONG) ;
  10.  
  11. HWND hDlgModeless ;
  12.  
  13. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  14.                     LPSTR lpszCmdLine, int nCmdShow)
  15.      {
  16.      static char szAppName[] = "Colors2" ;
  17.      HWND        hwnd ;
  18.      MSG         msg;
  19.      WNDCLASS    wndclass ;
  20.  
  21.      if (hPrevInstance)
  22.           return FALSE ;
  23.  
  24.      wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  25.      wndclass.lpfnWndProc   = WndProc ;
  26.      wndclass.cbClsExtra    = 0 ;
  27.      wndclass.cbWndExtra    = 0 ;
  28.      wndclass.hInstance     = hInstance ;
  29.      wndclass.hIcon         = NULL ;
  30.      wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  31.      wndclass.hbrBackground = CreateSolidBrush (0L) ;
  32.      wndclass.lpszMenuName  = NULL ;
  33.      wndclass.lpszClassName = szAppName ;
  34.  
  35.      RegisterClass (&wndclass) ;
  36.  
  37.      hwnd = CreateWindow (szAppName, "Color Scroll",
  38.                           WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
  39.                           CW_USEDEFAULT, CW_USEDEFAULT,
  40.                           CW_USEDEFAULT, CW_USEDEFAULT,
  41.                           NULL, NULL, hInstance, NULL) ;
  42.  
  43.      ShowWindow (hwnd, nCmdShow) ;
  44.      UpdateWindow (hwnd);
  45.  
  46.      hDlgModeless = CreateDialog (hInstance, "ColorScrDlg", hwnd,
  47.                          MakeProcInstance (ColorScrDlg, hInstance)) ;
  48.  
  49.      while (GetMessage (&msg, NULL, 0, 0))
  50.           {
  51.           if (hDlgModeless == 0 || !IsDialogMessage (hDlgModeless, &msg))
  52.                {
  53.                TranslateMessage (&msg) ;
  54.                DispatchMessage  (&msg) ;
  55.                }
  56.           }
  57.      return msg.wParam ;
  58.      }
  59.  
  60. BOOL FAR PASCAL ColorScrDlg (HWND hDlg, WORD message, WORD wParam, LONG lParam)
  61.      {
  62.      static short color [3] ;
  63.      HWND         hwndParent, hCtrl ;
  64.      short        nCtrlID, nIndex ;
  65.  
  66.      switch (message)
  67.           {
  68.           case WM_INITDIALOG:
  69.                for (nCtrlID = 10 ; nCtrlID < 13 ; nCtrlID++)
  70.                     {
  71.                     hCtrl = GetDlgItem (hDlg, nCtrlID) ;
  72.                     SetScrollRange (hCtrl, SB_CTL, 0, 255, FALSE) ;
  73.                     SetScrollPos   (hCtrl, SB_CTL, 0, FALSE) ;
  74.                     }
  75.                return TRUE ;
  76.  
  77.           case WM_VSCROLL :
  78.                hCtrl   = HIWORD (lParam) ;
  79.                nCtrlID = GetWindowWord (hCtrl, GWW_ID) ;
  80.                nIndex  = nCtrlID - 10 ;
  81.                hwndParent = GetParent (hDlg) ;
  82.  
  83.                switch (wParam)
  84.                     {
  85.                     case SB_PAGEDOWN :
  86.                          color [nIndex] += 15 ;        // fall through
  87.                     case SB_LINEDOWN :
  88.                          color [nIndex] = min (255, color [nIndex] + 1) ;
  89.                          break ;
  90.                     case SB_PAGEUP :
  91.                          color [nIndex] -= 15 ;        // fall through
  92.                     case SB_LINEUP :
  93.                          color [nIndex] = max (0, color [nIndex] - 1) ;
  94.                          break ;
  95.                     case SB_TOP:
  96.                          color [nIndex] = 0 ;
  97.                          break ;
  98.                     case SB_BOTTOM :
  99.                          color [nIndex] = 255 ;
  100.                          break ;
  101.                     case SB_THUMBPOSITION :
  102.                     case SB_THUMBTRACK :
  103.                          color [nIndex] = LOWORD (lParam) ;
  104.                          break ;
  105.                     default :
  106.                          return FALSE ;
  107.                     }
  108.                SetScrollPos  (hCtrl, SB_CTL,      color [nIndex], TRUE) ;
  109.                SetDlgItemInt (hDlg,  nCtrlID + 3, color [nIndex], FALSE) ;
  110.  
  111.                DeleteObject (GetClassWord (hwndParent, GCW_HBRBACKGROUND)) ;
  112.                SetClassWord (hwndParent, GCW_HBRBACKGROUND,
  113.                     CreateSolidBrush (RGB (color [0], color [1], color [2]))) ;
  114.  
  115.                InvalidateRect (hwndParent, NULL, TRUE) ;
  116.                return TRUE ;
  117.           }
  118.      return FALSE ;
  119.      }
  120.  
  121. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  122.      {
  123.      switch (message)
  124.           {
  125.           case WM_DESTROY:
  126.                DeleteObject (GetClassWord (hwnd, GCW_HBRBACKGROUND)) ;
  127.                PostQuitMessage (0) ;
  128.                return 0 ;
  129.           }
  130.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  131.      }
  132.