Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How I used/modified fox6command
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
How I used/modified fox6command
Divers
Thread ID:
00691498
Message ID:
00691498
Vues:
46
Hello and thanks to Walter Meester,

I recently obtained fox6command (download #9674) and have been able to successfully integrate it into my VFP7 application by including the start.prg and command.scx in my project. I have modified it:

* One change to command.scx: AutoCenter=.T. so I could see what was being written to the screen without moving the 'command window' every time.

* In start.prg, I added a few lines of code in two places.
1) In the first CASE of the DO CASE, right after the first non-comment:
 _tax_cCommand=_oCommand.Command
IF UPPER(ALLTRIM(_tax_cCommand))=="QUIT"   && 4 new lines  20.Aug.02 RB
  _Tax_lExit = .t.
  EXIT
ENDIF
because I prefer a command over the mouse to close it.

2) and just ahead of the RETURN at the end of the main program:
 CLEAR   && 3 new lines  20.Aug.02 RB
CLEAR EVENTS
_oCommand.Release
RETURN
to clean up the _screen and close the 'command window' (because the user/developer didn't use the mouse).

One challenge remains: now when I use the mouse to close the window, a CLEAR EVENTS is not issued, and the program 'hangs'. The app I'm working on has all Modal screens/forms (per the client's request). Where can I sneak in a CLEAR EVENTS so that control returns to my modal form after the 'command window' closes?

Thanks for a posting this useful utility.
Randy Bosma
VFP - Because life is too short to code in something else...
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform