METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse 
  
 	Local nI, nCell := ::nCell 
  
         oColumn:nId := ++ ::nLastIdColumn 
  
 	If oColumn == Nil									  // if no Column object supplied 
 		Return Nil											// return nil instead of reference to object 
 	EndIf 
 ... 
 METHOD AddColumn( oColumn ) CLASS TSBrowse 
  
 	Local nHeight, nAt, cHeading, cRest, nOcurs, ; 
 			hFont := iif( ::hFont != Nil, ::hFont, 0 ) 
  
 	Default ::aColSizes := {} 
  
         oColumn:nId := ++ ::nLastIdColumn 
  
 ... 
 

 
 		If ::oPhant == Nil 
 			// "Phantom" column; :nPhantom hidden IVar 
 			::oPhant := TSColumn():New(	"", ; // cHeading 
 											{|| "" }, ; // bdata 
 												  nil, ; // cPicture 
 						 { nClrText, nClrBack }, ; // aColors 
 												  nil, ; // aAlign 
 										 ::nPhantom, ; // nWidth 
 												  nil, ; // lBitMap 
 												  nil, ; // lEdit 
 												  nil, ; // bValid 
 												  .T., ; // lNoLite 
 												  nil, ; // cOrder 
 												  nil, ; // cFooting 
 												  nil, ; // bPrevEdit 
 												  nil, ; // bPostEdit 
 												  nil, ; // nEditMove 
 												  nil, ; // lFixLite 
 										  {l3DLook}, ; 
 												  nil, ; 
 												 Self ) 
 			::oPhant:cName := "oPhant" 
 			::oPhant:nId := -1 
 		Else 
 

 
 METHOD AddColumn( oColumn ) CLASS TSBrowse 
 ... 
 	Default ::aColSizes := {} 
  
 	oColumn:nId := ++ ::nIdColumn 
  
 	If oColumn:lDefineColumn 
 ... 
 METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse 
 ... 
  
 	oColumn:nId := ++ ::nIdColumn 
  
 	If oColumn:lDefineColumn 
 		oColumn:DefColor( Self, oColumn:aColors ) 
 		oColumn:DefFont ( Self ) 
 	EndIf 
 ... 
 METHOD DrawHeaders( lFooters, lDrawCell ) CLASS TSBrowse 
 ... 
 		::oPhant:cName := "oPhant" 
 		::oPhant:nId := -1 
 ... 
 METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 			::oPhant:cName := "oPhant" 
 			::oPhant:nId := -1 
 ... 
 METHOD DrawSelect( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 			::oPhant:cName := "oPhant" 
 			::oPhant:nId := -1 
 ... 
 

 
 .F.   Col = 1  0  SELECTOR 0.06   
 .F.   Col = 2  1  ID 0.06   
 .F.   Col = 3  2  FIRST 0.06   
 .F.   Col = 4  3  LAST  0.06   
 ... 
 

 
 METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse 
  
 	Local nI, nCell := ::nCell 
  
 	If oColumn == Nil									  // if no Column object supplied 
 		Return Nil											// return nil instead of reference to object 
 	EndIf 
  
 	IF ! ( !Empty( oColumn:cName ) .and. oColumn:cName == "SELECTOR" ) 
 		oColumn:nId := ++ ::nIdColumn 
 	ENDIF 
 ... 
 

METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse 
 ... 
    If nPos == 1 .and. Len( ::aColumns ) > 1 .and. ::lSelector 
       oColumn:nId := 0 
       Return Nil 
    EndIf 
  
    oColumn:nId := ++ ::nIdColumn 
 ... 
 

 
 METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse  
  ...  
     If nPos == 1 .and. Len( ::aColumns ) > 1 .and. ::lSelector  
        oColumn:nId := 0  
        Return Nil  
     EndIf  
     Else 
        oColumn:nId := ++ ::nIdColumn  
     EndIf 
  ...

 
 DATA lFastDrawCell AS LOGICAL INIT .F.     
 DATA aFastDrawCell            INIT hb_Hash() 
 ... 
 METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 	Local nDeltaLen, xData, nAt, oCell, cCell 
 ... 
 	IF ::lRowPosAtRec 
 		IF Empty( ::aRowPosAtRec ) .or. Len( ::aRowPosAtRec ) != ::nRowCount() 
 			::aRowPosAtRec := Array( ::nRowCount() ) 
 			AFill( ::aRowPosAtRec, 0 ) 
 		ENDIF 
 		IF ::nLen == 0 .or. xRow == 0 .or. xRow > Len( ::aRowPosAtRec ) 
 		ELSEIF ::lIsDbf 
 			::aRowPosAtRec[ xRow ] := ( nAt := ( ::cAlias )->( RecNo() ) ) 
 		ELSEIF ::lIsArr 
 			::aRowPosAtRec[ xRow ] := ( nAt := ::nAt ) 
 		ENDIF 
 	ENDIF 
  
 	If ::nLen > 0 
  
 		 IF nAt == NIL 
 			 nAt := iif( ::lIsDbf, ( ::cAlias )->( RecNo() ), ::nAt ) 
 		 ENDIF 
 ... 
 			nJ := iif( nI < ::nColPos, nJ + 1, nI ) 
  
 			lSelected  := iif( nJ == nLastCol, .F., lSelected ) 
 			oColumn	 := iif( nJ > Len( ::aColumns ), ::oPhant, ::aColumns[ nJ ] ) 
 			nDeltaLen  := ::GetDeltaLen( nJ, nStartCol, nMaxWidth, aColSizes ) 
  
 			cCell := hb_ntos(nAt)+"."+hb_ntos(oColumn:nId) 
  
 			IF ::lFastDrawCell 
 				oCell := hb_HGetDef( ::aFastDrawCell, cCell, NIL ) 
 				IF ISOBJECT(oCell) 
 					oCell:nRow	 := xRow 
 					oCell:nCol	 := nStartCol 
 					oCell:nWidth  := aColSizes[ nJ ] + nDeltaLen 
 					oCell:nHeight := ::nHeightCell 
 					oCell:nCell	:= nJ 
 					IF lDrawCell 
 					  ::TSDrawCell( oCell, oColumn ) 
 					ENDIF 
 					nStartCol += aColSizes[ nJ ] + nDeltaLen 
 					LOOP 
 				ENDIF 
 			ENDIF 
  
 			//If HB_ISNUMERIC( oColumn:nLineStyle ) 
 			//	nLineStyle := oColumn:nLineStyle 
 			//EndIf 
 			nLineStyle := iif( HB_ISNUMERIC( oColumn:nLineStyle ), oColumn:nLineStyle, ::nLineStyle ) 
 			cPicture := ::cPictureGet( oColumn, nJ ) 
 ... 
 			IF lDrawCell 
 				::TSDrawCell( oColumn:oCell, oColumn ) 
 				IF ::lFastDrawCell 
 					hb_HSet( ::aFastDrawCell, cCell, __objClone( oColumn:oCell ) ) 
 				ENDIF 
 			ENDIF 
  
 			nStartCol += aColSizes[ nJ ] + nDeltaLen 
 ... 
 

 
 			IF ::lFastDrawCell 
 				oCell := hb_HGetDef( ::aFastDrawCell, cCell, NIL ) 
 				IF ISOBJECT(oCell) 
 					oCell:nRow	 := xRow 
 					oCell:nCol	 := nStartCol 
 					oCell:nWidth  := aColSizes[ nJ ] + nDeltaLen 
 					oCell:nHeight := ::nHeightCell 
 					oCell:nCell	:= nJ 
 					oCell:hWnd	 := hWnd 
 					oCell:hDC	  := hDC 
 					oCell:xRow	 := xRow 
 					oCell:nStartCol := nStartCol 
 					oCell:nSize	:= aColSizes[ nJ ] + nDeltaLen 
 					oColumn:oCell := oCell 
 					IF lDrawCell 
 					  ::TSDrawCell( oColumn:oCell, oColumn ) 
 					ENDIF 
 					nStartCol += aColSizes[ nJ ] + nDeltaLen 
 					LOOP 
 				ENDIF 
 			ENDIF 
 

 
 METHOD Refresh( lPaint, lRecount, lClearHash ) CLASS TSBrowse 
  
    Default lPaint   := .T., ; 
            lRecount := .F.  ; 
            lClearHash := .T. 
  
    if lClearHsh 
      ::aFastDrawCell:= hb_hash() 
    end 
    If ::lFirstPaint == Nil .or. ::lFirstPaint 
       Return 0 
    EndIf 
  
    If lRecount .or. Empty( ::nLen ) 
       ::nLen := iif( ::lIsDbf, ( ::cAlias )->( Eval( ::bLogicLen ) ), Eval( ::bLogicLen ) ) 
    EndIf 
  
    ::lNoPaint := .F. 
  
 Return ::Super:Refresh( lPaint )