#include "StdAfx.h"
#include "CurrencyRatesProviderCurrencyConverter.h"

#define WINDOW_PREFIX "CurrenyConverter_"

#define DB_STR_CC_CURRENCYRATE_FROM_ID "CurrencyConverter_FromID"
#define DB_STR_CC_CURRENCYRATE_TO_ID "CurrencyConverter_ToID"
#define DB_STR_CC_AMOUNT "CurrencyConverter_Amount"

static CCurrencyRatesProviderCurrencyConverter *get_currency_converter_provider()
{
	for (auto &it : g_apProviders)
		if (auto p = dynamic_cast<CCurrencyRatesProviderCurrencyConverter*>(it))
			return p;

	assert(!"We should never get here!");
	return nullptr;
}

CCurrencyRateSection get_currencyrates(const CCurrencyRatesProviderCurrencyConverter* pProvider = nullptr)
{
	if (nullptr == pProvider)
		pProvider = get_currency_converter_provider();

	if (pProvider) {
		const auto& rCurrencyRates = pProvider->GetCurrencyRates();
		if (rCurrencyRates.GetSectionCount() > 0)
			return rCurrencyRates.GetSection(0);
	}

	return CCurrencyRateSection();
}

inline CMStringW make_currencyrate_name(const CCurrencyRate &rCurrencyRate)
{
	const CMStringW &rsDesc = rCurrencyRate.GetName();
	return((false == rsDesc.IsEmpty()) ? rsDesc : rCurrencyRate.GetSymbol());
}

inline void update_convert_button(HWND hDlg)
{
	int nFrom = static_cast<int>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_FROM, CB_GETCURSEL, 0, 0));
	int nTo = static_cast<int>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_INTO, CB_GETCURSEL, 0, 0));
	bool bEnableButton = ((CB_ERR != nFrom)
		&& (CB_ERR != nTo)
		&& (nFrom != nTo)
		&& (GetWindowTextLength(GetDlgItem(hDlg, IDC_EDIT_VALUE)) > 0));
	EnableWindow(GetDlgItem(hDlg, IDC_BUTTON_CONVERT), bEnableButton);
}

inline void update_swap_button(HWND hDlg)
{
	int nFrom = static_cast<int>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_FROM, CB_GETCURSEL, 0, 0));
	int nTo = static_cast<int>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_INTO, CB_GETCURSEL, 0, 0));
	bool bEnableButton = ((CB_ERR != nFrom)
		&& (CB_ERR != nTo)
		&& (nFrom != nTo));
	EnableWindow(GetDlgItem(hDlg, IDC_BUTTON_SWAP), bEnableButton);
}

