aHead := NIL 
 ?v aHead

 
 #command ?a [<arr>] => If( <arr> == NIL, , aEval( <arr>, { |xv, ne| _LogFile( (ne==1), ne, xv ), _LogFile() } ) ) 
 #command ?v [<arr>] => If( <arr> == NIL, , aEval( <arr>, { |xv, ne| _LogFile( (ne==1), ne, iif( Valtype(xv) == "A", hb_valtoexp(xv), xv ) ), _LogFile() } ) ) 
 

    ?v aHead

 
 METHOD LoadFields( lEditable, aColSel, cAlsSel, aNameSel, aHeadSel ) CLASS TSBrowse 
 ... 
 	Local cTmp, cHead, hFontH 
 ... 
 			hFont := iif( ::hFont != Nil, ::hFont, 0 ) 
 			hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont ) 
  
 			If cType == "C" 
 ... 
 			nSize := Max( GetTextWidth( 0, Replicate( "B", Len( cHeading )+1 ), hFontH ), nSize ) 
 			nSize += iif( ! Empty( cOrder ), 14, 0 ) 
  
 		ElseIf ValType( ::aColSizes ) == "A" .and. ! Empty( ::aColSizes ) .and. n <= Len( ::aColSizes ) 
 ... 
 

 
 METHOD DrawHeaders( lFooters ) CLASS TSBrowse 
 ... 
 	Local nDeltaLen, uTmp 
 ... 
 		IF ::lDrawSpecHd 
 ... 
 			if ::lEnum 
 				cHeading := hb_ntos( nJ - iif( ::lSelector, 1, 0 ) ) 
 				IF ! empty( oColumn:cSpcHeading ) 
 					uTmp := iif( Valtype( oColumn:cSpcHeading ) == "B", Eval( oColumn:cSpcHeading, nJ, Self ), oColumn:cSpcHeading ) 
 					IF HB_ISNUMERIC ( uTmp ) ; cHeading := hb_ntos( uTmp ) 
 					ELSEIF HB_ISCHAR( uTmp ) ; cHeading := uTmp 
 					ENDIF 
 				ENDIF 
 				if nI == nBegin .and. ::lSelector .or. nI == nLastCol 
 					cHeading := "" 
 				endif 
 			else 
 ... 
  
 Применение 
 ... 
              mySetTsb( oBrw ) 
              myColorTsb( oBrw )        // цвета на таблицу 
              myColorTsbElect( oBrw )   // цвета избранные 
              myDbfDelColTsb( oBrw ) 
              myEnumTsb( oBrw ) 
              mySet2Tsb( oBrw ) 
  
              :bOnEscape := {|ob| DoMethod(ob:cParentWnd, "Release") }  // выход по ESC 
  
       END TBROWSE ON END {|ob| ob:SetNoHoles(), ob:SetFocus() } 
 ... 
 STATIC FUNCTION myEnumTsb( oBrw ) 
    LOCAL oCol, nCnt := 0 
  
    FOR EACH oCol IN oBrw:aColumns 
        oCol:cSpcHeading := NIL 
        IF oCol:lVisible 
           oCol:cSpcHeading := hb_ntos( ++nCnt ) 
        ENDIF 
    NEXT 
  
 RETURN NIL 
 ... 
 

 
 CLASS TSColumn 
    DATA oCell                                    // TSBcell object 
 ... 
 это только места обозначены 
 CLASS TSBcell 
 ... 
 CLASS TSBrowse FROM TControl 
 	DATA	lDrawLine	  AS LOGICAL INIT .T.			 // flag for cells row drawing 
 ... 
 METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 		If ::bOnDrawLine != Nil 
 			Eval( ::bOnDrawLine, Self ) 
 		EndIf 
  
 		IF ! ::lDrawLine 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. ::lDrawLine 
 				Exit 
 			EndIf 
 ... 
 			IF ::lDrawLine 
  
 				oColumn:oCell := NIL 
  
 				TSDrawCell(						  hWnd, ; // 1 
 ... 
 			ELSE 
  
 				oColumn:oCell := TSBcell():New() 
 ... 
 			ENDIF 
 ... 
 METHOD DrawSelect( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 		nBegin	:= Min( iif( ::nColPos <= ::nFreeze, ( ::nColPos := ::nFreeze + 1, ::nColPos - ::nFreeze ), ; 
 							  ::nColPos - ::nFreeze ), nLastCol ) 
  
 		IF ! ::lDrawLine 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. ::lDrawLine 
 				Exit 
 			EndIf 
 ... 
 			If lDrawCell .and. ::lDrawLine 
  
 				lDraw := TSDrawCell(	hWnd, ; //  1 
 ... 
 			Else 
  
 				 lDraw := .T. 
  
 				 IF ! ::lDrawLine 
  
 					 oColumn:oCell := TSBcell():New() 
 ... 
 				 ENDIF 
 ... 
 

 
 STATIC FUNCTION my0( oBrw ) 
    LOCAL nAt, nCol, oCol, oCel 
    WITH OBJECT oBrw 
    :GoTop() 
    :DrawSelect() 
 ? "-", :lDrawLine, :nRowPos, :aColumns[2]:oCell, :aDrawCols 
    :lDrawLine := .F. 
    :GoTop() 
    :DrawSelect() 
 ? "#", :lDrawLine, :nRowPos, :aColumns[2]:oCell, :aDrawCols 
    :DrawLine() 
  
    FOR nAt := 1 TO :nLen 
        ?  nAt, :aColumns[2]:oCell 
        FOR nCol := 1 TO :nColCount() 
            oCol := :aColumns[ nCol ] 
            oCel := oCol:oCell 
            ? ".", oCol:lVisible, nCol, oCel:nStartCol, oCol:cName, oCel:nAlign, oCel:nClrFore, oCel:nClrBack, oCel:uData 
        NEXT 
        :GoDown() 
    NEXT 
 ? 
    :lDrawLine := .T. 
    :Reset() 
    END WITH 
  
 RETURN Nil 
  
 Запуск 
 demo5.exe        // работа с массивом 
 demo5.exe *      // работа с emploee.dbf 
 demo7.exe        // работа с AbonItogo.dbf (файл и раскраска от Андрея) 
 

 
 nRec := (oBrw:cAlias)->(RecNo()) 
 while !(oBrw:cAlias)->( Eof()) 
          for n := 1 To Len( oBrw:aColumns ) 
               Eval( oBrw:aColumns[n]:bData) 
          end 
         (oBrw:cAlias)->(dbSkip(1)) 
 end 
 (oBrw:cAlias)->(dbGoTo(nRec))