home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / S_PICKFL.PRG < prev   
Encoding:
Text File  |  1991-11-25  |  1.8 KB  |  65 lines
  1. * Filename.......: S_PICKFL.PRG
  2. *                  
  3. * Author.........: Vernon E. Six, Jr.
  4. *                  
  5. * Last Update....: Mon  11/25/91  16:37:22
  6. *                  
  7. * Created using..: VSG - Vern Six's Get System v1.00.53a
  8. *                  
  9. * Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
  10. *                  All Rights Reserved World Wide!         
  11.  
  12. #include "INKEY.CH"  
  13.  
  14.  
  15. FUNCTION S_PICKFLD(pc_Title,pc_FootNote)
  16. *══════════════════════════════════════════════════════════*
  17. * Select a FIELD                                           *
  18. *══════════════════════════════════════════════════════════*
  19. LOCAL n_Top        := 5
  20. LOCAL n_Left       := 5
  21. LOCAL n_Bottom     := 20
  22. LOCAL n_Right      := 76
  23. LOCAL c_Title      := IF(pc_Title=NIL," Which Field? ",pc_Title)
  24. LOCAL c_FootNote   := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
  25. LOCAL n_Palette    := 5
  26. LOCAL a_ColObjs    := {}
  27. LOCAL n_Key        := 0 
  28. LOCAL c_OldHelp    := "" 
  29.  
  30. LOCAL c_RetVal
  31. LOCAL ab_KeyBlocks := {}
  32. LOCAL an_Keys      := {}
  33.  
  34. _DICTFLD->( VS_SetOrder("1") )
  35.  
  36.  
  37.  
  38. AADD(a_ColObjs, TBColumnNew( "###  Field Name  T Size     Description", {||L_DictFld()}) )
  39.  
  40.    DO WHILE .T.
  41.  
  42.       c_OldHelp = VS_HelpPrg( "S_PICKFLD" )
  43.       n_Key = _DICTFLD->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
  44.               c_FootNote, n_Palette, a_ColObjs, _DICTHDR->DBF_NAME,{|x|ALLTRIM(x) == ALLTRIM(_DICTFLD->DBF_NAME)}, ab_KeyBlocks, an_Keys ) )
  45.       VS_HelpPrg( c_OldHelp )
  46.  
  47.       DO CASE
  48.  
  49.          CASE n_Key = K_ESC 
  50.             c_RetVal = ""   
  51.             EXIT            
  52.  
  53.          CASE n_Key = K_ENTER
  54.             c_RetVal = _DICTFLD->FIELD_NAME
  55.             EXIT       
  56.  
  57.       ENDCASE
  58.  
  59.    ENDDO
  60.  
  61. RETURN(c_RetVal)
  62. *══ EOF: S_PICKFLD() ═════════════════════════════════════════════════════════*
  63.  
  64.  
  65.