home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / progwin / chap06 / poppad1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-12  |  3.0 KB  |  90 lines
  1. /*-------------------------------------------------------
  2.    POPPAD1.C -- Popup Editor using child window edit box
  3.                 (c) Charles Petzold, 1990
  4.   -------------------------------------------------------*/
  5.  
  6. #include <windows.h>
  7.  
  8. long FAR PASCAL WndProc (HWND, WORD, WORD, LONG);
  9.  
  10. char szAppName[] = "PopPad1" ;
  11.  
  12. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  13.                     LPSTR lpszCmdLine, int nCmdShow)
  14.      {
  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         = LoadIcon (NULL, IDI_APPLICATION) ;
  27.           wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  28.           wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
  29.           wndclass.lpszMenuName  = NULL ;
  30.           wndclass.lpszClassName = szAppName ;
  31.  
  32.           RegisterClass (&wndclass) ;
  33.           }
  34.  
  35.      hwnd = CreateWindow (szAppName, szAppName,
  36.                           WS_OVERLAPPEDWINDOW,
  37.                           CW_USEDEFAULT, CW_USEDEFAULT,
  38.                           GetSystemMetrics (SM_CXSCREEN) / 2,
  39.                           GetSystemMetrics (SM_CYSCREEN) / 2,
  40.                           NULL, NULL, hInstance, NULL) ;
  41.  
  42.      ShowWindow (hwnd, nCmdShow) ;
  43.      UpdateWindow (hwnd); 
  44.  
  45.      while (GetMessage (&msg, NULL, 0, 0))
  46.           {
  47.           TranslateMessage (&msg) ;
  48.           DispatchMessage (&msg) ;
  49.           }
  50.      return msg.wParam ;
  51.      }
  52.  
  53. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  54.      {
  55.      static HWND hwndEdit ;
  56.  
  57.      switch (message)
  58.           {
  59.           case WM_CREATE:
  60.                hwndEdit = CreateWindow ("edit", NULL,
  61.                          WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL |
  62.                               WS_BORDER | ES_LEFT | ES_MULTILINE |
  63.                               ES_AUTOHSCROLL | ES_AUTOVSCROLL,
  64.                          0, 0, 0, 0,
  65.                          hwnd, 1, 
  66.                          ((LPCREATESTRUCT) lParam) -> hInstance, NULL) ;
  67.                return 0 ;
  68.  
  69.           case WM_SETFOCUS:
  70.                SetFocus (hwndEdit) ;
  71.                return 0 ;
  72.  
  73.           case WM_SIZE: 
  74.                MoveWindow (hwndEdit, 0, 0, LOWORD (lParam),
  75.                                            HIWORD (lParam), TRUE) ;
  76.                return 0 ;
  77.  
  78.           case WM_COMMAND :
  79.                if (wParam == 1 && HIWORD (lParam) == EN_ERRSPACE)
  80.                     MessageBox (hwnd, "Edit control out of space.",
  81.                               szAppName, MB_OK | MB_ICONSTOP) ;
  82.                return 0 ;
  83.  
  84.           case WM_DESTROY :
  85.                PostQuitMessage (0) ;
  86.                return 0 ;
  87.           }
  88.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  89.      }
  90.