Ejemplo de TSysAnimate
Publicado: Vie Oct 01, 2021 6:02 pm
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.
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.