var isDOM=document.getElementById?1:0;
var isIE=document.all?1:0;
var isNS4=(navigator.appName=='Netscape'&&!isDOM)?1:0;
var isIE4=(isIE&&!isDOM)?1:0;
var isWin=(navigator.platform.indexOf('Win')!=-1)?1:0;
var isDyn=(isDOM||isIE4||isNS4);

function getRef(id, par)
{
 par = !par ? document : (par.navigator?par.document:par);
 return (isIE ? par.all[id] :
  (isDOM ? (par.getElementById?par:par.ownerDocument).getElementById(id) :
  par.layers[id]));
}

function getSty(id, par)
{
 return (isNS4 ? getRef(id, par) : getRef(id, par).style);
}

if (!window.LayerObj) var LayerObj = new Function('id', 'par',
 'this.ref=getRef(id, par); this.sty=getSty(id, par); return this');
function getLyr(id, par) { return new LayerObj(id, par) }

function LyrFn(fn, fc)
{
 LayerObj.prototype[fn] = new Function('var a=arguments,p=a[0]; with (this) { '+fc+' }');
}

LyrFn('x','if (!isNaN(a[0])) sty.left=p; else return parseInt(sty.left)');
LyrFn('y','if (!isNaN(a[0])) sty.top=p; else return parseInt(sty.top)');
LyrFn('w','if (p) (isNS4?sty.clip:sty).width=p; ' +
 'else return (isNS4?ref.document.width:ref.offsetWidth)');
LyrFn('h','if (p) (isNS4?sty.clip:sty).height=p; ' +
 'else return (isNS4?ref.document.height:ref.offsetHeight)');
LyrFn('vis','sty.visibility=p');
LyrFn('clip','if (isNS4) with(sty.clip) { left=a[0]; top=a[1]; right=a[2]; bottom=a[3] } ' +
 'else sty.clip="rect("+a[1]+"px "+a[2]+"px "+a[3]+"px "+a[0]+"px)" ');

if (!window.page) var page = { win: window, minW: 0, minH: 0, MS: isIE&&!window.opera }

page.winW=function()
 { with (this) return Math.max(minW, MS?win.document.body.clientWidth:win.innerWidth) }
page.winH=function()
 { with (this) return Math.max(minH, MS?win.document.body.clientHeight:win.innerHeight) }


function scrLoad(fName) { with (this)
{
 if (!fName || !loaded || !isDyn) return;

 loadingFile = fName;
 if (onbeforeload) onbeforeload();

 if (isIE || isDOM) with (bufRef.document)
 {
  write('<html><body onload="parent.' + myName + '.fileLoaded()">' +
   '<iframe name="nestBuf" src="' + fName + '"></iframe></body></html>');
  close();
  if (!bufRef.nestBuf || (isIE4 && !isWin))
  {
   bufRef.location.href = fName;
   setTimeout(myName + '.fileLoaded()', 5000);
  }
 }
 else if (isNS4)
 {
  if (window.ns4LayerLoading)
  {
   setTimeout(myName + '.load("' + fName + '")', 100);
   return;
  }
  window.ns4LayerLoading = true;
  div.ref.onload = new Function(myName + '.fileLoaded()');
  div.ref.load(fName, cWidth);
 }
}}

function scrFileLoaded() { with (this)
{
 activeScr = null;

 if (isNS4) window.ns4LayerLoading = false;

 if ((isDOM || isIE) && loadingFile)
 {
  var bufDoc = bufRef.nestBuf ? bufRef.nestBuf.document : bufRef.document;
  if (bufDoc && bufDoc.body) div.ref.innerHTML = bufDoc.body.innerHTML;
  bufRef.location.replace('about:blank');
 }

 loadedFile = loadingFile;

 if ((stick != 1) && !stickTimer) stickTimer = setInterval(myName + '.stickScroll()', 30);

 setTimeout('with(' + myName + ') { scrollTo(0); if (onload) onload() }', 1);
}}

function scrScrollTo(pos, isStick) { with (this)
{
 if (!isDyn || !loaded) return;

 cTop = parseInt(pos);

 if (!isStick) stickTop = cTop;

 divHeight = div.h() + padTop + padBot;
 if (divHeight == 0) divHeight = 1;

 if (checkBounds)
 {
  if (cTop + cHeight > divHeight) cTop = divHeight - cHeight;
  if (cTop < 0) cTop = 0;
 }

 div.y(eval(divs[0].y) - cTop + padTop);
 div.clip(0, cTop - padTop, cWidth, cTop - padTop + cHeight);

 thmHeight = Math.ceil(barHeight * (cHeight / divHeight));

 if (thmHeight < minThmHeight) thmHeight = minThmHeight;
 if (thmHeight > barHeight) thmHeight = barHeight;

 thm.h(thmHeight);

 if (onscroll) onscroll();

 if (activeScr) return;

 var fracDivDown = (cTop / (divHeight - cHeight));
 thm.y(bar.y() + fracDivDown * (barHeight - thmHeight));
}}


function scrScrollBy(amount) { with (this)
{
 scrollTo(cTop + amount);

 if (loop) setTimeout(myName + '.scrollBy(' + amount + ')', loop);
}}

function scrThumbDown(evt) { with (this)
{
 activeScr = this;

 dragOffset = (isIE ? event.offsetY : evt.layerY);

 if (onthumbdown) onthumbdown();

 return false;
}}


function scrThumbMove(evt)
{
 if (!activeScr) return true;
 else with (activeScr)
 {
  if ((cTop + cHeight > divHeight) || (thmHeight == barHeight)) return true;

  var thmTop = (isIE ? document.body.scrollTop + event.clientY : evt.pageY) - dragOffset - bar.y();

  if (thmTop < 0) thmTop = 0;
  if (thmTop + thmHeight > barHeight) {
  thmTop = barHeight - thmHeight;
  }
  thm.y(bar.y() + thmTop);

  stickTop = (divHeight - cHeight) * (thmTop / (barHeight - thmHeight));

  if (stick == 1) scrollTo(stickTop);

  return false;
 }
}

function scrStickScroll() { with (this)
{
 if (Math.abs(cTop - stickTop) > 2)
 {
  cTop += (stickTop - cTop) * stick;
  scrollTo(cTop, true);
 }
 else if (cTop != stickTop)
 {
  cTop = stickTop;
  scrollTo(cTop, true);
 }
}}


function scrThumbUp(evt)
{
 if (activeScr) with (activeScr) if (onthumbup) onthumbup();

 activeScr = null;
}

function scrBarClick(evt) { with (this)
{
 if (isIE) clickPos = document.body.scrollTop + event.clientY;
 else clickPos = evt.pageY;

 if (clickPos < thm.y()) scrollBy(0 - cHeight);
 if (clickPos > (thm.y() + thmHeight)) scrollBy(cHeight);

 if (isNS4) return document.routeEvent(evt);
}}


function scrLayout() { with (this)
{
 if (!isDyn || !loaded) return;

 for (var i = 0; i < divs.length; i++) with (divs[i].lyr)
 {
  x(eval(divs[i].x)); w(Math.max(0,eval(divs[i].w)));
  if (i) { y(eval(divs[i].y)); h(Math.max(0,eval(divs[i].h))) }
 }

 barHeight = eval(divs[1].h);
 cWidth = eval(divs[0].w);
 cHeight = eval(divs[0].h);

 if (onlayout) onlayout();

 scrollBy(0);
}}


function scrSetup(defaultFile) { with (this)
{
 if (!isDyn) return;

 for (var i = 0; i < divs.length; i++)
  divs[i].lyr = getLyr(divs[i].id, eval(divs[i].par));

 div = divs[0].lyr;

 bar = divs[1].lyr;
 thm = divs[2].lyr;

 if (!isNS4) bufRef = eval('window.' + myName + 'Buf');

 if (isNS4)
 {
  bar.ref.captureEvents(Event.CLICK);
  thm.ref.captureEvents(Event.MOUSEDOWN);
 }

 bar.ref.onclick = new Function('evt', 'return ' + myName + '.barClick(evt)');
 thm.ref.onmousedown = new Function('evt', 'return ' + myName + '.thumbDown(evt)');

 var noSel = new Function('if (activeScr) return false');
 if (isIE) document.onselectstart = noSel;
 else if (isDOM) document.onselect = noSel;


 loaded = true;
 layout();
 if (onsetup) onsetup();


 var fileName = ''
 var URL = location.search.substring(1);
 if (URL)
 {
  URL = URL.split('&');
  for (var i = 0; i < URL.length; i++)
   if (URL[i].split('=')[0] == myName) fileName = URL[i].split('=')[1];
 }

 if (fileName.indexOf('.htm') != -1) load(fileName)

 else if (defaultFile) load(defaultFile);
 else fileLoaded();
}}

function addProps(obj, data, names, addNull)
{
 for (var i = 0; i < names.length; i++) if(i < data.length || addNull) obj[names[i]] = data[i];
}


function DHTMLScroller()
{
 var names = ['myName', 'bufRef', 'div', 'bar', 'thm', 'loaded', 'loop', 'divHeight', 'thmHeight',
  'barHeight', 'cHeight', 'cWidth', 'dragOffset', 'onbeforeload', 'onload', 'onscroll', 'onsetup',
  'onlayout', 'onthumbdown', 'onthumbup'];
 addProps(this, arguments, names, true);

 this.cTop = 0;

 this.loadingFile = '';
 this.loadedFile = '';

 this.divs = new Array();

 this.minThmHeight = 40;
 this.padTop = 0;
 this.padBot = 0;
 this.checkBounds = true;

 this.stick = 1;
 this.stickTop = 0;
 this.stickTimer = null;

 this.load = scrLoad;
 this.fileLoaded = scrFileLoaded;
 this.scrollTo = scrScrollTo;
 this.scrollBy = scrScrollBy;
 this.thumbDown = scrThumbDown;
 this.stickScroll = scrStickScroll;
 this.barClick = scrBarClick;
 this.setup = scrSetup;
 this.layout = scrLayout;
}


