Zoom
Hola otra vez!
Hace unos días te pregunte como podía hacer un zoom de una peli apretando un botón. Tu me diste este código:
El script para cambiar el tamaño del sprite que contiene el video es algo así.
property miQTSize
property miQTSprite
property miScreenSize
property mi estado
on beginSprite me
miQTSprite=1
miQTSize=sprite(miQTSprite).rect
miScreenSize=rect(0,0,640,480)
--indica si se ha cambiado o no
miEstado=FALSE
end
on mouseUp me
if miEstado then
sprite(miQTSprite).rect=miQTSize
else
sprite(miQTSprite).rect=miScreenSize
end if
miEstado=not(miEstado)
end
La propiedad "miScreenSize" corresponde al tamaño que quieres reproducir el video.
Este código funciona bien, pero lo que pasa es que cuando hago el zoom de la peli y después vuelvo a reducirla, en la pantalla quedan restos de la peli en zoom (peli agrandada) y por tanto queda fatal. ¿Cómo puedo resolver esto?
Gracias de nuevo!
Hace unos días te pregunte como podía hacer un zoom de una peli apretando un botón. Tu me diste este código:
El script para cambiar el tamaño del sprite que contiene el video es algo así.
property miQTSize
property miQTSprite
property miScreenSize
property mi estado
on beginSprite me
miQTSprite=1
miQTSize=sprite(miQTSprite).rect
miScreenSize=rect(0,0,640,480)
--indica si se ha cambiado o no
miEstado=FALSE
end
on mouseUp me
if miEstado then
sprite(miQTSprite).rect=miQTSize
else
sprite(miQTSprite).rect=miScreenSize
end if
miEstado=not(miEstado)
end
La propiedad "miScreenSize" corresponde al tamaño que quieres reproducir el video.
Este código funciona bien, pero lo que pasa es que cuando hago el zoom de la peli y después vuelvo a reducirla, en la pantalla quedan restos de la peli en zoom (peli agrandada) y por tanto queda fatal. ¿Cómo puedo resolver esto?
Gracias de nuevo!
1 respuesta
Respuesta de baronclo
1
Es necesario incluir un estado que permita hacer un refresh del contenido de stage.
Lo que queda en stage es parte del video que se amplia.
Lo puedes solucionar agregando un bitmap del tamaño del stage (p.e.640x480) y hacer visible e invisible solo para que haga la actualización.
Prueba lo siguiente. Fíjate que agregué unas lineas con la propiedad .visible.
On beginSprite me
miQTSprite=1
miQTSize=sprite(miQTSprite).rect
miScreenSize=rect(0,0,640,480)
--indica si se ha cambiado o no
miEstado=FALSE
sprite(2).visible=FALSE
end
on mouseUp me
if miEstado then
sprite(miQTSprite).rect=miQTSize
else
sprite(miQTSprite).rect=miScreenSize
end if
miEstado=not(miEstado)
sprite(2).visible=TRUE
updateStage()
sprite(2).visible=FALSE
end
Lo que queda en stage es parte del video que se amplia.
Lo puedes solucionar agregando un bitmap del tamaño del stage (p.e.640x480) y hacer visible e invisible solo para que haga la actualización.
Prueba lo siguiente. Fíjate que agregué unas lineas con la propiedad .visible.
On beginSprite me
miQTSprite=1
miQTSize=sprite(miQTSprite).rect
miScreenSize=rect(0,0,640,480)
--indica si se ha cambiado o no
miEstado=FALSE
sprite(2).visible=FALSE
end
on mouseUp me
if miEstado then
sprite(miQTSprite).rect=miQTSize
else
sprite(miQTSprite).rect=miScreenSize
end if
miEstado=not(miEstado)
sprite(2).visible=TRUE
updateStage()
sprite(2).visible=FALSE
end
