Como hago para ejecutar un gif animado en un formulario

[integral]

Que tal amigos del Foro

Muy Buenas Noches

Quisiera saber si alguien me puede ayudar de como hago para ejecutar
un gif animado contenido en el _SCREEN y poder sobreponerlo en el formulario principal luego de hacer una búsqueda de un registro.

Aquí el código utilizado que funciona en el _Screen de VFP, pero cuando es llamado desde el formulario No aparece el archivo GIF

WAIT WINDOW "[ Realizando la Busqueda del Registro... ]" NOWAIT 
_Screen.AddObject("imagen_gif","image")
_Screen.imagen_gif.Picture = "C:\MIGRACONSU\ERP_CONSUMO\BMPS\GIF\BUSQUEDA.GIF"
_Screen.imagen_gif.Visible = .T.
_Screen.imagen_gif.Top = 395
_Screen.imagen_gif.left = 1335
=INKEY(2.5)
_Screen.imagen_gif.visible = .F.
clear all

WAIT CLEAR

Agradezco vuestra ayuda.

Saludos,

Integral

[Zarlu]

Buenos días Integral!

Y si la agregas al form en lugar del _Screen?

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Colega Zarlu

Muy Buenos Días

Te comento, hace unas semanas me nació la idea de poner un archivo GIF cuando se hace una búsqueda de un registro y darle un efecto similar al efecto que hace algunos años aparecía en MS Word el gif animado CLICKCITO...

El formulario principal de tipo ShowWindow=1 y de tipo modal, en el botón de Búsqueda he colocado el código publicado...

He notado que haciendo las pruebas en una de ellas apareció el Archivo Gif de la Imagen publicada detrás del formulario principal.

Que propiedades debo cambiar en el formulario principal para hacer que aparezca el archivo GIF adelante... 

 

También anoche lo estuve poniendo el archivo GIF en un formulario, pero el efecto mostrado no es el mismo .

Se me ocurre convertir el formulario en forma redonda y/o ovalada. Y además sea transparente para imitar el efecto del archivo GIF en el _Screen.

Agradezco tus comentarios y sugerencias.

Atte.,

Integral

[Zarlu]

Qué tal Integral!

El gif debe estar en el formulario donde lo vas a mostrar.

Revisa el Top y Left de tu código, es probable que esté quedando fuera de visión del formulario.

Toma en cuenta también la propiedad Zorder

Igual y lo puedes agregar en diseño al formulario y manejar la propiedad visible conforme lo requieras

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Colega Zarlu

Muy Buenas Tardes

Como podras observar en la imagen. El archivo GIF se ejecuta de manera lenta que se nota el desplazamiento de los movimientos del archivo GIF

Igual sucede cuando lo hago en un formulario independiente...

Pero en el _SCREEN si funciona correctamente...

Que me aconsejas para 

Atte.,

Integral

[integral]

Que tal Amigos

Buscando información sobre los archivos GIF animados.

Encontré el siguiente comentario del maestro Víctor Espina

Atte.,

Integral

[Zarlu]

Buenas tardes Integral!

El comentario del maestro Víctor lo dice todo.

En algún momento también pensé en usarlos, pero decliné, no recuerdo porque, quizá por esa razón.

Lo que he hecho en consultas es incluir una función que al "evaluarse" actualiza un mensaje de progreso.

Algo así:

Select * From......Where ...... AND progreso()....

Entonces en progreso() código que actualiza/oculta/muestra alguna etiqueta o imagen

[integral]

Que tal Colega Zarlu

Muy Buenas Noches

Buscando informacion encontre el siguiente comentario del Colega Daniel Sanchez

Si no me equivoco el vfp trabaja en un solo hilo o tarea y por tanto todo lo que se cargue ahí va corriendo por ese hilo, si un proceso toma su tiempo en ejecutarse todo los demás cosas del vfp se detienen, dentro de esto esta el ejecutar la animación de tu gif, uno podrías lanzar tu proceso de backup ejecutándolo en un módulo exe aparte, lo que no bloquearía tu exe actual, dos ejecutarlo o lanzarlo dentro del mismo exe con una clase que maneja multi hilos (que me parece que ya se toco el tema hace un tiempo, multihilos en vfp), con el cual no bloquea para nada tu exe actual ya que se ejecuta en otro hilo, o tercero si usas un bucle dowhile, for, scan u otro para ir enviando tus archivos podrías ir poniendo doevents dentro de tu bucle pudiendo con esto hacer que el sistema ejecute o vea los eventos en lista y los tome, claro esta si tu proceso esta dentro de uno de estos bucles.

