Ver Mensaje Individual
  #5 (permalink)  
Antiguo 22/10/2006, 03:52
Avatar de Aylaroble
Aylaroble
 
Fecha de Ingreso: octubre-2006
Ubicación: Madrid
Mensajes: 24
Antigüedad: 18 años, 1 mes
Puntos: 0
Barras de desplazamiento con color

Cita:
Iniciado por darkgaze Ver Mensaje
Alguien me puede ayudar? porfavor
Darkgaze, si deseas unas barras dinámicas, efectivamente tendrás que poner un JavaScript.

Jceel, un francés, unió un JavaScript con un VB y consiguió que las barras tengan colores intermitentes y además, que la vertical se esconda cuando la tocas con el puntero del ratón.

Por cierto, es un MVP que sufrió un accidente el año pasado. Estuvo en coma algunos meses; se recuperó, pero tiene problema de movilidad en los dedos y no puede seguir publicando. Es una persona muy querida en el mundo de las animaciones con Outlook Express.

Como no puedo poner enlaces, busca en Google 'jceel' y encontrarás su página. No hagas caso de la sugerencia del Google que dice algo así como 'quizás quiso decir jewel'. La página de Jceel sale en primer lugar.

Esta es su mezcla de los dos scripts :


<SCRIPT language=javascript>

var begcolor='#fa9000';
var endcolor='#0000ff';
var steps=6;
var delay=66;

if(document.all && document.getElementById){

document.body.style.scrollbarBaseColor=begcolor;

function colorset(num){
this.beg=parseInt('0x'+begcolor.substring(num,num+ 2));
this.end=parseInt('0x'+endcolor.substring(num,num+ 2));
this.up=this.startup=(this.end>=this.beg)? true : false;
this.incr=Math.abs(this.end-this.beg)/steps;
this.current=this.beg;
}
function changecolors(){
var color=new Array();
for(i=1;i<=3; i++){
(data[i].up)? data[i].current+=data[i].incr : data[i].current-=data[i].incr;
if(data[i].startup){
if(data[i].current>=data[i].end){ data[i].up=false; data[i].current=data[i].end}
if(data[i].current<=data[i].beg){ data[i].up=true; data[i].current=data[i].beg }
}
if(!data[i].startup){
if(data[i].current<=data[i].end){ data[i].up=true; data[i].current=data[i].end}
if(data[i].current>=data[i].beg){ data[i].up=false; data[i].current=data[i].beg}
}
color[i]=data[i].current;
}
color[4]=Math.floor(color[1]).toString(16); if(color[4].length==1)color[4]='0'+color[4];
color[5]=Math.floor(color[2]).toString(16); if(color[5].length==1)color[5]='0'+color[5];
color[6]=Math.floor(color[3]).toString(16); if(color[6].length==1)color[6]='0'+color[6];

document.body.style.scrollbarBaseColor='#'+color[4]+color[5]+color[6];
//document.bgColor='#'+color[4]+color[5]+color[6];
}
var data=new Array();
for(i=1, j=1;i<=3; i++, j+=2)data[i]=new colorset(j);
window.onload=function(){ setInterval('changecolors()',delay) }
}

</SCRIPT>



<SCRIPT language=VBScript>
//tout fout le camp
//meme les ascenseurs...Jceel
dim x1
FarLeft=document.body.OffsetWidth * 7/8
Sub Document_OnMouseOver()
mouseX1=window.event.x
if mouseX1 > FarLeft then
if x1=0 then
Document.body.scroll="no"
x1=1
end if
end if
if MouseX1 < FarLeft then
if x1=1 then
Document.body.scroll="yes"
x1=0
end if
end if
end sub
'alors z'avez trouvé l'ascensoriste ça fait un peu longuet Jceel ????
</SCRIPT>