home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST182.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  2.2 KB  |  102 lines
  1. ********************
  2.  
  3. FUNCTION Listflds
  4.  
  5.    PARAMETERS _listrow, _listcol, _listarea, _listfld
  6.  
  7.    PRIVATE _listlist, _listvalue, _listchoic, _listret
  8.  
  9.    IF PCOUNT() != 4
  10.       RETURN(0)
  11.    ELSEIF TYPE("_listrow") + TYPE("_listcol") + TYPE("_listfld") != "NNC"
  12.       RETURN(0)
  13.    ENDIF
  14.  
  15.   _listret = SELECT()
  16.  
  17.   IF !EMPTY(_listarea)
  18.      IF !(TYPE("_listarea")$"CN")
  19.         RETURN(0)
  20.      ELSE
  21.         IF TYPE("_listarea") = "N"
  22.            SELECT(_listarea)
  23.         ELSE
  24.            SELECT &_listarea.
  25.         ENDIF
  26.      ENDIF
  27.   ELSE
  28.      _listarea = ALIAS()
  29.   ENDIF
  30.  
  31.    _listlist  = ""
  32.    _listvalue = ""
  33.    _listchoic = SPACE(4)
  34.  
  35.    DO WHILE !EMPTY(_listfld)
  36.       _listlist = _listlist + "/" + Formalize(STRTRAN(FIELDNAME(VAL(Parsing(@_listfld))), "_", " "))
  37.    ENDDO
  38.    _listlist = SUBSTR(_listlist, 2)
  39.  
  40.    _listrow = IF((_listrow < 1), 1, _listrow)
  41.    _listcol = IF((_listcol < 1), 1, _listcol)
  42.    @ _listrow-1, _listcol -1, ""
  43.  
  44.    _listvalue = FIELDLIST(@_listchoic, _listlist)
  45.  
  46.    SELECT (_listret)
  47.  
  48.    RETURN(_listvalue)
  49.  
  50. ********************
  51.  
  52. FUNCTION Fieldlist
  53.  
  54.    PARAMETER _testcode, _thelist, _thereq, _thecolor
  55.  
  56.    PRIVATE _retval, _piece, _wrow, _wcol, _wcolor, _anarray
  57.    PRIVATE _helplist[ OCCURENCE("/",_thelist)+1 ], _ctr, _pick
  58.  
  59.    IF LASTKEY() = 5
  60.       RETURN(.T.)
  61.    ENDIF
  62.  
  63.    IF PCOUNT() = 2
  64.       _thereq   = .F.
  65.       _thecolor = SETCOLOR()
  66.    ELSEIF PCOUNT() = 3
  67.       _thecolor = SETCOLOR()
  68.    ENDIF
  69.  
  70.    _anarray = ("["$_testcode)
  71.    
  72.    _retval = .F.
  73.    _ctr    = 0
  74.    _wrow   = ROW()
  75.    _wcol   = COL()
  76.    _wcolor = SETCOLOR()
  77.    SETCOLOR(IF(ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), _thecolor, SETCOLOR()))
  78.  
  79.    DO WHILE ! EMPTY(_thelist)
  80.       _piece = PARSING(@_thelist)
  81.       _ctr = _ctr +1
  82.       _helplist[_ctr] = _piece
  83.       IF !_anarray
  84.          IF _testcode = LEFT( _piece,1) .AND. ! EMPTY( _piece )
  85.             _retval = 0
  86.             EXIT
  87.          ENDIF
  88.       ELSE
  89.          IF &_testcode. = LEFT(_piece,1) .AND. ! EMPTY( _piece )
  90.             _retval = 0
  91.             EXIT
  92.          ENDIF
  93.       ENDIF
  94.  
  95.    ENDDO
  96.  
  97.    _pick = APOP( ROW(), COL() +2,_ctr+4,LENGTH_EL(_helplist)+8,_helplist )
  98.    SETCOLOR(_wcolor)
  99.    RETURN(_pick)
  100.  
  101. * End of File
  102.