|
Te pongo aqui un comportamineto para subir y otro para bajar:
--BEDELLUDRICA
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo a los botones de subir textos " & \
"e indicar en que sprite se encuentra el texto " & \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"bedelludrica@wanadoo.es "
end getBehaviorTooltip
property p_velocidad, p_texto,p_rutina
on getPropertyDescriptionList me
lista=[:]
addprop lista, #p_texto,[#comment:"¿elige el texto ?",\
#format:#member,#default:""]
addProp lista, #p_rutina, [#comment: "elige la rutina" ,#format:#String\
,#range:["On MouseDown","On MouseEnter"]\
,#default:"On MouseDown"]
addprop lista, #p_velocidad,[#comment:"¿Cual es la velocidad para subir texto?",\
#format:#integer,#default:2, #range:[#min:0,#max:6]]
return lista
end getPropertyDescriptionList
on exitframe me
if p_rutina = "On MouseDown" then
if rollover(me.spritenum) then
if the mousedown then
if member(p_texto).scrolltop<0 then
member(p_texto).scrolltop= member(p_texto).scrolltop
-- scrollByLine member p_texto, p_velocidad
else
member(p_texto).scrolltop= member(p_texto).scrolltop-p_velocidad
end if
end if
end if
else if p_rutina = "On MouseEnter" then
if rollover(me.spritenum) then
if member(p_texto).scrolltop<0 then
member(p_texto).scrolltop= member(p_texto).scrolltop
-- scrollByLine member p_texto, p_velocidad
else
member(p_texto).scrolltop= member(p_texto).scrolltop-p_velocidad
end if
end if
end if
end
---------------------------------------------------------------------------------------------------------------------------------------------------------------------BEDELLUDRICA
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo a los botones de bajar textos " & \
"e indicar en que sprite se encuentra el texto " & \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"bedelludrica@wanadoo.es "
end getBehaviorTooltip
property p_velocidad, p_texto,p_rutina
on getPropertyDescriptionList me
lista=[:]
addprop lista, #p_texto,[#comment:"¿elige el texto ?",\
#format:#member,#default:""]
addProp lista, #p_rutina, [#comment: "elige la rutina" ,#format:#String\
,#range:["On MouseDown","On MouseEnter"]\
,#default:"On MouseDown"]
addprop lista, #p_velocidad,[#comment:"¿Cual es la velocidad para BAJAR EL texto?",\
#format:#integer,#default:2, #range:[#min:0,#max:6]]
return lista
end getPropertyDescriptionList
on exitframe me
if p_rutina = "On MouseDown" then
if rollover(me.spritenum) then
if the mousedown then
if member(p_texto).scrolltop+member(p_texto).pageheight>member(p_texto).HEIGHT then
member(p_texto).scrolltop= member(p_texto).scrolltop
-- scrollByLine member p_texto, p_velocidad
else
member(p_texto).scrolltop= member(p_texto).scrolltop+p_velocidad
end if
end if
end if
else if p_rutina = "On MouseEnter" then
if rollover(me.spritenum) then
if member(p_texto).scrolltop+member(p_texto).pageheight>member(p_texto).HEIGHT then
member(p_texto).scrolltop= member(p_texto).scrolltop
-- scrollByLine member p_texto, p_velocidad
else
member(p_texto).scrolltop= member(p_texto).scrolltop+p_velocidad
end if
end if
end if
end
|
