FiveTech Software tech support forums

... menuitem "Prueba" action prueba() endmenu define window oWnd menu oMenu activate window oWnd return nil function prueba() local oDlg,oAnimate local oGif local n := 0 local oSay local nEnd := 100000 define dialog oDlg title "prueba" size 700,100 STYLE nOr( WS_POPUP, WS_VISIBLE) ...

function Animate(nTip,bAction) local oDlg, oAnimate define dialog oDlg resource 'PLAYANIMATE' oAnimate := TAnimate():Redefine( 160, oDlg ) oDlg:bStart := {|| Eval( bAction, odlg ), oDlg:End(), SysRefresh() } oDlg:lhelpicon := .f. activate dialog ...

... " parse error at '@'" credo che non mi accetti PROGRESS o cambiato così: ----- function Main() local oDlg, oTabs, oSay, oProgress, oAnimate, oSay1, oSay2, nAVI := 1 DEFINE DIALOG oDlg FROM 0,0 TO 6, 45 TITLE "Indici" @ 0,1 SAY oSay PROMPT "Test" @ 2, 1 PROGRESS ...

... righe? REDEFINE SAY oSay ID 100 OF oDlg oProgress = TProgress():Redefine( 120, oDlg ) ----- function Main() local oDlg, oTabs, oSay, oProgress, oAnimate, oSay1, oSay2, nAVI := 1 DEFINE DIALOG oDlg RESOURCE "Main" REDEFINE SAY oSay ID 100 OF oDlg oProgress = TProgress():Redefine( 120, ...

gracias;
Lo probé y allí solo muestra lo que tiene la clase por defecto
oAnimate:Search()
oAnimate:FindFile()
oAnimate:Locate()
oAnimate:CopyFiles()
oAnimate:CopyFile()
oAnimate:DelFile()
oAnimate:EmptyCan()
oAnimate:DestFile()

otra sugerencia?
Uso FW27

... prueba este ejemplo: //--------------------------------------------------------------------- Function ReIndexar(aAlias, lTodo) local oDlg, oAnimate, oMeter1, oMeter2, oSay1, oSay2, oSay3, oBtnCancel local lEnd:=.f. local n:=0, nMonto1:=0, nMonto2:=0 local oBrush,cBrush:="Fondo1.BMP" local ...

hi. Lore yo lo utilizo sin problemas cuando indexo mis archivos,,, oAnimate:CopyFiles() _tipoDeAnimacion(oAnimate,4) oAnimate:Play() * aqui mi proceso oAnimate:stop() function _tipoDeAnimacion( oAnimate, nAvi ) do case case nAVI == 1 oAnimate:Search() case ...

... Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con oAnimate = TAnimate():Redefine( 160, vera2 ) oAnimate:Play() ... según el ejemplo de sample\win32.prg. También modifiqué mi RC, pero en mi EXE no consigo ...

... Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con oAnimate = TAnimate():Redefine( 160, vera2 ) oAnimate:Play() ... según el ejemplo de sample\win32.prg. También modifiqué mi RC, pero en mi EXE no consigo ...

Juan,

Debería funcionar sin problemas usando el método:

oAnimate := TAnimate():ReDefine( nId, oDlg )

en donde nId es el identificador del control en la caja de diálogo

Posteriormente puedes asignarle el fichero a animar con:

ACTIVATE DIALOG oDlg ;
ON INIT oAnimate:Open( cAvi )

... del archivo avi que quiero mostrar. Alguien sabe como ??? He visto el ejemplo que ahy en win32.prg , pero ahi se llama a unas funciones , ejemplo oAnimate:Search(). El problema es que no se donde le asignan la animación para search ?? En las porpiedades del PellesC, no aparece como asignarla. ...

REDEFINE BUTTON ID 170 OF oDlg ACTION( ( oAnimate:Play() ), oDlg:End() )
REDEFINE BUTTON ID 180 OF oDlg ACTION( ( oAnimate:Stop() ), oDlg:End() )

Jules,

Try this:

oAnimate:CopyFiles() , SysRefresh(), ...

Dear all, When I use the oAnimate:CopyFiles() animation as Action in a Dialog, than the animation works fine when I do an Upload to a server. When I do a Download from that server my animation starts only after the Download is finished. ...

Dear all, When I use the oAnimate:CopyFiles() animation as Action in a Dialog, than the animation works fine when I do an Upload to a server. When I do a Download from that server my animation starts only after the Download is finished. ...