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.

Ejemplo de TSysAnimate

Foro público de Xailer en español
Responder
Alfonso
Mensajes: 33
Registrado: Lun Dic 14, 2020 10:21 am
Ubicación: Santurtzi
Contactar:

Ejemplo de TSysAnimate

Mensaje por Alfonso »

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.
--
Un saludo
Alfonso
Pedro Gil
Mensajes: 112
Registrado: Lun Ene 15, 2007 7:46 pm

Re: Ejemplo de TSysAnimate

Mensaje por Pedro Gil »

Buenas tardes,

Le adjunto un pequeño ejemplo que funciona bajo Win10.
SysAnimate.rar
(4.37 KiB) Descargado 114 veces
Saludos
Alfonso
Mensajes: 33
Registrado: Lun Dic 14, 2020 10:21 am
Ubicación: Santurtzi
Contactar:

Re: Ejemplo de TSysAnimate

Mensaje por Alfonso »

Muchas gracias

Funciona perfectamente
--
Un saludo
Alfonso
Responder