/*
  Copyright 1996-2000
  Simon Whiteside, All Rights Reserved

  THIS CODE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
  KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
  IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
  PURPOSE.

  Demo_View_Win32.cpp

  This file implements the class View for the Windows platform

  $Id: Demo_View_Win32.cpp,v 1.1 2007/09/19 14:56:59 sdw Exp $
*/
#ifdef WIN32
#include <windows.h>

#include "Demo_View.h"

extern HINSTANCE g_ModuleHandle;
extern HWND	g_MainWindow;

LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam);

//-----------------------------------------------------------------
View::View(ViewCallback& callback,skString title,int x,int y,int width,int height)
//-----------------------------------------------------------------
: m_Callback(callback),m_Handle(0)
{
	WNDCLASS wc;
    wc.style = CS_BYTEALIGNWINDOW;
    wc.lpfnWndProc = WndProc ;
    wc.cbClsExtra = 0 ;
    wc.cbWndExtra = 0;
    wc.hInstance = g_ModuleHandle;
	wc.hIcon = LoadIcon (0, IDI_APPLICATION) ;
    wc.hCursor = LoadCursor (0, IDC_ARROW) ;
	wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1); 
    wc.lpszMenuName = 0;
    wc.lpszClassName = "View";
    ::RegisterClass (&wc);
	m_Handle=::CreateWindow("View",title,WS_OVERLAPPED|WS_CAPTION|WS_VISIBLE,x,y,width,height,0,0,g_ModuleHandle,0);
	if (m_Handle)
		::SetWindowLong((HWND)m_Handle,GWL_USERDATA,(long)this);
	else{
		DWORD err=GetLastError();
		int x;
		x++;
	}
}
//-----------------------------------------------------------------
View::~View()
//-----------------------------------------------------------------
{
	::DestroyWindow((HWND)m_Handle);
}
//-----------------------------------------------------------------
void View::Close()
//-----------------------------------------------------------------
{
	::PostThreadMessage(::GetCurrentThreadId(),WM_QUIT,0,0);
}
//-----------------------------------------------------------------
void View::Run(skString command)
//-----------------------------------------------------------------
{
	::WinExec(command,TRUE);
}
//-----------------------------------------------------------------
skString View::GetText(int id) const
//-----------------------------------------------------------------
{
	char buffer[256];
	::GetDlgItemText((HWND)m_Handle,id,buffer,256);
	return skString(buffer);
}
//-----------------------------------------------------------------
void View::SetFocus(int id)
//-----------------------------------------------------------------
{
	HWND hChild=::GetDlgItem((HWND)m_Handle,id);
	if (hChild)
		::SetFocus(hChild);
}
//-----------------------------------------------------------------
void View::User(skString msg)
//-----------------------------------------------------------------
{
	::MessageBox((HWND)m_Handle,(const char *)msg,"",MB_OK);
}
//-----------------------------------------------------------------
void View::AddControl(skString type,int id,skString text,int x,int y,int width,int height)
//-----------------------------------------------------------------
{
	skString className;
	DWORD dwStyle=WS_CHILD|WS_VISIBLE;
	if (type=="Static"){
		className="STATIC";
		dwStyle|=SS_LEFT|WS_GROUP;
	}else
	if (type=="Edit"){
		className="EDIT";
		dwStyle|=ES_LEFT|WS_BORDER|WS_TABSTOP;
	}else
	if (type=="Button"){
		className="BUTTON";
		dwStyle|=BS_PUSHBUTTON|WS_TABSTOP;
	}
	HWND hwndChild=::CreateWindow(className,text,dwStyle,x,y,width,height,(HWND)m_Handle,(HMENU)id,g_ModuleHandle,0);
}
//-----------------------------------------------------------------
LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam)
//-----------------------------------------------------------------
{
	LRESULT r=0;
	switch(msg){
	case WM_ACTIVATE:
		if (LOWORD(wParam))
			g_MainWindow=hwnd;
		break;
	case WM_COMMAND:{
		WORD wID = LOWORD(wParam);
		HWND hwndCtl = (HWND) lParam;
		char className[256];
		::GetClassName(hwndCtl,className,256);
		if (!strcmp(className,"Button")){
			View * view=(View *)::GetWindowLong(hwnd,GWL_USERDATA);
			if (view)
				view->m_Callback.ButtonPressed(wID);
		}
		break;
	}
	case WM_CLOSE:{
		View * view=(View *)::GetWindowLong(hwnd,GWL_USERDATA);
		if (view)
			view->Close();
		break;
	}
	default:
		r=::DefWindowProc(hwnd,msg,wParam,lParam);
	}
	return r;
}

#endif