home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP25.EXE / CHP2504.PRG < prev    next >
Encoding:
Text File  |  1991-06-12  |  541 b   |  22 lines
  1. /*
  2.    Listing 25.4. Remove all column footings from a browse object.
  3.    Author: Craig Yellick
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. function NoFeet(objBrow)
  12. /*
  13.    Remove all column footings in a browse object.
  14. */
  15. local i
  16.   for i := 1 to objBrow:colCount
  17.     objBrow:getColumn(i):footing := nil
  18.   next i
  19. return nil
  20.  
  21. // end of file CHP2504.PRG
  22.