Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Form with timer freezes and no control are active
Message
De
24/08/2001 00:21:42
 
 
À
23/08/2001 17:34:49
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00547519
Message ID:
00548462
Vues:
7
Sorry I may have convyed worngly.
The problem was the timer called a form function chklog() which disabled the timer when the file was found.
Now when i moved the timer diable to other function afterhotsync() which is inturn called by chklog() function.

Alls working fine now.

The chklog function is


local lfp, lstr, lfile

lfile = thisform.userlogfile

if file(lfile)

  lfp = fopen(lfile)

  IF lfp >= 0

     fseek(lfp,-50,2)

     lstr = fread(lfp,26)

     FCLOSE(lfp)

     if lstr = "HotSync operation complete"

        * line below removed now

        *this.enabled = .f.

        erase (lfile)

        Thisform.afterhotsync()

     endif

  endif

endif

if ThisForm.Check1.value = .t.

   if !ThisForm.Container1.Check1.value and !file(Thisform.cdifiles(1))

       ThisForm.Container1.Check1.value 
= .t.

       ThisForm.Container1.Check1.picture
= "c:\medidata\checked.bmp"

   endif

   if !ThisForm.Container1.Check2.value and !file(Thisform.cdifiles(2))

       ThisForm.Container1.Check2.value 
= .t.

       ThisForm.Container1.Check2.picture
= "c:\medidata\checked.bmp"

   endif

   if !ThisForm.Container1.Check3.value and !file(Thisform.cdifiles(3))

       ThisForm.Container1.Check3.value 
= .t.

       ThisForm.Container1.Check3.picture
= "c:\medidata\checked.bmp"

   endif

   if !ThisForm.Container1.Check4.value and !file(Thisform.cdifiles(4))

       ThisForm.Container1.Check4.value 
= .t.

       ThisForm.Container1.Check4.picture
= "c:\medidata\checked.bmp"

   endif

endif

 



The afterhotsync function is





*added now

ThisForm.Timer1.enabled = .f.

ThisForm.cmdafter.caption = "Hot Sync Complete !! Processing Data"

Thisform.processafter()

ThisForm.cmdafter.enabled = .t.

wait wind "" time 1

* line below removed now

*Thisform.release()

 


Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform