/* Przykladowy program pod Windows, Win32 API -> kompiluje sie pod BCW, VC, DevC++ (mingw32) ... */
/* A. P. */

#include <windows.h>

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

HWND hwnd=NULL;               /* This is the handle for our window */
HINSTANCE instancja;
HWND Przycisk1, Przycisk2, Edycja;  /* HWND jest wskaznikiem !*/

/* komunikaty wewnetrzne */
#define IDM_PRZYCISK1 101
#define IDM_PRZYCISK2 102
#define IDM_EDYCJA 103

/* Make the class name into a global variable */
char szClassName[ ] = "WinApp";
int WINAPI WinMain(HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nFunsterStil)

{
    MSG messages;            /* Here messages to the application are saved */
    WNDCLASSEX wincl;        /* Data structure for the windowclass */
    instancja = hThisInstance;
    /* 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 light-gray as the background of the window */
    wincl.hbrBackground = (HBRUSH) GetStockObject(LTGRAY_BRUSH);
	
    /* Register the window class, if fail 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 */
		"Aplikacja Win16/32",         /* Title Text */
		WS_OVERLAPPEDWINDOW, /* default window */
		CW_USEDEFAULT,       /* Windows decides the position */
		CW_USEDEFAULT,       /* where the window ends up on the screen */
		400,                 /* The programs width */
		300,                 /* 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)
{
    switch (message)                  /* handle the messages */
    {
	case WM_CREATE:
		
		Przycisk1 = CreateWindow("BUTTON",	/* rodzaj elementu */
			"Przycisk 1" ,					/* jego napis */
			WS_CHILD | WS_VISIBLE ,			/* jest oknem dzieckiem ; musi byc widzialny */
			20,20,			 /* polozenie poczatkowe */
			100, 37,		 /* szerokosc i wysokosc */
			hwnd,			 /* okno rodzic */
			(HMENU)IDM_PRZYCISK1,			 /* podpiecie komunikatu zwiazanego z oknem */
			instancja,
			0 );

		Przycisk2 = CreateWindow("BUTTON", "Przycisk 2" ,WS_CHILD | WS_VISIBLE ,
			20,80, 100, 37,hwnd,(HMENU)IDM_PRZYCISK2,instancja, 0 );

		Edycja = CreateWindow("EDIT", "Wpisz tekst" ,WS_CHILD | WS_VISIBLE |WS_BORDER |ES_MULTILINE,
			140,20, 100, 100,hwnd,(HMENU)IDM_EDYCJA,instancja, 0 );
		
		break;
		
	case WM_DESTROY:
		PostQuitMessage(0);        /* send a WM_QUIT to the message queue */
		break;
		
	case WM_COMMAND:
		{
			switch(LOWORD(wParam))
			{
			case IDM_PRZYCISK1:
				MessageBox(0,"Wcisnales mnie !", "Tytul okienka",0);
				break;
				
			case IDM_PRZYCISK2:
				MessageBox(0,"Wcisnales przycisk 2 - tekst w okienku edycyjnym zostanie skasowany ! !", "Tytul okienka",0);
				SetWindowText(Edycja,"skasowany!");
				break;
			case IDM_EDYCJA:
				/* w przypadku zmiany zawartosci pola edycyjnego wywolywany jest ten komunikat w celu np. uaktualnienia zmiennej */
				break;
			}
		}
	default:                   /* for messages that we don't deal with */
		return DefWindowProc(hwnd, message, wParam, lParam);
    }
    return 0;
}