Category : Pascal Source Code
Archive   : SHAZAM2.ZIP
Filename : ADEMO8.DEF

.TUTORIAL - The [ STATUS ] Keyword

This editor uses only the StatusLine.

This is done with the [ STATUS ] keyword. The syntax is similar to
the [ SUBMENU ] keyword, except that there are no help context
symbols.

Also, the StatusLine can be used for "invisible" key-to-command
mapping. In this example, note that "kbEsc" is mapped to "cmClose",
although this does NOT appear on the StatusLine.


'Til now, you'll note that we haven't done anything with StatusLines,
yet they were there anyway. By default, SHAZAM adds StatusLine
contexts to cover common context ranges.

One reason for this is obvious: When a hint is displayed, you want
most of the StatusLine to go away so the user can see the hint!

COMMON CONTEXTS

0,0 - hcNoContext
1,1 - hcDragging
2,999 - RESERVED by Turbo Vision
HelpMode - assigned in *.TXT; used for help window
1000,$FFFF - program contexts

INVISIBLE KEY MAPS

To each of the above, and to any StatusLines you define, the standard
key maps (found in APP.PAS under InitStatusLine) are added.

You can control all of the above using the "/s..." switches. See the
SETUP|Code dialog or the KEYWORD documentation for more detail.


NOTE
----
This is the same as ADEMO6, except that the interface is based on the
StatusLine instead of the MenuBar. So we re-use the custom
components with the [ APPLICATION ] keyword.

(If you wanted to make it independent of ADEMO6, just copy the *.INC,
*.VIR and *.EVT files and delete the line with [ APPLICATION ] on it.)

@PA - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[ APPLICATION ] ademo6

[ UNIT ]
General /r @@ Use & register

[ DIALOG ]
replace find @@ *.DLG files

[ STATUS ]
ctrl-o open
ctrl-s save
ctrl-r replace
ctrl-f find
ctrl-x quit
kbEsc cmClose @@ invisible!

[ HINT ]
OK ;;accept the settings in this dialog box
Cancel ;;close the dialog box without making any changes
SearchText ;;Text to look for
ReplaceText ;;Text to use for replace
SearchType1 ;;whether to consider case during search
SearchType2 ;;whether to consider partial matches
SearchType3 ;;whether to prompt before replacing
SearchType4 ;;whether to scan entire file