#include "myWin.h"
#define ED_MN  1000
WNDPROC winBtnProc;
int numArray, id=-1;
HFONT bFont, nFont;
TCHAR *btName[]={TEXT("東京"), TEXT("大阪"),TEXT("札幌"), TEXT("福岡")}; 
TCHAR *msgStr[]={
	TEXT("関東です。"),TEXT("近畿です。"),
	TEXT("北海道です。"),TEXT("九州です。")
};
static HWND hBtn[sizeof(btName)/sizeof(TCHAR *)];
static HWND edit;HBRUSH hBrush;
void setFont(HWND hw, HFONT font){
	SendMessage(hw, WM_SETFONT,(WPARAM)font,0);
}
void drawButton(HWND hw, int color, int bkColor, int i, HFONT font){
	setFont(hBtn[i],font);
	RECT rc; GetClientRect(hw, &rc); HDC hdc=GetDC(hw); 
	id=i; 
	SetBkColor(hdc, bkColor);
	SetTextColor(hdc, color);
	DrawText(hdc, btName[id], -1, &rc, DT_VCENTER|DT_SINGLELINE|DT_CENTER);
	ReleaseDC(hw,hdc);
}
void btnMouseMove(HWND hw, WPARAM wp, LPARAM lp){
	TRACKMOUSEEVENT tme={sizeof(TRACKMOUSEEVENT), TME_LEAVE, hw };
	TrackMouseEvent(&tme);
	drawButton(hw, 0xFF, 0xFFFF, GetWindowLong(hw,GWL_ID), bFont);
	SetWindowText(edit,msgStr[id]);
}
void btnMouseLeave(HWND hw, WPARAM wp, LPARAM lp){

	if(id>=0) SetWindowText(edit,TEXT(""));
	drawButton(hw, 0x00, GetSysColor(COLOR_BTNFACE), GetWindowLong(hw,GWL_ID),nFont);
	id=-1;
}
LRESULT CALLBACK BtnProc(HWND hw, UINT msg, WPARAM wp, LPARAM lp){
	switch(msg){
	case WM_DESTROY : PostQuitMessage(0)    ; return 0;
	case WM_MOUSEMOVE:  btnMouseMove(hw, wp, lp);return 0;
	case WM_MOUSELEAVE: btnMouseLeave(hw, wp, lp);return 0;
	}
	return winBtnProc(hw, msg, wp, lp);
}
void createButton(HWND hw){
	numArray=sizeof(sizeof(btName)/sizeof(TCHAR *));
	for(int i=0; i<numArray;i++){
		hBtn[i]=CreateWindow(TEXT("BUTTON"),btName[i],
	      WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON, 0,32*i, 100,30,hw, 
		(HMENU)i,hInstance, NULL);
		winBtnProc=(WNDPROC)SetWindowLong(hBtn[i],GWL_WNDPROC,(LONG)BtnProc);
	}
}
void createEdit(HWND hw, HWND *edit,HMENU hm, int x,int y,int w,int h){
	*edit=CreateWindow(TEXT("EDIT"),NULL, 
		WS_CHILD|WS_VISIBLE|ES_LEFT|WS_BORDER, x,y,w,h, hw,hm, hInstance,NULL);
}
void procCreate(HWND hw, WPARAM wp, LPARAM lp){
	createButton(hw);
	createEdit(hw,&edit, (HMENU)ED_MN,100,0, 100, 30);
	bFont=CreateFont(16,0,0,0, FW_BOLD, FALSE, FALSE,FALSE,	//見出し用フォント（標準）
		SHIFTJIS_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
		FIXED_PITCH|FF_MODERN,NULL);
    nFont=CreateFont(16,0,0,0, FW_NORMAL, FALSE, FALSE,FALSE,	//データ用フォント（標準）
		SHIFTJIS_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
		FIXED_PITCH|FF_MODERN,NULL);
	SendMessage(edit, WM_SETFONT,(WPARAM)bFont,0);
	MoveWindow(hw,0,0,250,200,TRUE);
}
BOOL editColor( WPARAM wp, LPARAM lp){
	int mn=GetWindowLong((HWND)lp, GWL_ID);
	if(mn==ED_MN){
		SetBkMode((HDC)wp, TRANSPARENT);
		SetTextColor((HDC)wp,0xFF0000);
		hBrush=CreateSolidBrush(0xFFFF);
		return(BOOL)hBrush;
	}
	return 0;
}
void procCommand(HWND hw, WPARAM wp, LPARAM lp){
	int ID=LOWORD(wp);
	if(ID>=0 && ID<numArray){
		TCHAR str[256];
		wsprintf(str,TEXT("%sは%s"), btName[ID], msgStr[ID]);
		MessageBox(hw,str,TEXT("選択ボタン"),MB_OK);
	}
}
LRESULT CALLBACK WndProc(HWND hw, UINT msg, WPARAM wp, LPARAM lp){
	switch(msg){
	case WM_DESTROY :		  DeleteObject(hBrush);
							  DeleteObject(bFont);
							  DeleteObject(nFont);
							  PostQuitMessage(0)    ; return 0;
	case WM_CREATE			: procCreate(hw, wp, lp); return 0;
	case WM_CTLCOLOREDIT	: return editColor(wp, lp);
	case WM_COMMAND			: procCommand( hw, wp,lp);return 0;
	}
	return DefWindowProc(hw, msg, wp, lp);
}