Sub Switch_InfoType()

	With f1
		'if vL<>"" then
			if .InfoType(1).checked then
				DivColor.style.display=""

				Editor.location="/inc/V30Art/V30Editor/editor.asp?MenuBar=0&ToolBarStyle=Style1"
				.TContent.style.display="none"
			else
				DivColor.style.display="none"
				Editor.location="/inc/Null.htm"
				.TContent.style.display=""
			end if
		'end if
	End With
End Sub

Sub pasteFace(sImgSrc)
	if f1.InfoType(1).disabled=False and f1.InfoType(1).checked then
		Editor.pasteHTML sImgSrc
	end if
End Sub

Sub SelectFace()
	With document.all.Menu_BBFace
		if lcase(.src)<>"face/bbface.asp" then
			.src="face/bbface.asp"
		end if
		.style.display=""
		.style.top=document.body.ScrollTop+window.event.Y
		.style.left=document.body.Scrollleft+window.event.X
	End With
End Sub


Sub Init_InfoType()
	With f1
		if vL<>"" then
			.InfoType(0).disabled=False
			.InfoType(1).disabled=False
		else
			.InfoType(0).disabled=False
		end if
	End With
End Sub

Sub mmdocumentonKeyDown()
	if window.event.KeyCode=13 and window.event.ctrlKey then
		CMD_PubBBS()
	end if
End Sub