Director - botones para movimiento de texto

 
Vista:

botones para movimiento de texto

Publicado por Paula (3 intervenciones) el 21/05/2002 20:01:14
Estoy realizando un producto multimedia y quiero añadir camos de texto, al ser muy extenso me sale la barra de desplazamiento y el botón de arriba y abajo, me gustaria saber si existe algun metodo de cambiar estos botones y la barra por otros mas atractivos de diseño, muchas gracias de antemano.
Paula.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:botones para movimiento de texto

Publicado por Jorge M (18 intervenciones) el 30/05/2002 07:10:37
Claro, eso lo solucionas utilizando la propiedad scrolltop del textfield
property AnchoAnterior, AlturaAnterior, MiMiembro, SpriteNumero, AlturaMaxima, NuevaLocalizacion, velocidad
on beginSprite me
set SpriteNumero= the spriteNum of me
set MiMiembro= the member of sprite SpriteNumero
set velocidad= 18.0
end

-- Cuando oprimes el botón del mouse
on mouseDown me
-- verifica que este dentro de la pantalla el cuadro de texto si no es así no hace nada
set AlturaMaxima= MiMiembro.height - sprite(SpriteNumero).height
if MiMiembro.height < sprite(SpriteNumero).height then exit
-- Mientras que esté oprimido el botón
repeat while the mouseDown = true
-- Actualiza la pantalla
updatestage
-- Inicializa la posición del Scroll y se va disminuyendo cada vez
set AlturaAnterior= 0 --The mouseV
set NuevaAltura = AlturaAnterior
set NuevaLocalizacion= float(the scrollTop of MiMiembro)
set NuevaAltura= NuevaAltura - 20
set VelocidadScroll= velocidad*(20.0/ (the number of lines of the text of MiMiembro))
set NuevaLocalizacion= min(AlturaMaxima, max(0, (NuevaLocalizacion+ (((AlturaAnterior - NuevaAltura)+0)/VelocidadScroll))))
set the scrollTop of MiMiembro= NuevaLocalizacion
end repeat
end
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar