/*
UserinfoEx plugin for Miranda IM

Copyright:
© 2006-2010 DeathAxe, Yasnovidyashii, Merlin, K. Romanov, Kreol

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program 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 General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/

#include "stdafx.h"

/**
 * This function creates a CEditCtrl object. 
 *
 * @param	hDlg			- HWND of the owning propertysheet page
 * @param	idCtrl			- the ID of the dialog control to associate with this class's instance
 * @param	pszSetting		- the database setting to be handled by this class
 * @param	dbType			- the expected data type of the setting
 *
 * @return	This static method returns the pointer of the created object.
 **/

CBaseCtrl* CEditCtrl::CreateObj(HWND hDlg, uint16_t idCtrl, LPCSTR pszSetting, uint8_t dbType)
{
	CEditCtrl *ctrl = new CEditCtrl(hDlg, idCtrl, USERINFO, pszSetting);
	if (ctrl)
		ctrl->_dbType = dbType;

	return (ctrl);
}

/**
 * This function creates a CEditCtrl object.
 *
 * @param	hDlg			- HWND of the owning propertysheet page
 * @param	idCtrl			- the ID of the dialog control to associate with this class's instance
 * @param	pszModule		- the database module to be handled by this class
 * @param	pszSetting		- the database setting to be handled by this class
 * @param	dbType			- the expected data type of the setting
 *
 * @return	This static method returns the pointer of the created object.
 **/

CBaseCtrl* CEditCtrl::CreateObj(HWND hDlg, uint16_t idCtrl, LPCSTR pszModule, LPCSTR pszSetting, uint8_t dbType)
{
	CEditCtrl *ctrl = new CEditCtrl(hDlg, idCtrl, pszModule, pszSetting);
	if (ctrl)
		ctrl->_dbType = dbType;

	return ctrl;
}

/**
 *
 *
 **/
CEditCtrl::CEditCtrl(HWND hDlg, uint16_t idCtrl, LPCSTR pszModule, LPCSTR pszSetting)
	: CBaseCtrl(hDlg, idCtrl, pszModule, pszSetting)
{
	SendDlgItemMessage(hDlg, idCtrl, EM_LIMITTEXT, 0x7fFFffFF, 0L);
}

/**
 * This method deletes the class object
 * and all allocated memory of its members.
 *
 * @param	none
 *
 * @return	nothing
 **/
void CEditCtrl::Release()
{
	delete this;
}

/*
 *
 *
 */
void CEditCtrl::OnReset()
{
}


/**
 * This method controls the changed bit for the control.
 *
 * @param	hCtrl			- HWND of the combobox
 * @param	hContact		- HANDLE of the contact whose timezone to select
 * @param	pszProto		- the contact's protocol
 *
 * @return	nothing
 **/

BOOL CEditCtrl::OnInfoChanged(MCONTACT hContact, LPCSTR pszProto)
{
	if (!_Flags.B.hasChanged) {
		DBVARIANT dbv;
		wchar_t szText[64];

		_Flags.B.hasCustom = _Flags.B.hasProto = _Flags.B.hasMeta = false;
		_Flags.W |= DB::Setting::GetTStringCtrl(hContact, _pszModule, _pszModule, pszProto, _pszSetting, &dbv);

		EnableWindow(_hwnd,
			!hContact || _Flags.B.hasCustom || !g_plugin.getByte(SET_PROPSHEET_PCBIREADONLY, 0));

		MIR_FREE(_pszValue);
		switch (dbv.type) {
		case DBVT_BYTE:
			_itow_s(dbv.bVal, szText, _countof(szText), 10);
			SetWindowText(_hwnd, szText);
			_pszValue = mir_wstrdup(szText);
			break;

		case DBVT_WORD:
			_itow_s(dbv.wVal, szText, _countof(szText), 10);
			SetWindowText(_hwnd, szText);
			_pszValue = mir_wstrdup(szText);
			break;

		case DBVT_DWORD:
			_itow_s(dbv.dVal, szText, _countof(szText), 10);
			SetWindowText(_hwnd, szText);
			_pszValue = mir_wstrdup(szText);
			break;

		case DBVT_WCHAR:
			if (dbv.pwszVal) {
				SetWindowText(_hwnd, dbv.pwszVal);
				_pszValue = dbv.pwszVal;
				break;
			}

		default:
			SetWindowText(_hwnd, L"");
			db_free(&dbv);
			break;
		}
		_Flags.B.hasChanged = false;
	}
	return _Flags.B.hasChanged;
}

/**
 * This method writes the control's information to database
 *
 * @param	hContact		- HANDLE of the contact whose timezone to select
 * @param	pszProto		- the contact's protocol
 *
 * @return	nothing
 **/