Como una posible solucion otro colega planteaba...

Imagino que deseas hacer es un batch y mientras corre el proceso le muestras un gif animado al usuario para que no se aburra

Hacer lo siguiente:

1) crea una clase Form llamada FormImagen en donde colocas la imagen Gif

2) En un Prg (ProgBatch) coloca lo siguiente

Procedure ProgBatch

    oShowForm=CREATEOBJECT("FormImagen")

oShowForm.SHOW

INKEY(2)

        

       Codigo del Proceso que deseas correr   && Aqui que codigo se pondria para ejecutar el archivo GIF, luego de indicar la ruta del archivo  

        oShowForm.release

ENDPROC

3) Ejecuta el prg (DO ProgBatch)

Agradezco tus comentarios y Sugerencias

Atte,

Integral

[Zarlu]

Buenas tardes Integral!

Creo que eso esta fuera de mi nivel de conocimiento. No le entiendo bien

Pero acabo de hacer un aporte al respecto. Revisa si te sirve.

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Amigos del Foro

Continuando con la búsqueda de información acerca del uso de los Gifs Animados

Encontré el siguiente código que trabaja con el control WebBrowser, pero al ejecutarlo da un error...

*-- Crear el formulario   
PUBLIC loForm
loForm = CREATEOBJECT("Form")
loForm.Caption = "Ejemplo GIF Animado"
loForm.Width = 300
loForm.Height = 300

*-- Agregar el control WebBrowser (OleControl)
loForm.AddObject("oBrowser", "OleControl", "Shell.Explorer.2")

WITH loForm.oBrowser
    .Visible = .T.
    .Height = loForm.Height
    .Width = loForm.Width
    *-- Navegar directamente a la ruta del archivo GIF
    .Navigate("C:\ruta\de\tu\archivo.gif")
ENDWITH

loForm.Show()

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

[Octavio Rodriguez]

y cual es la razón de querer manejar un gif en la aplicación?

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/a6a53d8c-1d05-403c-918a-f866f8ddfa06n%40googlegroups.com.

[integral]

Amigos

Les comento hace varios yo visitaba las paginas y los codigos de ejemplo de

Ramani y Emans

Pero actualmente creo que ya desaparecieron.

Alguien conoce o sabe que paso con los mencionados...

Saludos,

Integral

[HERNAN D. A.]

CLEAR

PUBLIC loForm
loForm = CREATEOBJECT("Form")
loForm.Caption = "Ejemplo GIF Animado"
loForm.Width = 300
loForm.Height = 300

loForm.Show()

*-- Agregar WebBrowser

loForm.AddObject("oBrowser", "OleControl", "Shell.Explorer.2")

WITH loForm.oBrowser
    .Visible = .T.

    .Align = 5 && Fill
ENDWITH

*-- Ruta correcta en formato URL
lcGif = "file:///C:/ruta/de/tu/archivo.gif"

*-- Navegar
loForm.oBrowser.Navigate2(lcGif)

Funcará ?

--

[Oscar Bonet]

no todos los gif se reproducen en un formulario de visual foxpro, algunos dependen del tamaño o resolucion.   puedes hacer pruebas con los gif que trae la ayuda en el instalador de visual foxpro y te darás cuenta y otros no.  algunos gif mejores son los que tienen transparencias otros aunque posean tranparencias se ven muy feos reproduciendose (renderizacion de la imagen).  a mi me han funcionado aquellos que son basicos con colores solidos basicos.

[jorgeg...@gmail.com]

Integral has usado o conoces GIF89.DLL, deberias de probarlo si no lo has hecho.

Saludos

Caracas-Venezuela

[integral]

Que tal amigos del Foro

Adjunto imagen con el resultado final...

He tratado de hacer el fondo transparente del archivo GIF con diferentes programas...

Adjunto el archivo GIF.  Si algun colega conoce la forma de hacerlo con el fondo transparente.

Gracias anticipadas.

Atte.,

Gabriel  

[Zarlu]

Buenas noches Integral!

Le apliqué a la imagen BackStyle=0 y te muestro el resultado.

El archivo tiene canal de transparencia

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Buenas Noches Colega Zarlu

En esta ocasión decidí poner la imagen dentro de un PRG.

Desde un comienzo hice lo que mencionas y el efecto que aparece es el mostrado en la imagen  

