home *** CD-ROM | disk | FTP | other *** search
/ Programming Windows 95 / Programming Windows 95.iso / code / CHAP08 / COLORS1.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-01-01  |  8.4 KB  |  241 lines
  1. /*----------------------------------------
  2.    COLORS1.C -- Colors Using Scroll Bars
  3.                 (c) Charles Petzold, 1996
  4.   ----------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include <stdlib.h>
  8.  
  9. LRESULT CALLBACK WndProc    (HWND, UINT, WPARAM, LPARAM) ;
  10. LRESULT CALLBACK ScrollProc (HWND, UINT, WPARAM, LPARAM) ;
  11.  
  12. WNDPROC fnOldScr[3] ;
  13. HWND    hwndScrol[3], hwndLabel[3], hwndValue[3], hwndRect ;
  14. int     color[3], iFocus ;
  15.  
  16. int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
  17.                     PSTR szCmdLine, int iCmdShow)
  18.      {
  19.      static char  szAppName[] = "Colors1" ;
  20.      static char *szColorLabel[] = { "Red", "Green", "Blue" } ;
  21.      HWND         hwnd ;
  22.      int          i ;
  23.      MSG          msg ;
  24.      WNDCLASSEX   wndclass ;
  25.  
  26.      wndclass.cbSize        = sizeof (wndclass) ;
  27.      wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  28.      wndclass.lpfnWndProc   = WndProc ;
  29.      wndclass.cbClsExtra    = 0 ;
  30.      wndclass.cbWndExtra    = 0 ;
  31.      wndclass.hInstance     = hInstance ;
  32.      wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
  33.      wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  34.      wndclass.hbrBackground = CreateSolidBrush (0L) ;
  35.      wndclass.lpszMenuName  = NULL ;
  36.      wndclass.lpszClassName = szAppName ;
  37.      wndclass.hIconSm       = LoadIcon (NULL, IDI_APPLICATION) ;
  38.  
  39.      RegisterClassEx (&wndclass) ;
  40.  
  41.      hwnd = CreateWindow (szAppName, "Color Scroll",
  42.                           WS_OVERLAPPEDWINDOW,
  43.                           CW_USEDEFAULT, CW_USEDEFAULT,
  44.                           CW_USEDEFAULT, CW_USEDEFAULT,
  45.                           NULL, NULL, hInstance, NULL) ;
  46.  
  47.      hwndRect = CreateWindow ("static", NULL,
  48.                               WS_CHILD | WS_VISIBLE | SS_WHITERECT,
  49.                               0, 0, 0, 0,
  50.                               hwnd, (HMENU) 9, hInstance, NULL) ;
  51.  
  52.      for (i = 0 ; i < 3 ; i++)
  53.           {
  54.           hwndScrol[i] = CreateWindow ("scrollbar", NULL,
  55.                               WS_CHILD | WS_VISIBLE | WS_TABSTOP | SBS_VERT,
  56.                               0, 0, 0, 0,
  57.                               hwnd, (HMENU) i, hInstance, NULL) ;
  58.  
  59.           hwndLabel[i] = CreateWindow ("static", szColorLabel[i],
  60.                               WS_CHILD | WS_VISIBLE | SS_CENTER,
  61.                               0, 0, 0, 0,
  62.                               hwnd, (HMENU) (i + 3), hInstance, NULL) ;
  63.  
  64.           hwndValue[i] = CreateWindow ("static", "0",
  65.                               WS_CHILD | WS_VISIBLE | SS_CENTER,
  66.                               0, 0, 0, 0,
  67.                               hwnd, (HMENU) (i + 6), hInstance, NULL) ;
  68.  
  69.           fnOldScr[i] = (WNDPROC) SetWindowLong (hwndScrol[i], GWL_WNDPROC,
  70.                                                  (LONG) ScrollProc) ;
  71.  
  72.           SetScrollRange (hwndScrol[i], SB_CTL, 0, 255, FALSE) ;
  73.           SetScrollPos   (hwndScrol[i], SB_CTL, 0, FALSE) ;
  74.           }
  75.  
  76.      ShowWindow (hwnd, iCmdShow) ;
  77.      UpdateWindow (hwnd) ;
  78.  
  79.      while (GetMessage (&msg, NULL, 0, 0))
  80.           {
  81.           TranslateMessage (&msg) ;
  82.           DispatchMessage  (&msg) ;
  83.           }
  84.      return msg.wParam ;
  85.      }
  86.  
  87. LRESULT CALLBACK WndProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam)
  88.      {
  89.      static COLORREF crPrim[3] = { RGB (255, 0, 0), RGB (0, 255, 0),
  90.                                    RGB (0, 0, 255) } ;
  91.      static HBRUSH   hBrush[3], hBrushStatic ;
  92.      static int      cyChar ;
  93.      static RECT     rcColor ;
  94.      char            szbuffer[10] ;
  95.      int             i, cxClient, cyClient ;
  96.  
  97.      switch (iMsg)
  98.           {
  99.           case WM_CREATE :
  100.                for (i = 0 ; i < 3 ; i++)
  101.                     hBrush[i] = CreateSolidBrush (crPrim[i]) ;
  102.  
  103.                hBrushStatic = CreateSolidBrush (
  104.                                    GetSysColor (COLOR_BTNHIGHLIGHT)) ;
  105.  
  106.                cyChar = HIWORD (GetDialogBaseUnits ()) ;
  107.                return 0 ;
  108.  
  109.           case WM_SIZE :
  110.                cxClient = LOWORD (lParam) ;
  111.                cyClient = HIWORD (lParam) ;
  112.  
  113.                SetRect (&rcColor, cxClient / 2, 0, cxClient, cyClient) ;
  114.  
  115.                MoveWindow (hwndRect, 0, 0, cxClient / 2, cyClient, TRUE) ;
  116.  
  117.                for (i = 0 ; i < 3 ; i++)
  118.                     {
  119.                     MoveWindow (hwndScrol[i],
  120.                          (2 * i + 1) * cxClient / 14, 2 * cyChar,
  121.                          cxClient / 14, cyClient - 4 * cyChar, TRUE) ;
  122.  
  123.                     MoveWindow (hwndLabel[i],
  124.                          (4 * i + 1) * cxClient / 28, cyChar / 2,
  125.                          cxClient / 7, cyChar, TRUE) ;
  126.  
  127.                     MoveWindow (hwndValue[i],
  128.                          (4 * i + 1) * cxClient / 28, cyClient - 3 * cyChar / 2,
  129.                          cxClient / 7, cyChar, TRUE) ;
  130.                     }
  131.                SetFocus (hwnd) ;
  132.                return 0 ;
  133.  
  134.           case WM_SETFOCUS :
  135.                SetFocus (hwndScrol[iFocus]) ;
  136.                return 0 ;
  137.  
  138.           case WM_VSCROLL :
  139.                i = GetWindowLong ((HWND) lParam, GWL_ID) ;
  140.  
  141.                switch (LOWORD (wParam))
  142.                     {
  143.                     case SB_PAGEDOWN :
  144.                          color[i] += 15 ;
  145.                                                   // fall through
  146.                     case SB_LINEDOWN :
  147.                          color[i] = min (255, color[i] + 1) ;
  148.                          break ;
  149.  
  150.                     case SB_PAGEUP :
  151.                          color[i] -= 15 ;
  152.                                                   // fall through
  153.                     case SB_LINEUP :
  154.                          color[i] = max (0, color[i] - 1) ;
  155.                          break ;
  156.  
  157.                     case SB_TOP :
  158.                          color[i] = 0 ;
  159.                          break ;
  160.  
  161.                     case SB_BOTTOM :
  162.                          color[i] = 255 ;
  163.                          break ;
  164.  
  165.                     case SB_THUMBPOSITION :
  166.                     case SB_THUMBTRACK :
  167.                          color[i] = HIWORD (wParam) ;
  168.                          break ;
  169.  
  170.                     default :
  171.                          break ;
  172.                     }
  173.                SetScrollPos  (hwndScrol[i], SB_CTL, color[i], TRUE) ;
  174.                SetWindowText (hwndValue[i], itoa (color[i], szbuffer, 10)) ;
  175.  
  176.                DeleteObject ((HBRUSH)
  177.                     SetClassLong (hwnd, GCL_HBRBACKGROUND,
  178.                          (LONG) CreateSolidBrush (
  179.                                      RGB (color[0], color[1], color[2])))) ;
  180.  
  181.                InvalidateRect (hwnd, &rcColor, TRUE) ;
  182.                return 0 ;
  183.  
  184.           case WM_CTLCOLORSCROLLBAR :
  185.                i = GetWindowLong ((HWND) lParam, GWL_ID) ;
  186.  
  187.                return (LRESULT) hBrush[i] ;
  188.  
  189.           case WM_CTLCOLORSTATIC :
  190.                i = GetWindowLong ((HWND) lParam, GWL_ID) ;
  191.  
  192.                if (i >= 3 && i <= 8)    // static text controls
  193.                     {
  194.                     SetTextColor ((HDC) wParam, crPrim[i % 3]) ;
  195.                     SetBkColor ((HDC) wParam, GetSysColor (COLOR_BTNHIGHLIGHT));
  196.  
  197.                     return (LRESULT) hBrushStatic ;
  198.                     }
  199.                break ;
  200.  
  201.           case WM_SYSCOLORCHANGE :
  202.                DeleteObject (hBrushStatic) ;
  203.  
  204.                hBrushStatic = CreateSolidBrush (
  205.                                    GetSysColor (COLOR_BTNHIGHLIGHT)) ;
  206.                return 0 ;
  207.  
  208.           case WM_DESTROY :
  209.                DeleteObject ((HBRUSH)
  210.                     SetClassLong (hwnd, GCL_HBRBACKGROUND,
  211.                          (LONG) GetStockObject (WHITE_BRUSH))) ;
  212.  
  213.                for (i = 0 ; i < 3 ; DeleteObject (hBrush[i++])) ;
  214.  
  215.                DeleteObject (hBrushStatic) ;
  216.  
  217.                PostQuitMessage (0) ;
  218.                return 0 ;
  219.           }
  220.      return DefWindowProc (hwnd, iMsg, wParam, lParam) ;
  221.      }
  222.  
  223. LRESULT CALLBACK ScrollProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam)
  224.      {
  225.      int i = GetWindowLong (hwnd, GWL_ID) ;
  226.  
  227.      switch (iMsg)
  228.           {
  229.           case WM_KEYDOWN :
  230.                if (wParam == VK_TAB)
  231.                     SetFocus (hwndScrol[(i +
  232.                          (GetKeyState (VK_SHIFT) < 0 ? 2 : 1)) % 3]) ;
  233.                break ;
  234.  
  235.           case WM_SETFOCUS :
  236.                iFocus = i ;
  237.                break ;
  238.           }
  239.      return CallWindowProc (fnOldScr[i], hwnd, iMsg, wParam, lParam) ;
  240.      }
  241.