/*
 * Diese Funktion fügt in den HTML-Code eine Scrollbar ein
 * Die Eigenschaften dieser Scrollbar können über die Parameter
 * wie folgt festgelegt werden:
 *   Type: 0=UpDown / 1=LeftRight
 *   Size: Länge der Scrollbar in Pixeln
 *   ScrollCount: Je höher die Zahl ist, desto feinere Einstellungen sind möglich
 *   ChangeText: (=String!!!, optional) Gibt einen Handle zu einem <input>-Tag
 *     falls nichts sichtbar sein soll kann auch ein <input type=hidden> verwendet werden
 *   AddText: Gibt an, was an die Prozentzahl noch angehängt wird (z.B. ein %-Zeichen)
 *   MaxZahl: Gibt den Maximalwert des Ergebnisses an (bei Prozent immer 100 angeben)
 * Copyright(C) Michael Hutter - Dezember 2003
 * http://www.michaelhutter.de
 */
function AddScrollbar(Type, Size, ScrollCount, ChangeText, AddText, MaxZahl)
{
        ScrollCount = ScrollCount / 30 * 27
	if (Type==0)
	{
		UpDown = true
		format = "width:21;height:"
		format1 = "width:"
		format2 = ";height:"
	}
	else if (Type==1)
	{
		UpDown = false
		format = "height:21;width:"
		format1 = "height:"
		format2 = ";width:"
	}
	else return false; // verboten!!!
	ScrollColors =  "scrollbar-base-color:#8C8CC6;"
	ScrollColors += "scrollbar-3dlight-color:#FFFFFF;"
	ScrollColors += "scrollbar-arrow-color:#FFFFFF;"
	ScrollColors += "scrollbar-darkshadow-color:#000000;"
	ScrollColors += "scrollbar-face-color:#8C8CC6;"
	ScrollColors += "scrollbar-highlight-color:#FFFFFF;"
	ScrollColors += "scrollbar-shadow-color:#000000;"
	ScrollColors += "scrollbar-track-color:#ACACE6;"
	ScrollColors=""
	WhichScroll = "TAG"+Math.floor((Math.random()*10000)) // zufälligen Tag-name erzeugen
	document.write("<iframe id="+WhichScroll+" scrolling=yes style='position:absolute;"+format1+"21"+format2+(Size+17)+";clip:rect(2px "+Size+"px "+Size+"px 2px)'><\/iframe>")
	document.write("<span style='"+format1+"21"+format2+Size+"'><\/span>")
	Fensterinhalt = "<pre>"
	Fensterzeile = ""
	for (z=0;z<ScrollCount*2;z++) Fensterzeile += "X"
	Fensterzeile += "\n"
	for (z=0;z<ScrollCount;z++) Fensterinhalt += Fensterzeile
	Fensterinhalt += "</pre>"
	with (eval(WhichScroll))
	{
		Merk = ("<html><head></head><body MaxScrollX=1 MaxScrollY=1 onScroll='BeforeScroll();document.body.scrollX=parseInt(Math.floor(document.body.scrollLeft/document.body.MaxScrollX*"+MaxZahl+"));document.body.scrollY=parseInt(Math.floor(document.body.scrollTop/document.body.MaxScrollY*"+MaxZahl+"));AfterScroll()' style='"+ScrollColors+"margin-left:0;margin-top:0;margin-bottom:0;margin-right:0'>")
		Merk = Merk + ("<script>function BeforeScroll(){with(document.body){if (scrollLeft > MaxScrollX) MaxScrollX=scrollLeft;if (scrollTop > MaxScrollY) MaxScrollY=scrollTop;}}<\/script>")
		DoChangeInput = (ChangeText) ? "parent."+ChangeText+"=document.body.scroll"+(UpDown ? "Y":"X")+"+'"+(AddText?AddText:"")+"'" : ""
		Merk = Merk + ("<script>function AfterScroll(){"+DoChangeInput+"}<\/script>")
		Merk = Merk + (Fensterinhalt)
		Merk = Merk + ("<script>function Init() {window.scrollTo("+MaxZahl+"*"+ScrollCount+","+MaxZahl+"*"+ScrollCount+");window.scrollTo(0,0)}<\/script><input type=button name=InitButton onClick='Init()'>")
		Merk = Merk + ("<script>function goto(prozent){window.scrollTo(Math.ceil(document.body.MaxScrollX/"+MaxZahl+"*prozent),Math.ceil(document.body.MaxScrollY/"+MaxZahl+"*prozent))}<\/script>")
		Merk = Merk + ("</body></html>")
		document.write(Merk)
 	}
        window.status = "Spezial-Scrollleiste geladen"
	return eval(WhichScroll)
}

