70140e5aed
* contrib/hbct/tests/ctwtest.prg
* contrib/hbcups/tests/test.prg
* contrib/hbfbird/tests/stress.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/doc/en/aredit.txt
* contrib/hbnf/menu1.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbpgsql/tests/async.prg
* contrib/hbpgsql/tests/cache.prg
* contrib/hbpgsql/tests/stress.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbtip/tests/tiptest.prg
* contrib/xhb/tests/compress.prg
* doc/en/sayget.txt
* src/rtl/profiler.prg
* tests/ac_test.prg
* tests/boxtst2.prg
* tests/fortest.prg
* tests/menutest.prg
* tests/mt/mttest11.prg
* tests/parseini.prg
* tests/speedold.prg
* tests/tstchbx.prg
* tests/usrrdd/exarr.prg
* tests/videotst.prg
* tests/vidtest.prg
* formatting
! deleted SetMode()s
* CLEAR SCREEN -> CLS
* other minor cleanups
208 lines
7.5 KiB
Plaintext
208 lines
7.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $TEMPLATE$
|
|
* Command
|
|
* $NAME$
|
|
* @...GET
|
|
* $CATEGORY$
|
|
* Command
|
|
* $SUBCATEGORY$
|
|
* User interface
|
|
* $ONELINER$
|
|
* Creates a GET object and displays it to the screen
|
|
* $SYNTAX$
|
|
* @ <nRow>,<nCol> [SAY <cSay> [PICTURE <cSayPict>] COLOR <cSayColor> ]
|
|
* GET <xVar> [PICTURE <cGetPict>] [WHEN <lWhen>] [COLOR <cGetColor>]
|
|
* [VALID <lValid> / RANGE <xStart>,<xEnd>]
|
|
* $ARGUMENTS$
|
|
* <nRow> The row coordinate.
|
|
*
|
|
* <nCol> The column coordinate.
|
|
*
|
|
* <cSay> Message to display.
|
|
*
|
|
* <cSayPict> Character expression of PICTURE displayed.
|
|
*
|
|
* <cSayColor> Color to be Used for the SAY expression.
|
|
*
|
|
* <xVar> An variable/field name.
|
|
*
|
|
* <cGetPict> Character expression of PICTURE to get.
|
|
*
|
|
* <lWhen> Logical expression to allow GET.
|
|
*
|
|
* <lValid> Logical expression to validate GET input.
|
|
*
|
|
* <xStart> Lower RANGE value.
|
|
*
|
|
* <xEnd> Upper RANGE value.
|
|
*
|
|
* <cGetColor> Color string to be used for the GET expression.
|
|
* $DESCRIPTION$
|
|
* This command adds a GET object to the reserved array variable
|
|
* named GETLIST[] and displays it to the screen. The field or variable
|
|
* to be added to the GET object is specified in <xVar> and is displayed
|
|
* at row, column coordinate <nRow>, <nCol>.
|
|
*
|
|
* If the SAY clause is used <cSay> will be displayed starting at
|
|
* <nRow>,<nCol>, with the field variable <xVar> displayed at ROW(),
|
|
* COL()+ 1. If <cSayPicr>, the picture template for the SAY expression
|
|
* <cSay>, is used, all formatting rules contained will apply See the
|
|
* TRANSFORM I function for further information.
|
|
*
|
|
* If <cGetPict> is specified, the PICTURE clause of <xVar> will be
|
|
* used for the GET object and all formatting rules will apply. See
|
|
* the table below for GET formatting rules.
|
|
*
|
|
* If the WHEN clause is specified,when <lWhen> evaluates to a logical
|
|
* true (.T.) condition, the GET object will he activated otherwise the
|
|
* GET object will be skipped and no information will be obtained via
|
|
* the screen. The name of a user-defined function returning a logical
|
|
* true (.T.) or false ( F.) or a code block may be ,specified in <lWhen>
|
|
* This clause not activated until a READ command or READMODAL()
|
|
* function call is issued.
|
|
*
|
|
* If the VALID clause is specified and <lValid> evaluates to it logical
|
|
* true (.T.) condition the current GET will be considered valid and
|
|
* the get operation will continue onto the next active GET object. If
|
|
* not, the cursor will remain on this GET object until aborted or
|
|
* until the condition in <lValid> evaluates to true (.T.). The name
|
|
* of a user-defined function returning a logical true (.T.) or false
|
|
* (.F.) or it code block may be specified in <lValid>. This clause is
|
|
* not activated until a READ command or READMODAL( ) function call is
|
|
* issued.
|
|
*
|
|
* If the RANGE clause is specified instead of the VALID clause, the
|
|
* two inclusive range values for <xVar> must be specified in <xStart>
|
|
* and <xEnd>. Id <xVar> is a date data type,<xStart> and <xEnd> must
|
|
* also be date data types; if <xVar> is a numeric data type <xStart>
|
|
* and <xEnd> must also be numeric data types. If a value fails the
|
|
* RANGE test ,a message of OUT OF RANGE will appear in the SCOREBOARD
|
|
* area (row = 0, col = 60). The RANGE message may be turned off it the
|
|
* SET SCOREBOARD command or SET() function appropriately toggled.
|
|
*
|
|
* NOTE GET functions/formatting rules:
|
|
|
|
* <table>
|
|
* @A Allows only alphabetic characters.
|
|
* @B Numbers will be left justified
|
|
* @C All positive numbers will be followed by CR.
|
|
* @D All dates will be in the SET DATE format.
|
|
* @E Dates will be in British formal: numbers in European format.
|
|
* @K Allows a suggested value to be seen within the GET
|
|
* area but clears It if any non cursor key is pressed when
|
|
* the cursor is in the first Position in the GET area.
|
|
* @R Non template characters will be inserted.
|
|
* @S<nSize> Allows horizontal scrolling of a field or variable that
|
|
* is <nSize> characters wide.
|
|
* @X All negative numbers will be followed by DB
|
|
* @Z Displays zero values as blanks.
|
|
* @! Forces uppercase lettering
|
|
* @( Displays negative numbers in parentheses with leading spaces.
|
|
* @) Displays negative numbers in parentheses without leading spaces.
|
|
* </table>
|
|
|
|
* GET templates/formatting rules:
|
|
|
|
* <table>
|
|
* A Only alphabetic characters allowed.
|
|
* N Only alphabetic and numeric characters allowed
|
|
* X Any character allowed.
|
|
* L Only T or F allowed For logical data.
|
|
* Y Only Y or N allowed for logical data.
|
|
* 9 Only digits, including signs, will be allowed.
|
|
* # Only digits, signs. and spaces will he allowed.
|
|
* ! Alphabetic characters are converted to Uppercase.
|
|
* $ Dollar will be displayed in place of leading
|
|
* spaces for numeric data types.
|
|
* * Asterisk,, will Be displayed in place of leading spaces
|
|
* for numeric data types.
|
|
* . Position of decimal point.
|
|
* , Position of comma.
|
|
* </table>
|
|
*
|
|
* Format PICTURE functions may he grouped together as well as used
|
|
* in Conjunction with a PICTURE templates;however, a blank space must
|
|
* be included in the PICTURE string if there are both functions and
|
|
* templates.
|
|
* $EXAMPLES$
|
|
* PROCEDURE Main()
|
|
* LOCAL cVar := Space( 50 )
|
|
* LOCAL nId := 0
|
|
* CLS
|
|
* @ 3,1 SAY "Name" GET cVar PICTURE "@!S 30"
|
|
* @ 4,1 SAY "Id" GET nId PICTURE "999.999"
|
|
* READ
|
|
* ? "The name you entered is",cVar
|
|
* ? "The id you entered is",nId
|
|
* RETURN
|
|
* $TESTS$
|
|
* See Examples
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* C
|
|
* $PLATFORMS$
|
|
* All
|
|
* $SEEALSO$
|
|
* @...SAY,READ,TRANSFORM()
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $TEMPLATE$
|
|
* Command
|
|
* $NAME$
|
|
* @...SAY
|
|
* $CATEGORY$
|
|
* Command
|
|
* $SUBCATEGORY$
|
|
* User interface
|
|
* $ONELINER$
|
|
* Displays data at specified coordinates of the current device.
|
|
* $SYNTAX$
|
|
* @ <nRow>,<nCol> SAY <xValue> [ PICTURE <cPict> ] [COLOR <cColor>]
|
|
* $ARGUMENTS$
|
|
* <nRow> Row coordinate
|
|
*
|
|
* <nCol> Column coordinate
|
|
*
|
|
* <xValue> Value to display
|
|
*
|
|
* <cPict> PICTURE format
|
|
*
|
|
* <cColor> Color string
|
|
* $DESCRIPTION$
|
|
* This command displays the contents of <xValue> at row column
|
|
* coordinates <nRow>, <nCol>. A PICTURE clause may be specified
|
|
* in <cPict>. If the current device is set to the printer, the output
|
|
* will go to the printer; the default is for all output to go to
|
|
* the screen.
|
|
*
|
|
* For a complete list of PICTURES templates and functions, see the
|
|
* @...GET command.
|
|
* $EXAMPLES$
|
|
* PROCEDURE Main()
|
|
* CLS
|
|
* @ 2, 1 SAY "Harbour"
|
|
* @ 3, 1 SAY "is" COLOR "b/r+"
|
|
* @ 4, 1 SAY "Power" PICTURE "@!"
|
|
* RETURN
|
|
* $TESTS$
|
|
* See Examples
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* C
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
*
|
|
* $SEEALSO$
|
|
* @...GET,SET DEVICE,TRANSFORM()
|
|
* $END$
|
|
*/
|