Crear una botonera móvil

Hola, perdona que te moleste, sabes si se puede hacer en director una botonera que emerga cuando pulses un botón y que sirva para controlar un vídeo que hay por detrásy además la pueda mover por el escenario. He probado con una miaw pero si le quito la barra no sé como hacerla moveable, bueno diame algo que estoy pillao, gracias.
1

1 Respuesta

252.550 pts.
Te pongo aqui todo el codigo necesario (abremiaws, cierramiaws, muevemiaws, cierraproyectormiaws):si no funciona algo me lo dices.
Este es para abrir miaws (es decir ventanas que son otras peliculas dir y que en tu caso debes elegir una del tipo 3).
property p_nombre_archivo,p_tipo_ventana,p_x,p_y
property p_activa_cerrar, p_titulo, p_mac
global miaw
on getPropertyDescriptionList me
list=[:]
addprop list, #p_nombre_archivo,[#comment:"inserta la ruta de Windows la pelicula que vas abrir",\
#format:#string,#default:" archivo/archivo.dir"]
addprop list, #p_mac,[#comment:"inserta la ruta de Mac la pelicula que vas abrir (no es necesario)",\
#format:#string,#default:" archivo:archivo.dir"]
addprop list, #p_titulo,[#comment:"inserta el titulo de la ventana",\
#format:#string,#default:"titulo miaw"]
addprop list, #p_tipo_ventana,[#comment:"inserta el tipo de ventana que vas abrir",\
#format:#integer,#range:[0,1,2,3,4,5,8,12,16,49],#default:8]
addprop list, #p_x,[#comment:"inserta la posicion horizontal de la ventana que vas abrir",\
#format:#integer,#default:8]
addprop list, #p_y,[#comment:"inserta la posicion vetical de la ventana que vas abrir",\
#format:#integer,#default:8]
addprop list, #p_activa_cerrar,[#comment:"¿quieres que al abrir esta ventana se cierren las anteriores?",\
#format:#boolean,#default:true]
return list
end getPropertyDescriptionList
on beginsprite me
end
on mouseup me
if p_activa_cerrar then
cerrar_ventanas(me)
end if
if the platform contains "mac" then
archivo=p_mac
else
archivo=p_nombre_archivo
end if
miaw=window (p_titulo)
miaw.filename=archivo
ancho=miaw.rect.width
alto=miaw.rect.height
miaw.rect= rect(p_x,p_y,p_x+ancho\
,p_y+alto)
miaw.windowtype=p_tipo_ventana
movetofront window(p_titulo)
open miaw
-- --
end
on cerrar_ventanas me
n=count(the windowlist)
repeat with i=1 to n
close window(i)
forget window(i)
end repeat
end
Este es para la x y para la opcion no de la miaw.
On mouseUp me
Close the activewindow
Forget the activewindow
end
Esta es para la opción si de la miaw:
On mouseup me
Close the activewindow
Forget the activewindow
Tell the stage to halt
end
Esto es para la barra que te permite mover la miaw.
property p_p, p_d,p_rh,p_rv,p_r,p_d2,p_vh,p_vv
on beginsprite me
p_p=0
-- p_r =the mouseloc
-- p_rh=(the mouseloc).loch
-- p_rv=(the mouseloc).locv
end
on mousedown me
p_p=1
-- p_vh= (the activewindow).rect.left
-- p_vv=(the activewindow).rect.top
-- p_d=p_vh- (the clickloc).loch
-- p_d2=p_vv- (the clickloc).locv
--
end
on mouseup me
p_p=0
end
on mouseupoutside me
p_p=0
end
on exitframe me
--
-- if rollover( me.spritenum) then
-- p_p=1
-- else
-- p_p=0
-- end if
if p_p=1 then
if the mousedown then
p_vh= (the activewindow).rect.left
p_vv=(the activewindow).rect.top
p_d=p_vh- (the clickloc).loch
p_d2=p_vv- (the clickloc).locv
v=1
--if p_p then
-- if v then
miaw=the activewindow
p_ancho=miaw.rect.width
p_alto=miaw.rect.height
v=0
-- end if
l=(the mouseloc).loch --+p_vh
lv=(the mouseloc).locv--+p_vv
miaw.rect= rect(l+p_d,lv+p_d2,p_ancho+p_d+l,p_alto+lv+p_d2)
--end if
-- end if
end if
end if
--end if
--if (the activewindow).rect.left<=0 then (the activewindow).rect.left=0
end

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas