home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / clipper / sup35s / s3get.prg < prev    next >
Encoding:
Text File  |  1993-09-17  |  3.0 KB  |  94 lines
  1.  
  2. #include "inkey.ch"
  3.  
  4. PROC MAIN
  5. local cInScreen   := savescreen(0,0,24,79)
  6. local nSelect
  7. slsf_color("S3COLOR")
  8. initsup(.F.)
  9. makebox(0,0,24,79,sls_normcol() )
  10. WHILE .T.
  11.    nSelect := MENU_V("Get samples:","Readers, Whens, valids",;
  12.                      "Scrolling gets","Quit")
  13.     DO CASE
  14.     CASE nSelect = 1
  15.        readers()
  16.     CASE nSelect = 2
  17.        showgetmany()
  18.     otherwise
  19.      exit
  20.     ENDCASE
  21.     makebox(0,0,24,79,sls_normcol() )
  22. END
  23. ss_rise(0,0,24,79,cInScreen)
  24.  
  25.  
  26.  
  27. //------------------------------------------------------------------
  28. STATIC PROC READERS
  29.  
  30. local n
  31. local lYesNo   := .f.
  32. local lYesNo2  := .f.
  33. local lNumber1 := 0
  34. local cChar1 := space(15)
  35. local cChar2 := space(15)
  36. local cChar3 := space(10)
  37. local cChar4 := space(15)
  38. local lNumber2    := 0
  39. local dDate       := date()
  40. memvar getlist
  41.  
  42. @ 2,8 SAY "GET SYSTEM ENHANCEMENTS"
  43.  
  44. @ 4,9 SAY "...................(regular logical get)"
  45. @ 5,9 SAY "...................YNREADER()   - popup Yes/No for logical fields"
  46. @ 7,13 SAY "...............PMREADER()   - use +- keys for date/numeric fields"
  47. @ 9,23 SAY ".....PICKREADER() - use a picklist for a get reader"
  48. @ 11,23 SAY ".....SBREADER()   - use spacebar to toggle values from"
  49. @ 12,43 SAY "an array"
  50. @ 14,13 SAY "...............CALCWHEN()   - calculator as get WHEN clause"
  51. @ 16,16 SAY "............CALENDWHEN() - calendar as get WHEN clause"
  52. @ 18,23 SAY ".....SMALLVALID() - lookup table as get VALID clause"
  53. @ 20,23 SAY ".....POPUPKSET()  - generic popup - F2 pops up ASCII"
  54. @ 21,43 SAY "table"
  55.  
  56. POPUPKSET(K_F2,"READERS","cChar4",;
  57.   {||iif( (n:=asciitable())#nil,getactive():insert(chr(n)):assign(),nil)})
  58.  
  59.  
  60. @4,8 GET lYesno2   // filler
  61. @5,8 get lYesNo send reader:= YNREADER()
  62. @7,8 get lNumber1 pict "99999" send reader:= PMREADER()
  63. @9,8 get cChar1 send reader:= PICKREADER({"TOM            ",;
  64.                                                "DICK           ",;
  65.                                                "HARRY          "})
  66. @11,8 get cChar2 send reader := SBREADER({"WILMA          ",;
  67.                                                "BETTY          ",;
  68.                                                "ELVIRA!        "})
  69.  
  70. @14,8 get lNumber2 pict "99999" when CALCWHEN(.f.,.t.)
  71. @16,8 get dDate    when CALENDWHEN(.f.,.t.)
  72. @18,8 get cChar3 valid SMALLVALID({||!empty(cChar3)},"product",;
  73.                            "Select Product","%S3PROD","PRODUCT"   )
  74. @20,8 get cChar4
  75. RAT_READ(getlist)
  76. RETURN
  77.  
  78.  
  79. //------------------------------------------------------------------
  80.  
  81. static proc showgetmany
  82.  local i
  83.  local aDesc := {"Get 1","Get 2","Get 3","Get 4","Get 5","Get 6","Get 7","Get 8",;
  84.                  "Get 9","Get 10"}
  85.  local aGets := {"Yo!",date(),time(),.t.,1234.56,"These","Are    ","scrolling",;
  86.                  "Gets......",.t.}
  87.  memvar getlist
  88.  for i = 1 to len(aGets)
  89.    @maxrow()+1,maxcol()+1 get aGets[i]
  90.    aadd(aDesc,field(i))
  91.  next
  92.  SGETMANY(getlist,aDesc,7,10,15,60,"Editing - Multiple Scrolling Gets","ESC quits, F10 saves",1)
  93. return
  94.