Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report toolbars appear in exe
Message
 
 
À
18/09/2003 07:07:50
Hee Lim Wang
Fantasy Software Enterprise
Malaisie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00829788
Message ID:
00830838
Vues:
31
You don't need to have the View menu. You just need to DEFINE the appropriate popup when you need it -- nobody needs to actually see it, however.

Here's some example code to show you how to do this. I have included some comments to show you how to set up your development environment something like your app (with no View menu) so you can see how it works:

* runnable code starts here
* to activate the report preview toolbar when it's been closed...

* toolbar.prg
*
* >L<

*
* to check it out,
* RELEASE PAD _MSM_VIEW OF _MSYSMENU
* RELEASE POPUP _MVIEW && this gets you to your app's "base state"
* now:

* DEFINE POPUP _MVIEW && this has to
* && be somewhere
* && in your system,
* && before the REPORT PREVIEW,
* && but you don't have
* && worry about its contents
* && or attaching it to a visible menu pad

* add the following command to
* your environment -- in your app
* it doesn't have to be an OKL,
* but this is a good way to see
* how it works
* ON KEY LABEL F4 DO TOOLBAR.PRG

* ...now preview a report, close the preview toolbar,
* When you press F4 with the preview window having focus
* it will come back.Actually with the preview window
* maintaining focus the F4 should serve as a toggle here.

LOCAL zz, xx

zz = 0
FOR xx = 1 TO CNTBAR("_mview")
IF "review toolbar" $ ;
LOWER( PRMBAR("_mview",GETBAR("_mview",xx)))
EXIT
ENDIF
IF ISALPHA(PRMBAR("_mview",GETBAR("_mview",xx)))
* skip the separators...
zz = zz + 1
ENDIF
ENDFOR
KEYBOARD REPL("{dnarrow}",zz)+"{spacebar}"
ACTI POPUP _mview
RETURN
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform