METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 	Default xRow := iif( ::lDrawHeaders, Max( 1, nRowPos ), nRowPos ), lDrawCell := ::lDrawLine 
 ... 
 		If ::bOnDrawLine != Nil 
 			Eval( ::bOnDrawLine, Self ) 
 		EndIf 
  
 		IF ! lDrawCell 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. lDrawCell 
 				Exit 
 			EndIf 
 ... 
 			IF nAlign != DT_CENTER .and. ::nCellMarginLR != NIL 
 				uData := ::CellMarginLeftRight( nJ, uData, oColumn, nAlign, lMultiLine, 0 ) 
 			ENDIF 
  
 			IF lDrawCell 
  
 				oColumn:oCell := NIL 
  
 				TSDrawCell(						  hWnd, ; // 1 
 ... 
 

 
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
 				oBrw:InsColumn( nColNumber, oCol ) 
  
 				IF oBrw:lDrawFooters 
 					oBrw:aColumns[ nColNumber ]:cFooting := "" 
 				ENDIF 
  
 				oBrw:nCell			  := nColNumber + 1 
 				oBrw:nFreeze			:= nColNumber 
 				oBrw:lLockFreeze	  := .T. 
 ... 
 

 
       :Setcolor( { 3}, { CLR_WHITE                        } ) // 3 , текста шапки таблицы  
       :SetColor( { 4}, { { || { CLR_BLACK, CLR_GRAY   } } } ) // 4 , фона шапка таблицы 
       :SetColor( {16}, { { || { CLR_BLACK, CLR_GRAY   } } } ) // 16, фона спецхидер                                   
       :SetColor( {17}, { { || CLR_YELLOW                } } ) // 17, текста спецхидер

 
              mySetTsb( oBrw )             // настройки таблицы 
              myColorTsb( oBrw )           // цвета на таблицу 
              myColorTsbElect( oBrw )      // цвета избранные 
              mySumTsb ( oBrw )            // суммирование колонок таблицы 
              myDbfDelColTsb( oBrw )       // убрать колонки из отображения 
              mySupHdTsb( oBrw, aSupHd )   // SuperHeader 
              myEnumTsb( oBrw )            // ENUMERATOR по порядку 
              mySet2Tsb( oBrw )            // настройки таблицы 
 

 
 ... 
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertExclamation ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayExclamation() 
    ENDIF                  
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [10] ), , , Icon, nSize, aColors, lTopMost, bInit ) 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertInfo ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayAsterisk() 
    ENDIF 
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [11] ), ICON_INFORMATION, , Icon, nSize, aColors, lTopMost, bInit ) 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertStop ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayHand() 
    ENDIF                  
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [12] ), ICON_STOP, , Icon, nSize, aColors, lTopMost, bInit ) 
 ... 
 

 
    DATA oCellHead                                // TSBcell object Header 
    DATA oCellEnum                                // TSBcell object Enumerator 
    DATA oCellFoot                                // TSBcell object Footer 
    DATA oCell                                    // TSBcell object 
 

 
 CLASS TSBrowse FROM TControl 
 ... 
 	ACCESS IsEdit		 INLINE ! Empty( ::aColumns[ ::nCell ]:oEdit )  // SergKis addition 
        ACCESS Tsb               INLINE ::oWnd 
 ... 
 FUNCTION GetProperty ( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 ) 
 ... 
 #ifdef _OBJECT_ 
       CASE Arg3 == "OBJECT" 
  
            IF _HMG_lOOPEnabled 
               RetVal := _ControlObj ( Arg2 , Arg1 ) 
               IF HB_ISOBJECT( RetVal ) .and. _HMG_aControlType[ RetVal:Index ] == "TBROWSE" 
                  RetVal := _HMG_aControlIds[ RetVal:Index ] 
               ENDIF 
            ELSEIF ( ix := GetControlIndex ( Arg2 , Arg1 ) ) > 0 
               IF _HMG_aControlType[ ix ] == "TBROWSE" 
                  RetVal := _HMG_aControlIds[ ix ] 
               ENDIF 
            ENDIF 
 #endif 
 ... 
 Синим цветом, наверно, надо убрать 
 Это даст возможность получать объект TSBROWSE, как SET OOP ON, так и SET OOP OFF 
 ? (This.oBrw.Object):ClassName       // SET OOP OFF 
 ? (This.oBrw.Object):Tsb:ClassName   // SET OOP ON\OFF 
 

 
 ... 
 #xtranslate This . <c> . <p:Names>  => HMG_GetFormControls ( _HMG_THISFORMNAME , <(c)> )  
 #xtranslate This . <c> . <p:ClientWidth>  => _GetClientRect ( GetControlHandle ( <(c)> , _HMG_THISFORMNAME ) ) \[3] 
 

 
    AlertInfo( hb_memoread(_SetGetLogFile()), "INFO", , 0, , , ; 
               {||ac,cn|     // {|ao,cn| 
                an := This.EditBox.Names // ao := (This.Object):GetObj4Type("EDITBOX") 
                If HB_ISARRAY(an) .and. Len(an) == 1 // If HB_ISARRAY(ao) .and. Len(ao) == 1 
                   cn := an[1] // ao[1]:Name 
                   This.Width  := test.ClientWidth  * 0.95 
                   This.(cn).Row := 10 
                   This.(cn).Col := 10 
                   This.(cn).Width  := This.ClientWidth - 10 * 2 
                   This.(cn).Height := This.(cn).Height + 10 * 2 + 10 
                   This.Center 
                EndIf 
                Return Nil 
               } , .T. )     // .T. - lNoPlay 
 

 
 #xtranslate ThisWindow . <p:Names,Controls>  => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" )  
 ... 
 #xtranslate This . <p:Names,Controls>        => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" )  
 ... 
 

 
 METHOD AddColumn( oColumn ) CLASS TSBrowse 
 ... 
 	If ATail( ::aColSizes ) == NIL .and. Len( ::aColSizes ) > 0  
 		::aColSizes[ Len( ::aColSizes ) ] := oColumn:nWidth 
 	ENDIF 
  
 	If ::aPostList != Nil // from ComboWBlock function 
 ...