home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWABRS.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  794 b   |  27 lines
  1.     // TbFwaBrs.prg
  2.     //
  3.     // 
  4.     // TBfwaBrowse() - Sets up TBrowse object for a browse with a while
  5.     //                 and for condition and append mode
  6.  
  7.     #include "Tbutils.ch"
  8.  
  9.     FUNCTION TBfwaBrowse(bWhile, bFor, bFirst, bLast)
  10.  
  11.     LOCAL oTbr  := TBrowseNew()
  12.     LOCAL bNext := {|| TBfwaGoNext(bFor, bWhile, APPEND_MODE(oTbr)) }
  13.     LOCAL bPrev := {|| TBfwaGoPrev(bFor, bWhile, bLast) }
  14.  
  15.       oTbr:cargo := DictNew()
  16.       APPEND_MODE(oTbr, .F.)
  17.  
  18.       oTbr:goTopBlock    := {||  TBfwaFirst(bFirst, bWhile, bFor) }
  19.  
  20.       oTbr:goBottomBlock := {||  TBfwaLast(bLast,  bWhile, bFor, ;
  21.                                            APPEND_MODE(oTbr))   }
  22.       oTbr:skipBlock := {|n| DbSkipBlock(n, bNext, bPrev) }
  23.  
  24.       oTbr:goTop()
  25.  
  26.     RETURN oTbr
  27.