var mahal="", blang="FA", mfa="", curin, mova, defe="", help
//mahal="ALL"
function mfin(){
	mtag=window.event.srcElement;
	if (mova==4){mova=0;mov.outerHTML="";} 
	if ((((mtag.tagName=="INPUT" && mtag.type=="text") || mtag.tagName=="TEXTAREA") && (mahal=="ALL" || (mahal!="ALL" && mtag.lang=="fa"))))  {
		if (mfa=="hast") 
			mlang.outerHTML="";
			mtag.insertAdjacentHTML("beforeBegin", "<span title='Left Shift+Alt=>EN or FA\nShift+Space=>Halfspace\nCtrl+K=>See KeyPosition' id=mlang style='background-color:darkblue; font-size:11; color:white; position:absolute; padding-right:1; padding-left:2; padding-bottom:2; font-family:tahoma; cursor:default;' onclick='toit()'>"+blang+"</span>");
			curin=mtag;mlang.style.marginTop=mtag.offsetHeight;mtag.style.textAlign="right";mtag.style.direction="rtl";mfa="hast";
	}
	else {
		if (mfa=="hast" && window.event.srcElement!=mlang) {mlang.outerHTML="";mfa="";} 
		if (help)  {hel.outerHTML="";help=false;}
	}
} 
function toit()  {
	if(blang=="FA") 	blang="EN"; 
		else blang="FA";
	mlang.innerHTML=blang;curin.focus();
} 
function mkdown() {
	mtag=window.event.srcElement; 
	mkey=window.event.keyCode;
	allcode="|72|70|192|74|69|219|221|80|79|78|66|86|67|220|83|65|87|81|88|90|85|89|84|82|186|222|71|76|75|188|73|68|77|190|191|"; 
	allharf="ابپتثجچحخدذرزژسشصضطظعغفقكگلمنوهيئ./";
	allscode="|72|188|219|221|70|90|191|186|77|190|65|83|68|81|87|69|71|84|78|66|89|86|82|74|80|79|73|85|"; 
	allsharf="آؤ»«ّة؟:ءأًٌٍَُِْ،أإ؛ؤ‍ـ©®™€";
	if ((((mtag.tagName=="INPUT" && mtag.type=="text") || mtag.tagName=="TEXTAREA") && (mahal=="ALL" || (mahal!="ALL" && mtag.lang=="fa"))))  { 
		if (mova==3)  {
			if (mkey==80) { 
				mova=4;
				mtag.insertAdjacentHTML("afterend", "<Span id=mov style='Filter:Alpha(opacity=30); border:20 outset lightgreen; text-align:center; font-size:50; background-color:green; color:BBFFBB; position:absolute; font-family:Arial; padding:10;'>&#1587;&#1604;&#1575;&#1605;<br>&#1605;&#1608;&#1588;&#1617;&#1581;</span>");
				mov.style.left=window.screen.availWidth/2-mov.offsetWidth/2;
				mov.style.marginTop=-30;
			}
			else	{mova=0};} 
		if (mova==2) 	{
			if (mkey==65) {mova=3;}
				else{mova=0};
		} 
		if (mova==1) {
			if (mkey==188) {mova=2;}
			else{mova=0};
		} 
		if (mkey==76) mova=1; 
		if (mkey==27 && mova==4)	{mova=0;mov.outerHTML="";} 
		if (mkey==16 && window.event.altLeft)	{
			if(blang=="FA") blang="EN"; 
				else blang="FA";
			mlang.innerHTML=blang;
		} 
		mk=allcode.indexOf("|"+mkey+"|");
		mpos=0;
		ml=0;
		if (mk>-1 && blang=="FA")		{
			if (!window.event.ctrlKey)	{
				if (!window.event.shiftKey && !window.event.ctrlKey)	{
					if (mk>0)	{
						mall=allcode.substr(0,mk);
						while (mpos>-1)	{
							mpos=mall.indexOf("|",mpos+1);
							ml++;
						}
					} 
					mtag.value=mtag.value + allharf.substr(ml,1);
					return(false);
				}
				else {
					mk=allscode.indexOf("|"+mkey+"|");
					if (mk>-1) {
						if (mk>0) {
							mall=allscode.substr(0,mk);
							while (mpos>-1) {
								mpos=mall.indexOf("|",mpos+1);
								ml++;
							}
						} 
						mtag.value=mtag.value + allsharf.substr(ml,1);
						if (mkey==80) 
							mtag.value=mtag.value + " سيد محمد جواد حسينى";
					}
					return(false);
				}
			}
			else {
				if (mkey==75 && window.event.ctrlKey && blang=="FA" &&!help) 	{mtag.insertAdjacentHTML("afterend", "<Span id=hel style='z-index:100; Filter:Alpha(opacity=75); border:5 ridge lightgreen; background-color:lightgreen; position:absolute; padding:10;'><table dir=ltr align=center style='font-family:tahoma; padding:10; text-align:center; font-size:12; color:001100; border:1 green ridge'><tr><td NOWRAP style='border:1 green ridge; padding:2'>Shift+H = آ<td NOWRAP style='border:1 green ridge; padding:2'>Shift+< = ؤ<td NOWRAP style='border:1 green ridge; padding:2'>Shift+} = »<td NOWRAP style='border:1 green ridge; padding:2'>Shift+S = ضمه<td NOWRAP style='border:1 green ridge; padding:2'>Shift+F = تشديد</tr><tr><td NOWRAP style='border:1 green ridge; padding:2'>Shift+? = ؟<td NOWRAP style='border:1 green ridge; padding:2'>Shift+N = أ<td NOWRAP style='border:1 green ridge; padding:2'>Shift+U = يورو<td NOWRAP style='border:1 green ridge; padding:2'>Shift+E = تنوين‏جر<td NOWRAP style='border:1 green ridge; padding:2'>Shift+P = كپي‏رايت</tr><tr><td NOWRAP style='border:1 green ridge; padding:2'>Shift+Y = ؛<td NOWRAP style='border:1 green ridge; padding:2'>Shift+T = ،<td NOWRAP style='border:1 green ridge; padding:2'>Shift+G = ساكن<td NOWRAP style='border:1 green ridge; padding:2'>Shift+R = حرف‏كوچك<td NOWRAP style='border:1 green ridge; padding:2'>Shift+W = تنوين‏رفع</tr><tr><td NOWRAP style='border:1 green ridge; padding:2'>Shift+Z = ة<td NOWRAP style='border:1 green ridge; padding:2'>Shift+{ = «<td NOWRAP style='border:1 green ridge; padding:2'>Shift+D = كسره<td NOWRAP style='border:1 green ridge; padding:2'>Shift+I = نشان‏تجاري<td NOWRAP style='border:1 green ridge; padding:2'>Shift+Q = تنوين‏نصب</tr><tr><td NOWRAP style='border:1 green ridge; padding:2'>Shift+B = إ<td NOWRAP style='border:1 green ridge; padding:2'>Shift+M = ء<td NOWRAP style='border:1 green ridge; padding:2'>Shift+A = فتحه<td NOWRAP style='border:1 green ridge; padding:2'>Shift+O = ثبت‏شده<td NOWRAP style='border:1 green ridge; padding:2'>Shift+Space = نيم‏فاصله</tr></table></span>");
					hel.style.left=window.screen.availWidth/2-hel.offsetWidth/2;
					hel.style.marginTop=-80;
					help=true;
					return(false);
				}
			}
		} 
		if (mkey==32 && window.event.shiftKey && blang=="FA") {
			mtag.value=mtag.value + "‏";
			return(false);
		}
	}
} 
document.onfocusin=mfin;document.onkeydown=mkdown;

