EL prg es el siguiente
- Code: Select all Expand view
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: Select all Expand view
- 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