'<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
'<!--
'textarea1.parentElement.

'-->
'</SCRIPT>
'<TEXTAREA rows=2 cols=20 id=textarea1 name=textarea1>
'
'</TEXTAREA>

'window.document.attachEvent "oncontextmenu",GetRef("g_NoMenu")
'Sub g_NoMenu        
'    window.event.returnValue = false
'End Sub

window.document.attachEvent "onkeydown",GetRef("g_document_onkeydown")
Sub g_document_onkeydown
	if window.event.keyCode=81 and window.event.ctrlKey and window.event.altKey then
		msgbox window.location.pathname & vbcr & document.title 
	end if
End Sub

dim miPercentTxa

window.attachEvent "onload",GetRef("g_window_onload")
Sub g_window_onload
	on error resume next
	gdivProgress.style.cursor="default"
	on error goto 0
	dim i,oTags
	set oTags=document.all.tags("TEXTAREA")
	if oTags.length>0 then
		miPercentTxa=oTags(0).parentElement.offsetWidth/oTags(0).offsetWidth
		if miPercentTxa>1.05 then
			for i=0 to oTags.length-1
				'if i=0 then msgbox oTags(i).offsetWidth & " / " & oTags(i).parentElement.offsetWidth
				oTags(i).cols=oTags(i).cols * miPercentTxa
				'oTags(i).title=oTags(i).cols & " / " & miPercentTxa
			next
		else
			miPercentTxa=1
		end if
	end if
End Sub

window.attachEvent "onbeforeprint",GetRef("g_onbeforeprint")
Sub g_onbeforeprint
	dim i,oTags
	set oTags=document.all.tags("TEXTAREA")
	if oTags.length>0 then
		for i=0 to oTags.length-1
			'if i=0 then msgbox oTags(i).cols & " / " & miPercentTxa & " / " & (oTags(i).cols / miPercentTxa * 0.95)
			oTags(i).cols=oTags(i).cols / miPercentTxa * 0.95
		next
	end if
End Sub

window.attachEvent "onafterprint",GetRef("g_onafterprint")
Sub g_onafterprint
	dim i,oTags
	set oTags=document.all.tags("TEXTAREA")
	if oTags.length>0 then
		for i=0 to oTags.length-1
			'if i=0 then msgbox oTags(i).cols & " / " & miPercentTxa & " / " & (oTags(i).cols / 0.95 * miPercentTxa)
			oTags(i).cols=oTags(i).cols / 0.95 * miPercentTxa
		next
	end if
End Sub