Microsoft KB Archive/117786

{| = How to Build an Application from an Existing Screen Set =
 * width="100%"|

ID: Q117786

2.00 2.5x 2.60 | 2.5x 2.60 | 2.50b 2.50c 2.60a | 2.60

MS-DOS        | WINDOWS        | MACINTOSH         | UNIX kbprg The information in this article applies to:


 * Microsoft FoxPro for MS-DOS, versions 2.0, 2.5x, 2.6
 * Microsoft FoxPro for Windows, versions 2.5x, 2.6
 * Microsoft FoxPro for Macintosh, versions 2.5b, 2.5c, 2.6a
 * Microsoft FoxPro for UNIX, version 2.6

SUMMARY
This article shows how to incorporate a foundation READ within a screen set. With these modifications, this screen set can become a full application with an active menu bar. You can use this same method for previous versions of FoxPro, back to FoxPro version 2.0 for MS-DOS.

This is not the same as the implementation of the foundation READ found in EX1.APP and EX2.APP. Instead of a READ VALID, it is using the READ CYCLE of the screen set to hold up the menu.

MORE INFORMATION
A screen set with a control bar allows you to navigate through records, but does not give you access a menu bar. Having access to a menu bar requires a foundation READ. (NOTE: If this one screen set is the only source of data entry required, you do not have to have the foundation READ separate from the screen set.)

Example
Add the existing screen set to a new project. Generate the project, and make sure the data screens operate as you want. After your screen set is complete, you can add the menu. To do this, make the following modifications in the main screen of the screen set:

1. In the Setup snippet, add the following lines at the bottom of the

snippet:

*added to screen set Setup PUSH MENU _msysmenu menu = SET("SYSMENU") SET SYSMENU AUTOMATIC

*This variable is required only for screen sets *that originated from FoxApp applications.

bailout=.f.

*Application menu added DO .mpr 2. In the Cleanup snippet of the top screen, add the following lines to the top of the snippet:

*Added to first lines of screen set cleanup POP MENU _msysmenu SET SYSMENU &menu *End of addition 3. In the Exit option on your menu, add the following as the Exit procedure:

m.bailout=.T.     CLEAR READ The screen set will then act as the foundation READ for the application. Additional reference words: FoxUnix FoxMac FoxDos FoxWin 2.00 2.50 2.50a 2.50b 2.60 2.60a screenset KBCategory: kbprg KBSubcategory: FxtoolGeneral

Keywords         : FxtoolGeneral Version          : 2.00 2.5x 2.60 | 2.5x 2.60 | 2.5 Platform         : MACINTOSH MS-DOS UNIX WINDOWS
 * }