Gif animado transparente

[FranciscoA]

Transparency for animated gif still not supported by fivewin?
Somebody is using animated gifs and solved it?
If yes, can you share it?
Regards.

¿La transparencia para gif animados aún no es soportada en fivewin?
¿Alguien los está usando y lo ha resuelto?
Si es asi, puede compartirlo?
Saludos.

[informaticaeloy]

Hola, buenos días

Yo alguna vez que he usado gifs, he tenido que editarlos y definir el pixel 1, el de arriba ala izquierda, con el color que sea definido como transparente, si no no me hacía caso.

Saludos.

[FranciscoA]

Hola, buenos días

Yo alguna vez que he usado gifs, he tenido que editarlos y definir el pixel 1, el de arriba ala izquierda, con el color que sea definido como transparente, si no no me hacía caso.

Saludos.

Muchas gracias por responder.
El problema que se me presenta es que la transparencia es inconsistente. Es decir, unas veces funciona, otras el fondo es negro, y otras el fondo es blanco.
Ya he leído algunos post donde se comenta lo mismo, pero no dan alguna solución.
Voy a intentar lo que dices.
Saludos.

[informaticaeloy]

OK. Si quieres compartir un gif que te de problemas y el código que usas para mostrarlo, le puedo echar un ojo.

Saludos.

[FranciscoA]

Gracias por tu interés.
Puedes usar cualquier Gif, que he probado muchos. Trataré de subir alguno de los que tengo.
Este es el código que uso:

EDITO: Si a la primera se ve bien, pruebalo varias veces continuas.

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "gif.ch"

//------------------------------------------------------//
Function Main()
   local oDlg, cGif, cDir := ".\Gifs"      //"d:\iconos y bmp\gifs"

 if ! Empty( cGif := cGetFile( "Imagenes (*.gif)|*.gif|", ;
                               "Seleccione una Imagen ",, ;
                               cDir ) )

   DEFINE DIALOG oDlg TITLE "PRUEBA DE GIFs" size 400,200 //COLOR CLR_BLACK, CLR_WHITE
   ACTIVATE DIALOG oDlg ON INIT PonerGif( oDlg, cGif ) CENTERED
    oDlg:End()
 endif

return nil

//------------------------------------------------------//
Function PonerGif( oDlg, cGif )
   local oGif
   @ 10, 10 GIF oGif FILE cGif OF oDlg SIZE 180,180 ADJUST
   oGif:lTransparent := .t.
return nil
 

Saludos.

[FranciscoA]

Aqui estan dos gif animados. Click derecho para guardar imagen como.


Aqui todo se ve bien, pero no en la prueba con el codigo arriba expuesto.
Saludos

[karinha]

https://mega.nz/file/VQMiCLaK#a2aP8dkLrFCyDTTX21kJ3fDClI4wurVazWTArcWI1Vk

Saludos.

[FranciscoA]

https://mega.nz/file/VQMiCLaK#a2aP8dkLrFCyDTTX21kJ3fDClI4wurVazWTArcWI1Vk

Saludos.

Joao, gracias por tu amabilidad.

He probado tu exe y lamentablemente obtengo el mismo resultado. En ocasiones funciona bien (transparente)

Si integro tu function FranGif() a mi programa, se observa lo siguiente:
1 ) Con el gif 'Halo', el fondo se presenta blanco. No hay transparencia.
2 ) Con uno de mis gifs, el fondo es negro. No hay transparencia. En ocasiones funciona bien.

He notado algo.
Si cierro mi programa y re-ingreso, los gifs se presentan bien ( transparentes ), pero si cargo de nuevo el gif, ya se pierde la transparencia y queda con fondo blanco o negro.
Al tomar por primera vez el color no transparente ( blanco o negro ), este color queda aunque cambie o recargue el gif.

Puedes probar en tu equipo recompilando tu prg con uno de los gifs que puse en post anterior, y me dices?
Por favor cambiale el tamaño, en el prg, a 180x180, para poder observar bien el color del dialog y el fondo del gif.

Saludos, y gracias nuevamente.

[FranciscoA]

Joao:
Disculpa, se me pasó por alto preguntarte que versiones de FW y Windows estás usando?
Qué usas para compilar: Make?

[karinha]

Franscisco, funciona bién con FWH1701 y FWH1905 - Uso .BAT y .LNK para compilar mis programas.

https://i.imgur.com/kzr733a.png



Saludos.

[FranciscoA]

[karinha]

Francisco, actualize tú FWH, urgente! Compilas com Harbour ó xHarbour? Uso xHarbour...

https://i.imgur.com/fYyst36.png



Saludos.

[FranciscoA]

Joao.
Compilo con xharbour_bcc740, fwh1709, y Borland bcc7.
Si funciona bien con la version 1701, deberia funcionar con la 1709, no?

La imagen que puse anteriormente, es el resultado con el exe tuyo.
Saludos.

[karinha]

Buenos dias Francisco. con la 1709, debes usar el BCC72 y xHarbour para BCC72. Intenta e comente.

Saludos.

[FranciscoA]

Buenos dias Francisco. con la 1709, debes usar el BCC72 y xHarbour para BCC72. Intenta e comente.

Saludos.

Muchas gracias Karinha por tu interés y tiempo.
Voy a buscar las versiones que comentas y bajarlas, ya que no las tengo actualmente.
Saludos.