home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 7.ddi / MWHC.007 / A0 < prev    next >
Encoding:
Text File  |  1990-11-11  |  9.5 KB  |  277 lines
  1. /*-------------------------------------
  2.    TYPE.C -- Typing Program
  3.              (c) Charles Petzold, 1990
  4.   -------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include <stdlib.h>
  8.  
  9. #define BUFFER(x,y) *(pBuffer + y * cxBuffer + x)
  10.  
  11. long FAR PASCAL WndProc (HWND, WORD, WORD, LONG) ;
  12.  
  13. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  14.                     LPSTR lpszCmdLine, int nCmdShow)
  15.      {
  16.      static char szAppName[] = "Type" ;
  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 = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
  31.           wndclass.lpszMenuName  = NULL ;
  32.           wndclass.lpszClassName = szAppName ;
  33.  
  34.           RegisterClass (&wndclass) ;
  35.           }
  36.  
  37.      hwnd = CreateWindow (szAppName, "Typing Program",
  38.                           WS_OVERLAPPEDWINDOW,
  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.      while (GetMessage (&msg, NULL, 0, 0))
  47.           {
  48.           TranslateMessage (&msg) ;
  49.           DispatchMessage (&msg) ;
  50.           }
  51.      return msg.wParam ;
  52.      }
  53.  
  54. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  55.      {
  56.      static char *pBuffer = NULL ;
  57.      static int  cxChar, cyChar, cxClient, cyClient, cxBuffer, cyBuffer,
  58.                  xCaret, yCaret ;
  59.      HDC         hdc ;
  60.      int         x, y, i ;
  61.      PAINTSTRUCT ps ;
  62.      TEXTMETRIC  tm ;
  63.  
  64.      switch (message)
  65.           {
  66.           case WM_CREATE:
  67.                hdc = GetDC (hwnd) ;
  68.  
  69.                SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)) ;
  70.                GetTextMetrics (hdc, &tm) ;
  71.                cxChar = tm.tmAveCharWidth ;
  72.                cyChar = tm.tmHeight ;
  73.  
  74.                ReleaseDC (hwnd, hdc) ;
  75.                return 0 ;
  76.  
  77.           case WM_SIZE:
  78.                                    // obtain window size in pixels
  79.  
  80.                cxClient = LOWORD (lParam) ;
  81.                cyClient = HIWORD (lParam) ;
  82.  
  83.                                    // calculate window size in characters
  84.  
  85.                cxBuffer = max (1, cxClient / cxChar) ;
  86.                cyBuffer = max (1, cyClient / cyChar) ;
  87.  
  88.                                    // allocate memory for buffer and clear it
  89.  
  90.                if (pBuffer != NULL)
  91.                     free (pBuffer) ;
  92.  
  93.                if ((LONG) cxBuffer * cyBuffer > 65535L ||
  94.                          (pBuffer = malloc (cxBuffer * cyBuffer)) == NULL)
  95.  
  96.                     MessageBox (hwnd, "Window too large.  Cannot "
  97.                                       "allocate enough memory.", "Type",
  98.                                 MB_ICONEXCLAMATION | MB_OK) ;
  99.  
  100.                else
  101.                     for (y = 0 ; y < cyBuffer ; y++)
  102.                          for (x = 0 ; x < cxBuffer ; x++)
  103.                               BUFFER(x,y) = ' ' ;
  104.  
  105.                                    // set caret to upper left corner
  106.                xCaret = 0 ;
  107.                yCaret = 0 ;
  108.  
  109.                if (hwnd == GetFocus ())
  110.                     SetCaretPos (xCaret * cxChar, yCaret * cyChar) ;
  111.  
  112.                return 0 ;
  113.  
  114.           case WM_SETFOCUS:
  115.                                    // create and show the caret
  116.  
  117.                CreateCaret (hwnd, NULL, cxChar, cyChar) ;
  118.                SetCaretPos (xCaret * cxChar, yCaret * cyChar) ;
  119.                ShowCaret (hwnd) ;
  120.                return 0 ;
  121.  
  122.           case WM_KILLFOCUS:
  123.                                    // hide and destroy the caret
  124.                HideCaret (hwnd) ;
  125.                DestroyCaret () ;
  126.                return 0 ;
  127.  
  128.           case WM_KEYDOWN:
  129.                switch (wParam)
  130.                     {
  131.                     case VK_HOME:
  132.                          xCaret = 0 ;
  133.                          break ;
  134.  
  135.                     case VK_END:
  136.                          xCaret = cxBuffer - 1 ;
  137.                          break ;
  138.  
  139.                     case VK_PRIOR:
  140.                          yCaret = 0 ;
  141.                          break ;
  142.  
  143.                     case VK_NEXT:
  144.                          yCaret = cyBuffer - 1 ;
  145.                          break ;
  146.  
  147.                     case VK_LEFT:
  148.                          xCaret = max (xCaret - 1, 0) ;
  149.                          break ;
  150.  
  151.                     case VK_RIGHT:
  152.                          xCaret = min (xCaret + 1, cxBuffer - 1) ;
  153.                          break ;
  154.  
  155.                     case VK_UP:
  156.                          yCaret = max (yCaret - 1, 0) ;
  157.                          break ;
  158.  
  159.                     case VK_DOWN:
  160.                          yCaret = min (yCaret + 1, cyBuffer - 1) ;
  161.                          break ;
  162.  
  163.                     case VK_DELETE:
  164.                          for (x = xCaret ; x < cxBuffer - 1 ; x++)
  165.                               BUFFER (x, yCaret) = BUFFER (x + 1, yCaret) ;
  166.  
  167.                          BUFFER (cxBuffer - 1, yCaret) = ' ' ;
  168.  
  169.                          HideCaret (hwnd) ;
  170.                          hdc = GetDC (hwnd) ;
  171.  
  172.                          SelectObject (hdc,
  173.                               GetStockObject (SYSTEM_FIXED_FONT)) ;
  174.  
  175.                          TextOut (hdc, xCaret * cxChar, yCaret * cyChar,
  176.                                   & BUFFER (xCaret, yCaret),
  177.                                   cxBuffer - xCaret) ;
  178.  
  179.                          ShowCaret (hwnd) ;
  180.                          ReleaseDC (hwnd, hdc) ;
  181.                          break ;
  182.                     }
  183.  
  184.                SetCaretPos (xCaret * cxChar, yCaret * cyChar) ;
  185.                return 0 ;
  186.  
  187.           case WM_CHAR:
  188.                for (i = 0 ; i < LOWORD (lParam) ; i++)
  189.                     {
  190.                     switch (wParam)
  191.                          {
  192.                          case '\b' :                    // backspace
  193.                               if (xCaret > 0)
  194.                                    {
  195.                                    xCaret-- ;
  196.                                    SendMessage (hwnd, WM_KEYDOWN,
  197.                                                 VK_DELETE, 1L) ;
  198.                                    }
  199.                               break ;
  200.  
  201.                          case '\t' :                    // tab
  202.                               do
  203.                                    {
  204.                                    SendMessage (hwnd, WM_CHAR, ' ', 1L) ;
  205.                                    }
  206.                               while (xCaret % 8 != 0) ;
  207.                               break ;
  208.  
  209.                          case '\n' :                    // line feed
  210.                               if (++yCaret == cyBuffer)
  211.                                    yCaret = 0 ;
  212.                               break ;
  213.  
  214.                          case '\r' :                    // carriage return
  215.                               xCaret = 0 ;
  216.  
  217.                               if (++yCaret == cyBuffer)
  218.                                    yCaret = 0 ;
  219.                               break ;
  220.  
  221.                          case '\x1B' :                  // escape
  222.                               for (y = 0 ; y < cyBuffer ; y++)
  223.                                    for (x = 0 ; x < cxBuffer ; x++)
  224.                                         BUFFER (x, y) = ' ' ;
  225.  
  226.                               xCaret = 0 ;
  227.                               yCaret = 0 ;
  228.  
  229.                               InvalidateRect (hwnd, NULL, FALSE) ;
  230.                               break ;
  231.  
  232.                          default:                       // character codes
  233.                               BUFFER (xCaret, yCaret) = (char) wParam ;
  234.  
  235.                               HideCaret (hwnd) ;
  236.                               hdc = GetDC (hwnd) ;
  237.  
  238.                               SelectObject (hdc,
  239.                                    GetStockObject (SYSTEM_FIXED_FONT)) ;
  240.  
  241.                               TextOut (hdc, xCaret * cxChar, yCaret * cyChar,
  242.                                        & BUFFER (xCaret, yCaret), 1) ;
  243.  
  244.                               ShowCaret (hwnd) ;
  245.                               ReleaseDC (hwnd, hdc) ;
  246.  
  247.                               if (++xCaret == cxBuffer)
  248.                                    {
  249.                                    xCaret = 0 ;
  250.  
  251.                                    if (++yCaret == cyBuffer)
  252.                                         yCaret = 0 ;
  253.                                    }
  254.                               break ;
  255.                          }
  256.                     }
  257.  
  258.                SetCaretPos (xCaret * cxChar, yCaret * cyChar) ;
  259.                return 0 ;
  260.  
  261.           case WM_PAINT:
  262.                hdc = BeginPaint (hwnd, &ps) ;
  263.                SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)) ;
  264.  
  265.                for (y = 0 ; y < cyBuffer ; y++)
  266.                     TextOut (hdc, 0, y * cyChar, & BUFFER(0,y), cxBuffer) ;
  267.  
  268.                EndPaint (hwnd, &ps) ;
  269.                return 0 ;
  270.  
  271.           case WM_DESTROY:
  272.                PostQuitMessage (0) ;
  273.                return 0 ;
  274.           }
  275.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  276.      }
  277.