How to Build an Application from an Existing Screen Set

• 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 <yourmenu>.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