FUNCTION SBrowse_Viewer( uTsb, nW, nH, cTitul, lNumber, aFont, lModal, lCenter ) 
 ... 
    DEFAULT oTsb:lEmptyValToChar := .T. 
    IF ! lAlias .and. Empty(oTsb:aArray) 
       MsgStop("SBrowse_Viewer :"+CRLF+CRLF+"Alias or array not defined !", "ERROR") 
       RETURN Nil 
    ENDIF 
 ... 
         ob:nHeightCell += 5 
         IF hb_IsNumeric(oTsb:nSupHdFore) .and. hb_IsNumeric(oTsb:nSupHdBack) .and. hb_IsNumeric(oTsb:nSupHdHeight) 
            DEFAULT oTsb:cSupHdCapt := GetProperty(ob:cParentWnd, "Title") 
            ADD SUPER HEADER TO ob FROM 1 TO ob:nColCount() TITLE oTsb:cSupHdCapt ; 
                HEIGHT oTsb:nSupHdHeight COLOR oTsb:nSupHdFore,oTsb:nSupHdBack HORZ DT_CENTER 
         ENDIF 
 ... 
      ob:SetColor( {12}, { {|c,n,b| c := b:Cargo, iif( b:nCell == n, c:nClr12_1, c:nClr12_2 )} } ) // CLR_SELEB 
         ENDIF 
         IF nColNo > 0 .and. hb_IsNumeric(oTsb:nSupHdFore) .and. ; 
                             hb_IsNumeric(oTsb:nSupHdBack) .and. ; 
                             hb_IsNumeric(oTsb:nSupHdHeight) 
            nCol := Len(ob:aColumns) ; nI := Len( ob:aSuperHead ) 
            IF nCol > nI ; ob:aSuperHead[ nI ][2] := nCol 
            ENDIF 
         ENDIF 
         ob:SetNoHoles() 
         ob:SetFocus() 
      ENDIF 
      Return oTsb:lCellBrw 
      } 
  
    DEFAULT oTsb:bAfter := {|ob|         // после END TSBROWSE  выполняется 
      Local nW, nL 
      nW := This.oBrw.ClientWidth 
      nL := ob:GetAllColsWidth() - 1 
      IF nL > nW 
         ob:lAdjColumn  := .T. 
         ob:lNoHScroll  := .F. 
         ob:lMoreFields := ( ob:nColCount() > 30 ) 
      ELSE 
         ob:AdjColumns() 
      ENDIF 
      ob:Refresh() 
      Return Nil 
      } 
  
    uAlias := iif( hb_IsChar(uAlias), uAlias, oTsb:aArray ) 
 ...