INT_PTR CALLBACK CurrencyConverterDlgProc(HWND hDlg, UINT msg, WPARAM wp, LPARAM lp)
{
	switch (msg) {
	case WM_INITDIALOG:
		TranslateDialogDefault(hDlg);
		{
			MWindowList hWL = CModuleInfo::GetWindowList(WINDOW_PREFIX, false);
			assert(hWL);
			WindowList_Add(hWL, hDlg);

			Window_SetIcon_IcoLib(hDlg, g_plugin.getIconHandle(IDI_ICON_CURRENCY_CONVERTER));

			HWND hcbxFrom = ::GetDlgItem(hDlg, IDC_COMBO_CONVERT_FROM);
			HWND hcbxTo = ::GetDlgItem(hDlg, IDC_COMBO_CONVERT_INTO);

			CMStringW sFromCurrencyRateID = g_plugin.getMStringW(DB_STR_CC_CURRENCYRATE_FROM_ID);
			CMStringW sToCurrencyRateID = g_plugin.getMStringW(DB_STR_CC_CURRENCYRATE_TO_ID);

			const auto pProvider = get_currency_converter_provider();
			const auto& rSection = get_currencyrates(pProvider);
			auto cCurrencyRates = rSection.GetCurrencyRateCount();
			for (auto i = 0u; i < cCurrencyRates; ++i) {
				const auto& rCurrencyRate = rSection.GetCurrencyRate(i);
				CMStringW sName = make_currencyrate_name(rCurrencyRate);
				LRESULT nFrom = ::SendMessage(hcbxFrom, CB_ADDSTRING, 0, LPARAM(sName.c_str()));
				LRESULT nTo = ::SendMessage(hcbxTo, CB_ADDSTRING, 0, LPARAM(sName.c_str()));

				if (0 == mir_wstrcmpi(rCurrencyRate.GetID().c_str(), sFromCurrencyRateID.c_str())) {
					::SendMessage(hcbxFrom, CB_SETCURSEL, nFrom, 0);
				}

				if (0 == mir_wstrcmpi(rCurrencyRate.GetID().c_str(), sToCurrencyRateID.c_str())) {
					::SendMessage(hcbxTo, CB_SETCURSEL, nTo, 0);
				}
			}

			wchar_t str[40];
			double dAmount = 1.0;
			CurrencyRates_DBReadDouble(NULL, MODULENAME, DB_STR_CC_AMOUNT, dAmount);
			swprintf_s(str, L"%.2lf", dAmount);
			::SetDlgItemText(hDlg, IDC_EDIT_VALUE, str);

			auto &pi = pProvider->GetInfo();
			CMStringW provInfo(FORMAT, L"%s <a href=\"%s\">%s</a>", TranslateT("Info provided by"), pi.m_sURL.c_str(), pi.m_sName.c_str());
			::SetDlgItemText(hDlg, IDC_SYSLINK_PROVIDER, provInfo);

			::SendDlgItemMessage(hDlg, IDC_BUTTON_SWAP, BM_SETIMAGE, IMAGE_ICON, LPARAM(g_plugin.getIcon(IDI_ICON_SWAP)));

			update_convert_button(hDlg);
			update_swap_button(hDlg);

			Utils_RestoreWindowPositionNoSize(hDlg, NULL, MODULENAME, WINDOW_PREFIX);
			::ShowWindow(hDlg, SW_SHOW);
		}
		return TRUE;

	case WM_CLOSE:
		{
			MWindowList hWL = CModuleInfo::GetWindowList(WINDOW_PREFIX, false);
			assert(hWL);
			WindowList_Remove(hWL, hDlg);
			Utils_SaveWindowPosition(hDlg, NULL, MODULENAME, WINDOW_PREFIX);
			EndDialog(hDlg, 0);
		}
		return TRUE;

	case WM_DESTROY:
		Window_FreeIcon_IcoLib(hDlg);
		break;

	case WM_COMMAND:
		switch (LOWORD(wp)) {
		case IDC_COMBO_CONVERT_FROM:
		case IDC_COMBO_CONVERT_INTO:
			if (CBN_SELCHANGE == HIWORD(wp)) {
				update_convert_button(hDlg);
				update_swap_button(hDlg);
			}
			return TRUE;
		
		case IDC_EDIT_VALUE:
			if (EN_CHANGE == HIWORD(wp))
				update_convert_button(hDlg);
			return TRUE;

		case IDCANCEL:
			SendMessage(hDlg, WM_CLOSE, 0, 0);
			return TRUE;

		case IDC_BUTTON_SWAP:
			{
				HWND wndFrom = ::GetDlgItem(hDlg, IDC_COMBO_CONVERT_FROM);
				HWND wndTo = ::GetDlgItem(hDlg, IDC_COMBO_CONVERT_INTO);
				WPARAM nFrom = ::SendMessage(wndFrom, CB_GETCURSEL, 0, 0);
				WPARAM nTo = ::SendMessage(wndTo, CB_GETCURSEL, 0, 0);

				::SendMessage(wndFrom, CB_SETCURSEL, nTo, 0);
				::SendMessage(wndTo, CB_SETCURSEL, nFrom, 0);
			}
			return TRUE;

		case IDC_BUTTON_CONVERT:
			{
				HWND hwndAmount = GetDlgItem(hDlg, IDC_EDIT_VALUE);
				double dAmount = 1.0;
				if (swscanf(get_window_text(hwndAmount), L"%lf", &dAmount) == 1 && dAmount > 0.0) {
					CurrencyRates_DBWriteDouble(NULL, MODULENAME, DB_STR_CC_AMOUNT, dAmount);

					size_t nFrom = static_cast<size_t>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_FROM, CB_GETCURSEL, 0, 0));
					size_t nTo = static_cast<size_t>(::SendDlgItemMessage(hDlg, IDC_COMBO_CONVERT_INTO, CB_GETCURSEL, 0, 0));
					if ((CB_ERR != nFrom) && (CB_ERR != nTo) && (nFrom != nTo)) {
						const auto& rSection = get_currencyrates();
						size_t cCurrencyRates = rSection.GetCurrencyRateCount();
						if ((nFrom < cCurrencyRates) && (nTo < cCurrencyRates)) {
							auto from = rSection.GetCurrencyRate(nFrom);
							auto to = rSection.GetCurrencyRate(nTo);

							g_plugin.setWString(DB_STR_CC_CURRENCYRATE_FROM_ID, from.GetID().c_str());
							g_plugin.setWString(DB_STR_CC_CURRENCYRATE_TO_ID, to.GetID().c_str());

							const auto pProvider = get_currency_converter_provider();
							assert(pProvider);
							if (pProvider) {
								CMStringW sResult;

								try {
									double dResult = pProvider->Convert(dAmount, from, to);
									sResult.Format(L"%.2lf %s = %.2lf %s", dAmount, from.GetName().c_str(), dResult, to.GetName().c_str());
								}
								catch (std::exception& e) {
									sResult = e.what();
								}
								SetDlgItemText(hDlg, IDC_EDIT_RESULT, sResult);
							}
						}
					}
				}
				else {
					CurrencyRates_MessageBox(hDlg, TranslateT("Enter positive number."), MB_OK | MB_ICONERROR);
					prepare_edit_ctrl_for_error(GetDlgItem(hDlg, IDC_EDIT_VALUE));
				}
			}
			return TRUE;
		}
		break;

	case WM_NOTIFY:
		LPNMHDR pNMHDR = reinterpret_cast<LPNMHDR>(lp);
		switch (pNMHDR->code) {
		case NM_CLICK:
			if (IDC_SYSLINK_PROVIDER == wp) {
				PNMLINK pNMLink = reinterpret_cast<PNMLINK>(pNMHDR);
				::ShellExecute(hDlg, L"open", pNMLink->item.szUrl, nullptr, nullptr, SW_SHOWNORMAL);
			}
			break;
		}
		break;
	}
	return (FALSE);
}

INT_PTR CurrencyRatesMenu_CurrencyConverter(WPARAM, LPARAM)
{
	MWindowList hWL = CModuleInfo::GetWindowList(WINDOW_PREFIX, true);
	HWND hWnd = WindowList_Find(hWL, NULL);
	if (nullptr != hWnd) {
		SetForegroundWindow(hWnd);
		SetFocus(hWnd);
	}
	else CreateDialogParam(g_plugin.getInst(), MAKEINTRESOURCE(IDD_CURRENCY_CONVERTER), nullptr, CurrencyConverterDlgProc, 0);

	return 0;
}