//---------------------------------------------------------------------------
#include <vcl.h>
#include <IniFiles.hpp>
#pragma hdrstop

#include "HotKey_F.h"
#include "HotKey.h"
#include "Common.h"
#include "Define.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzTabs"
#pragma link "RzButton"
#pragma link "RzCmboBx"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_SHORTCUTS														HotKeyFormStringTable[0]
#define IDS_SET																	HotKeyFormStringTable[1]
#define IDS_MSG_NOT_ASSIGN_HOTKEY								HotKeyFormStringTable[2]
#define IDS_MSG_HOTKEY_ALREADY_SET							HotKeyFormStringTable[3]
#define IDS_MSG_FILE_NOT_EXIST									HotKeyFormStringTable[4]
#define IDS_MSG_ENTER_FILE_NAME									HotKeyFormStringTable[5]
#define IDS_MSG_HOTKEY_FILE_NAME								HotKeyFormStringTable[6]
#define IDS_MSG_CANNOT_SAVE_DEFAULT_FILE				HotKeyFormStringTable[7]
#define IDS_MSG_OVERWRITE_FILE      						HotKeyFormStringTable[8]
#define IDS_MSG_CANNOT_DELETE_DEFAULT_FILE 			HotKeyFormStringTable[9]
#define IDS_MSG_DELETE_FILENAME    							HotKeyFormStringTable[10]
#define IDS_MSG_NOT_FOUND_FILE  								HotKeyFormStringTable[11]
//---------------------------------------------------------------------------
THotKeyForm *HotKeyForm;
//---------------------------------------------------------------------------
__fastcall THotKeyForm::THotKeyForm(TComponent* Owner)
	: TForm(Owner)
{
	// TDW
	HotKeyFormStringTable.Create(DirectoryBin, Language, "HotKeyForm");
	HotKeyMenuStringTable.Create(DirectoryItem, Language, "HotKeyMenu");
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::FormCreate(TObject *Sender)
{
	String strHotKeyFileName, strHotKeyFileExt;

	// 리스트 초기화
	CurrentValueEditorList = new TList;

	// TDW
	Caption = IDS_SHORTCUTS;
	lbSelectHotKey->Caption = IDS_SET;
	spdbtnSaveHotKey->Hint = IDS_COMMON_SAVEAS;
	spdbtnDeleteHotKey->Hint = IDS_COMMON_DELETE;

	for (int i = 0; i < 3; i++){
		rztabctrlMenu->Tabs->Items[i]->Caption = HotKeyMenuStringTable[i];
	}
	for (int i = 0; i < 2; i++){
		rztabctrlTopMenu->Tabs->Items[i]->Caption = HotKeyMenuStringTable[i+3];
	}
	for (int i = 0; i < 10; i++){
		rztabctrlMainMenu->Tabs->Items[i]->Caption = HotKeyMenuStringTable[i+5];
	}

	// 폼 초기화
	InitForm();

	// 콤보박스 표시
	FindHotKeyFiles();
	strHotKeyFileName = ExtractFileName(TexActionManager->ActionFileName);
	strHotKeyFileExt = ExtractFileExt(strHotKeyFileName);
	strHotKeyFileName = strHotKeyFileName.SubString(1, strHotKeyFileName.Length()-strHotKeyFileExt.Length());
	combobxHotKeyFileList->ItemIndex = combobxHotKeyFileList->Items->IndexOf(strHotKeyFileName);
	// OnChange 이벤트를 강제 호출하여 새로 가져오도록 한다
	combobxHotKeyFileListChange(combobxHotKeyFileList);
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::InitForm()
{
	// 폼 초기화
	rztabctrlMenu->TabIndex = 0;
	rztabctrlTopMenu->Visible = true;
	rztabctrlMainMenu->Visible = false;
	rztabctrlTopMenu->BringToFront();
	rztabctrlTopMenu->TabIndex = 0;
	ChangeValueEditList("Main", false);
	vallstedHotKeyList->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::FormDestroy(TObject *Sender)
{
	// 포인터만 가지고 있는 리스트이므로 데이터는 삭제해주지 않아도 됨
	if (CurrentValueEditorList) {
		delete CurrentValueEditorList;
	}
	CurrentValueEditorList = NULL;
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::rztabctrlMenuChange(TObject *Sender)
{
	if (rztabctrlMenu->TabIndex == 0) {
		rztabctrlTopMenu->Visible = true;
		rztabctrlMainMenu->Visible = false;
		rztabctrlTopMenu->BringToFront();
		rztabctrlTopMenu->TabIndex = 0;
		ChangeValueEditList("Main", false);
		vallstedHotKeyList->Width = 384;
	} else if (rztabctrlMenu->TabIndex == 1) {
		rztabctrlTopMenu->Visible = false;
		rztabctrlMainMenu->Visible = true;
		rztabctrlMainMenu->BringToFront();
		rztabctrlMainMenu->TabIndex = 0;
		ChangeValueEditList("MainMenu", false);
		vallstedHotKeyList->Width = 348;
	} else {
		rztabctrlTopMenu->Visible = false;
		rztabctrlMainMenu->Visible = false;
		ChangeValueEditList("DisplayOnly", true);
		vallstedHotKeyList->Width = 384;
	}
	vallstedHotKeyList->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::rztabctrlTopMenuChange(TObject *Sender)
{
	switch (rztabctrlTopMenu->TabIndex) {
		case 0:
			ChangeValueEditList("Main", false);
			break;
		case 1:
			ChangeValueEditList("Normal", false);
			break;
	}
	vallstedHotKeyList->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::rztabctrlMainMenuChange(TObject *Sender)
{
	switch(rztabctrlMainMenu->TabIndex) {
		case 0:
			ChangeValueEditList("MainMenu", false);
			break;
		case 1:
			ChangeValueEditList("WorkArea", false);
			break;
		case 2:
			ChangeValueEditList("MoveCopy", false);
			break;
		case 3:
			ChangeValueEditList("ColorChange", false);
			break;
		case 4:
			ChangeValueEditList("Clear", false);
			break;
		case 5:
			ChangeValueEditList("ColorGrouping", false);
			break;
		case 6:
			ChangeValueEditList("ManualRepeat", false);
			break;
		case 7:
			ChangeValueEditList("AutoRepeat", false);
			break;
		case 8:
			ChangeValueEditList("Proportion", false);
			break;
		case 9:
			ChangeValueEditList("Vector", false);
			break;
//		case 8:
//			ChangeValueEditList("Draw", false);
//			break;
//		case 9:
//			ChangeValueEditList("Proportion", false);
//			break;
//		case 10:
//			ChangeValueEditList("Fill", false);
//			break;
//		case 11:
//			ChangeValueEditList("Vector", false);
//			break;
	}
	vallstedHotKeyList->BringToFront();
}
//---------------------------------------------------------------------------
/**
	@brief ShortCut을 입력받아 단축키로 등록한다
	현재 입력하려는 키가 이미 등록이 되어있다면 메시지를 출력한다
*/
void __fastcall THotKeyForm::FormShortCut(TWMKey &Msg, bool &Handled)
{
	TAction *CheckAction = NULL, *CurrentAction = NULL;
	String strState, strMsg;
	bool bAlt = false, bShift = false, bCtrl = false;
	int nCharCode = 0;
	unsigned short nShortCut = 0;
	int nCurrentIndex = -1;

	// 읽기 전용이 아닐 경우에만
	if (vallstedHotKeyList->Tag == 0) {
		// 특수키 입력 체크
		bAlt = GetAsyncKeyState(VK_MENU) < 0;
		bShift = GetAsyncKeyState(VK_SHIFT) < 0;
		bCtrl = GetAsyncKeyState(VK_CONTROL) < 0;
		nCharCode = Msg.CharCode;
		nShortCut = nCharCode;

		strState = "";

		// 화면 상에 표시하기 위한 조합
		if (bAlt) {
			nShortCut |= 0x8000;
			strState += "Alt + ";
		}
		if (bShift) {
			nShortCut |= 0x2000;
			strState += "Shift + ";
		}
		if (bCtrl) {
			nShortCut |= 0x4000;
			strState += "Ctrl + ";
		}

		if (TexActionManager->IsExcludedShortCut(nShortCut)) {
			// Message : 단축키로 지정할 수 없는 키 입니다.
			MessageDlg(IDS_MSG_NOT_ASSIGN_HOTKEY, mtConfirmation,
				TMsgDlgButtons() << mbOK, 0);
			return;
		}

		if (vallstedHotKeyList->Row <= CurrentValueEditorList->Count) {
			CurrentAction = (TAction *)CurrentValueEditorList->Items[vallstedHotKeyList->Row-1];
		}

		if (CurrentAction) {
			// 입력받은 키와 같은 키가 존재하는지 체크
			CheckAction = TexActionManager->FindAction(nShortCut);

			// 존재하는 키가 자기 자신이면 무시
			if (CheckAction && CurrentAction == CheckAction) return;

			// 입력 받은 키와 같은 키가 존재하는 경우
			if (CheckAction && CurrentAction != CheckAction) {
				// 입력받은 키와 같은 키가 존재하는 경우
				// Message : 단축키가 이미 존재합니다.
				/*
				MessageDlg(IDS_MSG_HOTKEY_ALREADY_SET + " [" + CheckAction->Hint + "]", mtConfirmation,
					TMsgDlgButtons() << mbOK, 0);
				*/
				// 추가 개발 요청 사항
				///*
				// 기존 단축키를 현재키로 대체한다
				// Message : 기존 [%s] 단축키 제거 후 지금 단축키를 적용하시겠습니까?
				strMsg = Format(IDS_MSG_HOTKEY_ALREADY_SET, OPENARRAY(TVarRec, (CheckAction->Hint)));
				if (MessageDlg(strMsg, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
					CheckAction->ShortCut = 0;	// 기존 단축키 초기화

					if ('A' <= nCharCode && nCharCode <= 'Z') {
						if (CurrentAction->Category != "Etc"
							&& CurrentAction->Category != "Textile"
							&& CurrentAction->Category != "System") {
							CurrentAction->ShortCut = nShortCut;	// 단축키 입력

							nCurrentIndex = vallstedHotKeyList->Row;	// 기존 위치 백업
							// 적용되면 기존 단축키는 단축키가 삭제되어야 하고,
							// 현재 단축키가 적용되어야 하므로 새로 불러온다
							ChangeValueEditList(CurrentAction->Category, false);
							vallstedHotKeyList->Row = nCurrentIndex;	// 기존 위치로 되돌림
						}
					}
				}
				//*/
				return;
			}
			else {
				// Alt, Shift, Ctrl, ESC 외에 영문 A~Z까지만 입력 받을 수 있다
				// 1~0은 각 메뉴에서 사용하고, F1~F12 및 기호 키들은 다른 부분에 영향을 줄 수 있기 때문이며
				// 영문만 입력 받아도 충분하다
				if ('A' <= nCharCode && nCharCode <= 'Z') {
					CurrentAction->ShortCut = nShortCut;

					strState += (wchar_t)nCharCode;
					vallstedHotKeyList->Cells[1][vallstedHotKeyList->Row] = strState;
				}
				else if (nCharCode == VK_ESCAPE) {	// ESC 처리
					CurrentAction->ShortCut = nCharCode;

					vallstedHotKeyList->Cells[1][vallstedHotKeyList->Row] = "ESC";
				}
				else if (nCharCode == VK_DELETE) {	// Delete 처리
					CurrentAction->ShortCut = 0;

					vallstedHotKeyList->Cells[1][vallstedHotKeyList->Row] = "";
				}
			}
		}
	}
}
//---------------------------------------------------------------------------
/**
	@brief Category가 변경되면 그 내용을 화면에 표시한다
	@param ACategory : 변경될 Category
*/
void __fastcall THotKeyForm::ChangeValueEditList(String strACategory, bool bReadOnly)
{
	TAction *Action = NULL;
	String strKeyState;
	int nCharCode;

	// 초기화
	CurrentValueEditorList->Clear();
	while (2 < vallstedHotKeyList->RowCount) {
		vallstedHotKeyList->DeleteRow(vallstedHotKeyList->RowCount-1);
	}
	vallstedHotKeyList->Cells[0][1] = "";
	vallstedHotKeyList->Cells[1][1] = "";

	// 화면 표시 부분
	if (bReadOnly == false) {
		TexActionManager->FindCategory(strACategory, CurrentValueEditorList);

		// ValueListEditor의 InsertRow는 리스트의 역순으로 해야한다
		for (int i = CurrentValueEditorList->Count - 1; 0 <= i; i--) {
			Action = (TAction*)CurrentValueEditorList->Items[i];
			strKeyState = "";

			if (Action->Category == strACategory) {
				strKeyState = TexActionManager->ShortCutToString(Action->ShortCut);

				vallstedHotKeyList->InsertRow(Action->Hint, strKeyState, false);
			}
		}
	}
	else {
		// 읽기 전용일 경우
		for (int i = TexActionManager->DisplayOnlyList->Count - 1; 0 <= i; i--) {
			Action = (TAction *)TexActionManager->DisplayOnlyList->Items[i];

			if (Action->Category == strACategory) {
				strKeyState = Action->Caption;

				vallstedHotKeyList->InsertRow(Action->Hint, strKeyState, false);
			}
		}
	}

	// 읽기 전용 관련 (편법)
	if (bReadOnly == false) vallstedHotKeyList->Tag = 0;
	else vallstedHotKeyList->Tag = 1;
}
//---------------------------------------------------------------------------
/**
	@brief 단축키 파일들을 검색하여 콤보박스에 표시한다
*/
void __fastcall THotKeyForm::FindHotKeyFiles()
{
	HANDLE hSrch = INVALID_HANDLE_VALUE;
	WIN32_FIND_DATA fd;
	BOOL bResult = TRUE;

	combobxHotKeyFileList->Clear();
	String strPath = DirectoryBin + "\\TexStylist\\HotKey\\*.hkf";
	String strFileName, strExt;
	hSrch=FindFirstFile(strPath.c_str(),&fd);

	if (hSrch != INVALID_HANDLE_VALUE){
		while(bResult){
			if (fd.dwFileAttributes &&
				!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)  &&
				!(fd.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM)     &&
				!(fd.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN)){
				//&& !(fd.dwFileAttributes & FILE_ATTRIBUTE_TEMPORARY)){

					strFileName = String(fd.cFileName);
					strExt = ExtractFileExt(strFileName);
					// 확장자 비교
					if (strExt.LowerCase() == ".hkf") {
						// 확장자를 제거한 파일명을 입력한다
						strFileName = strFileName.SubString(1, strFileName.Length()-strExt.Length());
						combobxHotKeyFileList->Items->Add(strFileName);
          }
			}
			bResult = FindNextFile(hSrch,&fd);
		}
	}
	FindClose(hSrch);
}
//---------------------------------------------------------------------------
/**
	@brief 콤보박스가 변경되면 해당 단축키 파일을 읽어 화면에 보여준다
*/
void __fastcall THotKeyForm::combobxHotKeyFileListChange(TObject *Sender)
{
	TIniFile *IniFile = NULL;
	String strHotKeyFileName, strTDWFileName, strSelectedFileName;

	strSelectedFileName = combobxHotKeyFileList->Items->Strings[combobxHotKeyFileList->ItemIndex];
	strHotKeyFileName = DirectoryBin + "\\TexStylist\\HotKey\\"+strSelectedFileName+".hkf";
	strTDWFileName = DirectoryBin + "\\TexStylist\\HotKey\\"+Language+".hdw";

	// 파일 존재시 읽기
	if (FileExists(strHotKeyFileName) && FileExists(strTDWFileName)) {
		TexActionManager->LoadFromFile(strHotKeyFileName, strTDWFileName);
		InitForm();	// 파일을 가져온 후 초기화한다

		// HotKey - monkman (2010.06.30)
		IniFile = new TIniFile(AppDataItem+"\\status.ini");
		if (IniFile) {
			IniFile->WriteString("HotKey", "File", strSelectedFileName);
			delete IniFile;
		}
	}
	else {
		// Message : 단축키 파일이 없습니다.
		MessageDlg(IDS_MSG_FILE_NOT_EXIST, mtError,
			TMsgDlgButtons() << mbOK, 0);
	}

	IniFile = NULL;
}
//---------------------------------------------------------------------------
void __fastcall THotKeyForm::spdbtnSaveHotKeyClick(TObject *Sender)
{
	String strInputFileName, strHotKeyFileName;
	int nExistIndex = -1;
	bool bSave = true;

	strInputFileName = combobxHotKeyFileList->Items->Strings[combobxHotKeyFileList->ItemIndex];

	// Cancel을 클릭하면 return한다
	if (InputQuery(IDS_MSG_ENTER_FILE_NAME, IDS_MSG_HOTKEY_FILE_NAME, strInputFileName) == false) return;

	// Deafult인지 체크
	if (strInputFileName.LowerCase() == "texstylist") {
			// Message : "texstylist" 파일명으로 저장할 수 없습니다.
			MessageDlg(IDS_MSG_CANNOT_SAVE_DEFAULT_FILE, mtWarning,
				TMsgDlgButtons() << mbOK, 0);
			return;
	}

	if (strInputFileName.IsEmpty() == false) {	// Cancel을 클릭하지 않았다면
		// 같은 파일이 존재한다면
		nExistIndex = combobxHotKeyFileList->Items->IndexOf(strInputFileName);

		strHotKeyFileName = DirectoryBin + "\\TexStylist\\HotKey\\"+strInputFileName+".hkf";

		if (0 <= nExistIndex || FileExists(strHotKeyFileName) == true) {
			// Message : 파일을 덮어 씌우겠습니까?
			if (MessageDlg(IDS_MSG_OVERWRITE_FILE, mtWarning,
				TMsgDlgButtons() << mbYes << mbNo, 0) == mrNo) bSave = false;
		}

		if (bSave) {
			TexActionManager->SaveToFile(strHotKeyFileName);
			FindHotKeyFiles();
			combobxHotKeyFileList->ItemIndex = combobxHotKeyFileList->Items->IndexOf(strInputFileName);
			// OnChange 이벤트를 강제 호출하여 새로 가져오도록 한다
			combobxHotKeyFileListChange(combobxHotKeyFileList);
		}
	}
}
//---------------------------------------------------------------------------
/**
	@brief 현재 선택된 단축키 파일을 삭제한다
*/
void __fastcall THotKeyForm::spdbtnDeleteHotKeyClick(TObject *Sender)
{
	String strSelectedFileName, strHotKeyFileName;

	strSelectedFileName = combobxHotKeyFileList->Items->Strings[combobxHotKeyFileList->ItemIndex];
	strHotKeyFileName = DirectoryBin + "\\TexStylist\\HotKey\\"+strSelectedFileName+".hkf";

	if (FileExists(strHotKeyFileName)) {
		if (strSelectedFileName.LowerCase() == "textile") {
			// Message : "Textile" 파일은 삭제할 수 없습니다.
			MessageDlg(IDS_MSG_CANNOT_DELETE_DEFAULT_FILE, mtWarning,
				TMsgDlgButtons() << mbOK, 0);
			return;
		}

		// Message : 선택한 파일을 삭제하시겠습니까?
		if (MessageDlg(IDS_MSG_DELETE_FILENAME, mtWarning,
				TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
					// 파일 삭제
					DeleteFile(strHotKeyFileName.c_str());
					// 콤보박스에서도 삭제
					combobxHotKeyFileList->Items->Delete(combobxHotKeyFileList->ItemIndex);
					// 기본 값인 Textile 키로 되돌림
					combobxHotKeyFileList->ItemIndex = combobxHotKeyFileList->Items->IndexOf("Textile");
					// OnChange 이벤트를 강제 호출하여 새로 가져오도록 한다
					combobxHotKeyFileListChange(combobxHotKeyFileList);
		}
	}
	else {
		// Message : 선택한 단축키 파일을 찾을 수 없습니다.
		MessageDlg(IDS_MSG_NOT_FOUND_FILE, mtError,
			TMsgDlgButtons() << mbOK, 0);
	}
}
//---------------------------------------------------------------------------