var activeScr = null;

function ScrDiv()
{
 addProps(this, arguments, ['id','x','y','w','h','par','lyr'], true);
}

var mainDiv = new DHTMLScroller('mainDiv');

with (mainDiv) {

if (navigator.appName=="Netscape")  {
	divs[0] = new ScrDiv('mainDivContent','DivContent[0]','DivContent[1]','DivContent[2]','DivContent[3]');
	divs[1] = new ScrDiv('mainDivBar','780', 'DivBar[0]', '7','DivBar[1]');
	divs[2] = new ScrDiv('mainDivThumb','780','','7','7');
	divs[3] = new ScrDiv('mainDivUpArrows','780','PfeilUp[0]','7','15');
	divs[4] = new ScrDiv('mainDivDownArrows','780','505','7','15');
}
else{
	divs[0] = new ScrDiv('mainDivContent','DivContent[0]','DivContent[1]','DivContent[2]','DivContent[3]');
	divs[1] = new ScrDiv('mainDivBar','780', 'DivBar[0]', '7','DivBar[1]');
	divs[2] = new ScrDiv('mainDivThumb','780','','7','7');
	divs[3] = new ScrDiv('mainDivUpArrows','780','PfeilUp[0]','7','15');
	divs[4] = new ScrDiv('mainDivDownArrows','780','505','7','15');
}

 page.minW = 800;
 page.minH = 518;

 onload = loadFunction;

 onlayout = thumbVis;
}


function loadFunction() { with (this)
{
 getSty('loadMessage').visibility = 'hidden';
 for (var i = 0; i < divs.length; i++) if (i != 2 ) divs[i].lyr.vis('visible');
 onlayout();
}}

function thumbVis() { with (this)
{
 if (div.h() > eval(divs[0].h)) {
 	divs[2].lyr.vis('visible');
 	divs[3].lyr.vis('visible');
 	divs[4].lyr.vis('visible');
 }
 else {
 divs[2].lyr.vis('hidden');
 divs[3].lyr.vis('hidden');
 divs[4].lyr.vis('hidden');
 }
}}

window.onresize = function()
{
 ns4BugCheck();
 mainDiv.layout();
}

if (isNS4) document.captureEvents(Event.MOUSEMOVE | Event.MOUSEUP);

document.onmousemove = function(evt)
{
 var ret = scrThumbMove(evt);
 return (ret ? (isNS4?document.routeEvent(evt):true) : false);
}

document.onmouseup = function(evt)
{
 scrThumbUp(evt);
 if (isNS4) return document.routeEvent(evt);
}

var nsWinW = window.innerWidth, nsWinH = window.innerHeight;
function ns4BugCheck()
{
 if (isNS4 && (nsWinW!=innerWidth || nsWinH!=innerHeight))
 {
  var fileName = location.href;

  if (fileName.indexOf('?') != -1) fileName = fileName.substring(0, fileName.indexOf('?'));
  location.href = fileName + '?mainDiv=' + mainDiv.loadedFile + '&VarTextDiv=' + VarTextDiv.loadedFile + '&VarDownDiv=' + VarDownDiv.loadedFile;
 }
}
/*
function scrKeyDown(evt) { with (mainDiv)
{
 if (!loaded) return;
 if (isIE) key = event.keyCode;
 else if (isDOM) key = evt.charCode;
 else if (isNS4) key = evt.which;

 if ((key==84) || (key==116) || (key==36)) scrollTo(0);         // 'T', 't' or 'Home'
 if ((key==83) || (key==115) || (key==33)) scrollBy(0-cHeight); // 'S', 's' or 'PgUp'
 if ((key==65) || (key==97)  || (key==38)) scrollBy(-10);       // 'A', 'a' or 'Up'
 if ((key==90) || (key==122) || (key==40)) scrollBy(10);        // 'Z', 'z' or 'Down'
 if ((key==88) || (key==120) || (key==34)) scrollBy(cHeight);   // 'X', 'x' or 'PgDn'
 if ((key==66) || (key==98)  || (key==35)) scrollTo(divHeight); // 'B', 'b' or 'End'
}}

if (isIE) document.onkeydown = scrKeyDown;
else
{
 if (isNS4) document.captureEvents(Event.KEYPRESS);
 document.onkeypress = scrKeyDown;
}
*/
if (isIE) document.onmousewheel = function()
{
 mainDiv.scrollBy(event.wheelDelta / -3);
 return false;
}
