home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / MYTBRNEW.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  1.4 KB  |  36 lines
  1.     // MyTBrNew.prg
  2.     //
  3.     // MyTBrowseNew() - Create TBrowse object, allows setting of all i vars
  4.  
  5.     #define SET_IVAR(iVar, p) iVar := iif(p != NIL, p, iVar)
  6.  
  7.     FUNCTION MyTBrowseNew(lAutoLite, cargo, cColorSpec, nColPos,      ;
  8.                           cColSep, cFootSep, nFreeze, bGoBottomBlock, ;
  9.                           bGoTopBlock, cHeadSep, lHitBottom, lHitTop, ;
  10.                           nBottom, nLeft, nRight, nTop, nRowPos,      ;
  11.                           bSkipBlock, lStable)
  12.  
  13.     LOCAL oTbr := TBrowseNew()
  14.  
  15.       SET_IVAR(oTbr:autoLite,      lAutoLite)
  16.       SET_IVAR(oTbr:cargo,         cargo)
  17.       SET_IVAR(oTbr:colorSpec,     cColorSpec)
  18.       SET_IVAR(oTbr:colPos,        nColPos)
  19.       SET_IVAR(oTbr:colSep,        cColSep)
  20.       SET_IVAR(oTbr:footSep,       cFootSep)
  21.       SET_IVAR(oTbr:freeze,        nFreeze)
  22.       SET_IVAR(oTbr:goBottomBlock, bGoBottomBlock)
  23.       SET_IVAR(oTbr:goTopBlock,    bGoTopBlock)
  24.       SET_IVAR(oTbr:headSep,       cHeadSep)
  25.       SET_IVAR(oTbr:hitBottom,     lHitBottom)
  26.       SET_IVAR(oTbr:hitTop,        lHitTop)
  27.       SET_IVAR(oTbr:nBottom,       nBottom)
  28.       SET_IVAR(oTbr:nLeft,         nLeft)
  29.       SET_IVAR(oTbr:nRight,        nRight)
  30.       SET_IVAR(oTbr:nTop,          nTop)
  31.       SET_IVAR(oTbr:rowPos,        nRowPos)
  32.       SET_IVAR(oTbr:skipBlock,     bSkipBlock)
  33.       SET_IVAR(oTbr:stable,        lStable)
  34.  
  35.     RETURN oTbr
  36.