Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- CC.LIB - ClipCode CLIPPER S'87 Library - <b>boxgets() display a shadow-boxed multi-get box & wait for input</b> http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
 BOXGETS()   Display a shadow-boxed multi-GET box & wait for input

 Syntax....: BOXGETS(c_title,ac_say,ac_get[,ac_pict,ac_vald,ac_colr,i_row,i_colm,i_tmo])
 Parameters: <expC>: c_title= box title string
             <arrC>: ac_say = array of SAY label strings
             <arrX>: ax_get = array of GET input mvars
 [optional]  <arrC>: ac_pict= array of PICTURE strings for GETs (default = none)
  "      "   <expC>: c_vald = array of VALID expressions as a string (default =".T.")
  "      "   <arrC>: ac_colr= color array:     [defaults]
  "      "                    [1] = "N/W"  Box
  "      "                    [2] = "B/W"  Title
  "      "                    [3] = "B/W"  Option panel
  "      "                    [4] = "N/W"  SAY
  "      "                    [5] = "W+/N" GET
  "      "                    [6] = "W/N"  Shadow
  "      "   <expN>: i_row  = top row     (default = centered)
  "      "   <expN>: i_colm = left column (default = centered)
  "      "   <expN>: i_tmo  = time out    (default = 0 ie. until keypress)

 Returns...: <expL>: .T.  ( returns array of GETS by reference )
 Cautions..: none
 CC Calls..: ALONGEST(), BOXREST(), CTRPOS(), READX(), SETSCRSTS(), SHADOWBOX()
 Alias.....: none

 Example...: PRIVATE ac_say[3], ac_get[3], ac_pict[3]
             ASTORE( ac_say,"First Name:","Middle Name:","Last Name:" )
             ASTORE( ac_get,SPACE(30),SPACE(20),SPACE(30) )
             AFILL( ac_pict,"@! " )
             BOXGETS( "Locate by Name",ac_say, ac_get, ac_pict )
             IF LASTKEY() <> 27
               DO something WITH LastName...

See Also: BOXGET BOXMSG SHADOWBOX BOXREST

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson