wait dialog

[Maverich]

I'd like to have a dialog with a TAnimate object (example the copy files di windows) during massive dbf operations. The animation doesn't start, the only way to make it move is placing various sysrefresh() during dbf operations. Is there any other way?

this is the code:

Code: Select all  Expand view  RUN

#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

[Antonio Linares]

Riccardo,

SysRefresh() is required in order to let Windows process pending messages.