Hola a todos:
He buscado ejemplos del uso de la clase TSysAnimate en samples de Xailer, pero no he encontrado nada.
He intentado lo siguiente, pero no funciona
METHOD Button1Click( oSender ) CLASS TFrmPrueba
WITH OBJECT TSysAnimate():Create()
:nFirstFrame:= 1
:nLastFrame:= -1
:nRepeat:= -1
:LoadFromFile(Application:cDirectory+"miarchivo.avi")
// :LoadCommon(5) // aviCOPYFILES
:Play()
END WITH
RETURN nil
Tambien he leido en el foro que los avis de windows han desaparecido a partir de Windows Vista, por eso he usado el metodo LoadFromFile(), no se si es así o no.
¿Teneis alguna sugerencia?
Gracias de antemano por vuestra ayuda.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Ejemplo de TSysAnimate
Ejemplo de TSysAnimate
--
Un saludo
Alfonso
Un saludo
Alfonso
Re: Ejemplo de TSysAnimate
Buenas tardes,
Le adjunto un pequeño ejemplo que funciona bajo Win10.
Saludos
Le adjunto un pequeño ejemplo que funciona bajo Win10.
Saludos