Gif animado transparente

User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Gif animado transparente

Post by 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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
informaticaeloy
Posts: 118
Joined: Fri Dec 20, 2013 10:39 am
Location: Zaragoza, España
Contact:

Re: Gif animado transparente

Post by 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.
Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

informaticaeloy wrote: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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
informaticaeloy
Posts: 118
Joined: Fri Dec 20, 2013 10:39 am
Location: Zaragoza, España
Contact:

Re: Gif animado transparente

Post by 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.
Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by 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

#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.
Last edited by FranciscoA on Thu Nov 19, 2020 4:53 pm, edited 2 times in total.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

Aqui estan dos gif animados. Click derecho para guardar imagen como.
Image
Image
Aqui todo se ve bien, pero no en la prueba con el codigo arriba expuesto.
Saludos
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Gif animado transparente

Post by karinha »

João Santos - São Paulo - Brasil
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

Joao:
Disculpa, se me pasó por alto preguntarte que versiones de FW y Windows estás usando?
Qué usas para compilar: Make?
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Gif animado transparente

Post by karinha »

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

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

Image

Saludos.
João Santos - São Paulo - Brasil
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

Image
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Gif animado transparente

Post by karinha »

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

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

Image

Saludos.
João Santos - São Paulo - Brasil
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by 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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Gif animado transparente

Post by karinha »

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

Saludos.
João Santos - São Paulo - Brasil
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Gif animado transparente

Post by FranciscoA »

karinha wrote: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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Post Reply