#include <windows.h>
#include <cstdio>

#include <commctrl.h> //for subclassing
// linked libcomctl32.a in the project options

using namespace std;

// for subclass 
DWORD dwRefData;
UINT uIdSubclass;
UINT uMsg;
LRESULT CALLBACK EditControlProc (HWND, UINT, WPARAM, LPARAM, UINT, DWORD);
LRESULT WINAPI DefSubclassProc(HWND,UINT,WPARAM,LPARAM);
typedef LRESULT (CALLBACK *SUBCLASSPROC)( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData);
BOOL SetWindowSubclass( HWND hwnd, SUBCLASSPROC pfnSubclass, UINT_PTR uIdSubclass, DWORD_PTR dwRefData );


/*  Declare Windows procedure  */
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);

/*  Make the class name into a global variable  */
char szClassName[ ] = "WindowsApp";

int WINAPI WinMain (HINSTANCE hThisInstance,
                    HINSTANCE hPrevInstance,
                    LPSTR lpszArgument,
                    int nFunsterStil)

{
    HWND hwnd;               /* This is the handle for our window */
    MSG messages;            /* Here messages to the application are saved */
    WNDCLASSEX wincl;        /* Data structure for the windowclass */

    /* The Window structure */
    wincl.hInstance = hThisInstance;
    wincl.lpszClassName = szClassName;
    wincl.lpfnWndProc = WindowProcedure;      /* This function is called by windows */
    wincl.style = CS_DBLCLKS;                 /* Catch double-clicks */
    wincl.cbSize = sizeof (WNDCLASSEX);
    /* Use default icon and mouse-pointer */
    wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
    wincl.lpszMenuName = NULL;                 /* No menu */
    wincl.cbClsExtra = 0;                      /* No extra bytes after the window class */
    wincl.cbWndExtra = 0;                      /* structure or the window instance */
    /* Use Windows's default color as the background of the window */
    wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND;

    /* Register the window class, and if it fails quit the program */
    if (!RegisterClassEx (&wincl))
        return 0;

    /* The class is registered, let's create the program*/
    hwnd = CreateWindowEx (
           0,                   /* Extended possibilites for variation */
           szClassName,         /* Classname */
           "Subclass Example",       /* Title Text */
           WS_OVERLAPPEDWINDOW,
           CW_USEDEFAULT,       /* Windows decides the position */
           CW_USEDEFAULT,       /* where the window ends up on the screen */
           319,                 /* The programs width */
           120,                 /* and height in pixels */
           HWND_DESKTOP,        /* The window is a child-window to desktop */
           NULL,                /* No menu */
           hThisInstance,       /* Program Instance handler */
           NULL                 /* No Window Creation data */
           );

    /* Make the window visible on the screen */
    ShowWindow (hwnd, nFunsterStil);

    /* Run the message loop. It will run until GetMessage() returns 0 */
    while (GetMessage (&messages, NULL, 0, 0))
    {
        /* Translate virtual-key messages into character messages */
        TranslateMessage(&messages);
        /* Send message to WindowProcedure */
        DispatchMessage(&messages);
    }

    /* The program return-value is 0 - The value that PostQuitMessage() gave */
    return messages.wParam;
}


/*  This function is called by the Windows function DispatchMessage()  */

LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
        
        HDC      hdc;
        
    switch (message)                  /* handle the messages */
    {
        case WM_DESTROY:
            PostQuitMessage (0);       /* send a WM_QUIT to the message queue */

        case WM_COMMAND:

            break;
        default:                      /* for messages that we don't deal with */
            return DefWindowProc (hwnd, message, wParam, lParam);
            
        case WM_CREATE:

    SetWindowSubclass(hwnd,EditControlProc,uIdSubclass,dwRefData);

    CreateWindow ( TEXT("edit"), NULL,
             WS_CHILD | WS_VISIBLE |
             ES_AUTOHSCROLL | ES_AUTOVSCROLL,
             5,5,300,18, hwnd, (HMENU) 0,
             ((LPCREATESTRUCT) lParam)->hInstance, //instance handle
             NULL) ;


             return 0 ;

    }
        
        
//----------------------BEGIN Subclass to capture tabs and enter for setfocus---------------------
EditControlProc ( hwnd, uMsg, wParam, lParam, uIdSubclass, dwRefData);
{
    switch (uMsg)
    {
    case WM_CHAR:
         switch (wParam){
                    case 0x09:
                         MessageBox(hwnd,"That was the tab key!", "tab key", MB_OK );
                         //process the tab key
                         break;
        return TRUE;
    } 
    return DefSubclassProc(hwnd, uMsg, wParam, lParam);
}
//----------------------END Subclass to capture tabs and enter for setfocus---------------------


                       

    return 0;
}
} // I have to add an extra } to make this compile