[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
DISPOUT()
Write a value to the display
------------------------------------------------------------------------------
Syntax
DISPOUT(<exp>, [<cColorString>]) --> NIL
Arguments
<exp> is the value to display.
<cColorString> is an optional argument that defines the display
color of <exp>. If unspecified, <exp> is displayed as the standard
color of the current system color as defined by SETCOLOR().
<cColorString> is a character expression containing the standard color
setting. You can specify a literal color setting, if you enclose it in
quote marks.
Returns
DISPOUT() always returns NIL.
Description
DISPOUT() is a simple output function that writes the value of a single
expression to the display at the current cursor position. This function
ignores the SET DEVICE setting; output always goes to the screen. You
can only use this function within a procedure or function.
Examples
. This example performs screen output at a specified location in
different colors. Note how the cursor position is saved and restored
using ROW(), COL(), and SETPOS():
PROCEDURE Showit
LOCAL nRow, nCol
? nCol := COL() // save original
?? nRow := ROW() // cursor position
INKEY(2)
SETPOS(nRow, nCol)
DISPOUT("This is a test of DISPOUT()")
? COL() // display current
?? ROW() // cursor position
INKEY(2)
SETPOS(nRow, nCol)
DISPOUT(space(26)) // clear original position
SET DEVICE TO PRINTER // ignores SET DEVICE
SETPOS(nRow, nCol) // display at
DISPOUT(" all through")
// original position
RETURN
Files Library is CLIPPER.LIB.
See Also:
COL()
OUTSTD()
QOUT()
ROW()
SETCOLOR()
SETPOS()
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson