this is the code:
- Code: Select all Expand view
#include "fivewin.ch"
function main()
local a
attendi(.t.)
inkey(3) // this way doesn't move
attendi(.f.)
attendi(.t.)
for a=1 to 200 // this way it moves!!!
inkey(.01)
sysrefresh()
next
attendi(.f.)
return nil
FUNCTION Attendi( lStatus )
STATIC oDlg
LOCAL oAnimate
IF lStatus .AND. oDlg = NIL
DEFINE dialog oDlg resource "Main"
oAnimate = TAnimate():REDEFINE( 160, oDlg )
ACTIVATE dialog oDlg NOWAIT centered ;
ON INIT ( , oAnimate:CopyFiles(), oAnimate:Play() )
ELSE
oDlg:END()
oDlg = NIL
ENDIF
RETURN NIL
regards
riccardo