#include <windows.h>
#include <winbase.h>
#include <tchar.h>
#include "resource.h"

#define NMAXTHREADS	8

char szAppName[]	= "w32-multithread";
char szAppClass[]	= "w32app";
char szTitle[]		= "Exemplu Multithread Win32";

int nClientWidth 	= 400;	// Defineste zona
int nClientHeight	= 300;	// de desenat
int idx;		// Index in tabloul de threaduri
int i;			// variabila de lucru

HBRUSH		hEraseBrush;
HPEN		hErasePen;
HINSTANCE	hInst;
HWND		hMainWnd;
HDC		hdc;
RECT		wndr;

long culori[NMAXTHREADS] = {	//0x00BBGGRR
		0x000000FF,	// Rosu
		0x00008080,	// Portocaliu
		0x00FFFF00,	// Galben
		0x0000FF00,	// Verde
		0x00FF0000,	// Albastru
		0x00808080,	// Gri
		0x00FF00FF,	// Mov
		0x00FF8000};	// Azuriu

typedef struct _ti {
  HANDLE hThread;
  DWORD  tid;
  HANDLE hDoneEvent;
  int    colorIdx;
}		TThreadInfo;
TThreadInfo	ThreadsTable[NMAXTHREADS];

// Functia de desenare in fereastra

void Deseneaza(int x, int y, HPEN hPen) {
  SelectObject(hdc, hPen);
  MoveToEx(hdc, x,y, NULL);
  LineTo(hdc, x+1, y+1);
}

// Functia de definire a activitatii unui thread

DWORD FunctieThread(void *) {
  int index = idx;	// salvat local
  int xc=200, yc=150,	// punct de pornire
  incX=index+1, incY=1;	// incremente pe cele doua directii
  HPEN hPen = CreatePen(PS_SOLID, 5, 
                culori[ThreadsTable[index].colorIdx]);
  while(1) {
    if(WaitForSingleObject(
         ThreadsTable[index].hDoneEvent, 2)==WAIT_OBJECT_0)
      break;
		// Deseneaza si oglindeste la margini
    Deseneaza(xc, yc, hPen);
    xc+=incX;
    if((xc < 0) || (xc > nClientWidth)) incX=-incX;
    yc+=incY;
    if((yc < 0) || (yc > nClientHeight)) incY=-incY;
  }
  DeleteObject(hPen);
  ExitThread(0);
  return 0;
}

// Functia fereastra

LRESULT CALLBACK WndProc(HWND hWnd, UINT uMsg, WPARAM wParam,
                                               LPARAM lParam) {
 LRESULT	lResult = TRUE;
 PAINTSTRUCT 	ps;
 HDC 		hc;

 switch(uMsg) {
   case WM_CREATE:
     hdc = GetDC (hWnd);
     hErasePen = CreatePen(PS_SOLID,1, 0x00000000);
     break;

   case WM_SIZE:
     GetClientRect(hWnd, &wndr);
     nClientWidth = wndr.right;
     nClientHeight= wndr.bottom;
     
   case WM_PAINT:
     hc = BeginPaint(hWnd, &ps);   
     EndPaint(hWnd, &ps);
     break;

   case WM_CLOSE:
     DestroyWindow(hWnd);	// Genereaza WM_DESTROY
     break;

   case WM_DESTROY:
     DeleteObject(hErasePen);
     ReleaseDC(hWnd, hdc);
     for(i=0; i<NMAXTHREADS; i++)
     if (ThreadsTable[i].hThread != NULL) {
       SetEvent(ThreadsTable[i].hDoneEvent);
       WaitForSingleObject(ThreadsTable[i].hThread, 50);
       ThreadsTable[i].hThread = NULL;
       CloseHandle(ThreadsTable[i].hDoneEvent);
     }
     PostQuitMessage(0);
     break;

   case WM_COMMAND:
     switch(LOWORD(wParam)) {
       case ID_NEW :
       // Creeaza un nou thread (si pune ID-ul threadului
       // in tabela de threaduri
         for(i=0; i<NMAXTHREADS; i++)
           if (ThreadsTable[i].hThread == NULL) {
             idx = i;
             ThreadsTable[i].colorIdx = i;
             ThreadsTable[i].hThread =
               CreateThread(NULL, 16384, 
                 (LPTHREAD_START_ROUTINE)FunctieThread, NULL,
                                     0, &ThreadsTable[i].tid);
             ThreadsTable[i].hDoneEvent = 
               CreateEvent(0, FALSE, FALSE, 0);
             break;
           }
         break;
       case ID_END :
       // Semnalizeaza primului thread valid sa se opreasca
         for(i=0; i<NMAXTHREADS; i++)
           if (ThreadsTable[i].hThread != NULL) {
             SetEvent(ThreadsTable[i].hDoneEvent);
             WaitForSingleObject(ThreadsTable[i].hThread, 50);
             ThreadsTable[i].hThread = NULL;
             CloseHandle(ThreadsTable[i].hDoneEvent);
             break;
           }
         break;
       case ID_CLEAR :
       // Sterge continutul ferestrei
	 SelectObject(hdc, hErasePen);
         SelectObject(hdc, hEraseBrush);
	 Rectangle(hdc,wndr.left,wndr.top,wndr.right,wndr.bottom);
         break;   
       case ID_QUIT:
         PostQuitMessage(0);
         break;
      } 
    default:
      lResult = DefWindowProc(hWnd, uMsg, wParam, lParam);
      break;
  }
  return (lResult);
}

// Inregistrarea clasei

BOOL InitApplication (HINSTANCE hInstance) {
  WNDCLASS wc;

  wc.style = CS_HREDRAW | CS_VREDRAW;
  wc.lpfnWndProc = (WNDPROC)WndProc;
  wc.cbClsExtra = 0;
  wc.cbWndExtra = 0;
  wc.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_ICON1));
  wc.hInstance = hInstance;
  wc.hCursor = NULL;
  wc.hbrBackground=hEraseBrush=(HBRUSH)GetStockObject(BLACK_BRUSH);
  wc.lpszMenuName = "MENIU";
  wc.lpszClassName = szAppName;

  return(RegisterClass(&wc));
}

// Realizarea unei instantieri

BOOL InitInstance(HINSTANCE hInstance, int CmdShow) {
  hMainWnd = CreateWindow(szAppName, szTitle, 
               WS_OVERLAPPED | WS_CAPTION | WS_MINIMIZEBOX |
               WS_MAXIMIZEBOX | WS_SYSMENU,
	       0, 0, CW_USEDEFAULT, CW_USEDEFAULT,
               NULL, NULL, hInstance, NULL);
  if (!hMainWnd) return(FALSE);
  hInst	= hInstance;
  ShowWindow(hMainWnd, CmdShow);
  UpdateWindow(hMainWnd);
  return(TRUE);
}

// Functia principala WinMain

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                                  LPSTR lpCmdLine, int CmdShow){
  MSG	msg;

  if (!hPrevInstance)
    if (!InitApplication(hInstance))
			return(FALSE);
  if (!InitInstance(hInstance, CmdShow))
			return (FALSE);
  while (GetMessage(&msg, NULL, 0, 0)) {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  }
  return(msg.wParam);
}