General information
Category:
Reports & Report designer
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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only