//****************************************************************************
// File: palfade.c
//
// Purpose:    This demonstrates how to use the AnimatePalette function to fade 
//             a bitmap to black. This sample also demonstrates how to utilize 
//             the DIBAPI32.DLL library that can be built by the WINCAP32 sample 
//             shipped with the Microsoft Win32 Software Development Kit. In order 
//             to perform palette animation, the sample will create a logical palette 
//             for a device-independent bitmap (DIB) with the PC_RESERVED flag set for
//             each palette entry. PALFADE will load, display, and animate both Windows
//             3.0 style and OS/2 style DIB's. 
//
//
// Functions:
//
//    WinMain()         - calls initialization function, processes message loop
//    InitApplication() - initializes window data and registers window
//    InitInstance()    - saves instance handle and creates main window
//    WndProc()         - processes messages
//    About()           - processes messages for "About" dialog box
//
// Development Team:
//         Greg Binkerd - Windows Developer Support
//
// Written by Microsoft Windows Developer Support
// Copyright (c) 1995 Microsoft Corporation. All rights reserved.
//****************************************************************************

#include <windows.h>     // required for all Windows applications
#include "resource.h"    // specific to this program
#include "palfade.h"    // specific to this program
#include "fade.h"    // specific to this program
#include "resource.h"    // specific to this program

HINSTANCE hInst;      // current instance 

char szAppName[] = "PalFade";  // The name of this application
char szTitle[]   = "Palette Animation Sample"; // The title bar text


/****************************************************************************

    FUNCTION: WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

    PURPOSE: calls initialization function, processes message loop

    COMMENTS:

        Windows recognizes this function by name as the initial entry point
        for the program.  This function calls the application initialization
        routine, if no other instance of the program is running, and always
        calls the instance initialization routine.  It then executes a message
        retrieval and dispatch loop that is the top-level control structure
        for the remainder of execution.  The loop is terminated when a WM_QUIT
        message is received, at which time this function exits the application
        instance by returning the value passed by PostQuitMessage().

        If this function must abort before entering the message loop, it
        returns the conventional value NULL.

****************************************************************************/
int APIENTRY WinMain(
    HINSTANCE hInstance,
    HINSTANCE hPrevInstance,
    LPSTR lpCmdLine,
    int nCmdShow)
{
    MSG msg;
    BOOL bDone = FALSE;

    if (!hPrevInstance)     // Other instances of app running?
        if (!InitApplication(hInstance))  // Initialize shared things
            return (FALSE);     // Exits if unable to initialize

    /* Perform initializations that apply to a specific instance */
    if (!InitInstance(hInstance, nCmdShow)) 
        return (FALSE);


    while (GetMessage(&msg, // message structure
           NULL,   // handle of window receiving the message
           0,      // lowest message to examine
           0))     // highest message to examine
            {
            TranslateMessage(&msg);// Translates virtual key codes
            DispatchMessage(&msg); // Dispatches message to window
            }
    
   lpCmdLine; // This will prevent 'unused formal parameter' warnings
    
    return (msg.wParam); // Returns the value from PostQuitMessage
}


/****************************************************************************

    FUNCTION: InitApplication(HINSTANCE)

    PURPOSE: Initializes window data and registers window class

    COMMENTS:

        This function is called at initialization time only if no other
        instances of the application are running.  This function performs
        initialization tasks that can be done once for any number of running
        instances.

        In this case, we initialize a window class by filling out a data
        structure of type WNDCLASS and calling the Windows RegisterClass()
        function.  Since all instances of this application use the same window
        class, we only need to do this when the first instance is initialized.


****************************************************************************/

BOOL InitApplication(HINSTANCE hInstance)
{
    WNDCLASS  wc;

    // Fill in window class structure with parameters that describe the
    // main window.

    ZeroMemory(&wc, sizeof(WNDCLASS));
    
    wc.style         = 0;           
    wc.lpfnWndProc   = (WNDPROC)WndProc;   // Window Procedure
    wc.hInstance     = hInstance;          // Owner of this class
    wc.hIcon         = LoadIcon (hInstance, szAppName); // Icon name from .RC
    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);// Cursor
    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);// Default color
    wc.lpszMenuName  = "PALFADEMENU";     // Menu name from .RC
    wc.lpszClassName = szAppName;          // Name to register as

    // Register the window class and return success/failure code.
    return (RegisterClass(&wc));
}