En el programa sale ahora el archivo GIF encima pero tiene un fondo gris 

PD: Podrias enviarme el archivo del ejemplo mostrado

Saludos

Integral

[Zarlu]

Buenos días Integral!

El archivo que usé es el que compartiste ("busqueda.gif")

Uno de dos precios....

- BackStyle= 0    Deja huella (capas acumulativas)

- BackStyle=1     Muestra un fondo que tapa los objetos detrás 

Para mejorarlo prueba lo siguiente:

En el DbClick de la imagen:

PARAMETERS pRango
IF PCOUNT()=0
lcPicture=This.Picture
This.Picture=""
This.Visible=.F.
This.Picture=lcPicture
RELEASE lcPicture
RETURN
EndIf
This.enabled=!This.enabled
This.Visible=.T.

Invocarlo así: Thisform.image1.DbClick(1)

Desactivarlo así: Thisform.Image1.DbClick()

Mis pruebas son con la imagen en el formulario.

Te adjunto tu gif con menos fotogramas

Podrías compartir el PRG que mencionas? Por favor

[integral]

Que tal colega Zarlu

Muy Buenos Días

Si pudieras compartir el formulario que trabajaste con el archivo GIF que compartí y que muestras en tu mensaje anterior junto al GRID 

*-- Ejemplo en un PRG    

* Si utilizo el NOWAIT no siempre se muestra el mensaje al mover el mouse... 

WAIT WINDOW " Realizando la Busqueda ... " NOWAIT   

* Si utilizo el NOCLEAR aparece siempre el mensaje pero como lo desactivo. Intente con el WAIT CLEAR y nada.

Si aplico un Click Izquierdo o Derecho aparece el GIF se sigue mostrando el mensaje hasta que termina el tiempo de visualizacion y ahí el Wait Clear funciona borrando el mensaje.

WAIT WINDOW " Realizando la Busqueda ... " NOCLEAR

PUBLIC oForm
oForm = CREATEOBJECT("Form")
oForm.Caption = "Ejemplo GIF"
oForm.Width = 400
oForm.Height = 300

*-- Agregar control imagen
oForm.AddObject("imgGif", "Image")
WITH oForm.imgGif
    .Top = 10
    .Left = 10
    .Width = 380
    .Height = 280
    .Picture = "ruta\de\tu\archivo.gif"  && <--- Ruta al GIF
    .Visible = .T.
    .Stretch = 2 
ENDWITH

oForm.Show()

Gracias por tu apoyo.

Quedo a la espera de tu formulario.

Atte.,

Integral

[Zarlu]

Qué tal integral!

Ahí lo tienes con tu imagen.

Con intención lo coloqué sobre varios objetos.

Comenta 

Suerte

zarlu

Chetumal, Quintana Roo, México

[Zarlu]

Qué tal Integral!

Para lo del WAIT algo así:

WAIT WINDOW " Realizando la Búsqueda ... " NOCLEAR NoWait
DO prggif&&prg del gif

* rutina que deseas

WAIT CLEAR

Suerte

zarlu

Chetumal, Quintana Roo, México

[Elides Paredes]

Estimado amigo Integral
Prueba éste código a ver que te parece.
Yo tengo varias imagenes gif en controles de imágenes y no me da problema. Excepto que se detiene. Te recomiendo consultar con mi asistente Gemini. que me hizo ésto (un PRG) Claro debes colocar tu imagen y su ruta.



*-- Limpiar y declarar pública
RELEASE oMiBurrita
PUBLIC oMiBurrita

*-- Crear instancia
oMiBurrita = CREATEOBJECT("frmImagenFlotante")
oMiBurrita.Show(0)

