GTalkExt, ICQ, IRC, Jabber: folders restructurization

git-svn-id: http://svn.miranda-ng.org/main/trunk@1890 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 905 insertions, 0 deletions

diff --git a/protocols/JabberG/src/jabber_form.cpp b/protocols/JabberG/src/jabber_form.cpp
new file mode 100644
index 0000000000..a90dcf62fa
--- /dev/null
+++ b/protocols/JabberG/src/jabber_form.cpp
@@ -0,0 +1,905 @@
+/*

+

+Jabber Protocol Plugin for Miranda IM

+Copyright ( C ) 2002-04  Santithorn Bunchua

+Copyright ( C ) 2005-12  George Hazan

+

+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 "jabber.h"

+#include "jabber_caps.h"

+

+

+static BOOL CALLBACK JabberFormMultiLineWndProc( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam )

+{

+	switch ( msg ) {

+	//case WM_GETDLGCODE:

+	//	return DLGC_WANTARROWS|DLGC_WANTCHARS|DLGC_HASSETSEL|DLGC_WANTALLKEYS;

+	case WM_KEYDOWN:

+		if ( wParam == VK_TAB ) {

+			SetFocus( GetNextDlgTabItem( GetParent( GetParent( hwnd )), hwnd, GetKeyState( VK_SHIFT )<0?TRUE:FALSE ));

+			return TRUE;

+		};

+		break;

+	}

+	return CallWindowProc(( WNDPROC ) GetWindowLongPtr( hwnd, GWLP_USERDATA ), hwnd, msg, wParam, lParam );

+}

+

+struct TJabberFormControlInfo

+{

+	TJabberFormControlType type;

+	SIZE szBlock;

+	POINT ptLabel, ptCtrl;

+	HWND hLabel, hCtrl;

+};

+typedef LIST<TJabberFormControlInfo> TJabberFormControlList;

+

+struct TJabberFormLayoutInfo

+{

+	int ctrlHeight;

+	int offset, width, maxLabelWidth;

+	int y_pos, y_spacing;

+	int id;

+	bool compact;

+};

+

+void JabberFormCenterContent(HWND hwndStatic)

+{

+	RECT rcWindow;

+	int minX;

+	GetWindowRect(hwndStatic,&rcWindow);

+	minX=rcWindow.right;

+	HWND oldChild=NULL;

+	HWND hWndChild=GetWindow(hwndStatic,GW_CHILD);

+	while (hWndChild!=oldChild && hWndChild!=NULL)

+	{

+	   DWORD style=GetWindowLongPtr(hWndChild, GWL_STYLE);

+	   RECT rc;

+	   GetWindowRect(hWndChild,&rc);

+	   if ((style&SS_RIGHT) && !(style&WS_TABSTOP))

+	   {

+		  TCHAR * text;

+		  RECT calcRect=rc;

+		  int len=GetWindowTextLength(hWndChild);

+		  text=(TCHAR*)malloc(sizeof(TCHAR)*(len+1));

+		  GetWindowText(hWndChild,text,len+1);

+		  HDC hdc=GetDC(hWndChild);

+		  HFONT hfntSave = (HFONT)SelectObject(hdc, (HFONT)SendMessage(hWndChild, WM_GETFONT, 0, 0));

+		  DrawText(hdc,text,-1,&calcRect,DT_CALCRECT|DT_WORDBREAK);

+		  minX=min(minX, rc.right-(calcRect.right-calcRect.left));

+		  SelectObject(hdc, hfntSave);

+		  ReleaseDC(hWndChild,hdc);

+	   }

+	   else

+	   {

+		  minX=min(minX,rc.left);

+	   }

+	   oldChild=hWndChild;

+	   hWndChild=GetWindow(hWndChild,GW_HWNDNEXT);

+	}

+	if (minX>rcWindow.left+5)

+	{

+		int dx=(minX-rcWindow.left)/2;

+		oldChild=NULL;

+		hWndChild=GetWindow(hwndStatic,GW_CHILD);

+		while (hWndChild!=oldChild && hWndChild!=NULL )

+		{

+			DWORD style=GetWindowLongPtr(hWndChild, GWL_STYLE);

+			RECT rc;

+			GetWindowRect(hWndChild,&rc);

+			if ((style&SS_RIGHT) && !(style&WS_TABSTOP))

+				MoveWindow(hWndChild,rc.left-rcWindow.left,rc.top-rcWindow.top, rc.right-rc.left-dx, rc.bottom-rc.top, TRUE);

+			else

+				MoveWindow(hWndChild,rc.left-dx-rcWindow.left,rc.top-rcWindow.top, rc.right-rc.left, rc.bottom-rc.top, TRUE);

+			oldChild=hWndChild;

+			hWndChild=GetWindow(hWndChild,GW_HWNDNEXT);

+		}

+	}

+}

+

+void JabberFormSetInstruction( HWND hwndForm, const TCHAR *text )

+{

+	if (!text) text = _T("");

+

+	int len = lstrlen(text);

+	int fixedLen = len;

+	for (int i = 1; i < len; ++i)

+		if ((text[i - 1] == _T('\n')) && (text[i] != _T('\r')))

+			++fixedLen;

+	TCHAR *fixedText = NULL;

+	if (fixedLen != len) {

+		fixedText = (TCHAR *)mir_alloc(sizeof(TCHAR) * (fixedLen+1));

+		TCHAR *p = fixedText;

+		for (int i = 0; i < len; ++i) {

+			*p = text[i];

+			if (i && (text[i] == _T('\n')) && (text[i] != _T('\r'))) {

+				*p++ = _T('\r');

+				*p = _T('\n');

+			}

+			++p;

+		}

+		*p = 0;

+		text = fixedText;

+	}

+

+	SetDlgItemText( hwndForm, IDC_INSTRUCTION, text );

+

+	RECT rcText;

+	GetWindowRect(GetDlgItem(hwndForm, IDC_INSTRUCTION), &rcText);

+	int oldWidth = rcText.right-rcText.left;

+	int deltaHeight = -(rcText.bottom-rcText.top);

+

+	SetRect(&rcText, 0, 0, rcText.right-rcText.left, 0);

+	HDC hdcEdit = GetDC(GetDlgItem(hwndForm, IDC_INSTRUCTION));

+	HFONT hfntSave = (HFONT)SelectObject(hdcEdit, (HFONT)SendDlgItemMessage(hwndForm, IDC_INSTRUCTION, WM_GETFONT, 0, 0));

+	DrawTextEx(hdcEdit, (TCHAR *)text, lstrlen(text), &rcText,

+		DT_CALCRECT|DT_EDITCONTROL|DT_TOP|DT_WORDBREAK, NULL);

+	SelectObject(hdcEdit, hfntSave);

+	ReleaseDC(GetDlgItem(hwndForm, IDC_INSTRUCTION), hdcEdit);

+

+	RECT rcWindow; GetClientRect(hwndForm, &rcWindow);

+	if (rcText.bottom-rcText.top > (rcWindow.bottom-rcWindow.top)/5) {

+		HWND hwndEdit = GetDlgItem(hwndForm, IDC_INSTRUCTION);

+		SetWindowLongPtr(hwndEdit, GWL_STYLE, WS_VSCROLL | GetWindowLongPtr(hwndEdit, GWL_STYLE));

+		rcText.bottom = rcText.top + (rcWindow.bottom-rcWindow.top)/5;

+	} else {

+		HWND hwndEdit = GetDlgItem(hwndForm, IDC_INSTRUCTION);

+		SetWindowLongPtr(hwndEdit, GWL_STYLE, ~WS_VSCROLL & GetWindowLongPtr(hwndEdit, GWL_STYLE));

+	}

+	deltaHeight += rcText.bottom-rcText.top;

+

+	SetWindowPos(GetDlgItem(hwndForm, IDC_INSTRUCTION), 0, 0, 0,

+		oldWidth,

+		rcText.bottom-rcText.top,

+		SWP_NOMOVE|SWP_NOZORDER);

+

+	GetWindowRect(GetDlgItem(hwndForm, IDC_WHITERECT), &rcText);

+	MapWindowPoints(NULL, hwndForm, (LPPOINT)&rcText, 2);

+	rcText.bottom += deltaHeight;

+	SetWindowPos(GetDlgItem(hwndForm, IDC_WHITERECT), 0, 0, 0,

+		rcText.right-rcText.left,

+		rcText.bottom-rcText.top,

+		SWP_NOMOVE|SWP_NOZORDER);

+

+	GetWindowRect(GetDlgItem(hwndForm, IDC_FRAME1), &rcText);

+	MapWindowPoints(NULL, hwndForm, (LPPOINT)&rcText, 2);

+	rcText.top += deltaHeight;

+	SetWindowPos(GetDlgItem(hwndForm, IDC_FRAME1), 0,

+		rcText.left,

+		rcText.top,

+		0, 0,

+		SWP_NOSIZE|SWP_NOZORDER);

+

+	GetWindowRect(GetDlgItem(hwndForm, IDC_FRAME), &rcText);

+	MapWindowPoints(NULL, hwndForm, (LPPOINT)&rcText, 2);

+	rcText.top += deltaHeight;

+	SetWindowPos(GetDlgItem(hwndForm, IDC_FRAME), 0,

+		rcText.left,

+		rcText.top,

+		rcText.right-rcText.left,

+		rcText.bottom-rcText.top,

+		SWP_NOZORDER);

+

+	GetWindowRect(GetDlgItem(hwndForm, IDC_VSCROLL), &rcText);

+	MapWindowPoints(NULL, hwndForm, (LPPOINT)&rcText, 2);

+	rcText.top += deltaHeight;

+	SetWindowPos(GetDlgItem(hwndForm, IDC_VSCROLL), 0,

+		rcText.left,

+		rcText.top,

+		rcText.right-rcText.left,

+		rcText.bottom-rcText.top,

+		SWP_NOZORDER);

+

+	if (fixedText) mir_free(fixedText);

+}

+

+static TJabberFormControlType JabberFormTypeNameToId( const TCHAR *type )

+{

+	if ( !_tcscmp( type, _T("text-private")))

+		return JFORM_CTYPE_TEXT_PRIVATE;

+	if ( !_tcscmp( type, _T("text-multi")) || !_tcscmp( type, _T("jid-multi")))

+		return JFORM_CTYPE_TEXT_MULTI;

+	if ( !_tcscmp( type, _T("boolean")))

+		return JFORM_CTYPE_BOOLEAN;

+	if ( !_tcscmp( type, _T("list-single")))

+		return JFORM_CTYPE_LIST_SINGLE;

+	if ( !_tcscmp( type, _T("list-multi")))

+		return JFORM_CTYPE_LIST_MULTI;

+	if ( !_tcscmp( type, _T("fixed")))

+		return JFORM_CTYPE_FIXED;

+	if ( !_tcscmp( type, _T("hidden")))

+		return JFORM_CTYPE_HIDDEN;

+	// else

+	return JFORM_CTYPE_TEXT_SINGLE;

+}

+

+void JabberFormLayoutSingleControl(TJabberFormControlInfo *item, TJabberFormLayoutInfo *layout_info, const TCHAR *labelStr, const TCHAR *valueStr)

+{

+	RECT rcLabel = {0}, rcCtrl = {0};

+	if (item->hLabel)

+	{

+		SetRect(&rcLabel, 0, 0, layout_info->width, 0);

+		HDC hdc = GetDC( item->hLabel );

+		HFONT hfntSave = (HFONT)SelectObject(hdc, (HFONT)SendMessage(item->hLabel, WM_GETFONT, 0, 0));

+		DrawText( hdc, labelStr, -1, &rcLabel, DT_CALCRECT|DT_WORDBREAK );

+		SelectObject(hdc, hfntSave);

+		ReleaseDC(item->hLabel, hdc);

+	}

+

+	int indent = layout_info->compact ? 10 : 20;

+

+	if ((layout_info->compact && (item->type != JFORM_CTYPE_BOOLEAN) && (item->type != JFORM_CTYPE_FIXED))||

+		(rcLabel.right >= layout_info->maxLabelWidth) ||

+		(rcLabel.bottom > layout_info->ctrlHeight) ||

+		(item->type == JFORM_CTYPE_LIST_MULTI) ||

+		(item->type == JFORM_CTYPE_TEXT_MULTI))

+	{

+		int height = layout_info->ctrlHeight;

+		if ((item->type == JFORM_CTYPE_LIST_MULTI) || (item->type == JFORM_CTYPE_TEXT_MULTI)) height *= 3;

+		SetRect(&rcCtrl, indent, rcLabel.bottom, layout_info->width, rcLabel.bottom + height);

+	} else

+	if (item->type == JFORM_CTYPE_BOOLEAN)

+	{

+		SetRect(&rcCtrl, 0, 0, layout_info->width-20, 0);

+		HDC hdc = GetDC( item->hCtrl );

+		HFONT hfntSave = (HFONT)SelectObject(hdc, (HFONT)SendMessage(item->hCtrl, WM_GETFONT, 0, 0));

+		DrawText( hdc, labelStr, -1, &rcCtrl, DT_CALCRECT|DT_RIGHT|DT_WORDBREAK );

+		SelectObject(hdc, hfntSave);

+		ReleaseDC(item->hCtrl, hdc);

+		rcCtrl.right += 20;

+	} else

+	if (item->type == JFORM_CTYPE_FIXED)

+	{

+		SetRect(&rcCtrl, 0, 0, layout_info->width, 0);

+		HDC hdc = GetDC( item->hCtrl );

+		HFONT hfntSave = (HFONT)SelectObject(hdc, (HFONT)SendMessage(item->hCtrl, WM_GETFONT, 0, 0));

+		DrawText( hdc, valueStr, -1, &rcCtrl, DT_CALCRECT|DT_EDITCONTROL );

+		rcCtrl.right += 20;

+		SelectObject(hdc, hfntSave);

+		ReleaseDC(item->hCtrl, hdc);

+	} else

+	{

+		SetRect(&rcCtrl, rcLabel.right+5, 0, layout_info->width, layout_info->ctrlHeight);

+		rcLabel.bottom = rcCtrl.bottom;

+	}

+

+	if (item->hLabel)

+		SetWindowPos(item->hLabel, 0,

+		0, 0, rcLabel.right-rcLabel.left, rcLabel.bottom-rcLabel.top,

+		SWP_NOZORDER|SWP_NOMOVE);

+	if (item->hCtrl)

+		SetWindowPos(item->hCtrl, 0,

+		0, 0, rcCtrl.right-rcCtrl.left, rcCtrl.bottom-rcCtrl.top,

+		SWP_NOZORDER|SWP_NOMOVE);

+

+	item->ptLabel.x = rcLabel.left;

+	item->ptLabel.y = rcLabel.top;

+	item->ptCtrl.x = rcCtrl.left;

+	item->ptCtrl.y = rcCtrl.top;

+	item->szBlock.cx = layout_info->width;

+	item->szBlock.cy = max(rcLabel.bottom, rcCtrl.bottom);

+}

+

+#define JabberFormCreateLabel()	\

+	CreateWindow( _T("static"), labelStr, WS_CHILD|WS_VISIBLE|SS_CENTERIMAGE, \

+		0, 0, 0, 0, hwndStatic, ( HMENU )-1, hInst, NULL )

+

+TJabberFormControlInfo *JabberFormAppendControl(HWND hwndStatic, TJabberFormLayoutInfo *layout_info, TJabberFormControlType type, const TCHAR *labelStr, const TCHAR *valueStr)

+{

+	TJabberFormControlList *controls = (TJabberFormControlList *)GetWindowLongPtr(hwndStatic, GWLP_USERDATA);

+	if (!controls)

+	{

+		controls = new TJabberFormControlList(5);

+		SetWindowLongPtr(hwndStatic, GWLP_USERDATA, (LONG_PTR)controls);

+	}

+

+	TJabberFormControlInfo *item = (TJabberFormControlInfo *)mir_alloc(sizeof(TJabberFormControlInfo));

+	item->type = type;

+	item->hLabel = item->hCtrl = NULL;

+

+	switch (type)

+	{

+		case JFORM_CTYPE_TEXT_PRIVATE:

+		{

+			item->hLabel = JabberFormCreateLabel();

+			item->hCtrl = CreateWindowEx( WS_EX_CLIENTEDGE, _T("edit"), valueStr,

+				WS_CHILD|WS_VISIBLE|WS_TABSTOP|ES_LEFT|ES_AUTOHSCROLL|ES_PASSWORD,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			++layout_info->id;

+			break;

+		}

+		case JFORM_CTYPE_TEXT_MULTI:

+		{

+			item->hLabel = JabberFormCreateLabel();

+			item->hCtrl = CreateWindowEx( WS_EX_CLIENTEDGE, _T("edit"), valueStr,

+				WS_CHILD|WS_VISIBLE|WS_TABSTOP|WS_VSCROLL|ES_LEFT|ES_MULTILINE|ES_AUTOVSCROLL|ES_WANTRETURN,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			WNDPROC oldWndProc = ( WNDPROC ) SetWindowLongPtr( item->hCtrl, GWLP_WNDPROC, ( LONG_PTR )JabberFormMultiLineWndProc );

+			SetWindowLongPtr( item->hCtrl, GWLP_USERDATA, ( LONG_PTR ) oldWndProc );

+			++layout_info->id;

+			break;

+		}

+		case JFORM_CTYPE_BOOLEAN:

+		{

+			item->hCtrl = CreateWindowEx( 0, _T("button"), labelStr,

+				WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX|BS_MULTILINE,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			if ( valueStr && !_tcscmp( valueStr, _T("1")))

+				SendMessage( item->hCtrl, BM_SETCHECK, 1, 0 );

+			++layout_info->id;

+			break;

+		}

+		case JFORM_CTYPE_LIST_SINGLE:

+		{

+			item->hLabel = JabberFormCreateLabel();

+			item->hCtrl = CreateWindowExA( WS_EX_CLIENTEDGE, "combobox", NULL,

+				WS_CHILD|WS_VISIBLE|WS_TABSTOP|CBS_DROPDOWNLIST,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			++layout_info->id;

+			break;

+		}

+		case JFORM_CTYPE_LIST_MULTI:

+		{

+			item->hLabel = JabberFormCreateLabel();

+			item->hCtrl = CreateWindowExA( WS_EX_CLIENTEDGE, "listbox",

+				NULL, WS_CHILD|WS_VISIBLE|WS_TABSTOP|LBS_MULTIPLESEL,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			++layout_info->id;

+			break;

+		}

+		case JFORM_CTYPE_FIXED:

+		{

+			item->hCtrl = CreateWindow( _T("edit"), valueStr,

+				WS_CHILD|WS_VISIBLE|ES_MULTILINE|ES_READONLY|ES_AUTOHSCROLL,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU )-1, hInst, NULL );

+			break;

+		}

+		case JFORM_CTYPE_HIDDEN:

+		{

+			break;

+		}

+		case JFORM_CTYPE_TEXT_SINGLE:

+		{

+			item->hLabel = labelStr ? (JabberFormCreateLabel()) : NULL;

+			item->hCtrl = CreateWindowEx( WS_EX_CLIENTEDGE, _T("edit"), valueStr,

+				WS_CHILD|WS_VISIBLE|WS_TABSTOP|ES_LEFT|ES_AUTOHSCROLL,

+				0, 0, 0, 0,

+				hwndStatic, ( HMENU ) layout_info->id, hInst, NULL );

+			++layout_info->id;

+			break;

+		}

+	}

+

+	HFONT hFont = ( HFONT ) SendMessage( GetParent(hwndStatic), WM_GETFONT, 0, 0 );

+	if (item->hLabel) SendMessage( item->hLabel, WM_SETFONT, ( WPARAM ) hFont, 0 );

+	if (item->hCtrl) SendMessage( item->hCtrl, WM_SETFONT, ( WPARAM ) hFont, 0 );

+

+	JabberFormLayoutSingleControl(item, layout_info, labelStr, valueStr);

+

+	controls->insert(item);

+	return item;

+}

+

+void JabberFormAddListItem(TJabberFormControlInfo *item, TCHAR *text, bool selected)

+{

+	DWORD dwIndex;

+	switch (item->type)

+	{

+	case JFORM_CTYPE_LIST_MULTI:

+		dwIndex = SendMessage(item->hCtrl, LB_ADDSTRING, 0, (LPARAM)text);

+		if (selected) SendMessage(item->hCtrl, LB_SETSEL, TRUE, dwIndex);

+		break;

+	case JFORM_CTYPE_LIST_SINGLE:

+		dwIndex = SendMessage(item->hCtrl, CB_ADDSTRING, 0, (LPARAM)text);

+		if (selected) SendMessage(item->hCtrl, CB_SETCURSEL, dwIndex, 0);

+		break;

+	}

+}

+

+void JabberFormLayoutControls(HWND hwndStatic, TJabberFormLayoutInfo *layout_info, int *formHeight)

+{

+	TJabberFormControlList *controls = (TJabberFormControlList *)GetWindowLongPtr(hwndStatic, GWLP_USERDATA);

+	if (!controls) return;

+

+	for (int i = 0; i < controls->getCount(); ++i)

+	{

+		if ((*controls)[i]->hLabel)

+			SetWindowPos((*controls)[i]->hLabel, 0,

+			layout_info->offset+(*controls)[i]->ptLabel.x, layout_info->y_pos+(*controls)[i]->ptLabel.y, 0, 0,

+			SWP_NOZORDER|SWP_NOSIZE);

+		if ((*controls)[i]->hCtrl)

+			SetWindowPos((*controls)[i]->hCtrl, 0,

+			layout_info->offset+(*controls)[i]->ptCtrl.x, layout_info->y_pos+(*controls)[i]->ptCtrl.y, 0, 0,

+			SWP_NOZORDER|SWP_NOSIZE);

+

+		layout_info->y_pos += (*controls)[i]->szBlock.cy;

+		layout_info->y_pos += layout_info->y_spacing;

+	}

+

+	*formHeight = layout_info->y_pos + (layout_info->compact ? 0 : 9);

+}

+

+HJFORMLAYOUT JabberFormCreateLayout(HWND hwndStatic)

+{

+	RECT frameRect;

+	GetClientRect( hwndStatic, &frameRect );

+

+	TJabberFormLayoutInfo *layout_info = (TJabberFormLayoutInfo *)mir_alloc(sizeof(TJabberFormLayoutInfo));

+	layout_info->compact = false;

+	layout_info->ctrlHeight = 20;

+	layout_info->id = 0;

+	layout_info->width = frameRect.right - frameRect.left - 20 - 10;

+	layout_info->y_spacing = 5;

+	layout_info->maxLabelWidth = layout_info->width*2/5;

+	layout_info->offset = 10;

+	layout_info->y_pos = 14;

+	return layout_info;

+}

+

+void JabberFormCreateUI( HWND hwndStatic, HXML xNode, int *formHeight, BOOL bCompact )

+{

+	JabberFormDestroyUI(hwndStatic);

+

+	HXML v, o, vs;

+

+	int i, j, k;

+	const TCHAR* label, *typeName, *varStr, *str, *valueText;

+	TCHAR *labelStr, *valueStr, *p;

+	RECT frameRect;

+

+	if ( xNode==NULL || xmlGetName( xNode )==NULL || lstrcmp( xmlGetName( xNode ), _T("x")) || hwndStatic==NULL ) return;

+

+	GetClientRect( hwndStatic, &frameRect );

+

+	TJabberFormLayoutInfo layout_info;

+	layout_info.compact = bCompact ? true : false;

+	layout_info.ctrlHeight = 20;

+	layout_info.id = 0;

+	layout_info.width = frameRect.right - frameRect.left - 20;

+	if (!bCompact) layout_info.width -= 10;

+	layout_info.y_spacing = bCompact ? 1 : 5;

+	layout_info.maxLabelWidth = layout_info.width*2/5;

+	layout_info.offset = 10;

+	layout_info.y_pos = bCompact ? 0 : 14;

+	for ( i=0; ; i++ ) {

+		HXML n = xmlGetChild( xNode ,i);

+		if ( !n )

+			break;

+

+		if ( xmlGetName( n )) {

+			if ( !lstrcmp( xmlGetName( n ), _T("field"))) {

+				varStr = xmlGetAttrValue( n, _T("var"));

+				if (( typeName = xmlGetAttrValue( n, _T("type"))) != NULL ) {

+ 					if (( label = xmlGetAttrValue( n, _T("label"))) != NULL )

+						labelStr = mir_tstrdup( label );

+					else

+						labelStr = mir_tstrdup( varStr );

+

+					TJabberFormControlType type = JabberFormTypeNameToId(typeName);

+

+					if (( v = xmlGetChild( n , "value" )) != NULL )

+					{

+						valueText = xmlGetText( v );

+						if (type != JFORM_CTYPE_TEXT_MULTI)

+						{

+							valueStr = mir_tstrdup( valueText );

+						} else

+						{

+							size_t size = 1;

+							for ( j=0; ; j++ ) {

+								v = xmlGetChild( n ,j);

+								if ( !v )

+									break;

+								if ( xmlGetName( v ) && !lstrcmp( xmlGetName( v ), _T("value")) && xmlGetText( v ))

+									size += _tcslen( xmlGetText( v )) + 2;

+							}

+							valueStr = ( TCHAR* )mir_alloc( sizeof(TCHAR)*size );

+							valueStr[0] = '\0';

+							for ( j=0; ; j++ ) {

+								v = xmlGetChild( n ,j);

+								if ( !v )

+									break;

+								if ( xmlGetName( v ) && !lstrcmp( xmlGetName( v ), _T("value")) && xmlGetText( v )) {

+									if ( valueStr[0] )

+										_tcscat( valueStr, _T("\r\n"));

+									_tcscat( valueStr, xmlGetText( v ));

+							}	}

+						}

+					} else

+					{

+						valueText = valueStr = NULL;

+					}

+

+					TJabberFormControlInfo *item = JabberFormAppendControl(hwndStatic, &layout_info, type, labelStr, valueStr);

+

+					mir_free( labelStr );

+					mir_free( valueStr );

+

+					if (type == JFORM_CTYPE_LIST_SINGLE)

+					{

+						for ( j=0; ; j++ ) {

+							o = xmlGetChild( n ,j);

+							if ( !o )

+								break;

+							if ( xmlGetName( o ) && !lstrcmp( xmlGetName( o ), _T("option"))) {

+								if (( v = xmlGetChild( o , "value" )) != NULL && xmlGetText( v )) {

+									if (( str = xmlGetAttrValue( o, _T("label"))) == NULL )

+										str = xmlGetText( v );

+									if (( p = mir_tstrdup( str )) != NULL ) {

+										bool selected = false;

+										if ( valueText != NULL && !_tcscmp( valueText, xmlGetText( v )))

+											selected = true;

+										JabberFormAddListItem(item, p, selected);

+										mir_free( p );

+						}	}	}	}

+					} else

+					if (type == JFORM_CTYPE_LIST_MULTI)

+					{

+						for ( j=0; ; j++ ) {

+							o = xmlGetChild( n ,j);

+							if ( !o )

+								break;

+							if ( xmlGetName( o ) && !lstrcmp( xmlGetName( o ), _T("option"))) {

+								if (( v = xmlGetChild( o , "value" )) != NULL && xmlGetText( v )) {

+									if (( str = xmlGetAttrValue( o, _T("label"))) == NULL )

+										str = xmlGetText( v );

+									if (( p = mir_tstrdup( str )) != NULL ) {

+										bool selected = false;

+										for ( k=0; ; k++ ) {

+											vs = xmlGetChild( n ,k);

+											if ( !vs )

+												break;

+											if ( !lstrcmp( xmlGetName( vs ), _T("value")) && xmlGetText( vs ) && !_tcscmp( xmlGetText( vs ), xmlGetText( v )))

+											{

+												selected = true;

+												break;

+											}

+										}

+										JabberFormAddListItem( item, p, selected );

+										mir_free( p );

+	}	}	}	}	}	}	}	}	}

+

+	JabberFormLayoutControls(hwndStatic, &layout_info, formHeight);

+}

+

+void JabberFormDestroyUI(HWND hwndStatic)

+{

+	TJabberFormControlList *controls = (TJabberFormControlList *)GetWindowLongPtr(hwndStatic, GWLP_USERDATA);

+	if (controls)

+	{

+		for ( int i = 0; i < controls->getCount(); i++ )

+			mir_free((*controls)[i]);

+		controls->destroy();

+		delete controls;

+		SetWindowLongPtr(hwndStatic, GWLP_USERDATA, 0);

+	}

+}

+

+HXML JabberFormGetData( HWND hwndStatic, HXML xNode )

+{

+	HWND hFrame, hCtrl;

+	HXML n, v, o;

+	int id, j, k, len;

+	const TCHAR *varName, *type, *fieldStr, *labelText, *str2;

+	TCHAR *p, *q, *str;

+

+	if ( xNode == NULL || xmlGetName( xNode ) == NULL || lstrcmp( xmlGetName( xNode ), _T("x")) || hwndStatic == NULL )

+		return NULL;

+

+	hFrame = hwndStatic;

+	id = 0;

+	XmlNode x( _T("x"));

+	x << XATTR( _T("xmlns"), _T(JABBER_FEAT_DATA_FORMS)) << XATTR( _T("type"), _T("submit"));

+

+	for ( int i=0; ; i++ ) {

+		n = xmlGetChild( xNode ,i);

+		if ( !n )

+			break;

+

+		fieldStr = NULL;

+		if ( lstrcmp( xmlGetName( n ), _T("field")))

+			continue;

+

+		if (( varName = xmlGetAttrValue( n, _T("var"))) == NULL || ( type = xmlGetAttrValue( n, _T("type"))) == NULL )

+			continue;

+

+		hCtrl = GetDlgItem( hFrame, id );

+		HXML field = x << XCHILD( _T("field")) << XATTR( _T("var"), varName );

+

+		if ( !_tcscmp( type, _T("text-multi")) || !_tcscmp( type, _T("jid-multi"))) {

+			len = GetWindowTextLength( GetDlgItem( hFrame, id ));

+			str = ( TCHAR* )mir_alloc( sizeof(TCHAR)*( len+1 ));

+			GetDlgItemText( hFrame, id, str, len+1 );

+			p = str;

+			while ( p != NULL ) {

+				if (( q = _tcsstr( p, _T("\r\n"))) != NULL )

+					*q = '\0';

+				field << XCHILD( _T("value"), p );

+				p = q ? q+2 : NULL;

+			}

+			mir_free( str );

+			id++;

+		}

+		else if ( !_tcscmp( type, _T("boolean"))) {

+			TCHAR buf[ 10 ];

+			_itot( IsDlgButtonChecked( hFrame, id ) == BST_CHECKED ? 1 : 0, buf, 10 );

+			field << XCHILD( _T("value"), buf );

+			id++;

+		}

+		else if ( !_tcscmp( type, _T("list-single"))) {

+			len = GetWindowTextLength( GetDlgItem( hFrame, id ));

+			str = ( TCHAR* )mir_alloc( sizeof( TCHAR )*( len+1 ));

+			GetDlgItemText( hFrame, id, str, len+1 );

+			v = NULL;

+			for ( j=0; ; j++ ) {

+				o = xmlGetChild( n ,j);

+				if ( !o )

+					break;

+

+				if ( !lstrcmp( xmlGetName( o ), _T("option"))) {

+					if (( v = xmlGetChild( o , "value" )) != NULL && xmlGetText( v )) {

+						if (( str2 = xmlGetAttrValue( o, _T("label"))) == NULL )

+							str2 = xmlGetText( v );

+						if ( !lstrcmp( str2, str ))

+							break;

+			}	}	}

+

+			if ( o )

+				field << XCHILD( _T("value"), xmlGetText( v ));

+

+			mir_free( str );

+			id++;

+		}

+		else if ( !_tcscmp( type, _T("list-multi"))) {

+			int count = SendMessage( hCtrl, LB_GETCOUNT, 0, 0 );

+			for ( j=0; j<count; j++ ) {

+				if ( SendMessage( hCtrl, LB_GETSEL, j, 0 ) > 0 ) {

+					// an entry is selected

+					len = SendMessage( hCtrl, LB_GETTEXTLEN, j, 0 );

+					if (( str = ( TCHAR* )mir_alloc(( len+1 )*sizeof( TCHAR ))) != NULL ) {

+						SendMessage( hCtrl, LB_GETTEXT, j, ( LPARAM )str );

+						for ( k=0; ; k++ ) {

+							o = xmlGetChild( n ,k);

+							if ( !o )

+								break;

+

+							if ( xmlGetName( o ) && !lstrcmp( xmlGetName( o ), _T("option"))) {

+								if (( v = xmlGetChild( o , "value" )) != NULL && xmlGetText( v )) {

+									if (( labelText = xmlGetAttrValue( o, _T("label"))) == NULL )

+										labelText = xmlGetText( v );

+

+									if ( !lstrcmp( labelText, str ))

+										field << XCHILD( _T("value"), xmlGetText( v ));

+						}	}	}

+						mir_free( str );

+			}	}	}

+			id++;

+		}

+		else if ( !_tcscmp( type, _T("fixed")) || !_tcscmp( type, _T("hidden"))) {

+			v = xmlGetChild( n , "value" );

+			if ( v != NULL && xmlGetText( v ) != NULL )

+				field << XCHILD( _T("value"), xmlGetText( v ));

+		}

+		else { // everything else is considered "text-single" or "text-private"

+			len = GetWindowTextLength( GetDlgItem( hFrame, id ));

+			str = ( TCHAR* )mir_alloc( sizeof(TCHAR)*( len+1 ));

+			GetDlgItemText( hFrame, id, str, len+1 );

+			field << XCHILD( _T("value"), str );

+			mir_free( str );

+			id++;

+	}	}

+

+	return xi.copyNode( x );

+}

+

+struct JABBER_FORM_INFO

+{

+	~JABBER_FORM_INFO();

+

+	CJabberProto* ppro;

+	HXML xNode;

+	TCHAR defTitle[128];	// Default title if no <title/> in xNode

+	RECT frameRect;		// Clipping region of the frame to scroll

+	int frameHeight;	// Height of the frame ( can be eliminated, redundant to frameRect )

+	int formHeight;		// Actual height of the form

+	int curPos;			// Current scroll position

+	JABBER_FORM_SUBMIT_FUNC pfnSubmit;

+	void *userdata;

+};

+

+static INT_PTR CALLBACK JabberFormDlgProc( HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam )

+{

+	JABBER_FORM_INFO *jfi;

+

+	switch ( msg ) {

+	case WM_INITDIALOG:

+		{

+			HXML n;

+			LONG frameExStyle;

+

+			// lParam is ( JABBER_FORM_INFO * )

+			TranslateDialogDefault( hwndDlg );

+			ShowWindow( GetDlgItem( hwndDlg, IDC_FRAME_TEXT ), SW_HIDE );

+			jfi = ( JABBER_FORM_INFO * ) lParam;

+			if ( jfi != NULL ) {

+				// Set dialog title

+				if ( jfi->xNode!=NULL && ( n = xmlGetChild( jfi->xNode , "title" )) != NULL && xmlGetText( n ) != NULL )

+					SetWindowText( hwndDlg, xmlGetText( n ));

+				else if ( jfi->defTitle != NULL )

+					SetWindowText( hwndDlg, TranslateTS( jfi->defTitle ));

+				// Set instruction field

+				if ( jfi->xNode!=NULL && ( n = xmlGetChild( jfi->xNode , "instructions" )) != NULL && xmlGetText( n ) != NULL )

+					JabberFormSetInstruction( hwndDlg, xmlGetText( n ));

+				else

+				{

+					if ( jfi->xNode != NULL && ( n = xmlGetChild( jfi->xNode , "title" )) != NULL && xmlGetText( n ) != NULL )

+						JabberFormSetInstruction( hwndDlg, xmlGetText( n ));

+					else if ( jfi->defTitle != NULL )

+						JabberFormSetInstruction( hwndDlg, TranslateTS( jfi->defTitle ));

+				}

+

+				// Create form

+				if ( jfi->xNode != NULL ) {

+					RECT rect;

+

+					GetClientRect( GetDlgItem( hwndDlg, IDC_FRAME ), &( jfi->frameRect ));

+					GetClientRect( GetDlgItem( hwndDlg, IDC_VSCROLL ), &rect );

+					jfi->frameRect.right -= ( rect.right - rect.left );

+					GetClientRect( GetDlgItem( hwndDlg, IDC_FRAME ), &rect );

+					jfi->frameHeight = rect.bottom - rect.top;

+					JabberFormCreateUI( GetDlgItem( hwndDlg, IDC_FRAME ), jfi->xNode, &( jfi->formHeight ));

+				}

+			}

+

+			if ( jfi->formHeight > jfi->frameHeight ) {

+				HWND hwndScroll;

+

+				hwndScroll = GetDlgItem( hwndDlg, IDC_VSCROLL );

+				EnableWindow( hwndScroll, TRUE );

+				SetScrollRange( hwndScroll, SB_CTL, 0, jfi->formHeight - jfi->frameHeight, FALSE );

+				jfi->curPos = 0;

+			}

+

+			// Enable WS_EX_CONTROLPARENT on IDC_FRAME ( so tab stop goes through all its children )

+			frameExStyle = GetWindowLongPtr( GetDlgItem( hwndDlg, IDC_FRAME ), GWL_EXSTYLE );

+			frameExStyle |= WS_EX_CONTROLPARENT;

+			SetWindowLongPtr( GetDlgItem( hwndDlg, IDC_FRAME ), GWL_EXSTYLE, frameExStyle );

+

+			SetWindowLongPtr( hwndDlg, GWLP_USERDATA, ( LONG_PTR ) jfi );

+			if ( jfi->pfnSubmit != NULL )

+				EnableWindow( GetDlgItem( hwndDlg, IDC_SUBMIT ), TRUE );

+		}

+		return TRUE;

+

+	case WM_CTLCOLORSTATIC:

+		if ((GetWindowLongPtr((HWND)lParam, GWL_ID) == IDC_WHITERECT) ||

+			(GetWindowLongPtr((HWND)lParam, GWL_ID) == IDC_INSTRUCTION) ||

+			(GetWindowLongPtr((HWND)lParam, GWL_ID) == IDC_TITLE))

+		{

+			return (INT_PTR)GetStockObject(WHITE_BRUSH);

+		}

+		

+		return NULL;

+		

+	case WM_MOUSEWHEEL:

+		{

+			int zDelta = GET_WHEEL_DELTA_WPARAM( wParam );

+			if ( zDelta ) {

+				int nScrollLines=0;

+				SystemParametersInfo( SPI_GETWHEELSCROLLLINES, 0, (void*)&nScrollLines, 0 );

+				for (int i = 0; i < ( nScrollLines + 1 ) / 2; i++ )

+					SendMessage( hwndDlg, WM_VSCROLL, ( zDelta < 0 ) ? SB_LINEDOWN : SB_LINEUP, 0 );

+			}

+		}

+		break;

+

+	case WM_VSCROLL:

+		jfi = ( JABBER_FORM_INFO * ) GetWindowLongPtr( hwndDlg, GWLP_USERDATA );

+		if ( jfi != NULL ) {

+			int pos = jfi->curPos;

+			switch ( LOWORD( wParam )) {

+			case SB_LINEDOWN:

+				pos += 15;

+				break;

+			case SB_LINEUP:

+				pos -= 15;

+				break;

+			case SB_PAGEDOWN:

+				pos += ( jfi->frameHeight - 10 );

+				break;

+			case SB_PAGEUP:

+				pos -= ( jfi->frameHeight - 10 );

+				break;

+			case SB_THUMBTRACK:

+				pos = HIWORD( wParam );

+				break;

+			}

+			if ( pos > ( jfi->formHeight - jfi->frameHeight ))

+				pos = jfi->formHeight - jfi->frameHeight;

+			if ( pos < 0 )

+				pos = 0;

+			if ( jfi->curPos != pos ) {

+				ScrollWindow( GetDlgItem( hwndDlg, IDC_FRAME ), 0, jfi->curPos - pos, NULL, &( jfi->frameRect ));

+				SetScrollPos( GetDlgItem( hwndDlg, IDC_VSCROLL ), SB_CTL, pos, TRUE );

+				jfi->curPos = pos;

+			}

+		}

+		break;

+

+	case WM_COMMAND:

+		switch ( LOWORD( wParam )) {

+		case IDC_SUBMIT:

+			jfi = ( JABBER_FORM_INFO * ) GetWindowLongPtr( hwndDlg, GWLP_USERDATA );

+			if ( jfi != NULL ) {

+				HXML n = JabberFormGetData( GetDlgItem( hwndDlg, IDC_FRAME ), jfi->xNode );

+				( jfi->ppro->*(jfi->pfnSubmit))( n, jfi->userdata );

+				xi.destroyNode( n );

+			}

+			// fall through

+		case IDCANCEL:

+		case IDCLOSE:

+			DestroyWindow( hwndDlg );

+			return TRUE;

+		}

+		break;

+

+	case WM_CLOSE:

+		DestroyWindow( hwndDlg );

+		break;

+

+	case WM_DESTROY:

+		JabberFormDestroyUI( GetDlgItem( hwndDlg, IDC_FRAME ));

+		jfi = ( JABBER_FORM_INFO * ) GetWindowLongPtr( hwndDlg, GWLP_USERDATA );

+		delete jfi;

+		break;

+	}

+

+	return FALSE;

+}

+

+static VOID CALLBACK JabberFormCreateDialogApcProc( void* param )

+{

+	CreateDialogParam( hInst, MAKEINTRESOURCE( IDD_FORM ), NULL, JabberFormDlgProc, ( LPARAM )param );

+}

+

+void CJabberProto::FormCreateDialog( HXML xNode, TCHAR* defTitle, JABBER_FORM_SUBMIT_FUNC pfnSubmit, void *userdata )

+{

+	JABBER_FORM_INFO *jfi = new JABBER_FORM_INFO;

+	memset( jfi, 0, sizeof( JABBER_FORM_INFO ));

+	jfi->ppro = this;

+	jfi->xNode = xi.copyNode( xNode );

+	if ( defTitle )

+		_tcsncpy( jfi->defTitle, defTitle, SIZEOF( jfi->defTitle ));

+	jfi->pfnSubmit = pfnSubmit;

+	jfi->userdata = userdata;

+

+	CallFunctionAsync( JabberFormCreateDialogApcProc, jfi );

+}

+

+//=======================================================================================

+

+JABBER_FORM_INFO::~JABBER_FORM_INFO()

+{

+	xi.destroyNode( xNode );

+	mir_free( userdata );

+}
\ No newline at end of file