/*
WhenWasIt (birthday reminder) plugin for Miranda IM

Copyright © 2006 Cristian Libotean

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 "commonheaders.h"

#define COLOR_USERINFO RGB(138, 190, 160)
#define COLOR_MBIRTHDAY RGB(222, 222, 88)
#define COLOR_BIRTHDAYREMINDER RGB(200, 120, 240)
#define COLOR_PROTOCOL RGB(255, 153, 153)
#define COLOR_MICQBIRTHDAY RGB(88, 88, 240)

#define UPCOMING_TIMER_ID 1002

const TCHAR *szShowAgeMode[] = { LPGENT("Upcoming age"), LPGENT("Current age")};
const int cShowAgeMode = sizeof(szShowAgeMode) / sizeof(szShowAgeMode[0]);

const TCHAR *szSaveModule[] = { LPGENT("UserInfo module"), LPGENT("Protocol module"), LPGENT("mBirthday module")};
const int cSaveModule = sizeof(szSaveModule) / sizeof(szSaveModule[0]);

const TCHAR *szPopupClick[] = { LPGENT("Nothing"), LPGENT("Dismiss"), LPGENT("Message window")};
const int cPopupClick = sizeof(szPopupClick) / sizeof(szPopupClick[0]);

const TCHAR *szNotifyFor[] = { LPGENT("All contacts"), LPGENT("All contacts except hidden ones"), LPGENT("All contacts except ignored ones"), LPGENT("All contacts except hidden and ignored ones")};
const int cNotifyFor = sizeof(szNotifyFor) / sizeof(szNotifyFor[0]);

#define MIN_BIRTHDAYS_WIDTH 200
#define MIN_BIRTHDAYS_HEIGHT 200

#include "commctrl.h"
void CreateToolTip(HWND target, TCHAR* tooltip, LPARAM width)
{
	HWND hwndToolTip = CreateWindow(TOOLTIPS_CLASS, NULL, WS_POPUP | TTS_NOPREFIX | TTS_ALWAYSTIP, CW_USEDEFAULT, CW_USEDEFAULT,
		CW_USEDEFAULT, CW_USEDEFAULT, target, NULL, NULL, NULL);
	if (hwndToolTip) {
		TOOLINFO ti = {0};
		ti.cbSize = sizeof(ti);
		ti.uFlags = TTF_TRANSPARENT | TTF_SUBCLASS;
		ti.hwnd = target;
		ti.uId = 0;
		ti.hinst = NULL;
		ti.lpszText = tooltip;
		GetClientRect(target, &ti.rect);
		SendMessage(hwndToolTip, TTM_ADDTOOL, 0, (LPARAM) &ti );
		SendMessage(hwndToolTip, TTM_SETMAXTIPWIDTH, 0, width);
		SendMessage(hwndToolTip, TTM_SETDELAYTIME, TTDT_AUTOPOP, 20000);
	}
}

int EnablePopupsGroup(HWND hWnd, int enable)
{
	EnableWindow(GetDlgItem(hWnd, IDC_POPUPS_STATIC), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_POPUP_TIMEOUT), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_FOREGROUND), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_BACKGROUND), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_NOBIRTHDAYS_POPUP), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_IGNORE_SUBCONTACTS), (ServiceExists(MS_MC_GETMETACONTACT)) ? enable : FALSE);
	EnableWindow(GetDlgItem(hWnd, IDC_PREVIEW), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_LEFT_CLICK), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_RIGHT_CLICK), enable);
	
	return enable;
}

int EnableClistGroup(HWND hWnd, int enable)
{
	EnableWindow(GetDlgItem(hWnd, IDC_CLIST_STATIC), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_ADVANCED_ICON), enable);
	return enable;
}

int EnableDialogGroup(HWND hWnd, int enable)
{
	EnableWindow(GetDlgItem(hWnd, IDC_DLG_TIMEOUT), enable);
	EnableWindow(GetDlgItem(hWnd, IDC_OPENINBACKGROUND), enable);
	
	return enable;
}

int AddInfoToComboBoxes(HWND hWnd)
{
	int i;

	for (i = 0; i < cShowAgeMode; i++)
		SendMessage(GetDlgItem(hWnd, IDC_AGE_COMBOBOX), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szShowAgeMode[i]));

	for (i = 0; i < cSaveModule; i++)
		SendMessage(GetDlgItem(hWnd, IDC_DEFAULT_MODULE), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szSaveModule[i]));

	for (i = 0; i < cPopupClick; i++) {
		SendMessage(GetDlgItem(hWnd, IDC_LEFT_CLICK), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szPopupClick[i]));
		SendMessage(GetDlgItem(hWnd, IDC_RIGHT_CLICK), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szPopupClick[i]));
	}

	for (i = 0; i < cNotifyFor; i++)
		SendMessage(GetDlgItem(hWnd, IDC_NOTIFYFOR), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szNotifyFor[i]));

	return i;
}

SIZE GetControlTextSize(HWND hCtrl)	
{
	HDC hDC = GetDC(hCtrl);
	HFONT font = (HFONT) SendMessage(hCtrl, WM_GETFONT, 0, 0);
	HFONT oldFont = (HFONT) SelectObject(hDC, font);
	const size_t maxSize = 2048;
	TCHAR buffer[maxSize];
	SIZE size;
	GetWindowText(hCtrl, buffer, maxSize);
	GetTextExtentPoint32(hDC, buffer, (int) _tcslen(buffer), &size);
	SelectObject(hDC, oldFont);
	ReleaseDC(hCtrl, hDC);
	return size;
}

int EnlargeControl(HWND hCtrl, HWND hGroup, SIZE oldSize)
{
	SIZE size = GetControlTextSize(hCtrl);
	RECT rect;
	GetWindowRect(hCtrl, &rect);
	int offset = (rect.right - rect.left) - oldSize.cx;
	SetWindowPos(hCtrl, HWND_TOP, 0, 0, size.cx + offset, oldSize.cy, SWP_NOMOVE);
	SetWindowPos(hCtrl, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
	return 0;
}

TCHAR *strtrim(TCHAR *str)
{
	size_t i = 0;
	size_t len = _tcslen(str);
	while ((i < len) && (str[i] == _T(' '))) { i++; }
	if (i) {
		memmove(str, str + i, len - i + 1);
		len -= i;
	}
		
	while ((len > 0)  && (str[--len] == _T(' ')))
		str[len] = 0;
	
	return str;
}

INT_PTR CALLBACK DlgProcOptions(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	static int bInitializing = 0;
	switch (msg) {
	case WM_INITDIALOG:
		{
			bInitializing = 1;

			SIZE oldPopupsSize = GetControlTextSize(GetDlgItem(hWnd, IDC_USE_POPUPS));
			SIZE oldClistIconSize = GetControlTextSize(GetDlgItem(hWnd, IDC_USE_CLISTICON));
			SIZE oldDialogSize = GetControlTextSize(GetDlgItem(hWnd, IDC_USE_DIALOG));

			TranslateDialogDefault(hWnd);

			EnlargeControl(GetDlgItem(hWnd, IDC_USE_POPUPS), GetDlgItem(hWnd, IDC_POPUPS_STATIC), oldPopupsSize);
			EnlargeControl(GetDlgItem(hWnd, IDC_USE_CLISTICON), GetDlgItem(hWnd, IDC_CLIST_STATIC), oldClistIconSize);
			EnlargeControl(GetDlgItem(hWnd, IDC_USE_DIALOG), GetDlgItem(hWnd, IDC_DIALOG_STATIC), oldDialogSize);

			AddInfoToComboBoxes(hWnd);

			SendMessage(GetDlgItem(hWnd, IDC_FOREGROUND), CPM_SETDEFAULTCOLOUR, 0, FOREGROUND_COLOR);
			SendMessage(GetDlgItem(hWnd, IDC_BACKGROUND), CPM_SETDEFAULTCOLOUR, 0, BACKGROUND_COLOR);

			SendMessage(GetDlgItem(hWnd, IDC_FOREGROUND), CPM_SETCOLOUR, 0, commonData.foreground);
			SendMessage(GetDlgItem(hWnd, IDC_BACKGROUND), CPM_SETCOLOUR, 0, commonData.background);

			SendMessage(GetDlgItem(hWnd, IDC_DEFAULT_MODULE), CB_SETCURSEL, commonData.cDefaultModule, 0);
			SendMessage(GetDlgItem(hWnd, IDC_LEFT_CLICK), CB_SETCURSEL, commonData.lPopupClick, 0);
			SendMessage(GetDlgItem(hWnd, IDC_RIGHT_CLICK), CB_SETCURSEL, commonData.rPopupClick, 0);
			SendMessage(GetDlgItem(hWnd, IDC_NOTIFYFOR), CB_SETCURSEL, commonData.notifyFor, 0);

			CreateToolTip(GetDlgItem(hWnd, IDC_POPUP_TIMEOUT), TranslateT("Set popup delay when notifying of upcoming birthdays.\nFormat: default delay [ | delay for birthdays occuring today]"), 400);

			TCHAR buffer[1024];
			_itot(commonData.daysInAdvance, buffer, 10);
			SetWindowText(GetDlgItem(hWnd, IDC_DAYS_IN_ADVANCE), buffer);
			_itot(commonData.checkInterval, buffer, 10);
			SetWindowText(GetDlgItem(hWnd, IDC_CHECK_INTERVAL), buffer);
			mir_sntprintf(buffer, 1024, _T("%d|%d"), commonData.popupTimeout, commonData.popupTimeoutToday);
			SetWindowText(GetDlgItem(hWnd, IDC_POPUP_TIMEOUT), buffer);
			_itot(commonData.cSoundNearDays, buffer, 10);
			SetWindowText(GetDlgItem(hWnd, IDC_SOUND_NEAR_DAYS_EDIT), buffer);
			_itot(commonData.cDlgTimeout, buffer, 10);
			SetWindowText(GetDlgItem(hWnd, IDC_DLG_TIMEOUT), buffer);
			_itot(commonData.daysAfter, buffer, 10);
			SetWindowText(GetDlgItem(hWnd, IDC_DAYS_AFTER), buffer);

			CheckDlgButton(hWnd, IDC_OPENINBACKGROUND, (commonData.bOpenInBackground) ? BST_CHECKED : BST_UNCHECKED);

			CheckDlgButton(hWnd, IDC_NOBIRTHDAYS_POPUP, (commonData.bNoBirthdaysPopup) ? BST_CHECKED : BST_UNCHECKED);
			SendMessage(GetDlgItem(hWnd, IDC_AGE_COMBOBOX), CB_SETCURSEL, commonData.cShowAgeMode, 0);

			CheckDlgButton(hWnd, IDC_IGNORE_SUBCONTACTS, (commonData.bIgnoreSubcontacts) ? BST_CHECKED : BST_UNCHECKED);

			CheckDlgButton(hWnd, IDC_ONCE_PER_DAY, (commonData.bOncePerDay) ? BST_CHECKED : BST_UNCHECKED);
			EnableWindow(GetDlgItem(hWnd, IDC_CHECK_INTERVAL), !commonData.bOncePerDay);

			CheckDlgButton(hWnd, IDC_USE_DIALOG, (commonData.bUseDialog) ? BST_CHECKED : BST_UNCHECKED);
			EnableDialogGroup(hWnd, commonData.bUseDialog);

			if ( ServiceExists(MS_POPUP_ADDPOPUP)) {
				CheckDlgButton(hWnd, IDC_USE_POPUPS, commonData.bUsePopups ? BST_CHECKED : BST_UNCHECKED);
				EnablePopupsGroup(hWnd, commonData.bUsePopups);
			}
			else {
				EnableWindow(GetDlgItem(hWnd, IDC_USE_POPUPS), FALSE);
				EnablePopupsGroup(hWnd, FALSE);
			}

			CheckDlgButton(hWnd, IDC_USE_CLISTICON, BST_CHECKED);
			EnableWindow(GetDlgItem(hWnd, IDC_USE_CLISTICON), FALSE);
			EnableClistGroup(hWnd, FALSE);
		}
		bInitializing = 0;
		return TRUE;

	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDC_CHECK_INTERVAL:
		case IDC_POPUP_TIMEOUT:
		case IDC_DAYS_IN_ADVANCE:
		case IDC_DLG_TIMEOUT:
		case IDC_SOUND_NEAR_DAYS_EDIT:
		case IDC_DAYS_AFTER:
			if ((HIWORD(wParam) == EN_CHANGE) && (!bInitializing))// || (HIWORD(wParam) == CBN_SELENDOK))
				SendMessage(GetParent(hWnd), PSM_CHANGED, 0, 0);
			break;

		case IDC_USE_POPUPS:
		case IDC_USE_CLISTICON:
		case IDC_USE_DIALOG:
			EnablePopupsGroup(hWnd, IsDlgButtonChecked(hWnd, IDC_USE_POPUPS));
			EnableClistGroup(hWnd, IsDlgButtonChecked(hWnd, IDC_USE_CLISTICON));
			EnableDialogGroup(hWnd, IsDlgButtonChecked(hWnd, IDC_USE_DIALOG));
			RedrawWindow(GetDlgItem(hWnd, IDC_USE_POPUPS), NULL, NULL, RDW_ERASE | RDW_INVALIDATE);
			RedrawWindow(GetDlgItem(hWnd, IDC_USE_CLISTICON), NULL, NULL, RDW_ERASE | RDW_INVALIDATE);
			RedrawWindow(GetDlgItem(hWnd, IDC_USE_DIALOG), NULL, NULL, RDW_ERASE | RDW_INVALIDATE);
			//fallthrough

		case IDC_FOREGROUND:
		case IDC_BACKGROUND:
		case IDC_ADVANCED_ICON:
		case IDC_IGNORE_SUBCONTACTS:
		case IDC_AGE_COMBOBOX:
		case IDC_NOBIRTHDAYS_POPUP:
		case IDC_DEFAULT_MODULE:
		case IDC_LEFT_CLICK:
		case IDC_RIGHT_CLICK:
		case IDC_ONCE_PER_DAY:
		case IDC_NOTIFYFOR:
			SendMessage(GetParent(hWnd), PSM_CHANGED, 0, 0);
			EnableWindow(GetDlgItem(hWnd, IDC_CHECK_INTERVAL), !IsDlgButtonChecked(hWnd, IDC_ONCE_PER_DAY));
			break;

		case IDC_PREVIEW:
			{
				HANDLE hContact = db_find_first();
				int dtb = rand() % 11; //0..10
				int age = rand() % 50 + 1; //1..50
				PopupNotifyBirthday(hContact, dtb, age);
				break;
			}
		}
		break;

	case WM_NOTIFY:
		switch(((LPNMHDR)lParam)->idFrom) {
		case 0:
			switch (((LPNMHDR)lParam)->code) {
			case PSN_APPLY: 
				commonData.foreground = SendMessage(GetDlgItem(hWnd, IDC_FOREGROUND), CPM_GETCOLOUR, 0, 0);
				commonData.background = SendMessage(GetDlgItem(hWnd, IDC_BACKGROUND), CPM_GETCOLOUR, 0, 0);
				commonData.popupTimeout = POPUP_TIMEOUT;
				commonData.popupTimeoutToday = POPUP_TIMEOUT;
				commonData.bUsePopups = IsDlgButtonChecked(hWnd, IDC_USE_POPUPS);
				commonData.bUseDialog = IsDlgButtonChecked(hWnd, IDC_USE_DIALOG);
				commonData.bIgnoreSubcontacts = IsDlgButtonChecked(hWnd, IDC_IGNORE_SUBCONTACTS);
				commonData.bNoBirthdaysPopup = IsDlgButtonChecked(hWnd, IDC_NOBIRTHDAYS_POPUP);
				commonData.cShowAgeMode = SendMessage(GetDlgItem(hWnd, IDC_AGE_COMBOBOX), CB_GETCURSEL, 0, 0);
				commonData.cDefaultModule = SendMessage(GetDlgItem(hWnd, IDC_DEFAULT_MODULE), CB_GETCURSEL, 0, 0);
				commonData.lPopupClick = SendMessage(GetDlgItem(hWnd, IDC_LEFT_CLICK), CB_GETCURSEL, 0, 0);
				commonData.rPopupClick = SendMessage(GetDlgItem(hWnd, IDC_RIGHT_CLICK), CB_GETCURSEL, 0, 0);
				commonData.bOncePerDay = IsDlgButtonChecked(hWnd, IDC_ONCE_PER_DAY);
				commonData.notifyFor = SendMessage(GetDlgItem(hWnd, IDC_NOTIFYFOR), CB_GETCURSEL, 0, 0);
				commonData.bOpenInBackground = IsDlgButtonChecked(hWnd, IDC_OPENINBACKGROUND);
				{
					const int maxSize = 1024;
					TCHAR buffer[maxSize];

					GetWindowText(GetDlgItem(hWnd, IDC_DAYS_IN_ADVANCE), buffer, maxSize);
					TCHAR *stop = NULL;
					commonData.daysInAdvance = _tcstol(buffer, &stop, 10);

					if (*stop) { commonData.daysInAdvance = DAYS_TO_NOTIFY; }

					GetWindowText(GetDlgItem(hWnd, IDC_DAYS_AFTER), buffer, maxSize);
					commonData.daysAfter = _tcstol(buffer, &stop, 10);

					if (*stop) { commonData.daysAfter = DAYS_TO_NOTIFY_AFTER; }

					GetWindowText(GetDlgItem(hWnd, IDC_CHECK_INTERVAL), buffer, maxSize);
					commonData.checkInterval = _ttol(buffer);
					if ( !commonData.checkInterval) { commonData.checkInterval = CHECK_INTERVAL; }

					GetWindowText(GetDlgItem(hWnd, IDC_POPUP_TIMEOUT), buffer, maxSize);
					TCHAR *pos;
					pos = _tcschr(buffer, _T('|'));
					if (pos) {
						TCHAR tmp[128];
						*pos = 0;
						_tcscpy(tmp, buffer);
						strtrim(tmp);
						commonData.popupTimeout = _ttol(tmp);

						_tcscpy(tmp, pos + 1);
						strtrim(tmp);
						commonData.popupTimeoutToday = _ttol(tmp);

					}
					else commonData.popupTimeout = commonData.popupTimeoutToday = _ttol(buffer);

					GetWindowText(GetDlgItem(hWnd, IDC_SOUND_NEAR_DAYS_EDIT), buffer, maxSize);
					//cSoundNearDays = _ttol(buffer);
					commonData.cSoundNearDays = _tcstol(buffer, &stop, 10);
					if (*stop) { commonData.cSoundNearDays = BIRTHDAY_NEAR_DEFAULT_DAYS; }

					GetWindowText(GetDlgItem(hWnd, IDC_DLG_TIMEOUT), buffer, maxSize);
					commonData.cDlgTimeout = _tcstol(buffer, &stop, 10);
					if (*stop) { commonData.cDlgTimeout = POPUP_TIMEOUT; }

					db_set_b(NULL, ModuleName, "IgnoreSubcontacts", commonData.bIgnoreSubcontacts);
					db_set_b(NULL, ModuleName, "UsePopups", commonData.bUsePopups);
					db_set_b(NULL, ModuleName, "UseDialog", commonData.bUseDialog);
					db_set_w(NULL, ModuleName, "CheckInterval", commonData.checkInterval);
					db_set_w(NULL, ModuleName, "DaysInAdvance", commonData.daysInAdvance);
					db_set_w(NULL, ModuleName, "DaysAfter", commonData.daysAfter);
					db_set_w(NULL, ModuleName, "PopupTimeout", commonData.popupTimeout);
					db_set_w(NULL, ModuleName, "PopupTimeoutToday", commonData.popupTimeoutToday);

					db_set_b(NULL, ModuleName, "ShowCurrentAge", commonData.cShowAgeMode);
					db_set_b(NULL, ModuleName, "NoBirthdaysPopup", commonData.bNoBirthdaysPopup);

					db_set_b(NULL, ModuleName, "OpenInBackground", commonData.bOpenInBackground);

					db_set_b(NULL, ModuleName, "SoundNearDays", commonData.cSoundNearDays);

					db_set_b(NULL, ModuleName, "DefaultModule", commonData.cDefaultModule);

					db_set_b(NULL, ModuleName, "PopupLeftClick", commonData.lPopupClick);
					db_set_b(NULL, ModuleName, "PopupRightClick", commonData.rPopupClick);

					db_set_dw(NULL, ModuleName, "Foreground", commonData.foreground);
					db_set_dw(NULL, ModuleName, "Background", commonData.background);

					db_set_b(NULL, ModuleName, "OncePerDay", commonData.bOncePerDay);

					db_set_w(NULL, ModuleName, "DlgTimeout", commonData.cDlgTimeout);

					db_set_b(NULL, ModuleName, "NotifyFor", commonData.notifyFor);

					RefreshAllContactListIcons();

					UpdateTimers(); //interval might get changed
				}
				bInitializing = 0;
			}
			break;
		}
		break;
	}
	return 0;
}

INT_PTR CALLBACK DlgProcAddBirthday(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	HANDLE hContact = (HANDLE)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	switch (msg) {
	case WM_INITDIALOG:
		TranslateDialogDefault(hWnd);
		SetWindowLongPtr(hWnd, GWLP_USERDATA, lParam);
		
		{
			HANDLE hContact = (HANDLE) lParam;
			WindowList_Add(hAddBirthdayWndsList, hWnd, hContact);
			Utils_RestoreWindowPositionNoSize(hWnd,hContact,ModuleName,"BirthdayWnd");
		}
		SendMessage(hWnd, WM_SETICON, ICON_BIG, (LPARAM)Skin_GetIconByHandle(hAddBirthdayContact, 1));
		{
			for (int i = 0; i < cSaveModule; i++)
				SendMessage(GetDlgItem(hWnd, IDC_COMPATIBILITY), CB_ADDSTRING, 0, (LPARAM) TranslateTS(szSaveModule[i]));

			SendMessage(GetDlgItem(hWnd, IDC_COMPATIBILITY), CB_SETCURSEL, commonData.cDefaultModule, 0);
		}
		break;

	case WM_SHOWWINDOW:
		{
			int year, month, day;
			TCHAR *szTooltipText = TranslateT("Please select the module where you want the date of birth to be saved.\r\n\"UserInfo\" is the default location.\r\nUse \"Protocol module\" to make the data visible in User Details.\n\"mBirthday module\" uses the same module as mBirthday plugin.");
			TCHAR *szCurrentModuleTooltip = NULL;
			const int maxSize = 2048;
			TCHAR buffer[maxSize];
			char *szProto = GetContactProto(hContact);
			TCHAR *name = GetContactName(hContact, szProto);
			mir_sntprintf(buffer, SIZEOF(buffer), TranslateT("Set birthday for %s:"), name);
			free(name);
			SetWindowText(hWnd, buffer);
			HWND hDate = GetDlgItem(hWnd, IDC_DATE);
			int loc = GetContactDOB(hContact, year, month, day);
			if ( IsDOBValid(year, month, day)) {
				SYSTEMTIME st = {0};
				st.wDay = day;
				st.wMonth = month;
				st.wYear = year;
				DateTime_SetSystemtime(hDate, GDT_VALID, &st);
			}
			else DateTime_SetSystemtime(hDate, GDT_NONE, NULL);

			switch (loc) {
			case DOB_MBIRTHDAY:
				DateTime_SetMonthCalColor(hDate, MCSC_TITLEBK, COLOR_MBIRTHDAY);
				szCurrentModuleTooltip = _T("mBirthday");
				break;

			case DOB_PROTOCOL:
				DateTime_SetMonthCalColor(hDate, MCSC_TITLEBK, COLOR_PROTOCOL);
				mir_sntprintf(buffer, SIZEOF(buffer), TranslateT("%S protocol"), szProto);
				szCurrentModuleTooltip = buffer;
				break;

			case DOB_BIRTHDAYREMINDER:
				DateTime_SetMonthCalColor(hDate, MCSC_TITLEBK, COLOR_BIRTHDAYREMINDER);
				szCurrentModuleTooltip = _T("Birthday Reminder");
				break;
		
			case DOB_USERINFO:
				DateTime_SetMonthCalColor(hDate, MCSC_TITLEBK, COLOR_USERINFO);
				szCurrentModuleTooltip = _T("UserInfo");
				break;

			case DOB_MICQBIRTHDAY:
				DateTime_SetMonthCalColor(hDate, MCSC_TITLEBK, COLOR_MICQBIRTHDAY);
				szCurrentModuleTooltip = _T("mICQBirthday");
				break;

			default:
				szCurrentModuleTooltip = NULL;
				break;
			}

			CreateToolTip(GetDlgItem(hWnd, IDC_COMPATIBILITY), szTooltipText, 500);
			if (szCurrentModuleTooltip)
				CreateToolTip(hDate, szCurrentModuleTooltip, 400);

			break;
		}

	case WM_DESTROY:
		RefreshContactListIcons(hContact); //the birthday might be changed, refresh icon.
		Skin_ReleaseIcon((HICON)SendMessage(hWnd, WM_GETICON, ICON_BIG, 0));
		Utils_SaveWindowPosition(hWnd,hContact,ModuleName,"BirthdayWnd");
		WindowList_Remove(hAddBirthdayWndsList, hWnd);
		break;

	case WM_CLOSE:
		DestroyWindow(hWnd);
		break;

	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDOK:
			{
				SYSTEMTIME st;
				HANDLE hContact = (HANDLE) GetWindowLongPtr(hWnd, GWLP_USERDATA);
				HWND hDate = GetDlgItem(hWnd, IDC_DATE);
				if (DateTime_GetSystemtime(hDate, &st) == GDT_VALID) {
					int mode = SendMessage(GetDlgItem(hWnd, IDC_COMPATIBILITY), CB_GETCURSEL, 0, 0); //SAVE modes  in date_utils.h are synced
					SaveBirthday(hContact, st.wYear, st.wMonth, st.wDay, mode);
				}
				else SaveBirthday(hContact, 0, 0, 0, SAVE_MODE_DELETEALL);

				if (hBirthdaysDlg != NULL)
					SendMessage(hBirthdaysDlg, WWIM_UPDATE_BIRTHDAY, (WPARAM) hContact, NULL);

				SendMessage(hWnd, WM_CLOSE, 0, 0);
				break;
			}
		}
		break;
	}

	return FALSE;
}

void AddAnchorWindowToDeferList(HDWP &hdWnds, HWND window, RECT *rParent, WINDOWPOS *wndPos, int anchors)
{
	RECT rChild = AnchorCalcPos(window, rParent, wndPos, anchors);
	hdWnds = DeferWindowPos(hdWnds, window, HWND_NOTOPMOST, rChild.left, rChild.top, rChild.right - rChild.left, rChild.bottom - rChild.top, SWP_NOZORDER);
}


#define NA TranslateT("N/A")

TCHAR *GetBirthdayModule(int module, HANDLE hContact)
{
	switch (module) {
		case DOB_MBIRTHDAY:        return _T("mBirthday");
		case DOB_PROTOCOL:         return TranslateT("Protocol module");
		case DOB_BIRTHDAYREMINDER: return _T("Birthday Reminder");
		case DOB_USERINFO:         return _T("UserInfo");
		case DOB_MICQBIRTHDAY:     return _T("mICQBirthday");
	}
	return NA;
}

static int lastColumn = -1;

struct BirthdaysSortParams{
	HWND hList;
	int column;
};

INT_PTR CALLBACK BirthdaysCompare(LPARAM lParam1, LPARAM lParam2, LPARAM myParam)
{
	BirthdaysSortParams params = *(BirthdaysSortParams *) myParam;
	const int maxSize = 1024;
	TCHAR text1[maxSize];
	TCHAR text2[maxSize];
	long value1, value2;
	ListView_GetItemText(params.hList, (int) lParam1, params.column, text1, maxSize);
	ListView_GetItemText(params.hList, (int) lParam2, params.column, text2, maxSize);

	int res = 0;

	if ((params.column == 2) || (params.column == 4)) {
		TCHAR *err1, *err2;
		value1 = _tcstol(text1, &err1, 10);
		value2 = _tcstol(text2, &err2, 10);

		if ((err1[0]) || (err2[0]))
			res = (err1[0]) ? 1 : -1;
		else if (value1 < value2)
			res = -1;
		else 
			res = (value1 != value2);
	}
	else res = _tcsicmp(text1, text2);

	res = (params.column == lastColumn) ? -res : res;
	return res;
}

//only updates the birthday part of the list view entry. Won't update the szProto and the contact name (those shouldn't change anyway :))
int UpdateBirthdayEntry(HWND hList, HANDLE hContact, int entry, int bShowAll, int bShowCurrentAge, int bAdd)
{
	int currentMonth, currentDay;
	int res = entry;

	if (bShowCurrentAge) {
		time_t now = Today();
		struct tm *today = gmtime(&now);
		currentDay = today->tm_mday + 1;
		currentMonth = today->tm_mon + 1;
	}

	int year, month, day;
	int module = GetContactDOB(hContact, year, month, day);
	if (bShowAll || IsDOBValid(year, month, day)) {
		lastColumn = -1; //list isn't sorted anymore
		int dtb = DaysToBirthday(Today(), year, month, day);
		int age = GetContactAge(hContact);
		if (bShowCurrentAge)
			if ((month > currentMonth) || ((month == currentMonth) && (day > currentDay))) //birthday still to come
				age--;

		char *szProto = GetContactProto(hContact);
		PROTOACCOUNT *pAcc = ProtoGetAccount(szProto);
		TCHAR *ptszAccName = (pAcc == NULL) ? TranslateT("Unknown") : pAcc->tszAccountName;

		LVITEM item = {0};
		item.mask = LVIF_TEXT | LVIF_PARAM;
		item.iItem = entry;
		item.lParam = (LPARAM) hContact;
		item.pszText = ptszAccName;

		if (bAdd)
			ListView_InsertItem(hList, &item);
		else
			ListView_SetItemText(hList, entry, 0, ptszAccName);

		ptrT name( GetContactName(hContact, szProto));
		ListView_SetItemText(hList, entry, 1, name);

		TCHAR buffer[2048];
		if ((dtb <= 366) && (dtb >= 0))
			mir_sntprintf(buffer, SIZEOF(buffer), _T("%d"), dtb);
		else
			mir_sntprintf(buffer, SIZEOF(buffer), NA);

		ListView_SetItemText(hList, entry, 2, buffer);
		if ((year != 0) && (month != 0) && (day != 0))
			mir_sntprintf(buffer, SIZEOF(buffer), _T("%04d-%02d-%02d"), year, month, day);
		else
			mir_sntprintf(buffer, SIZEOF(buffer), NA);

		ListView_SetItemText(hList, entry, 3, buffer);

		if (age < 400) //hopefully noone lives longer than this :)
			mir_sntprintf(buffer, SIZEOF(buffer), _T("%d"), age);
		else
			mir_sntprintf(buffer, SIZEOF(buffer), NA);

		ListView_SetItemText(hList, entry, 4, buffer);
		ListView_SetItemText(hList, entry, 5, GetBirthdayModule(module, hContact));

		res++;
	}
	else if (!bShowAll && !bAdd)
		ListView_DeleteItem(hList, entry);

	return res;	
}

static LRESULT CALLBACK BirthdaysListSubclassProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch (msg) {
	case WM_KEYUP:
		if (wParam == VK_ESCAPE)
			SendMessage(GetParent(hWnd), WM_CLOSE, 0, 0);
		break;

	case WM_SYSKEYDOWN:
		if (wParam == 'X')
			SendMessage(GetParent(hWnd), WM_CLOSE, 0, 0);
		break;

	case WM_LBUTTONDBLCLK:
		{
			int count = ListView_GetItemCount(hWnd);
			HANDLE hContact;
			LVITEM item = {0};
			item.mask = LVIF_PARAM;
			for (int i = 0; i < count; i++) {
				if (ListView_GetItemState(hWnd, i, LVIS_SELECTED)) {
					item.iItem = i;
					ListView_GetItem(hWnd, &item);
					hContact = (HANDLE) item.lParam;
					CallService(MS_WWI_ADD_BIRTHDAY, (WPARAM) hContact, 0);
				}
			}
			break;
		}
	}
	return mir_callNextSubclass(hWnd, BirthdaysListSubclassProc, msg, wParam, lParam);
}

void SetBirthdaysCount(HWND hWnd)
{
	int count = ListView_GetItemCount((GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST)));
	TCHAR title[512];
	mir_sntprintf(title, SIZEOF(title), TranslateT("Birthday list (%d)"), count);
	SetWindowText(hWnd, title);
}

int LoadBirthdays(HWND hWnd, int bShowAll)
{
	HWND hList = GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST);
	ListView_DeleteAllItems(hList);

	int count = 0;
	for (HANDLE hContact = db_find_first(); hContact; hContact = db_find_next(hContact))
		count = UpdateBirthdayEntry(hList, hContact, count, bShowAll, commonData.cShowAgeMode, 1); 

	SetBirthdaysCount(hWnd);
	return 0;
}

INT_PTR CALLBACK DlgProcBirthdays(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch (msg) {
	case WM_INITDIALOG:
		TranslateDialogDefault(hWnd);
		SendMessage(hWnd, WM_SETICON, ICON_BIG, (LPARAM)Skin_GetIconByHandle(hListMenu));
		{
			HWND hList = GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST);

			ListView_SetExtendedListViewStyleEx(hList, LVS_EX_FULLROWSELECT, LVS_EX_FULLROWSELECT);

			mir_subclassWindow(hList, BirthdaysListSubclassProc);

			LVCOLUMN col;
			col.mask = LVCF_TEXT | LVCF_WIDTH;
			col.pszText = TranslateT("Protocol");
			col.cx = 80;
			ListView_InsertColumn(hList, 0, &col);
			col.pszText = TranslateT("Contact");
			col.cx = 180;
			ListView_InsertColumn(hList, 1, &col);
			col.pszText = TranslateT("DTB");
			col.cx = 50;
			ListView_InsertColumn(hList, 2, &col);
			col.pszText = TranslateT("Birthday");
			col.cx = 80;
			ListView_InsertColumn(hList, 3, &col);
			col.pszText = TranslateT("Age");
			col.cx = 50;
			ListView_InsertColumn(hList, 4, &col);
			col.pszText = TranslateT("Module");
			col.cx = 108;
			ListView_InsertColumn(hList, 5, &col);

			LoadBirthdays(hWnd, 0);
			int column = db_get_b(NULL, ModuleName, "SortColumn", 0);

			BirthdaysSortParams params = {0};
			params.hList = GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST);
			params.column = column;
			ListView_SortItemsEx(params.hList, BirthdaysCompare, (LPARAM) &params);

			Utils_RestoreWindowPosition(hWnd,NULL,ModuleName,"BirthdayList");
		}
		return TRUE;

	case WM_CLOSE:
		DestroyWindow(hWnd);
		break;

	case WWIM_UPDATE_BIRTHDAY:
		{//wParam = hContact
			HWND hList = GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST);
			HANDLE hContact = (HANDLE) wParam;
			int i;
			int count = ListView_GetItemCount(hList);
			//int bShowCurrentAge = db_get_b(NULL, ModuleName, "ShowCurrentAge", 0);
			LVITEM item = {0};
			int found = 0;

			item.mask = LVIF_PARAM;
			for (i = 0; (i < count) && (!found); i++) {
				item.iItem = i;
				ListView_GetItem(hList, &item);
				if (hContact == (HANDLE) item.lParam) {
					UpdateBirthdayEntry(hList, hContact, i, IsDlgButtonChecked(hWnd, IDC_SHOW_ALL), commonData.cShowAgeMode, 0); 
					found = 1;
				}
			}
			if ( !found)
				UpdateBirthdayEntry(hList, hContact, count, IsDlgButtonChecked(hWnd, IDC_SHOW_ALL), commonData.cShowAgeMode, 1);

			SetBirthdaysCount(hWnd);
		}
		break;

	case WM_WINDOWPOSCHANGING:
		{
			HDWP hdWnds = BeginDeferWindowPos(2);
			RECT rParent;
			WINDOWPOS *wndPos = (WINDOWPOS *) lParam;
			GetWindowRect(hWnd, &rParent);

			if (wndPos->cx < MIN_BIRTHDAYS_WIDTH)
				wndPos->cx = MIN_BIRTHDAYS_WIDTH;

			if (wndPos->cy < MIN_BIRTHDAYS_HEIGHT)
				wndPos->cy = MIN_BIRTHDAYS_HEIGHT;

			AddAnchorWindowToDeferList(hdWnds, GetDlgItem(hWnd, IDC_CLOSE), &rParent, wndPos, ANCHOR_RIGHT | ANCHOR_BOTTOM);
			AddAnchorWindowToDeferList(hdWnds, GetDlgItem(hWnd, IDC_SHOW_ALL), &rParent, wndPos, ANCHOR_LEFT | ANCHOR_BOTTOM);
			AddAnchorWindowToDeferList(hdWnds, GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST), &rParent, wndPos, ANCHOR_ALL);

			EndDeferWindowPos(hdWnds);
		}
		break;

	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDC_CLOSE:
			SendMessage(hWnd, WM_CLOSE, 0, 0);
			break;

		case IDC_SHOW_ALL:
			LoadBirthdays(hWnd, IsDlgButtonChecked(hWnd, IDC_SHOW_ALL));
			break;
		}
		break;

	case WM_NOTIFY:
		switch (((LPNMHDR) lParam)->idFrom) {
		case IDC_BIRTHDAYS_LIST:
			switch (((LPNMHDR)lParam)->code) {
			case LVN_COLUMNCLICK:
				{
					LPNMLISTVIEW lv = (LPNMLISTVIEW) lParam;
					int column = lv->iSubItem;
					db_set_b(NULL, ModuleName, "SortColumn", column);
					BirthdaysSortParams params = {0};
					params.hList = GetDlgItem(hWnd, IDC_BIRTHDAYS_LIST);
					params.column = column;
					ListView_SortItemsEx(params.hList, BirthdaysCompare, (LPARAM) &params);
					lastColumn = (params.column == lastColumn) ? -1 : params.column;
					break;
				}
			}
		}
		break;

	case WM_DESTROY:
		hBirthdaysDlg = NULL;
		Utils_SaveWindowPosition(hWnd,NULL,ModuleName,"BirthdayList");
		Skin_ReleaseIcon((HICON)SendMessage(hWnd, WM_GETICON, ICON_BIG, 0));
		lastColumn = -1;
		break;

	}
	return 0;
}


INT_PTR CALLBACK UpcomingCompare(LPARAM lParam1, LPARAM lParam2, LPARAM myParam)
{
	HWND hList = GetDlgItem(hUpcomingDlg, IDC_UPCOMING_LIST);
	LVITEM item = {0};
	item.iItem = (int) lParam1;
	item.mask = LVIF_PARAM;
	ListView_GetItem(hList, &item);
	int dtb1 = item.lParam;

	item.iItem = (int) lParam2;
	ListView_GetItem(hList, &item);
	int dtb2 = item.lParam;

	if (dtb1 != dtb2)
		return (dtb1 > dtb2) ? 1 : -1;

	return 0;
}

INT_PTR CALLBACK DlgProcUpcoming(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	static int timeout;

	switch (msg) {
	case WM_INITDIALOG:
		{
			timeout = commonData.cDlgTimeout;
			TranslateDialogDefault(hWnd);
			SendMessage(hWnd, WM_SETICON, ICON_BIG, (LPARAM)Skin_GetIconByHandle(hListMenu));
			HWND hList = GetDlgItem(hWnd, IDC_UPCOMING_LIST);

			ListView_SetExtendedListViewStyleEx(hList, LVS_EX_FULLROWSELECT, LVS_EX_FULLROWSELECT);

			LVCOLUMN col;
			col.mask = LVCF_TEXT | LVCF_WIDTH;
			col.pszText = TranslateT("Contact");
			col.cx = 300;
			ListView_InsertColumn(hList, 0, &col);
			col.pszText = TranslateT("Age");
			col.cx = 60;
			ListView_InsertColumn(hList, 1, &col);

			if (timeout > 0)
				SetTimer(hWnd, UPCOMING_TIMER_ID, 1000, NULL);
		}
		return TRUE;

	case WM_TIMER:
		{
			const int MAX_SIZE = 512;
			TCHAR buffer[MAX_SIZE];
			mir_sntprintf(buffer, SIZEOF(buffer), (timeout != 2) ? TranslateT("Closing in %d seconds") : TranslateT("Closing in %d second"), --timeout);
			SetWindowText(GetDlgItem(hWnd, IDC_CLOSE), buffer);

			if (timeout <= 0)
				SendMessage(hWnd, WM_CLOSE, 0, 0);
		}
		break;

	case WM_CLOSE:
		DestroyWindow(hWnd);
		break;

	case WWIM_ADD_UPCOMING_BIRTHDAY:
		{
			PUpcomingBirthday data = (PUpcomingBirthday) wParam;

			HWND hList = GetDlgItem(hWnd, IDC_UPCOMING_LIST);
			LVITEM item = {0};
			int index = ListView_GetItemCount(hList);
			item.iItem = index;
			item.mask = LVIF_PARAM | LVIF_TEXT;
			//item.lParam = (LPARAM) data->hContact;
			item.lParam = (LPARAM) data->dtb;
			item.pszText = data->message;
			ListView_InsertItem(hList, &item);

			TCHAR buffer[512];
			mir_sntprintf(buffer, 512, _T("%d"), data->age);
			ListView_SetItemText(hList, index, 1, buffer);

			ListView_SortItemsEx(hList, UpcomingCompare, NULL);
		}
		break;

	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDC_CLOSE:
			SendMessage(hWnd, WM_CLOSE, 0, 0);
			break;
		}

	case WM_DESTROY:
		hUpcomingDlg = NULL;
		Skin_ReleaseIcon((HICON)SendMessage(hWnd, WM_GETICON, ICON_BIG, 0));
		KillTimer(hWnd, UPCOMING_TIMER_ID);
		break;
	}

	return 0;
}

DWORD WINAPI OpenMessageWindowThread(void *data)
{
	HANDLE hContact = (HANDLE) data;
	CallServiceSync(MS_MSG_SENDMESSAGE, (WPARAM) hContact, 0);
	CallServiceSync("SRMsg/LaunchMessageWindow", (WPARAM) hContact, 0);
	return 0;
}

int HandlePopupClick(HWND hWnd, int action)
{
	switch (action) {
	case 2: //OPEN MESSAGE WINDOW
		{
			HANDLE hContact = (HANDLE) PUGetContact(hWnd);
			if (hContact) {
				DWORD threadID;
				HANDLE thread = CreateThread(NULL, NULL, OpenMessageWindowThread, hContact, 0, &threadID);
			}
		}//fallthrough

	case 1: //DISMISS
		PUDeletePopup(hWnd);
		break;
	}

	return 0;
}

LRESULT CALLBACK DlgProcPopup(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch (msg) {
	case WM_COMMAND:
		switch (HIWORD(wParam)) {
		case STN_CLICKED:
			HandlePopupClick(hWnd, commonData.lPopupClick);
			break;
		}
		break;

	case WM_CONTEXTMENU:
		HandlePopupClick(hWnd, commonData.rPopupClick);
		break;
	}

	return DefWindowProc(hWnd, msg, wParam, lParam);
}