home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / update / foxscrol.sit / setuplisttest.prg < prev    next >
Encoding:
Text File  |  1992-09-27  |  750 b   |  23 lines
  1. * program to setup test environment for XScrollList
  2. set talk off
  3. clear all
  4. public sep
  5. use sample index sample
  6. select b
  7. use lookup
  8. set relation to code into sample
  9. set resource to "XScrollList XFCN"    && or use ResEdit to copy the external into your FoxUser file
  10. load XScrollList function
  11. call XScrollList to res with "I"
  12. sep = chr(9)   &&   Tab character
  13. * estimate 18 is average expression length
  14. call XScrollList to res with "Lr>",0,reccount(),18,"SKIP","CODE+sep+TRIM(SAMPLE->NAME)"
  15. call XScrollList to res with "DMT40R",0,1003,"","The Title of the List","btnVar","entryVar","recVar"
  16. *
  17. * show the user the memory result from the list
  18. *
  19. screen 1 top
  20. display memory
  21. call XScrollList to res with "c"        && release array memory
  22. release module XScrollList
  23.