Scroll

Programndo en lingo.
Te pongo aquí mis comportamientos para ello:
Topo texto
--Bedelludrica
property p_barra,p_maximo_o_minimo, volumen,altura, linea_f
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo al topo " & \
"e indicar en que sprite se encuentra la barra de desplazamiento de texto " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posicion" &\
"de volumen 0 al comenzar la película y debes usarlo conjuntamente con EL COMPORTAMIENTO BOTÓN TEXTO"& \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
on getPropertyDescriptionList me
list=[:]
addprop list, #p_barra,[#comment:"¿que sprite es la barra del topo?",\
#format:#integer,#default:2]
return list
end getPropertyDescriptionList
on enterframe me
sprite(me.spritenum).loch=sprite(p_barra).loch
sprite(me.spritenum).loch=sprite(p_barra).loch
end
on beginsprite me
sprite (me.spritenum).moveableSprite =true
altura=sprite(p_barra).height
localizacion=sprite(p_barra).locv
linea_f=0
sprite(me.spritenum).locv=localizacion
sprite(me.spritenum).loch=sprite(p_barra).loch
updatestage
end
on exitframe me
volumen_max= member("texto").height+10- member("texto").pageheight
sprite(me.spritenum).constraint= p_barra
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_actual-topo_inicio
volumen=(topo_relativo*volumen_max)/altura
member("texto").scrolltop=volumen
end
BOTONES DE TEXTO. Esto sirve para el botón de bajar y subir al mismo tiempo.
--BEDELLUDRICA
property p_velocidad, p_barra,p_rutina
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo a los botones de subir y bajar textos " & \
"e indicar en que sprite se encuentra el topo del texto " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posición" &\
"de volumen 0 al comenzar la película y debes usarlo conjuntamente con EL COMPORTAMIENTO TOPO TEXTO"& \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
on getPropertyDescriptionList me
lista=[:]
addprop lista, #p_barra,[#comment:"¿que sprite es el topo?",\
#format:#integer,#default:1]
sprite(p_barra).locv= sprite(p_barra).locv+p_velocidad
end if
end if
else if p_rutina = "On MouseEnter" then
if rollover(me.spritenum) then
sprite(p_barra).locv= sprite(p_barra).locv+p_velocidad
end if
end if
end