[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
FUNCTION POPREAD()
Short:
------
POPREAD() Pops up a box with 1-5 say-get combinations
Returns:
--------
nothing
Syntax:
-------
POPREAD(lStacked,[nTop,nLeft,cColor],cSay,@expGet,cPicture...)
Description:
------------
[lStacked] .t. = GETS are displayed below SAYS,
.f. = GETS are displayed beside SAYS (default)
[next 3 params may be option params - see below]
For 1-5 iterations of [cSay,@expGet,cPicture] a
popup window will display a Say <cSay>, do a Get on the variable
passed by reference in <@expGet> with a Picture of <cPicture>. A
read will then be issued.
If params 2,3 and 4 are passed as Numeric/Numeric/Chr
then they are evaluated as the top,left and color for the popup
box.
[nTop] = top
[nLeft] = left
[cColor] = color string
Examples:
---------
dDate := date()
cTime := space(8)
lFun := .t.
POPREAD(.t.,"Current Date",@dDATE,"@D",;
"Current Time",@cTIME,"99:99:99",;
"Having Fun ?",@lFUN,"Y")
Notes:
-------
This is an intelligent version of ONE_READ. 2nd param
is passed by reference rather than by name - cutting down
DRASTICALLY on the macro expansion and greatly simplifying the
code. To pass by reference, preface the parameter with @.
Source:
-------
S_POPR.PRG
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson