topic-28776

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

gifts animados
Posted: Sun Jun 29, 2014 03:43 PM

Hola estoy cambiando los animate del shell32 (dbcopy(),etc) ya que en windows 7 no funcionan, pero me esta costando un poco

EL prg es el siguiente

Code (fw): Select all Collapse

FUNCTION WaitOn( cText, cCaption, bAction, cImagen )

   LOCAL oSay



   DEFAULT cText   := "Procesando datos..."
   DEFAULT cCaption := ""
   DEFAULT cImagen := "004.gif"

   DEFINE FONT oFont NAME "Arial" SIZE - 10, 14


   IF ValType( oDlgwait ) = "O"
      oDlgwait:End(); oDlgwait := NIL
      SysRefresh()
   endif

   DEFINE DIALOG oDlgwait RESNAME "DIA_MOME"
   oDlgwait:cCaption := cCaption

   oAnimate = TAnimate():Redefine( 160, oDlgwait )
   oAnimate:nstyle := 2


   REDEFINE SAY oSay VAR cText  ID 109 COLOR RGB( 130, 0, 240 ) FONT oFont

   ACTIVATE DIALOG oDlgwait CENTERED  NOWAIT  ON INIT ( oAnimate:= TGif():New( oDlgwait, cImagen,5,10 ))


   SetFocus( oDlgwait:hWnd )
   SysRefresh()
RETURN( oDlgwait )

y la imagen que me muestra es

Igualmente el gift en estaparte del programa no se anima debido a que el proceso es un append from

Code (fw): Select all Collapse

   WaitOn("Creando archivo...")
   APPEND FROM ( cArchivo ) SDF
   WaitOff()

Hay forma de que funcione el gift, hice una prueba con un consejo de Daniel García Gil que envió al foro por algo parecido pero no lo logré en mi caso

Y tambien si se puede usar el shell32 de windows.

Bueno son varias consultas en una

Gracias

Luis

Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: gifts animados
Posted: Tue Jul 01, 2014 06:16 AM

Luis,

Llevo un par de dias intentando revisar esto, pero no he tenido tiempo literalmente.

Lo revisamos cuanto antes, disculpa la demora :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: gifts animados
Posted: Tue Jul 01, 2014 01:51 PM

Gracias Antonio

Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: gifts animados
Posted: Tue Jul 01, 2014 04:16 PM

Luis,

Prueba este ejemplo (desde la carpeta FWH\samples), que te muestra como hacerlo:

Code (fw): Select all Collapse

// Animated GIFs support for FWH

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Animated GIFs"

   TGif():New( oWnd, "..\gifs\halo.gif", 10, 10 )
   
   ACTIVATE WINDOW oWnd ;
      ON INIT BuildDialog()

return nil

function BuildDialog()

   local oDlg
   
   DEFINE DIALOG oDlg SIZE 400, 300 TITLE "Non modal dialog"
   
   ACTIVATE DIALOG oDlg CENTERED NOWAIT ;
      ON INIT TGif():New( oDlg, "..\gifs\halo.gif", 10, 10 )
   
return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: gifts animados
Posted: Wed Jul 02, 2014 12:10 PM

Antonio de hecho el gif en todos los casos en que son bucles (dónde puedo hacer sysrefresh()) funciona, en el único caso en que no funciona es cuando llamo

waiton()
append from ....
waitoff()

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "Common.ch"

STATIC oDlgwait, oFont, oAnimate

FUNCTION WaitOn( cText, cCaption, bAction, cImagen )

   LOCAL oSay



   DEFAULT cText   := "Procesando datos..."
   DEFAULT cCaption := ""
   DEFAULT cImagen := "004.gif"

   DEFINE FONT oFont NAME "Arial" SIZE - 10, 14

 

   DEFINE DIALOG oDlgwait RESNAME "DIA_MOME"
   oDlgwait:cCaption := cCaption

   oAnimate = TAnimate():Redefine( 160, oDlgwait )
   oAnimate:nstyle := 2


   REDEFINE SAY oSay VAR cText  ID 109 COLOR RGB( 130, 0, 240 ) FONT oFont

   ACTIVATE DIALOG oDlgwait CENTERED  NOWAIT  ON INIT ( oAnimate:= TGif():New( oDlgwait, cImagen,5,10 ) )


   SetFocus( oDlgwait:hWnd )
   SysRefresh()

RETURN( oDlgwait )



FUNCTION WaitOff()

   IF ValType( oDlgwait ) = "O"
      oDlgwait:end(); oDlgwait := NIL
      oFont:end()
      oAnimate:end()
   ENDIF

   SysRefresh()

RETURN NIL

El otro problema es que aleatoriamente respeta el fondo transparente y en otros el fondo aparece en negro, o como mostré la imagen anterior .

Puedo cambiar los fondos por otro color pero perdería la magia de estar mostrandose dobre el color del diálogo

Muchas gracias por tu atención

Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: gifts animados
Posted: Wed Jul 02, 2014 05:34 PM

Luis,

Puedes enviarme el GIF que quieres usar ? gracias

En relación al APPEND FROM ... veamos si permite alguna cláusula en la que se pueda proporcionar un codeblock que llame a SysRefresh()

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: gifts animados
Posted: Thu Jul 03, 2014 10:25 AM

Gracias Antonio te en envío el enlace de dos de la imágenes

https://drive.google.com/file/d/0B8UT40 ... sp=sharing

Ayer lo instale en una máquina Windows server 2008 y funcionó perfecto
En otra con windows xp aparecía el fondo negro en ambos casos

Y en una con windows 7 funcionó bien , pero en la que hago las pruebas , también con Windoes 7 a veces aparece el fondo negro y otras no.

Muchas gracias por tu generosa atención

Luis

FiveTech Support Forums

Continue the discussion