DEFINE CLASS frmImagenFlotante AS Form
    Height = 114
    Width = 114
    BorderStyle = 0
    Caption = "Burrita"
    TitleBar = 0
    AlwaysOnTop = .T.
    ShowWindow = 2
    WindowType = 0
    BackColor = 16777215  && Blanco
    AutoCenter = .T.
    Visible = .T.

    *-- Propiedades para el movimiento manual
    nOldX = 0
    nOldY = 0
    lMoviendo = .F.

    ADD OBJECT imgBurrita AS Image WITH ;
        Top = 0, ;
        Left = 0, ;
        Height = 114, ;
        Width = 114, ;
        Picture = "C:\Users\Usuario\Pictures\Taller Imagenes\burrita.gif", ;
        Stretch = 1

    PROCEDURE Init
        *-- Declaraciones de transparencia
        DECLARE INTEGER SetLayeredWindowAttributes IN user32 ;
            INTEGER, INTEGER, INTEGER, INTEGER
        DECLARE INTEGER GetWindowLong IN user32 INTEGER, INTEGER
        DECLARE INTEGER SetWindowLong IN user32 INTEGER, INTEGER, INTEGER

        LOCAL nCol, nEst
        nCol = 16777215
        nEst = GetWindowLong(THIS.HWnd, -20)
        SetWindowLong(THIS.HWnd, -20, BITOR(nEst, 0x80000))
        SetLayeredWindowAttributes(THIS.HWnd, nCol, 0, 1)
    ENDPROC

    *-- LÓGICA DE MOVIMIENTO (Sustituye a la API SendMessage para mayor compatibilidad)
   
    PROCEDURE imgBurrita.MouseDown
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        IF nButton = 1
            THISFORM.lMoviendo = .T.
            THISFORM.nOldX = nXCoord
            THISFORM.nOldY = nYCoord
            THIS.MousePointer = 5 && Cambia el cursor a una mano/movimiento
        ENDIF
    ENDPROC  

    PROCEDURE imgBurrita.MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        IF THISFORM.lMoviendo
            THISFORM.Left = THISFORM.Left + (nXCoord - THISFORM.nOldX)
            THISFORM.Top = THISFORM.Top + (nYCoord - THISFORM.nOldY)
        ENDIF
    ENDPROC

    PROCEDURE imgBurrita.MouseUp
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        THISFORM.lMoviendo = .F.
        THIS.MousePointer = 0 && Vuelve al cursor normal
    ENDPROC

    *-- Clic derecho para cerrar
    PROCEDURE imgBurrita.RightClick
        THISFORM.Release()
    ENDPROC

ENDDEFINE

Saludos a todos

Elides Paredes 
Barquisimeto Venezuel.

[Elides Paredes]

Amigos

vean ésto.este PRG muestra una imagen gif de 114 x 114, es una burrita que muestra un mensaje. A mí me parece genial. 
solo le agregan su propia imagen gif, pero con las dimensiones señaladas para que entre en el fomulario.
Aunque está basada en una idea mía debo darle todo el crédito a Gemini. realmente me tiene atrapado. 

Vean este prg

RELEASE oAvisoError
PUBLIC oAvisoError
*-- Creamos al asistente con su mensaje de error
oAvisoError = CREATEOBJECT("frmAvisoErrorTaller", "C:\Users\Usuario\Pictures\Taller Imagenes\burrita.gif", "¡Asegúrate de llenar todos los campos obligatorios!")
oAvisoError.Show(0)

