// <^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^ 
// * Shawn McBroom                                  * 
// * Gor435@gdnmail.net                             *  
// * 1/24/2005                                      * 
// <^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^>|<^ 
#define WIN32_LEAN_AND_MEAN
#define ID_FILE_EXIT 0
#define ID_FILE_NEW 1
#define ID_HELP_ABOUT 1000
#define PD_ICON "Battle Paddles.ico"

#include <windows.h> // include our windows header of course 
#include <assert.h>

const char wndclass[] = "The Window Class";// declair our window class name 
const char wndname[]= "Battle Paddles"; // The title text for our window 

// prototype our windows procedure funtion which handles messages 
LRESULT CALLBACK WndProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);

int WINAPI WinMain(HINSTANCE wndins, HINSTANCE windpins, LPSTR lpCmdLine, int nCmdShow)
{
    WNDCLASSEX wc;// wc will be our WNDCLASSEX structure object 
    HWND hWnd; //window 
    MSG msg; // messages 
    
    wc.cbSize = sizeof (WNDCLASSEX);
    wc.style = 0;
    wc.lpfnWndProc = WndProc;
    wc.cbClsExtra = 0;
    wc.cbWndExtra = 0;
    wc.hInstance = wndins;
    wc.hIcon = LoadIcon(NULL, PD_ICON);
    wc.hIconSm =(HICON) LoadImage(NULL, "Battle Paddles.ico", IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR | LR_LOADFROMFILE);
    wc.hCursor = LoadCursor(NULL, IDC_HAND);
    wc.lpszMenuName = NULL;
    wc.lpszClassName = wndclass;
    wc.hbrBackground = (HBRUSH)(2);
    
    
    if(!RegisterClassEx(&wc)) // if the window didnt register right you want to display a 
                              // message box that explains with ok button when clicked close 
                              // the program 
    {
       MessageBox(NULL, "Window Registration Failed!", " UH OH ", MB_ICONEXCLAMATION | MB_OK);
       return 0;
    }
    
    hWnd = CreateWindowEx( WS_EX_CLIENTEDGE, wndclass, wndname, WS_OVERLAPPEDWINDOW, // make hWnd equal too CreateWindowEx funtion
    CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, wndins, NULL);
    
    if(hWnd == NULL) // if the window was not properly created post message and quit 
    {
        MessageBox(NULL, "Failed to create window", " UH OH ", MB_ICONEXCLAMATION | MB_OK);
        return 0;
    }
    
    ShowWindow(hWnd, nCmdShow);// we have to show the window to the screen so you can see it
    UpdateWindow(hWnd);// update the window 
    
        while(GetMessage(&msg, NULL, 0, 0) > 0)//message loop 
        {
            TranslateMessage(&msg);
            DispatchMessage(&msg);
        }
        
     return msg.wParam;
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)// windows procedure funtion
{
    switch(msg)
    {
        case WM_CREATE: // when the window is created do this 
          {
             HMENU hMenu, hSubMenu, hsubmenu;
                             
             hMenu = CreateMenu();
                              
             hSubMenu = CreatePopupMenu();
             hsubmenu = CreatePopupMenu();
                          
             AppendMenu(hSubMenu, MF_STRING, ID_FILE_NEW, "&New");
             AppendMenu(hSubMenu, MF_STRING, ID_FILE_EXIT, "E&xit");
             AppendMenu(hMenu, MF_STRING | MF_POPUP, (UINT)hSubMenu,"&File");
             
             AppendMenu(hsubmenu, MF_STRING, ID_HELP_ABOUT, "&About");
             AppendMenu(hMenu, MF_STRING | MF_POPUP, (UINT)hsubmenu,"&Help");
                
             SetMenu(hWnd, hMenu);
               
           }
                break;
         case WM_COMMAND:// when something on one of the menus are selected 
           {     
               switch(LOWORD(wParam))// we need to figure out which menu option was selected 
                 {
                    case ID_FILE_EXIT:// if the exit option was chosen 
                      {  
                    PostQuitMessage(WM_QUIT);// quit the program 
                    break;
                      }
                    case ID_FILE_NEW:// if the new option was chosen 
                        {
                            
                            break;
                        }
                    case ID_HELP_ABOUT://if help option was chosen 
                        {
                            MessageBox(NULL, "          Spark Software\n\n          Shawn McBroom\n\nE-mail me at gor435@gdnmail.net          ", "About", MB_ICONASTERISK | MB_OK);
                            break;
                        }                       
                 }
               break;
            }      
            
        case WM_CLOSE://if user chooses to close the window 
            {
                DestroyWindow(hWnd);//get rid of the window 
                break;
            }            
        case WM_DESTROY:// when you get rid of the window you need to stop the program 
            {
                PostQuitMessage(0);//quit the program 
                break;
            }
        case WM_COMPACTING:// this gets sent to all top level programs when the system is low on memory 
            {
                MessageBox(NULL, "Oh, your system is low on memery this program should close", "Low Memory", MB_ICONEXCLAMATION | MB_OK);
                return 0;
            }
        case WM_LBUTTONDOWN:
            {
                HBITMAP hbitmap;
                HDC hdc, bhdc;
                tagPAINTSTRUCT bm;
                tagBITMAPINFO bmi;
                
                
                hdc = GetWindowDC(hWnd);
                
                
                
                hbitmap = (HBITMAP)LoadImage(NULL, "background.bmp", IMAGE_BITMAP, 100, 100, LR_LOADFROMFILE | LR_DEFAULTCOLOR );
                
                if(hbitmap == NULL)
                {
                    MessageBox(NULL, "Bitmap load failed :(", "FAILURE", MB_ICONEXCLAMATION | MB_OK);
                }
                else
                {
                    MessageBox(NULL, "Bitmap load success :)", "SUCCESS!!", MB_ICONEXCLAMATION | MB_OK);
                    
                }
                //bhdc = GetDC((HWND)hbitmap);
                //bhdc = (HDC)SelectObject(GetDC((HWND)hbitmap), hbitmap);
                
                
                GetDIBits(bhdc, hbitmap, 1, 100, NULL, &bmi, DIB_PAL_COLORS);
                SetDIBitsToDevice(bhdc, 30, 30, 100, 100, 100, 100, 1, 100, NULL, &bmi, DIB_PAL_COLORS);
                
                //assert(bhdc != 0);
                
                BeginPaint(hWnd, &bm);
                
                BitBlt(hdc, 10, 10, 100, 100, bhdc, 0, 0, SRCCOPY);
                
                EndPaint(hWnd, &bm);
                
                UpdateWindow(hWnd);
                ReleaseDC(hWnd, hdc);
                break;        
            }       
            default:
                return DefWindowProc(hWnd, msg, wParam, lParam);//what to do if you get a message we are not looking for    
        } 
    return 0;   
}