void CEditCtrl::OnApply(MCONTACT hContact, LPCSTR pszProto)
{
	if (_Flags.B.hasChanged) {
		const char* pszModule = hContact ? _pszModule : pszProto;

		if (_Flags.B.hasCustom || !hContact) {
			uint32_t cch = GetWindowTextLength(_hwnd);

			if (cch > 0) {
				LPTSTR val = (LPTSTR)mir_alloc((cch + 1) * sizeof(wchar_t));

				if (GetWindowText(_hwnd, val, cch + 1) > 0) {
					DBVARIANT dbv;

					dbv.type = _dbType;
					switch (_dbType) {
					case DBVT_BYTE:
						dbv.bVal = (uint8_t)wcstol(val, nullptr, 10);
						break;

					case DBVT_WORD:
						dbv.wVal = (uint16_t)wcstol(val, nullptr, 10);
						break;

					case DBVT_DWORD:
						dbv.dVal = (uint32_t)wcstol(val, nullptr, 10);
						break;

					case DBVT_WCHAR:
						dbv.pwszVal = val;
						break;

					default:
						dbv.type = DBVT_DELETED;

					}
					if (dbv.type != DBVT_DELETED) {
						if (!db_set(hContact, pszModule, _pszSetting, &dbv)) {
							if (!hContact) {
								_Flags.B.hasCustom = false;
								_Flags.B.hasProto = true;
							}
							_Flags.B.hasChanged = false;

							// save new value
							MIR_FREE(_pszValue);
							_pszValue = val;
							val = nullptr;
						}
					}
				}
				MIR_FREE(val);
			}
		}
		if (_Flags.B.hasChanged) {
			db_unset(hContact, pszModule, _pszSetting);

			_Flags.B.hasChanged = false;

			OnInfoChanged(hContact, pszProto);
		}
		InvalidateRect(_hwnd, nullptr, TRUE);
	}
}

/**
 * The user changed information stored in the control.
 *
 * @return	nothing
 **/
void CEditCtrl::OnChangedByUser(uint16_t wChangedMsg)
{
	if ((wChangedMsg == EN_UPDATE) || (wChangedMsg == EN_CHANGE)) {
		uint32_t cch = GetWindowTextLength(_hwnd);

		_Flags.B.hasChanged = mir_wstrlen(_pszValue) != cch;
		_Flags.B.hasCustom = (cch > 0);

		if (!_Flags.B.hasChanged && _Flags.B.hasCustom) {
			uint8_t need_free = 0;
			LPTSTR szText;

			__try {
				szText = (LPTSTR)alloca((cch + 1) * sizeof(wchar_t));
			}
			__except (EXCEPTION_EXECUTE_HANDLER)
			{
				szText = (LPTSTR)mir_alloc((cch + 1) * sizeof(wchar_t));
				need_free = 1;
			}

			if (szText != nullptr) {
				GetWindowText(_hwnd, szText, cch + 1);
				_Flags.B.hasChanged = mir_wstrcmp(_pszValue, szText) != 0;
				if (need_free)
					MIR_FREE(szText);
			}
			else _Flags.B.hasChanged = false;
		}
		InvalidateRect(_hwnd, nullptr, TRUE);

		if (_Flags.B.hasChanged)
			SendMessage(GetParent(GetParent(_hwnd)), PSM_CHANGED, 0, 0);
	}
}

/**
 * Opens the url given in a editbox in the users default browser
 **/
void CEditCtrl::OpenUrl()
{
	int lenUrl = 1 + Edit_GetTextLength(_hwnd);
	LPTSTR szUrl;
	uint8_t need_free = 0;

	__try {
		szUrl = (LPTSTR)alloca((8 + lenUrl) * sizeof(wchar_t));
	}
	__except (EXCEPTION_EXECUTE_HANDLER)
	{
		szUrl = (LPTSTR)mir_alloc((8 + lenUrl) * sizeof(wchar_t));
		need_free = 1;
	}

	if (szUrl && (GetWindowText(_hwnd, szUrl, lenUrl) > 0))
		Utils_OpenUrlW(szUrl);

	if (need_free)
		MIR_FREE(szUrl);
}

LRESULT CEditCtrl::LinkNotificationHandler(ENLINK* lnk)
{
	if (lnk == nullptr)
		return FALSE;

	switch (lnk->msg) {
	case WM_SETCURSOR:
		SetCursor(LoadCursor(nullptr, IDC_HAND));
		SetWindowLongPtr(GetParent(_hwnd), DWLP_MSGRESULT, TRUE);
		return TRUE;

	case WM_LBUTTONUP:
		TEXTRANGE tr;
		uint8_t need_free = 0;

		// do not call function if user selected some chars of the url string
		SendMessage(_hwnd, EM_EXGETSEL, NULL, (LPARAM)&tr.chrg);
		if (tr.chrg.cpMax == tr.chrg.cpMin) {
			// retrieve the url string
			tr.chrg = lnk->chrg;

			__try {
				tr.lpstrText = (LPTSTR)alloca((tr.chrg.cpMax - tr.chrg.cpMin + 8) * sizeof(wchar_t));
			}
			__except (EXCEPTION_EXECUTE_HANDLER)
			{
				tr.lpstrText = (LPTSTR)mir_alloc((tr.chrg.cpMax - tr.chrg.cpMin + 8) * sizeof(wchar_t));
				need_free = 1;
			}
			if (tr.lpstrText && (SendMessage(_hwnd, EM_GETTEXTRANGE, NULL, (LPARAM)&tr) > 0)) {
				if (wcschr(tr.lpstrText, '@') != nullptr && wcschr(tr.lpstrText, ':') == nullptr && wcschr(tr.lpstrText, '/') == nullptr) {
					memmove(tr.lpstrText + 7, tr.lpstrText, (tr.chrg.cpMax - tr.chrg.cpMin + 1)*sizeof(wchar_t));
					memcpy(tr.lpstrText, L"mailto:", (7 * sizeof(wchar_t)));
				}

				Utils_OpenUrlW(tr.lpstrText);
			}

			if (need_free)
				MIR_FREE(tr.lpstrText);
		}
	}
	return FALSE;
}