/****************************************************************************

    FUNCTION:  InitInstance(HINSTANCE, int)

    PURPOSE:  Saves instance handle and creates main window

    COMMENTS:

        This function is called at initialization time for every instance of
        this application.  This function performs initialization tasks that
        cannot be shared by multiple instances.

        In this case, we save the instance handle in a static variable and
        create and display the main program window.

****************************************************************************/

BOOL InitInstance(
    HINSTANCE      hInstance,
    int         nCmdShow)
{
    HWND hWnd;
    // Save the instance handle in static variable, which will be used in
    // many subsequence calls from this application to Windows.

    hInst = hInstance; // Store instance handle in our global variable

    // Create a main window for this application instance.

    hWnd = CreateWindow(
        szAppName,       // See RegisterClass() call.
        szTitle,         // Text for window title bar.
        WS_OVERLAPPEDWINDOW,// Window style.
        CW_USEDEFAULT, 0,
        CW_USEDEFAULT, 0, 
        NULL,        // Overlapped windows have no parent.
        NULL,        // Use the window class menu.
        hInstance,       // This instance owns this window.
        NULL         // We don't use any data in our WM_CREATE
    );

    // If window could not be created, return "failure"
    if (!hWnd) 
        return (FALSE);
    

    // Make the window visible; update its client area; and return "success"
    ShowWindow(hWnd, nCmdShow); // Show the window
    UpdateWindow(hWnd);     // Sends WM_PAINT message

    return (TRUE);          // We succeeded...

}                 

/****************************************************************************

    FUNCTION: WndProc(HWND, UINT, WPARAM, LPARAM)

    PURPOSE:  Processes messages

    MESSAGES:

    WM_COMMAND    - application menu (About dialog box)
    WM_DESTROY    - destroy window

    COMMENTS:

    To process the IDM_ABOUT message, call MakeProcInstance() to get the
    current instance address of the About() function.  Then call Dialog
    box which will create the box according to the information in your
    generic.rc file and turn control over to the About() function.  When
    it returns, free the intance address.

****************************************************************************/

LRESULT CALLBACK WndProc(
        HWND hWnd,         // window handle
        UINT message,      // type of message
        WPARAM uParam,     // additional information
        LPARAM lParam)     // additional information
{
    int wmId, wmEvent;

    switch (message) 
    {
    case WM_COMMAND:       /* message: command from application menu */
        wmId    = LOWORD(uParam);
        wmEvent = HIWORD(uParam);

        switch (wmId) 
           {
           case ID_FADE:
		      {
              FadeBitmap(hWnd);  // load and fade a bitmap
              break;
			  }

           case IDM_ABOUT:
              DialogBox(hInst,       // current instance
                "AboutBox",    // dlg resource to use
                hWnd,          // parent handle
                (DLGPROC)About);   // About() instance address
              break;
    	
           case IDM_EXIT:
              DestroyWindow (hWnd);
              break;

           default:
              return (DefWindowProc(hWnd, message, uParam, lParam));
           }
           break;

    case WM_DESTROY:  // message: window being destroyed
        PostQuitMessage(0);
        break;
    
    default:      // Passes it on if unproccessed
        return (DefWindowProc(hWnd, message, uParam, lParam));
    }
    return (0);
}


/****************************************************************************

    FUNCTION: About(HWND, UINT, WPARAM, LPARAM)

    PURPOSE:  Processes messages for "About" dialog box

    MESSAGES:

    WM_INITDIALOG - initialize dialog box
    WM_COMMAND    - Input received

    COMMENTS:

    Display version information from the version section of the
    application resource.

    Wait for user to click on "Ok" button, then close the dialog box.

****************************************************************************/

LRESULT CALLBACK About(
        HWND hDlg,       // window handle of the dialog box
        UINT message,    // type of message
        WPARAM uParam,       // message-specific information
        LPARAM lParam)
{

    switch (message) {
    case WM_INITDIALOG:  // message: initialize dialog box
        return (TRUE);

    case WM_COMMAND:              // message: received a command
        if ((LOWORD(uParam) == IDOK) || (LOWORD(uParam) == IDCANCEL)) { 
            EndDialog(hDlg, TRUE);    // Exit the dialog
            return (TRUE);
        }
        break;
    }
    
    UNREFERENCED_PARAMETER(lParam); // Prevent 'unused formal parameter' warnings

    return (FALSE); // Didn't process the message
}