DEFINE CLASS frmAvisoErrorTaller AS Form
    Width = 300
    Height = 200 && Un poco más alta para que quepa todo
    BorderStyle = 0

    TitleBar = 0
    AlwaysOnTop = .T.
    ShowWindow = 2

    BackColor = RGB(254,254,254) && Transparencia Alpha 254

    AutoCenter = .T.
    Visible = .T.

    *-- Propiedades de arrastre

    nOldX = 0
    nOldY = 0
    lMoviendo = .F.

    *-- La barra de título "falsa" con el texto de tu imagen
    ADD OBJECT shpTitulo AS Shape WITH ;
        Top = 0, Left = 0, Width = 300, Height = 40, ;
        BackColor = RGB(70, 110, 130), BorderStyle = 0

    ADD OBJECT lblTitulo AS Label WITH ;
        Top = 8, Left = 15, Width = 200, Height = 25, ;
        Caption = "Aviso Taller", BackStyle = 0, ;
        ForeColor = RGB(255,255,255), FontName = "Segoe UI", FontSize = 12, FontBold = .T.

    *-- El área blanca de abajo con el fondo y la imagen
    ADD OBJECT shpFondo AS Shape WITH ;
        Top = 40, Left = 0, Width = 300, Height = 160, ;
        BackColor = RGB(255,255,255), BorderStyle = 0

    ADD OBJECT imgBurrita AS Image WITH ;

        Top = 60, Left = 10, Height = 120, Width = 100, ;
        Picture = "", Stretch = 1, BackStyle = 0

    *-- El globo de texto para el mensaje de error
    ADD OBJECT shpGlobo AS Shape WITH ;
        Top = 60, Left = 120, Width = 170, Height = 120, ;
        Curvature = 10, BackColor = RGB(255,255,225), BorderColor = RGB(150,150,150)

    ADD OBJECT lblMensaje AS Label WITH ;
        Top = 75, Left = 130, Width = 150, Height = 100, ;
        Caption = "", BackStyle = 0, WordWrap = .T., ;
        FontName = "Segoe UI", FontSize = 10, Alignment = 2 && Centrado

    PROCEDURE Init
        LPARAMETERS tcRuta, tcMensaje
        THIS.imgBurrita.Picture = tcRuta
        THIS.lblMensaje.Caption = tcMensaje

        *-- Activar transparencia

        DECLARE INTEGER SetLayeredWindowAttributes IN user32 INTEGER, INTEGER, INTEGER, INTEGER
        DECLARE INTEGER GetWindowLong IN user32 INTEGER, INTEGER
        DECLARE INTEGER SetWindowLong IN user32 INTEGER, INTEGER, INTEGER

        LOCAL nEst

        nEst = GetWindowLong(THIS.HWnd, -20)
        SetWindowLong(THIS.HWnd, -20, BITOR(nEst, 0x80000))

        SetLayeredWindowAttributes(THIS.HWnd, 0, 254, 2)
    ENDPROC

    *-- Lógica para moverlo desde la barra de título falsa
    PROCEDURE MouseDown

        LPARAMETERS nButton, nShift, nXCoord, nYCoord

        *-- Solo permitir mover desde la barra de título (Top 0-40)
        IF nButton = 1 AND nYCoord < 40
            THIS.lMoviendo = .T.
            THIS.nOldX = nXCoord
            THIS.nOldY = nYCoord
        ENDIF
    ENDPROC

    PROCEDURE MouseMove

        LPARAMETERS nButton, nShift, nXCoord, nYCoord

        IF THIS.lMoviendo
            THIS.Left = THIS.Left + (nXCoord - THIS.nOldX)
            THIS.Top = THIS.Top + (nYCoord - THIS.nOldY)
        ENDIF
    ENDPROC

    PROCEDURE MouseUp

        LPARAMETERS nButton, nShift, nXCoord, nYCoord

        THIS.lMoviendo = .F.
    ENDPROC

    PROCEDURE RightClick
        *-- El clic derecho lo cierra
        THIS.Release()
    ENDPROC

    PROCEDURE KeyPress
        LPARAMETERS nKeyCode, nShiftAltCtrl
        IF nKeyCode = 27 && Tecla ESC
            THIS.Release()
        ENDIF
    ENDPROC
   
    PROCEDURE Destroy
        RELEASE oAvisoError
    ENDPROC
ENDDEFINE

Saludos 

Elides Paredes

Barquisimeto Venezuela

[integral]

Que tal Amigo Elides 

Muy Buenas Tardes

Te agradezco por compartir tus ejemplos en la utilización del archivo GIF.

Hice la prueba con tus ejemplos y al igual del ejemplo del colega Zarlu en todos ellos queda las huellas del movimiento del GIF

También intente utilizar la propiedad ShowWindow = 2 para obtener el sombreado alrededor del formulario, pero me marca un error.

Y a pedido de 2 colegas que me escribieron que publique mi codigo que utilize al final.

Cumplo en publicar el codigo...

WAIT WINDOW "[ Realizando la Busqueda del Registro... ]" NOWAIT

PUBLIC oForm
oForm = CREATEOBJECT("Form")

oForm.Width = 190  
oForm.Height = 360
oForm.Top = 380    
oForm.Left = 1325  
oForm.MaxButton = .F.
oForm.MinButton = .F.
oForm.Closable = .F.
oForm.ControlBox = .F.
oForm.BorderStyle = 0
oForm.TitleBar = 0
*oForm.ShowWindow = 2
oForm.AlwaysOnTop = .T.
oForm.BackColor = RGB(255,255,255)  

oForm.Show(0)

*-- Agregar control imagen
oForm.AddObject("imagen_Gif", "Image")
WITH oForm.imagen_Gif
    .Top = 10        
    .Left = 0        
    .Width = 360    
    .Height = 280
    .Picture = "C:\MIGRACONSU\ERP_CONSUMO\BMPS\GIF\BUSQUEDA_SIN_FONDO.GIF"
    .Visible = .T.
    .BackStyle = 1
    .Stretch = 2                               && 0-Clip, 1-Isometric, 2-Stretch
ENDWITH

=INKEY(2.5)
oForm.Release()

De esta forma doy por terminado el tema.

Hasta la proxima

Saludos,

Integral

(Lima-Perú)