// =========================================================
// ==                                                     ==
// ==    ROUTINE DE GESTION DU SCROLL DU SITE 4GMOBILE    ==
// ==                                                     ==
// =========================================================
// ==                                                     ==
// == CODE SOURCE VERSION : 0.0.1                         ==
// == CODE DEVELOPPER     : LERICQUE Jean-Yves            ==
// ==                                                     ==
// =========================================================

// =========================================================
// =========================================================
// =========================================================

var DOM 	= (document.getElementById ? true : false);
var IE  	= (document.all && !DOM ? true : false);
var NS4 	= (document.layers ? true : false);
var NETSCAPE 	= (navigator.appName == "Netscape");

var DelayDefil 	= 50;      	// Delai pour défilement Msg
var DelayPause 	= 2000;    	// Delai pour pause sur le Msg
var IncY 	= 2;		// Pas Incrémentation du Msg
var bFirst 	= false;	//
var MsgTimer 	= null;		// Timer du Msg
var OfsY;			// OfsY du Msg pour clipping
var DeltaY;			// Compteur pour pause Msg
var PosX;			// Positon d'affichage X du Msg
var PosY;			// Positon d'affichage Y du Msg
var MsgClip;			// Hauteur visible du Msg
var MsgEnCours;			// Numéro du Msg en cours d'affichage
var MsgNbr;			// Nbr Ligne à afficher
var MsgZone;			// Div ou l'on affichage
var MsgLarg;			// Largeur Msg
var MsgHaut;			// Hauteur Msg
var MsgOK   	= false;	// Flag pour Init correct
var Clip    	= new RECT();	// Zone de clipping du Msg
var Zone    	= new RECT();	// Zone dans laquelle on affiche
var Message 	= new Array();	//

// =========================================================
// =========================================================
// =========================================================

function RECT( l_, t_, r_, b_){
  var Arg = arguments;
  this.Left    = ( Arg[0] ? l_: 0);
  this.Top     = ( Arg[1] ? t_: 0);
  this.Right   = ( Arg[2] ? r_: 0);
  this.Bottom  = ( Arg[3] ? b_: 0);
}

// =========================================================
// =========================================================
// =========================================================

function GetObjet(div_){
  if( DOM) return document.getElementById(div_);
  if( IE)  return document.all[div_];
  if( NS4) return document.layers[div_];
}

// =========================================================
// =========================================================
// =========================================================

function GetStyle(div_){
  return (NS4 ? GetObjet(div_) : GetObjet(div_).style);
}

// =========================================================
// =========================================================
// =========================================================

function ObjGetLargeur( div_){
  var Obj  = null;
  var Larg = 0;
  Obj = GetObjet( div_);
  if( Obj){
    if( NETSCAPE)
      Larg = Obj.offsetWidth;
    else
      Larg = Obj.scrollWidth;
  }
  return( Larg);
}

// =========================================================
// =========================================================
// =========================================================

function ObjGetHauteur( div_){
  var Obj  = null;
  var Haut = 0;
  Obj = GetObjet( div_);
  if( Obj){
    if( NETSCAPE)
      Haut= Obj.offsetHeight;
    else
      Haut= Obj.scrollHeight;
  }
  return( Haut);
}

// =========================================================
// =========================================================
// =========================================================

function ObjGetPosX( div_){
  var Obj = null;
  Obj = GetObjet( div_);
  if( Obj){
    return( Obj.offsetLeft);
  }
  return( null);
}

// =========================================================
// =========================================================
// =========================================================

function ObjGetPosY( div_){
  var Obj = null;
  Obj = GetObjet( div_);
  if( Obj){
    return( Obj.offsetTop);
  }
  return( null);
}

// =========================================================
// =========================================================
// =========================================================

function ObjWrite( div_, html_){
  var Obj;
  Obj = GetObjet( div_);
  if( Obj)
    Obj.innerHTML = html_;
}

// =========================================================
// =========================================================
// =========================================================

function ObjShow( div_, z_){
  var Obj = null;
  Obj = GetStyle( div_);
  if( Obj){
    Obj.visibility = "visible";
    if( arguments[1] != null)
      Obj.zIndex = z_;
  }
  return(true);
}

// =========================================================
// =========================================================
// =========================================================

function ObjMoveTo( div_, x_, y_){
  var Obj = null;
  var Arg = arguments;
  Obj = GetStyle( div_);
  if( Obj){
    if( NETSCAPE){
      if( Arg[1] != null) Obj.left = x_;
      if( Arg[2] != null) Obj.top  = y_;
    }
    else{
      if( Arg[1] != null) Obj.pixelLeft = x_;
      if( Arg[2] != null) Obj.pixelTop  = y_;
    }
  }
}

// =========================================================
// =========================================================
// =========================================================

function ObjSetClipping( div_, t_, r_, b_, l_){
  var Obj = null;
  var Clipping = "rect(";
  var Arg = arguments;
  if( div_){
    Obj = GetStyle( div_);
    if( Obj){
      for( i=1; i< Arg.length; i++){
        if( Arg[i] != null)
          Clipping += " "+Arg[i] + "px";
        else
          Clipping += " auto";
      }
      Clipping += ")";
      Obj.clip = Clipping;
    }
  }
}

