/**
 * Este codigo fuente es propiedad de quatredevirtual S.L.
 * No se autoriza el uso, reproducción, modificación y/o distribución sin autorización
 * explícita y por escrito de la empresa.
 **/
// VARIABLES DE FUNCIONAMIENTO
//indica si se está haciendo scroll
var loop = 0;
//paso en píxels cuando se hace scroll
var step = 0;
//número de pasadas, usado para acelerar el scroll
var passes = 0;
//indica si se está haciendo scroll con la scrollbar
var scrolling = false;
//máxima altura que tendrá el TD que contiene el div
var maxHeight = 150;
//factor de multiplicadión de la scrollbar y el div, inicializado a 1, pero hay que llamar a setFactor en onLoad
var factor = -1;
//id de la scrollbar
var scrollbarId = "_miScBar";
//id del div que hay que mover
var targetDivId;
// Temporary variables to hold mouse x-y pos.s
var tempX = 0
var tempY = 0
var lastY;
// Detect if the browser is IE or not.
// If it is not IE, we assume that the browser is NS.
var IE = document.all?true:false

// If NS -- that is, !IE -- then set up for mouse capture
if (!IE) document.captureEvents(Event.MOUSEMOVE)

// Set-up to use getMouseXY function onMouseMove
document.onmousemove = getMouseXY;
document.onmouseup = disableScrolling;

function drawScrollDownBtn(btnImgOn, btnImgOff, targetDiv){
  document.write('<a href="#" onMousedown="beginScrollDown(' + "'" + targetDiv + "'" +');" onMouseOut="stopLoop();document.getElementById(\'scbarBtnDown\').src=\'' + btnImgOff + '\';" onMouseup="stopLoop();" onMouseOver="document.getElementById(\'scbarBtnDown\').src=\'' + btnImgOn + '\'">');
  document.write('<img id="scbarBtnDown" src="' + btnImgOff + '" border="0">');
  document.write("</a>");
	targetDivId = targetDiv;
}
function drawScrollUpBtn(btnImgOn, btnImgOff, targetDiv){
  document.write('<a href="#" onMousedown="beginScrollUp(' + "'" + targetDiv + "'" +');" onMouseOut="stopLoop();document.getElementById(\'scbarBtnUp\').src=\'' + btnImgOff + '\';" onMouseup="stopLoop();" onMouseOver="document.getElementById(\'scbarBtnUp\').src=\'' + btnImgOn + '\';">');
  document.write('<img id="scbarBtnUp" src="' + btnImgOff + '" border="0">');
  document.write("</a>");
	targetDivId = targetDiv;
}

function drawScrollBar(scrollImage, targetDiv, height){
	var scbar = '<div onselectstart="return false" id="' + scrollbarId + '" style="position:relative;border:0px solid;top:0px;width:10px;height:10px;background-image:url(' + scrollImage + ')" onMouseDown="beginScrollBar();" onMouseUp="scrolling=false;"></div>';
	maxHeight = height;
	document.write(scbar);
	targetDivId = targetDiv;
}

/**
 * Arranca el scroll por botón hacia arriba
 */
function beginScrollUp(targetName){
  var target = document.getElementById(targetName);
  if(target == null) return false;
	step = -1;
	loop = 1;
	//esto en opera target.scrollTo(0, 100);
	target.scrollTop = target.scrollTop + step;
	setTimeout("doLoop('" + targetName + "');",100);
}
/**
 * Arranca el scroll por botón hacia abajo
 */
function beginScrollDown(targetName){
  var target = document.getElementById(targetName);
  if(target == null) return false;
  step = 1;
	loop = 1;
	//esto en opera target.scrollTo(0, 100);
	target.scrollTop = target.scrollTop + step;
	setTimeout("doLoop('" + targetName + "');",100);
}
/**
 * Da una vuelta más del scroll de botón que se esté haciendo
 */
function doLoop(targetName){
  var target = document.getElementById(targetName);
  if(target == null) return false;
  if(loop == 1){
	passes++;
	if(passes = 1000){
	  step = 1.05 * step;
	  passes = 0;
	}
  target.scrollTop = target.scrollTop + step;
	//mover también la barra del scroll
	document.getElementById(scrollbarId).style.top = (target.scrollTop / getFactor()) + "px";
	setTimeout("doLoop('" + targetName + "');",30);
  }
}
/**
 * Para el scroll de botón que se esté haciendo
 */
function stopLoop(){
  loop = 0;
  passes = 0;
}
/**
 * Inicia el scroll mediante la barra
 */
function beginScrollBar(){
  var target = document.getElementById(scrollbarId);
  lastY = tempY;
  scrolling = true;
}
/**
 * Para el scroll que se estaba haciendo mediante la barra
 */
function disableScrolling(){
  scrolling = false;
}

/**
 * Mueve la scrollbar la mover el mouse
 */
function doScrollBar(){
  if (scrolling){
    var target = document.getElementById(scrollbarId);
	  //calcular el movimiento
    var diff = tempY - lastY;
	  lastY = tempY;
		var divPos = parseInt(target.style.top+0);
		var divHeight = parseInt(target.style.height+0);
		//comprobar que la nueva posición estará dentro del rango
		if(divPos + diff >= 0 && (divPos + diff + divHeight)< maxHeight){
			target.style.top = (divPos + diff) + "px";
			document.getElementById(targetDivId).scrollTop = (divPos + diff) * getFactor();
		}else{
			if(divPos > maxHeight){
				target.style.top = maxHeight + "px";
			}else if (divPos < 0){
				target.style.top = "0px";
			}
		}
  }
}

/**
 * Da el valor correcto al factor
 */
 function getFactor(){
	 if(factor <= 0){
		 var targetDiv = document.getElementById(targetDivId);
		 var divHeight = parseInt(targetDiv.style.height+0);
		 var divScrollHeight = targetDiv.scrollHeight;
	   factor = (divScrollHeight - divHeight) / (maxHeight - 10) ;
	 }
	 return factor;
 }

// Main function to retrieve mouse x-y pos.s
function getMouseXY(e) {
  if (IE) { // grab the x-y pos.s if browser is IE
    tempX = event.clientX + document.body.scrollLeft
    tempY = event.clientY + document.body.scrollTop
  } else {  // grab the x-y pos.s if browser is NS
    tempX = e.pageX
    tempY = e.pageY
  }  
  // catch possible negative values in NS4
  if (tempX < 0){tempX = 0}
  if (tempY < 0){tempY = 0}  
  // show the position values in the form named Show
  // in the text fields named MouseX and MouseY
  if(scrolling){
    doScrollBar();
  }
  return true
}