var fDesc=new Array();
fDesc[0] = "Ultimate Delphi Codebank (UDC) project was born with aim to be usefull to all delphi developers and help them increase their knowledge. It is coding for long years and it tryes to help new beginners or developers to learn&solve coding, that's why it have a lot of friends&people around.";

function tShowHide(id, show)
{
	var s = document.getElementById("desc");

	if ((s.innerHTML.length<=212 || show==1) && show!=2)
	{
		s.innerHTML = fDesc[id];
		if (document.getElementById('m1'))
			document.getElementById('m1').style.display='none';
		if (document.getElementById('m2'))
			document.getElementById('m2').style.display='none';
		if (document.getElementById('more_txt'))
			document.getElementById('more_txt').style.display='inline';
	}
	else
	{
		s.innerHTML = '';
	}
}