/*****************************************************************************
**  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner
**  This file is part of the g2 library
**
**  This library is free software; you can redistribute it and/or
**  modify it under the terms of the GNU Lesser General Public
**  License as published by the Free Software Foundation; either
**  version 2.1 of the License, or (at your option) any later version.
**
**  This library is distributed in the hope that it will be useful,
**  but WITHOUT ANY WARRANTY; without even the implied warranty of
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
**  Lesser General Public License for more details.
**
**  You should have received a copy of the GNU Lesser General Public
**  License along with this library; if not, write to the Free Software
**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
******************************************************************************/

#include <windows.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>

#include "g2_win32_P.h"

#include "resource.h"



int WINAPI About(HWND hDlg,UINT message, WPARAM wParam,LPARAM lParam)
{
	switch (message){
	case WM_INITDIALOG:
		return TRUE;

	case WM_COMMAND:
		if (wParam == IDOK)
			EndDialog(hDlg,wParam);
		break;
	}

	return FALSE;
}



LRESULT CALLBACK g2_WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
	PAINTSTRUCT ps;
	HDC hDC;
	RECT Rect;
	struct 	g2_win32_STRUCT *pdp;

	pdp = (struct g2_win32_STRUCT *)GetWindowLong(hWnd, GWL_USERDATA);
	switch (message) { 

		case WM_PAINT:
			if (pdp == NULL) break;
			if (pdp->hBitmap == NULL) break;

//			printf("Received WM_PAINT\n");

			hDC = BeginPaint (hWnd, &ps);
			GetClientRect(hWnd,&Rect);
			BitBlt( hDC, Rect.left, Rect.top, Rect.right - Rect.left, 
			Rect.bottom - Rect.top, pdp->hMemDC, 0, 0, SRCCOPY );
			EndPaint (hWnd, &ps);
			return 0L;

		case WM_DESTROY:

//			printf("Received WM_DESTROY\n");
			g2_win32_Cleanup(0,pdp);
			ExitThread(0);
			return 0L;
			
		case WM_COMMAND:
			switch(LOWORD(wParam)){
			
			case ID_FILE_COPY:
				if (OpenClipboard(hWnd))
                   {
                    HBITMAP     hBitmap;
                   
                    EmptyClipboard();

                    if (pdp->hBitmap)
                        {
                        if (hBitmap = CopyImage(pdp->hBitmap,IMAGE_BITMAP,
												0,0,LR_COPYRETURNORG));
                            SetClipboardData(CF_BITMAP, hBitmap);
                        }
					CloseClipboard();
                    }
            return 0L;

			case ID_FILE_ABOUT:
				if(DialogBox(g2res_DLL,"ABOUTBOX",hWnd,(DLGPROC)About) == -1)
					errhandler("Failed to create Dialogbox",NULL);
				return 0L;

			case ID_FILE_CLOS:
				g2_win32_Delete(0,pdp);
				return 0L;

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

		default:
			return (DefWindowProc(hWnd, message, wParam, lParam));
	}
/* we should never get here */
return -1;
}

long WINAPI g2_StartThread(struct g2_win32_STRUCT *pdp)
{
RECT	Rect;
HWND hWnd;
MSG msg;
HDC hDC;
HMENU hmenu;
DWORD style;
RECT frame;

hmenu = NULL;
if (g2res_DLL != NULL)
	{
	hmenu = LoadMenu(g2res_DLL,"G2WIN32");
	if (hmenu == NULL) errhandler("Load menu failed",NULL);
	}

style = WS_POPUPWINDOW |WS_OVERLAPPED | WS_CAPTION |  WS_MINIMIZEBOX;
frame.left = 0;
frame.top = 0;
frame.right = pdp->nWidth;
frame.bottom = pdp->nHeight - ((hmenu==NULL)?GetSystemMetrics(SM_CYMENU):0);

AdjustWindowRect(&frame,style,1);

/* Save the instance handle in static variable, which will be used in  */
/* many subsequence calls from this application to Windows.            */

  /* Create a main window for this application instance.  */
pdp->hinst = GetModuleHandle(NULL);

hWnd = CreateWindow(
	 "g2Window",           // See RegisterClass() call.
	 pdp->title,		 // Text for window title bar.
	 style,
	 pdp->x, pdp->y,
	 frame.right - frame.left,   // width
	 frame.bottom - frame.top,   // height
	 NULL,                  // Overlapped windows have no parent.
	 hmenu,                 // Use the window class menu.
	 0,                     // This instance owns this window.
	 NULL                   // Pointer not needed.
  );
 
  // If window could not be created, return "failure" 
 
if (!hWnd)
	 {
	 errhandler("CreateWindow",NULL);
	 return (FALSE);   // return failure :((
	 }

#define WIDTH(x)	(x.right-x.left+1)	// Macro to get rect width
#define HEIGHT(x)	(x.bottom-x.top+1)	// Macro to get rect height

// How big is the window?
GetClientRect( hWnd, &Rect );

// Need a DC
hDC = GetDC( hWnd );
SetBkColor(hDC,RGB(255,255,255));
// Create a bitmap big enough to hold the window's image
pdp->hBitmap = CreateCompatibleBitmap( hDC, WIDTH(Rect), HEIGHT(Rect) );
// printf("memdc size: %d %d\n",WIDTH(Rect),HEIGHT(Rect));
// Create MemDC
pdp->hMemDC = CreateCompatibleDC(hDC);
SelectObject( pdp->hMemDC, pdp->hBitmap );
// clean up
ReleaseDC( hWnd, hDC );
#undef WIDTH
#undef HEIGHT



SetWindowLong(hWnd, GWL_USERDATA, (long)pdp); 
 
 pdp->hwndThreadWindow = hWnd;
 // Make the window visible; update its client area; and return "success" 
 ShowWindow(hWnd, SW_SHOWDEFAULT); // Show the window
 UpdateWindow(hWnd);     // Sends WM_PAINT message
 //printf("pdp->messageloop ->= 1;\n");
 pdp->messageloop = 1;
 //printf("pdp->messageloop = 1;\n");
 
 while (GetMessage(&msg, NULL, 0, 0)) {
        TranslateMessage(&msg);
		DispatchMessage(&msg);
    }

 
 return (TRUE);        // Returns success  :)
}