Page 1 of 2
Gif animado transparente
Posted: Wed Nov 18, 2020 4:05 am
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.
Re: Gif animado transparente
Posted: Wed Nov 18, 2020 8:14 am
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.
Re: Gif animado transparente
Posted: Wed Nov 18, 2020 3:01 pm
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.
Re: Gif animado transparente
Posted: Thu Nov 19, 2020 9:55 am
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.
Re: Gif animado transparente
Posted: Thu Nov 19, 2020 4:17 pm
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.
Re: Gif animado transparente
Posted: Thu Nov 19, 2020 4:45 pm
by 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
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 11:05 am
by karinha
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 4:00 pm
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.
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 4:22 pm
by FranciscoA
Joao:
Disculpa, se me pasó por alto preguntarte que versiones de FW y Windows estás usando?
Qué usas para compilar: Make?
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 8:45 pm
by karinha
Franscisco, funciona bién con FWH1701 y FWH1905 - Uso .BAT y .LNK para compilar mis programas.
https://i.imgur.com/kzr733a.png
Saludos.
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 9:47 pm
by FranciscoA
Re: Gif animado transparente
Posted: Fri Nov 20, 2020 10:11 pm
by karinha
Francisco, actualize tú FWH, urgente! Compilas com Harbour ó xHarbour? Uso xHarbour...
https://i.imgur.com/fYyst36.png
Saludos.
Re: Gif animado transparente
Posted: Sat Nov 21, 2020 12:37 am
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.
Re: Gif animado transparente
Posted: Sat Nov 21, 2020 12:43 pm
by karinha
Buenos dias Francisco. con la 1709, debes usar el BCC72 y xHarbour para BCC72. Intenta e comente.
Saludos.
Re: Gif animado transparente
Posted: Sun Nov 22, 2020 5:06 pm
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.
