/********************************************************************\
*  generic.c: Source code for generic                                *
*                                                                    *
*  Comments: Generic Win32-based Application                         *
*                                                                    *
*  Functions:                                                        *
*     WinMain      - Application entry point                         *
*     MainWndProc  - main window procedure                           *
*     AboutDlgProc - dialog procedure for About dialog               *
*                                                                    *
*                                                                    *
\********************************************************************/

/*********************  Header Files  *********************/

#include <windows.h>
#include "generic.h"

/*********************  Prototypes  ***********************/

LRESULT WINAPI MainWndProc( HWND, UINT, WPARAM, LPARAM );
LRESULT WINAPI AboutDlgProc( HWND, UINT, WPARAM, LPARAM );

/*******************  Global Variables ********************/

HANDLE ghInstance;

/********************************************************************\
*  Function: int PASCAL WinMain(HINSTANCE, HINSTANCE, LPSTR, int)    *
*                                                                    *
*   Purpose: Initializes Application                                 *
*                                                                    *
*  Comments: Register window class, create and display the main      *
*            window, and enter message loop.                         *
*                                                                    *
*                                                                    *
\********************************************************************/

int PASCAL WinMain( HINSTANCE hInstance,
       HINSTANCE hPrevInstance,
       LPSTR lpszCmdLine,
       int nCmdShow )
{
       WNDCLASS wc;
       MSG msg;
       HWND hWnd;

       if(! hPrevInstance) {
               wc.lpszClassName = "GenericAppClass";
               wc.lpfnWndProc = MainWndProc;
               wc.style = CS_OWNDC | CS_VREDRAW | CS_HREDRAW;
               wc.hInstance = hInstance;
               wc.hIcon = LoadIcon( NULL, IDI_APPLICATION );
               wc.hCursor = LoadCursor( NULL, IDC_ARROW );
               wc.hbrBackground = (HBRUSH)( COLOR_WINDOW+1 );
               wc.lpszMenuName = "GenericAppMenu";
               wc.cbClsExtra = 0;
               wc.cbWndExtra = 0;

               RegisterClass( &wc );
       }

       ghInstance = hInstance;

       hWnd = CreateWindow("GenericAppClass",
               "Generic Application",
               WS_OVERLAPPEDWINDOW|WS_HSCROLL|WS_VSCROLL,
               0,
               0,
               CW_USEDEFAULT,
               CW_USEDEFAULT,
               NULL,
               NULL,
               hInstance,
               NULL
       );

       ShowWindow( hWnd, nCmdShow );

       while (GetMessage(&msg, NULL, 0, 0 )) {
               TranslateMessage(&msg);
               DispatchMessage(&msg);
       }

       return msg.wParam;
}


/********************************************************************\
* Function: LRESULT CALLBACK MainWndProc(HWND, UINT, WPARAM, LPARAM) *
*                                                                    *
*  Purpose: Processes Application Messages                           *
*                                                                    *
* Comments: The following messages are processed                     *
*                                                                    *
*           WM_PAINT                                                 *
*           WM_COMMAND                                               *
*           WM_DESTROY                                               *
*                                                                    *
*                                                                    *
\********************************************************************/

LRESULT CALLBACK MainWndProc( HWND hWnd, UINT msg, WPARAM wParam,
       LPARAM lParam )
{
       PAINTSTRUCT ps;
       HDC hDC;

       switch (msg) {

/**************************************************************\
*     WM_PAINT:                                                *
\**************************************************************/

               case WM_PAINT:
                       hDC = BeginPaint( hWnd, &ps );

                       TextOut( hDC, 10, 10, "Hello, World!", 13 );

                       EndPaint( hWnd, &ps );
                       break;

/**************************************************************\
*     WM_COMMAND:                                              *
\**************************************************************/

               case WM_COMMAND:
                       switch( wParam ) {
                               case IDM_ABOUT:
                                       DialogBox(ghInstance, "AboutDlg", hWnd, (DLGPROC)
                                               AboutDlgProc);
                                       break;
                               }
                               break;

/**************************************************************\
*     WM_DESTROY: PostQuitMessage() is called                  *
\**************************************************************/

               case WM_DESTROY:
                       PostQuitMessage( 0 );
                       break;

/**************************************************************\
*     Let the default window proc handle all other messages    *
\**************************************************************/

               default:
                       return( DefWindowProc(hWnd, msg, wParam, lParam));
       }

       return 0;
}


/********************************************************************\
* Function: LRESULT CALLBACK AboutDlgProc(HWND, UINT, WPARAM, LPARAM)*
*                                                                    *
*  Purpose: Processes "About" Dialog Box Messages                    *
*                                                                    *
* Comments: The About dialog box is displayed when the user clicks   *
*           About from the Help menu.                                *
*                                                                    *
\********************************************************************/

LRESULT CALLBACK AboutDlgProc( HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam )
{
       switch( uMsg ) {
               case WM_INITDIALOG:
                       return TRUE;
               case WM_COMMAND:
                       switch(wParam) {
                               case IDOK:
                                       EndDialog(hDlg, TRUE);
                                       return TRUE;
                               }
                       break;
       }

       return FALSE;
}

You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.