home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / MYTBCNEW.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  843 b   |  25 lines
  1.     // Mytbcnew.prg
  2.     //
  3.     // MyTBColumnNew() - Create TBColumn object, allows setting of all i vars
  4.  
  5.     #define SET_IVAR(iVar, p) iVar := iif(p != NIL, p, iVar)
  6.  
  7.     FUNCTION MyTBColumnNew(bBlock, cargo, bColorBlock, cColSep, ;
  8.                             aDefColor, cFooting, cFootSep, cHeading, ;
  9.                             cHeadSep, nWidth)
  10.  
  11.     LOCAL oTbc := TBColumnNew()
  12.  
  13.       SET_IVAR(oTbc:block,      bBlock)
  14.       SET_IVAR(oTbc:cargo,      cargo)
  15.       SET_IVAR(oTbc:colorBlock, bColorBlock)
  16.       SET_IVAR(oTbc:colSep,     cColSep)
  17.       SET_IVAR(oTbc:defColor,   aDefColor)
  18.       SET_IVAR(oTbc:footing,    cFooting)
  19.       SET_IVAR(oTbc:footSep,    cFootsep)
  20.       SET_IVAR(oTbc:heading,    cHeading)
  21.       SET_IVAR(oTbc:headSep,    cHeadSep)
  22.       SET_IVAR(oTbc:width,      nWidth)
  23.  
  24.     RETURN oTbc
  25.