// =========================================================
// =========================================================
// =========================================================

function Add_Div( div_){
  var Html ="";
  var NewDiv;
  Html  = '<DIV ID="MSG" style="position:absolute;left:0px;top:0px;width:auto;height:auto;visibility:hidden;"';
  Html += ' OnMouseOver="Msg_Stop();" OnMouseOut="Msg_Replay(\'MSG\');">&nbsp;</DIV>';
  if( IE){
    document.body.insertAdjacentHTML('beforeEnd', Html);
  }
  else if( DOM){
    NewDiv = document.createElement('DIV');
    document.body.appendChild(NewDiv);
    NewDiv.innerHTML = Html;
  }
}

// =========================================================
// =========================================================
// =========================================================

function GetZone(){
  with( Zone){
    Left   = ObjGetPosX   ( MsgZone);
    Top    = ObjGetPosY   ( MsgZone);
    Right  = ObjGetLargeur( MsgZone);
    Bottom = ObjGetHauteur( MsgZone);
  }
}

// =========================================================
// =========================================================
// =========================================================

function Add_Message(  m_){
  var i = Message.length;
  Message[i]  = m_;
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Creer( div_){
  var Html = "";
  var szTR = "";
  var Largeur = Zone.Right;
  var Hauteur = Zone.Bottom;

  //-- Calcul valeur cohérente au pas Y
  Hauteur = parseInt(Hauteur /IncY) * IncY;

  MsgNbr = Message.length +1;

  szTR = '<TR><TD HEIGHT="' +Hauteur +'" WIDTH="' +Largeur +'" NOWRAP class="MSG" VALIGN="CENTER">&nbsp;';
  Html = '<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">';

  for( i in Message)
    Html += szTR +Message[i] +'</TD></TR>';

  //-- On rajoute la 1st Ligne pour rotation
  Html += szTR +Message[0] +'</TD></TR>';

  Html += '</TABLE>';
  ObjWrite( div_, Html);
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Stop(){
  if( MsgTimer)
    clearTimeout( MsgTimer);
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Replay(div_){
  if( MsgOK){
    Msg_Stop();
    MsgTimer = setTimeout("DefilHAUT('" +div_ +"')", DelayDefil);
  }
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Begin( div_){
  //-- Réinitialisation
  OfsY   = 0;
  DeltaY = 0;
  MsgEnCours = 1;

  //-- Position Affichage
  GetZone();
  PosX = Zone.Left;
  PosY = Zone.Top - OfsY;

  //-- Init des Clipping
  Clip.Top    = Zone.Top - PosY;
  Clip.Bottom = Clip.Top + MsgClip;

  //-- On applique le clipping
  ObjSetClipping( div_, Clip.Top, MsgLarg, Clip.Bottom, 0);

  //-- On place le div
  ObjMoveTo( div_, PosX, PosY);
  ObjShow( div_, 100);

  //-- Pause sur message
  MsgTimer = setTimeout("DefilHAUT('" +div_ +"')", DelayPause);
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Start( div_){
  var Obj = null;
  var Html= "";
  Msg_Stop();
  Obj = GetObjet( div_);
  if( Obj){
    bFirst = true;
    //-- Récup. de la Zone d'affichage
    GetZone();
    //-- Création d'un Message unique
    Msg_Creer( div_);
    //-- Récup. des dimensions
    MsgLarg = ObjGetLargeur( div_);
    MsgHaut = ObjGetHauteur( div_);
    //-- Calcul Hauteur de chaque Message
    MsgClip = MsgHaut / MsgNbr;
    //-- C'est parti
    Msg_Begin( div_);
  }
}

// =========================================================
// =========================================================
// =========================================================
function DefilHAUT( div_){
  //-- Incrémentation
  OfsY   += IncY;
  DeltaY += IncY;

  //-- Position Affichage
  GetZone();
  PosX = Zone.Left;
  PosY = Zone.Top -OfsY;

  //-- Init des Clipping
  Clip.Top    = Zone.Top - PosY;
  Clip.Bottom = Clip.Top + MsgClip;

  //-- On applique le clipping
  ObjSetClipping( div_, Clip.Top, MsgLarg, Clip.Bottom, 0);

  //-- On déplace ou replace
  ObjMoveTo( div_, PosX, PosY);

  //-- On montre si first
  if( bFirst){
    ObjShow( div_, 100);
    bFirst = false;
  }

  //-- Gestion du déplacement
  if( DeltaY < MsgClip){
    //-- On y Retourne
    MsgTimer = setTimeout("DefilHAUT('" +div_ +"')", DelayDefil);
  }
  else{
    DeltaY = 0;
    MsgEnCours ++;
    if( MsgEnCours == MsgNbr){
      Msg_Begin( div_);
    }
    else{
      MsgTimer = setTimeout("DefilHAUT('" +div_ +"')", DelayPause);
    }
  }
}

// =========================================================
// =========================================================
// =========================================================

function Msg_Init( where_){
  MsgZone = where_;
  Add_Div  ('MSG');
  GetZone();
  Msg_Start('MSG');
  MsgOK = true;
}