home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBCCOLPO.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  673 b   |  30 lines
  1.     // TBCColPo.prg
  2.     //
  3.     // TBCColPos() - Returns array containing column position of
  4.     //               each visible column
  5.  
  6.     FUNCTION TBCColPos(oTbr)
  7.  
  8.     LOCAL nSaveColNum := oTbr:colPos
  9.     LOCAL aColPos := array(oTbr:rightVisible)
  10.     LOCAL nColNum
  11.  
  12.       dispBegin()
  13.       FOR nColNum := oTbr:leftVisible TO oTbr:rightVisible
  14.         oTbr:colPos := nColNum
  15.         DO WHILE !oTbr:stabilize()
  16.         ENDDO
  17.         aColPos[nColNum] := col()
  18.         oTbr:deHilite()
  19.       NEXT
  20.  
  21.       // redisplay current prompt
  22.       oTbr:colPos := nSaveColNum
  23.       DO WHILE !oTbr:stabilize()
  24.       ENDDO
  25.  
  26.       dispEnd()
  27.  
  28.     RETURN aColPos
  29.  
  30.