/*
	Options.cpp
	Copyright (c) 2005-2008 Chervov Dmitry

    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 "Common.h"
#include "Options.h"

static CString sEmptyString("");


COptPage::COptPage(const COptPage &Item)
{
	*this = Item;
}

COptPage::~COptPage()
{
	int I;
	for (I = 0; I < Items.GetSize(); I++)
	{
		delete Items[I];
	}
	Items.RemoveAll();
}

void COptPage::MemToPage(int OnlyEnable)
{
	int I;
	_ASSERT(hWnd);
	for (I = 0; I < Items.GetSize(); I++)
	{
		if (OnlyEnable)
		{
			Items[I]->COptItem::MemToWnd(hWnd);
		} else
		{
			Items[I]->MemToWnd(hWnd);
		}
	}
}

void COptPage::PageToMem()
{
	int I;
	_ASSERT(hWnd);
	for (I = 0; I < Items.GetSize(); I++)
	{
		Items[I]->WndToMem(hWnd);
	}
}

void COptPage::DBToMem()
{
	int I;
	_ASSERT(sModule != "");
	for (I = 0; I < Items.GetSize(); I++)
	{
		Items[I]->DBToMem(sModule, &sDBSettingPrefix);
	}
}

void COptPage::MemToDB()
{
	int I;
	_ASSERT(sModule != "");
	for (I = 0; I < Items.GetSize(); I++)
	{
		Items[I]->MemToDB(sModule, &sDBSettingPrefix);
	}
}

void COptPage::CleanDBSettings()
{
	int I;
	_ASSERT(sModule != "");
	for (I = 0; I < Items.GetSize(); I++)
	{
		Items[I]->CleanDBSettings(sModule, &sDBSettingPrefix);
	}
}

bool COptPage::GetModified()
{
	int I;
	_ASSERT(sModule != "");
	for (I = 0; I < Items.GetSize(); I++)
	{
		if (Items[I]->GetModified())
		{
			return true;
		}
	}
	return false;
}

void COptPage::SetModified(bool Modified)
{
	int I;
	_ASSERT(sModule != "");
	for (I = 0; I < Items.GetSize(); I++)
	{
		Items[I]->SetModified(Modified);
	}
}

COptItem *COptPage::Find(int DlgItemID)
{
	int I;
	for (I = 0; I < Items.GetSize(); I++)
	{
		if (Items[I]->GetID() == DlgItemID)
		{
			return Items[I];
		}
	}
	_ASSERT(0);
	return 0;
}

COptPage& COptPage::operator = (const COptPage& Page)
{
	int I;
	hWnd = Page.hWnd;
	sModule = Page.sModule;
	sDBSettingPrefix = Page.sDBSettingPrefix;
	Items.RemoveAll();
	for (I = 0; I < Page.Items.GetSize(); I++)
	{
		Items.AddElem(Page.Items[I]->Copy());
	}
	return *this;
}


int COptItem::GetIntDBVal(CString &sModule, int bSigned, CString *sDBSettingPrefix)
{ // default procedure for reading value from DB; used only for integral types
	if (sDBSetting != NULL)
	{
		_ASSERT(nValueSize == DBVT_BYTE || nValueSize == DBVT_WORD || nValueSize == DBVT_DWORD);
		DBVARIANT dbv;
		if (db_get(NULL, sModule, sDBSetting, &dbv))
			return GetDefValue();

		return (nValueSize == DBVT_BYTE) ? (bSigned ? (signed char)dbv.bVal : (unsigned char)dbv.bVal) : ((nValueSize == DBVT_WORD) ? (bSigned ? (signed short)dbv.wVal : (unsigned short)dbv.wVal) : dbv.dVal);
	}
	return GetDefValue();
}

void COptItem::SetIntDBVal(CString &sModule, int Value, CString *sDBSettingPrefix)
{ // default procedure for writing value to the DB; used only for integral types
	if (sDBSetting != NULL && !ReadOnly)
	{
		_ASSERT(nValueSize == DBVT_BYTE || nValueSize == DBVT_WORD || nValueSize == DBVT_DWORD);

		DBVARIANT dbv;
		dbv.type = nValueSize;
		dbv.dVal = Value;
		db_set(NULL, sModule, sDBSetting, &dbv);
	}
}

TCString COptItem::GetStrDBVal(CString &sModule, CString *sDBSettingPrefix)
{
	if (sDBSetting != NULL)
	{
		_ASSERT(GetDefValue());
		return db_get_s(NULL, sModule, sDBSettingPrefix ? (*sDBSettingPrefix + sDBSetting) : sDBSetting, *(TCString*)GetDefValue());
	}
	return *(TCString*)GetDefValue();
}

void COptItem::SetStrDBVal(CString &sModule, TCString &Str, CString *sDBSettingPrefix)
{
	if (sDBSetting != NULL && !ReadOnly)
	{
		db_set_ts(NULL, sModule, sDBSettingPrefix ? (*sDBSettingPrefix + sDBSetting) : sDBSetting, Str);
	}
}



void COptItem_Checkbox::DBToMem(CString &sModule, CString *sDBSettingPrefix)
{
	if (ValueMask)
	{
		Value = (GetIntDBVal(sModule, false, sDBSettingPrefix) & ValueMask) ? BST_CHECKED : BST_UNCHECKED;
	} else
	{
		Value = GetIntDBVal(sModule, false, sDBSettingPrefix);
	}
	COptItem::DBToMem(sModule, sDBSettingPrefix);
}

void COptItem_Checkbox::MemToDB(CString &sModule, CString *sDBSettingPrefix)
{
	if (ValueMask)
	{
		if (Value == BST_CHECKED)
		{
			SetIntDBVal(sModule, GetIntDBVal(sModule, false, sDBSettingPrefix) | ValueMask, sDBSettingPrefix);
		} else
		{
			SetIntDBVal(sModule, GetIntDBVal(sModule, false, sDBSettingPrefix) & ~ValueMask, sDBSettingPrefix);
		}
	} else
	{
		SetIntDBVal(sModule, Value, sDBSettingPrefix);
	}
	COptItem::MemToDB(sModule, sDBSettingPrefix);
}

void COptItem_Checkbox::WndToMem(HWND hWnd)
{
	Value = IsDlgButtonChecked(hWnd, DlgItemID);
// tri-state checkboxes in combination with ValueMask != 0 are not supported ;)
	_ASSERT(!ValueMask || Value != BST_INDETERMINATE);
	COptItem::WndToMem(hWnd);
}

void COptItem_Checkbox::MemToWnd(HWND hWnd)
{
	CheckDlgButton(hWnd, DlgItemID, Value);
	COptItem::MemToWnd(hWnd);
}



void COptItem_BitDBSetting::DBToMem(CString &sModule, CString *sDBSettingPrefix)
{
	if (ValueMask)
	{
		Value = (GetIntDBVal(sModule, false, sDBSettingPrefix) & ValueMask) != 0;
	} else
	{
		Value = GetIntDBVal(sModule, false, sDBSettingPrefix);
	}
	COptItem::DBToMem(sModule, sDBSettingPrefix);
}

void COptItem_BitDBSetting::MemToDB(CString &sModule, CString *sDBSettingPrefix)
{
	if (ValueMask)
	{
		if (Value)
		{
			SetIntDBVal(sModule, GetIntDBVal(sModule, false, sDBSettingPrefix) | ValueMask, sDBSettingPrefix);
		} else
		{
			SetIntDBVal(sModule, GetIntDBVal(sModule, false, sDBSettingPrefix) & ~ValueMask, sDBSettingPrefix);
		}
	} else
	{
		SetIntDBVal(sModule, Value, sDBSettingPrefix);
	}
	COptItem::MemToDB(sModule, sDBSettingPrefix);
}


// ================================================ COptItem_TreeCtrl ================================================

int COptItem_TreeCtrl::IDToOrder(int ID)
{
	int I;
	for (I = 0; I < RootItems.GetSize(); I++)
	{
		if (RootItems[I].ID == ID)
		{
			return ROOT_INDEX_TO_ORDER(I);
		}
	}
	for (I = 0; I < Value.GetSize(); I++)
	{
		if (Value[I].ID == ID)
		{
			return I;
		}
	}
	return -1;
}

int COptItem_TreeCtrl::hItemToOrder(HTREEITEM hItem)
{
	int I;
	for (I = 0; I < RootItems.GetSize(); I++)
	{
		if (RootItems[I].hItem == hItem)
		{
			return ROOT_INDEX_TO_ORDER(I);
		}
	}
	for (I = 0; I < Value.GetSize(); I++)
	{
		if (Value[I].hItem == hItem)
		{
			return I;
		}
	}
	return -1;
}

int COptItem_TreeCtrl::GenerateID()
{
	int ID = 0;
	while (IDToOrder(ID) != -1)
	{
		ID++;
	}
	return ID;
}

typedef struct
{
	COptItem_TreeCtrl *TreeCtrl;
	CString *sModule;
	CString *sDBSettingPrefix;
} sTreeReadEnumData;

int TreeReadEnum(const char *szSetting, LPARAM lParam)
{
	sTreeReadEnumData *TreeReadEnumData = (sTreeReadEnumData*)lParam;
	int Len = TreeReadEnumData->TreeCtrl->sDBSetting.GetLen() + lengthof(TREEITEM_DBSTR_TITLE) - 1;
	if (!strncmp(szSetting, TreeReadEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_TITLE, Len) && isdigit(szSetting[Len]))
	{
		int ID = atol(szSetting + Len);
		short ParentID = (TreeReadEnumData->TreeCtrl->TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL) ? 0 : db_get_w(NULL, *TreeReadEnumData->sModule,
			*TreeReadEnumData->sDBSettingPrefix + TreeReadEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_PARENT + (szSetting + Len), -1);
		short Order = db_get_w(NULL, *TreeReadEnumData->sModule,
			*TreeReadEnumData->sDBSettingPrefix + TreeReadEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_ORDER + (szSetting + Len), -1);
		char Flags = (TreeReadEnumData->TreeCtrl->TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL && !(TreeReadEnumData->TreeCtrl->TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES)) ? 0 : db_get_b(NULL, *TreeReadEnumData->sModule,
			*TreeReadEnumData->sDBSettingPrefix + TreeReadEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_FLAGS + (szSetting + Len), 0);
		if (ParentID >= 0 && Order >= 0)
		{
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).ID = ID;
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).ParentID = ParentID;
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).Flags = Flags;
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).hItem = NULL;
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).Title = db_get_s(NULL, *TreeReadEnumData->sModule, *TreeReadEnumData->sDBSettingPrefix + szSetting, _T(""));
			TreeReadEnumData->TreeCtrl->Value.SetAtGrow(Order).User_Str1 = (TreeReadEnumData->TreeCtrl->User_Str1_DBName == NULL) ? NULL :
				db_get_s(NULL, *TreeReadEnumData->sModule,
					*TreeReadEnumData->sDBSettingPrefix + TreeReadEnumData->TreeCtrl->sDBSetting + TreeReadEnumData->TreeCtrl->User_Str1_DBName + (szSetting + Len), (TCHAR*)NULL);
		}
	}
	return 0;
}

void COptItem_TreeCtrl::DBToMem(CString &sModule, CString *sDBSettingPrefix)
{
	if (!sDBSettingPrefix)
	{
		sDBSettingPrefix = &sEmptyString;
	}
	Value.RemoveAll();
	sTreeReadEnumData TreeReadEnumData;
	TreeReadEnumData.TreeCtrl = this;
	TreeReadEnumData.sModule = &sModule;
	TreeReadEnumData.sDBSettingPrefix = sDBSettingPrefix;
	DBCONTACTENUMSETTINGS dbEnum;
	dbEnum.lParam = (LPARAM)&TreeReadEnumData;
	dbEnum.ofsSettings = 0;
	dbEnum.pfnEnumProc = TreeReadEnum;
	dbEnum.szModule = sModule;
	CallService(MS_DB_CONTACT_ENUMSETTINGS, NULL, (LPARAM)&dbEnum);
	if (!Value.GetSize())
	{
		Value = DefValue;
	} else
	{
		int I;
		for (I = 0; I < Value.GetSize(); I++)
		{
			if (Value[I].Title == NULL)
			{
				Value.RemoveElem(I);
				I--;
			}
		}
	}
	COptItem::DBToMem(sModule, sDBSettingPrefix);
}

void COptItem_TreeCtrl::MemToDB(CString &sModule, CString *sDBSettingPrefix)
{
	if (!ReadOnly && Modified)
	{
		if (!sDBSettingPrefix)
		{
			sDBSettingPrefix = &sEmptyString;
		}
		CleanDBSettings(sModule, sDBSettingPrefix);
		int I;
		for (I = 0; I < Value.GetSize(); I++)
		{
			CString StrID;
			_itoa(Value[I].ID, StrID.GetBuffer(64), 10);
			StrID.ReleaseBuffer();
			db_set_ts(NULL, sModule, *sDBSettingPrefix + sDBSetting + TREEITEM_DBSTR_TITLE + StrID, Value[I].Title);
			if (!(TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL))
				db_set_w(NULL, sModule, *sDBSettingPrefix + sDBSetting + TREEITEM_DBSTR_PARENT + StrID, Value[I].ParentID);

			db_set_w(NULL, sModule, *sDBSettingPrefix + sDBSetting + TREEITEM_DBSTR_ORDER + StrID, I);
			if (!(TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL) || TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES)
				db_set_b(NULL, sModule, *sDBSettingPrefix + sDBSetting + TREEITEM_DBSTR_FLAGS + StrID, Value[I].Flags);

			if (User_Str1_DBName != NULL && Value[I].User_Str1 != NULL)
				db_set_ts(NULL, sModule, *sDBSettingPrefix + sDBSetting + User_Str1_DBName + StrID, Value[I].User_Str1);
		}
		COptItem::MemToDB(sModule, sDBSettingPrefix);
	}
}

void COptItem_TreeCtrl::WndToMem(HWND hWnd)
{ // only need to gather info of items state (expanded/collapsed, checked/unchecked)
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	int I;
	for (I = 0; I < Value.GetSize(); I++)
	{
		DWORD State = TreeView_GetItemState(hTreeView, Value[I].hItem, TVIS_EXPANDED | TVIS_STATEIMAGEMASK);
		int OldFlags = Value[I].Flags;
		if (State & TVIS_EXPANDED)
		{
			Value[I].Flags |= TIF_EXPANDED;
		} else
		{
			Value[I].Flags &= ~TIF_EXPANDED;
		}
		if (TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES && (State >> 12) - 1)
		{
			Value[I].Flags |= TIF_ENABLED;
		} else
		{
			Value[I].Flags &= ~TIF_ENABLED;
		}
		if (Value[I].Flags != OldFlags)
		{
			Modified = true;
		}
	}
	COptItem::WndToMem(hWnd);
}

void COptItem_TreeCtrl::MemToWnd(HWND hWnd)
{
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	if (TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES)
	{ // have to set this in run-time as it's specified in MSDN
		LONG Style = GetWindowLongPtr(hTreeView, GWL_STYLE);
		SetWindowLongPtr(hTreeView, GWL_STYLE, Style & ~TVS_CHECKBOXES);
		SetWindowLongPtr(hTreeView, GWL_STYLE, Style | TVS_CHECKBOXES);
	}
	TVINSERTSTRUCT tvIn = {0};
	int ScrollPos = GetScrollPos(hTreeView, SB_VERT);
	int SelectOrder = IDToOrder(GetSelectedItemID(hWnd));
	SendMessage(hTreeView, WM_SETREDRAW, false, 0);
	TreeView_DeleteAllItems(hTreeView);
	_ASSERT(RootItems.GetSize());
	int I;
	if (!(TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL))
	{
		for (I = 0; I < RootItems.GetSize(); I++)
		{
			tvIn.item.mask = TVIF_TEXT | TVIF_STATE | TVIF_PARAM;
			RootItems[I].Flags |= TIF_GROUP;
			tvIn.item.state = tvIn.item.stateMask = TVIS_BOLD | ((RootItems[I].Flags & TIF_EXPANDED) ? TVIS_EXPANDED : 0);
			tvIn.item.pszText = RootItems[I].Title;
			tvIn.hParent = TVI_ROOT;
			tvIn.hInsertAfter = TVI_LAST;
			tvIn.item.lParam = RootItems[I].ID;
			RootItems[I].hItem = TreeView_InsertItem(hTreeView, &tvIn);
		}
	}
	for (I = 0; I < Value.GetSize(); I++)
	{
		Value[I].hItem = RootItems[0].hItem; // put an item to first group in case of some strange error
	}
	for (I = 0; I < Value.GetSize(); I++)
	{
		tvIn.item.mask = TVIF_TEXT | TVIF_STATE | TVIF_PARAM;
		tvIn.item.state = tvIn.item.stateMask = (Value[I].Flags & TIF_GROUP) ? (TVIS_BOLD | ((Value[I].Flags & TIF_EXPANDED) ? TVIS_EXPANDED : 0)) : 0;
		if (TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES)
		{
			tvIn.item.stateMask |= TVIS_STATEIMAGEMASK;
			tvIn.item.state |= INDEXTOSTATEIMAGEMASK((Value[I].Flags & TIF_ENABLED) ? 2 : 1);
		}
		tvIn.item.pszText = Value[I].Title;
		int Order = IDToOrder(Value[I].ParentID);
		if (Order != -1)
		{
			tvIn.hParent = (Order <= TREECTRL_ROOTORDEROFFS) ? RootItems[ROOT_ORDER_TO_INDEX(Order)].hItem : Value[Order].hItem;
			tvIn.hInsertAfter = TVI_LAST;
			tvIn.item.lParam = Value[I].ID;
			Value[I].hItem = TreeView_InsertItem(hTreeView, &tvIn);
		} else
		{ // found an orphan item; probably it's better just to delete it
			Value.RemoveElem(I);
			I--;
		}
	}
	TreeView_SelectItem(hTreeView, (SelectOrder >= 0) ? Value[SelectOrder].hItem : ((SelectOrder <= TREECTRL_ROOTORDEROFFS) ? RootItems[ROOT_ORDER_TO_INDEX(SelectOrder)].hItem : NULL));
	SendMessage(hTreeView, WM_SETREDRAW, true, 0);
	SCROLLBARINFO sbi;
	sbi.cbSize = sizeof(sbi);
	GetScrollBarInfo(hTreeView, OBJID_VSCROLL, &sbi);
	if (!(sbi.rgstate[0] & STATE_SYSTEM_INVISIBLE))
	{
		int MinPos, MaxPos;
		GetScrollRange(hTreeView, SB_VERT, &MinPos, &MaxPos);
		if (ScrollPos < MinPos)
		{
			ScrollPos = MinPos;
		} else if (ScrollPos > MaxPos)
		{
			ScrollPos = MaxPos;
		}
		SetScrollPos(hTreeView, SB_VERT, ScrollPos, true);
	}
	COptItem::MemToWnd(hWnd);
}


typedef struct
{
	TMyArray<CString> TreeSettings;
	COptItem_TreeCtrl *TreeCtrl;
	CString *sDBSettingPrefix;
} sTreeDeleteEnumData;

int TreeDeleteEnum(const char *szSetting, LPARAM lParam)
{
	sTreeDeleteEnumData *TreeDeleteEnumData = (sTreeDeleteEnumData*)lParam;
	CString CurSetting;
	CurSetting = *TreeDeleteEnumData->sDBSettingPrefix + TreeDeleteEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_TITLE;
	if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
	{
		TreeDeleteEnumData->TreeSettings.AddElem(szSetting);
	}
	CurSetting = *TreeDeleteEnumData->sDBSettingPrefix + TreeDeleteEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_PARENT;
	if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
	{
		TreeDeleteEnumData->TreeSettings.AddElem(szSetting);
	}
	CurSetting = *TreeDeleteEnumData->sDBSettingPrefix + TreeDeleteEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_ORDER;
	if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
	{
		TreeDeleteEnumData->TreeSettings.AddElem(szSetting);
	}
	CurSetting = *TreeDeleteEnumData->sDBSettingPrefix + TreeDeleteEnumData->TreeCtrl->sDBSetting + TREEITEM_DBSTR_FLAGS;
	if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
	{
		TreeDeleteEnumData->TreeSettings.AddElem(szSetting);
	}
	if (TreeDeleteEnumData->TreeCtrl->User_Str1_DBName != NULL)
	{
		CurSetting = *TreeDeleteEnumData->sDBSettingPrefix + TreeDeleteEnumData->TreeCtrl->sDBSetting + TreeDeleteEnumData->TreeCtrl->User_Str1_DBName;
		if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
		{
			TreeDeleteEnumData->TreeSettings.AddElem(szSetting);
		}
	}
	return 0;
}

void COptItem_TreeCtrl::CleanDBSettings(CString &sModule, CString *sDBSettingPrefix)
{
	if (!sDBSettingPrefix)
	{
		sDBSettingPrefix = &sEmptyString;
	}
	sTreeDeleteEnumData TreeDeleteEnumData;
	TreeDeleteEnumData.TreeCtrl = this;
	TreeDeleteEnumData.sDBSettingPrefix = sDBSettingPrefix;
	DBCONTACTENUMSETTINGS dbEnum;
	dbEnum.lParam = (LPARAM)&TreeDeleteEnumData;
	dbEnum.ofsSettings = 0;
	dbEnum.pfnEnumProc = TreeDeleteEnum;
	dbEnum.szModule = sModule;
	CallService(MS_DB_CONTACT_ENUMSETTINGS, NULL, (LPARAM)&dbEnum);
	int I;
	for (I = 0; I < TreeDeleteEnumData.TreeSettings.GetSize(); I++)
	{
		db_unset(NULL, sModule, TreeDeleteEnumData.TreeSettings[I]);
	}
}


int COptItem_TreeCtrl::GetSelectedItemID(HWND hWnd)
{
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	TVITEM tvi = {0};
	tvi.hItem = TreeView_GetSelection(hTreeView);
	if (!tvi.hItem)
	{
		return -1;
	}
	tvi.mask = TVIF_HANDLE | TVIF_PARAM;
	TreeView_GetItem(hTreeView, &tvi);
	return tvi.lParam;
}

void COptItem_TreeCtrl::Delete(HWND hWnd, int ID)
{
	int SelectedOrder = IDToOrder(ID);
	_ASSERT(SelectedOrder >= 0);
	RecursiveDelete(hWnd, SelectedOrder);
	Modified = true;
}

void COptItem_TreeCtrl::RecursiveDelete(HWND hWnd, int I)
{
	if (Value[I].Flags & TIF_GROUP)
	{
		int J;
		for (J = I + 1; J < Value.GetSize(); J++)
		{
			if (Value[J].ParentID == Value[I].ID)
			{
				RecursiveDelete(hWnd, J--);
			}
		}
	}
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	TreeView_DeleteItem(hTreeView, Value[I].hItem);
	Value.RemoveElem(I);
}

CTreeItem* COptItem_TreeCtrl::InsertItem(HWND hWnd, CTreeItem &Item)
// Item's ID and ParentID are not used (the new item position is determined by current selection in the tree)
// returns a pointer to the newly inserted item info
{
	_ASSERT(!(TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL) || !(Item.Flags & TIF_GROUP));
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	TVITEM tvi;
	int SelOrder = -1;
	Item.ParentID = RootItems[0].ID;
	TVINSERTSTRUCT tvIn = {0};
	tvIn.hParent = RootItems[0].hItem;
	tvIn.hInsertAfter = TVI_FIRST;
	if (tvi.hItem = TreeView_GetSelection(hTreeView))
	{
		tvi.mask = TVIF_HANDLE | TVIF_PARAM;
		TreeView_GetItem(hTreeView, &tvi);
		SelOrder = IDToOrder(tvi.lParam);
		if (SelOrder <= TREECTRL_ROOTORDEROFFS)
		{
			Item.ParentID = RootItems[ROOT_ORDER_TO_INDEX(SelOrder)].ID;
			tvIn.hParent = RootItems[ROOT_ORDER_TO_INDEX(SelOrder)].hItem;
			SelOrder = -1;
		} else
		{
			if (Value[SelOrder].Flags & TIF_GROUP)
			{
				Item.ParentID = Value[SelOrder].ID;
				tvIn.hParent = Value[SelOrder].hItem;
			} else
			{
				Item.ParentID = Value[SelOrder].ParentID;
				int Order = IDToOrder(Value[SelOrder].ParentID);
				tvIn.hParent = (Order <= TREECTRL_ROOTORDEROFFS) ? RootItems[ROOT_ORDER_TO_INDEX(Order)].hItem : Value[Order].hItem;
				tvIn.hInsertAfter = Value[SelOrder].hItem;
			}
		}
	}
	tvIn.item.mask = TVIF_TEXT | TVIF_STATE | TVIF_PARAM;
	tvIn.item.state = tvIn.item.stateMask = (Item.Flags & TIF_GROUP) ? (TVIS_BOLD |
		((Item.Flags & TIF_EXPANDED) ? TVIS_EXPANDED : 0)) : 0;
	if (TreeFlags & TREECTRL_FLAG_HAS_CHECKBOXES)
	{
		tvIn.item.stateMask |= TVIS_STATEIMAGEMASK;
		tvIn.item.state |= INDEXTOSTATEIMAGEMASK((Item.Flags & TIF_ENABLED) ? 2 : 1);
	}
	tvIn.item.pszText = Item.Title;
	tvIn.item.lParam = Item.ID = GenerateID();
	Value.InsertElem(Item, SelOrder + 1);
	Value[SelOrder + 1].hItem = TreeView_InsertItem(hTreeView, &tvIn);
	TreeView_SelectItem(hTreeView, Value[SelOrder + 1].hItem);
	Modified = true;
	return &Value[SelOrder + 1];
}

int COptItem_TreeCtrl::RecursiveMove(int ItemOrder, int ParentID, int InsertAtOrder)
// ItemOrder must be a movable item (i.e. ItemOrder >= 0)
// InsertAtOrder must be >= 0 too.
{
	int ItemsMoved = 1;
	Value.MoveElem(ItemOrder, InsertAtOrder);
	Value[InsertAtOrder].ParentID = ParentID;
	if (Value[InsertAtOrder].Flags & TIF_GROUP) // need to ensure that no items were left before their group by an order.
	{
		int GroupID = Value[InsertAtOrder].ID;
		int I;
		for (I = ItemOrder; I < InsertAtOrder; I++) // if ItemOrder > InsertAtOrder then there is simply nothing to do
		{
			if (Value[I].ParentID == GroupID)
			{
				int CurrentItemsMoved = RecursiveMove(I, GroupID, InsertAtOrder);
				ItemsMoved += CurrentItemsMoved;
				InsertAtOrder -= CurrentItemsMoved;
				I--;
			}
		}
	}
	return ItemsMoved;
}

void COptItem_TreeCtrl::MoveItem(HWND hWnd, HTREEITEM hItem, HTREEITEM hMoveTo)
{ // hMoveTo can be NULL and it means that we must move hItem to the beginning of the list
	_ASSERT(hItem && (hMoveTo || TreeFlags & TREECTRL_FLAG_IS_SINGLE_LEVEL));
	if (hItem == hMoveTo)
	{
		return;
	}
	HWND hTreeView = GetDlgItem(hWnd, DlgItemID);
	TVITEM tvi;
	tvi.mask = TVIF_HANDLE | TVIF_PARAM;
	tvi.hItem = hItem;
	TreeView_GetItem(hTreeView, &tvi);
	int ItemOrder = IDToOrder(tvi.lParam);
	_ASSERT(ItemOrder != -1);
	int MoveToOrder;
	if (hMoveTo)
	{
		tvi.hItem = hMoveTo;
		TreeView_GetItem(hTreeView, &tvi);
		MoveToOrder = IDToOrder(tvi.lParam);
		_ASSERT(MoveToOrder != -1);
	} else
	{
		MoveToOrder = -1;
	}
	if (ItemOrder <= TREECTRL_ROOTORDEROFFS)
	{
		return; // can't move root items
	}
	if (Value[ItemOrder].Flags & TIF_GROUP)
	{ // need to check for a case when trying to move a group to its own subgroup.
		int Order = MoveToOrder;
		while (Order >= 0)
		{
			Order = IDToOrder(Value[Order].ParentID);
			if (Order == ItemOrder)
			{
				return;
			}
		}
	}
// well, everything is ok, we really can move that item.
	WndToMem(hWnd); // save groups state (expanded/collapsed)
	if (MoveToOrder != -1 && ((MoveToOrder <= TREECTRL_ROOTORDEROFFS) ? RootItems[ROOT_ORDER_TO_INDEX(MoveToOrder)].Flags : Value[MoveToOrder].Flags) & TIF_GROUP)
	{ // if the destination is a group, then move the item to that group
		RecursiveMove(ItemOrder, (MoveToOrder <= TREECTRL_ROOTORDEROFFS) ? RootItems[ROOT_ORDER_TO_INDEX(MoveToOrder)].ID : Value[MoveToOrder].ID, (MoveToOrder >= 0) ? ((ItemOrder < MoveToOrder) ? MoveToOrder : (MoveToOrder + 1)) : 0);
	} else
	{ // else place the item after the destination item
		RecursiveMove(ItemOrder, (MoveToOrder == -1) ? 0 : Value[MoveToOrder].ParentID, (ItemOrder < MoveToOrder) ? MoveToOrder : (MoveToOrder + 1)); // when TREECTRL_FLAG_IS_SINGLE_LEVEL, we always have a root item with ID = 0.
	}
	MemToWnd(hWnd); // update the tree
	Modified = true;
}


// ================================================ COptItem_ListCtrl ================================================

typedef struct
{
	COptItem_ListCtrl *ListCtrl;
	CString *sModule;
	CString *sDBSettingPrefix;
} sListReadEnumData;

int ListReadEnum(const char *szSetting, LPARAM lParam)
{
	sListReadEnumData *ListReadEnumData = (sListReadEnumData*)lParam;
	int Len = ListReadEnumData->sDBSettingPrefix->GetLen() + ListReadEnumData->ListCtrl->sDBSetting.GetLen() + lengthof(LISTITEM_DBSTR_TEXT) - 1;
	if (!strncmp(szSetting, *ListReadEnumData->sDBSettingPrefix + ListReadEnumData->ListCtrl->sDBSetting + LISTITEM_DBSTR_TEXT, Len) && isdigit(szSetting[Len]))
	{
		int ID = atol(szSetting + Len);
		ListReadEnumData->ListCtrl->Value.SetAtGrow(ID).Text = db_get_s(NULL, *ListReadEnumData->sModule, *ListReadEnumData->sDBSettingPrefix + szSetting, _T(""));
	}
	return 0;
}

void COptItem_ListCtrl::DBToMem(CString &sModule, CString *sDBSettingPrefix)
{
	if (!sDBSettingPrefix)
	{
		sDBSettingPrefix = &sEmptyString;
	}
	Value.RemoveAll();
	sListReadEnumData ListReadEnumData;
	ListReadEnumData.ListCtrl = this;
	ListReadEnumData.sModule = &sModule;
	ListReadEnumData.sDBSettingPrefix = sDBSettingPrefix;
	DBCONTACTENUMSETTINGS dbEnum;
	dbEnum.lParam = (LPARAM)&ListReadEnumData;
	dbEnum.ofsSettings = 0;
	dbEnum.pfnEnumProc = ListReadEnum;
	dbEnum.szModule = sModule;
	CallService(MS_DB_CONTACT_ENUMSETTINGS, NULL, (LPARAM)&dbEnum);
	if (!Value.GetSize())
	{
		Value = DefValue;
	} else
	{
		int I;
		for (I = 0; I < Value.GetSize(); I++)
		{
			if (Value[I].Text == NULL) // NULL is not ""!
			{
				Value.RemoveElem(I);
				I--;
			}
		}
	}
	COptItem::DBToMem(sModule, sDBSettingPrefix);
}

void COptItem_ListCtrl::MemToDB(CString &sModule, CString *sDBSettingPrefix)
{
	if (!ReadOnly && Modified)
	{
		if (!sDBSettingPrefix)
		{
			sDBSettingPrefix = &sEmptyString;
		}
		CleanDBSettings(sModule, sDBSettingPrefix);
		int I;
		for (I = 0; I < Value.GetSize(); I++)
		{
			CString StrID;
			_itoa(I, StrID.GetBuffer(64), 10);
			StrID.ReleaseBuffer();
			db_set_ts(NULL, sModule, *sDBSettingPrefix + sDBSetting + LISTITEM_DBSTR_TEXT + StrID, Value[I].Text);
		}
		COptItem::MemToDB(sModule, sDBSettingPrefix);
	}
}

void COptItem_ListCtrl::WndToMem(HWND hWnd)
{
// nothing to do
	COptItem::WndToMem(hWnd);
}

void COptItem_ListCtrl::MemToWnd(HWND hWnd)
{
	HWND hListView = GetDlgItem(hWnd, DlgItemID);
	SendMessage(hListView, WM_SETREDRAW, false, 0);
	SendMessage(hListView, LB_RESETCONTENT, 0, 0);
	int I;
	for (I = 0; I < Value.GetSize(); I++)
	{
		SendMessage(hListView, LB_INSERTSTRING, -1, (LPARAM)(TCHAR*)Value[I].Text);
	}
	SendMessage(hListView, WM_SETREDRAW, true, 0);
	COptItem::MemToWnd(hWnd);
}


typedef struct
{
	TMyArray<CString> ListSettings;
	COptItem_ListCtrl *ListCtrl;
	CString *sDBSettingPrefix;
} sListDeleteEnumData;

int ListDeleteEnum(const char *szSetting, LPARAM lParam)
{
	sListDeleteEnumData *ListDeleteEnumData = (sListDeleteEnumData*)lParam;
	CString CurSetting = *ListDeleteEnumData->sDBSettingPrefix + ListDeleteEnumData->ListCtrl->sDBSetting + LISTITEM_DBSTR_TEXT;
	if (!strncmp(szSetting, CurSetting, CurSetting.GetLen()))
	{
		ListDeleteEnumData->ListSettings.AddElem(szSetting);
	}
	return 0;
}

void COptItem_ListCtrl::CleanDBSettings(CString &sModule, CString *sDBSettingPrefix)
{
	if (!sDBSettingPrefix)
	{
		sDBSettingPrefix = &sEmptyString;
	}
	sListDeleteEnumData ListDeleteEnumData;
	ListDeleteEnumData.ListCtrl = this;
	ListDeleteEnumData.sDBSettingPrefix = sDBSettingPrefix;
	DBCONTACTENUMSETTINGS dbEnum;
	dbEnum.lParam = (LPARAM)&ListDeleteEnumData;
	dbEnum.ofsSettings = 0;
	dbEnum.pfnEnumProc = ListDeleteEnum;
	dbEnum.szModule = sModule;
	CallService(MS_DB_CONTACT_ENUMSETTINGS, NULL, (LPARAM)&dbEnum);
	int I;
	for (I = 0; I < ListDeleteEnumData.ListSettings.GetSize(); I++)
	{
		db_unset(NULL, sModule, ListDeleteEnumData.ListSettings[I]);
	}
}


int COptItem_ListCtrl::GetSelectedItemID(HWND hWnd)
{
	int Res = SendDlgItemMessage(hWnd, DlgItemID, LB_GETCURSEL, 0, 0);
	return (Res == LB_ERR) ? -1 : Res; // I know that LB_ERR = -1 ;)
}

int COptItem_ListCtrl::SetSelectedItemID(HWND hWnd, int ID)
{
	int Res = SendDlgItemMessage(hWnd, DlgItemID, LB_SETCURSEL, ID, 0);
	return (Res == LB_ERR) ? -1 : Res;
}

void COptItem_ListCtrl::Delete(HWND hWnd, int ID)
{
	_ASSERT(ID >= 0);
	HWND hListView = GetDlgItem(hWnd, DlgItemID);
	int Res = SendMessage(hListView, LB_DELETESTRING, ID, 0);
	_ASSERT(Res != LB_ERR);
	Value.RemoveElem(ID);
	Modified = true;
}

void COptItem_ListCtrl::ModifyItem(HWND hWnd, int ID, CListItem &Item)
{ // changes the text of item with the specified ID
	_ASSERT(ID >= 0);
	HWND hListView = GetDlgItem(hWnd, DlgItemID);
	SendMessage(hListView, WM_SETREDRAW, false, 0);
	int CurSel = SendMessage(hListView, LB_GETCURSEL, 0, 0);
	int TopIndex = SendMessage(hListView, LB_GETTOPINDEX, 0, 0);
	int Res = SendMessage(hListView, LB_DELETESTRING, ID, 0);
	_ASSERT(Res != LB_ERR);
	Res = SendMessage(hListView, LB_INSERTSTRING, ID, (LPARAM)(TCHAR*)(Item.Text));
	_ASSERT(Res != LB_ERR && Res != LB_ERRSPACE);
	SendMessage(hListView, LB_SETCURSEL, CurSel, 0);
	SendMessage(hListView, LB_SETTOPINDEX, TopIndex, 0);
	SendMessage(hListView, WM_SETREDRAW, true, 0);
	Value[ID].Text = Item.Text;
	Modified = true;
}

CListItem* COptItem_ListCtrl::InsertItem(HWND hWnd, int ID, CListItem &Item)
// returns a pointer to the newly inserted item info
// ID is position at which to insert the item; -1 = add to the end of the list
{
	HWND hListView = GetDlgItem(hWnd, DlgItemID);
	int Res = SendMessage(hListView, LB_INSERTSTRING, ID, (LPARAM)(TCHAR*)(Item.Text)); // LB_INSERTSTRING doesn't sort the lists even with LBS_SORT style
	_ASSERT(Res != LB_ERR && Res != LB_ERRSPACE);
	int I = Value.AddElem(Item);
	Modified = true;
	return &Value[I];
}