Printing - FoxTalk - dFPUG-Portal

* Initialize the variable for the current screen
m.lnScreen = 1
do while m.lnScreen # 0
* Define the window, draw the header information,
* and draw the buttons for the sub-screens
do scr_main.spr
* Draw the objects for the specific sub-screen
* that you are working with
do case
* Display the Address information
case m.lnScreen = 1
do scr_sub1.spr
* Display the Contacts information
case m.lnScreen = 2
do scr_sub2.spr
* Display the Notes information
case m.lnScreen = 3
do scr_sub3.spr
* More screens would be defined as required
endcase
* Process the READ
READ CYCLE ;
SHOW ReadShow() ;
WHEN ReadWhen()
Setup the navigation through the screens
Now that the main loop is in place, the navigation controls have to be set up to help move
through the sub-screens. This involves creating a procedure (NewScreen) to load the newly
selected sub-screen and setting up the hot keys to navigate through the sub-screens. The
following code is included with the initialization of the program:
* Define total number of screens that you have available
m.lnScreens = 3
* Setup the hot keys to move through the screens
ON KEY LABEL HOME DO NewScreen with 1
ON KEY LABEL PGUP DO NewScreen with m.lnScreen-1
ON KEY LABEL PGDN DO NewScreen with m.lnScreen+1
[You might also consider setting up menu options such as First screen, Next screen, and