oBrw:nClrLine := ???  // цвет линий между ячейками таблицы

   oBrw:Enabled( .F. )  // блокировка таблицы с закраской 
    nClrLine := TsbColorRepl(oBrw, BLACK, SILVER) 
    MsgDebug(...) 
    oBrw:nClrLine := nClrLine  // восстановить цвет линий между ячейками таблицы 
    oBrw:Enabled( .T. )        // разблокировка таблицы с закраской 
  .... 
  /////////////////////////////////////////////////////////////////// 
 // заменить текущий цвет TBROWSE  
 FUNCTION TsbColorRepl(oBrw, aBackColor, aFontColor) 
    LOCAL nJ, nBackColor, nFontColor, nSaveColor 
  
    nFontColor := ToRGB( aFontColor ) 
    nBackColor := ToRGB( aBackColor ) 
    // ------ изменить цвета Tsbrowse ------------ 
    FOR nJ := 1 to LEN(oBrw:aColumns)  // меняем цвет по всем колонкам 
       oBrw:SetColor( { 1}, { { || nFontColor } } )  // 1 , текста в ячейках таблицы 
       oBrw:SetColor( { 2}, { { || nBackColor } } )  // 2 , фона в ячейках таблицы   
       oBrw:Setcolor( { 3}, { nFontColor        } )  // 3 , текста шапки таблицы  
       oBrw:SetColor( { 4}, { { || nBackColor } } )  // 4 , фона шапка таблицы 
       oBrw:SetColor( { 9}, { nFontColor        } )  // 9 , текста подвала таблицы                                 
       oBrw:SetColor( {10}, { { || nBackColor } } )  // 10, фона подвала таблицы                                   
       //oBrw:SetColor( {15}, { { || CLR_WHITE  } } )  // 15, линий между ячейками таблицы  
    NEXT 
    nSaveColor    := oBrw:nClrLine   // сохранить цвет линий между ячейками таблицы 
    oBrw:nClrLine := nFontColor      // новый цвет линий между ячейками таблицы 
    // цвет фона под таблицей 
    oBrw:hBrush   := CreateSolidBrush( aBackColor[1], aBackColor[2], aBackColor[3] )  
  
 RETURN nSaveColor

                          oBrw:Enabled( .F. )   // блокировка таблицы с закраской

 
   Дата_2    = '{|| (Alias())->MARK }'   // это текстовый ини-файл 
  
    For nI := 1 To Len(aTable) 
        cHeadName   := aTable[nI,1 ]   // 1   Шапка_  
        cDateBlock  := aTable[nI,2 ]     // 2   Дата_   
        ...... 
        // ------ преобразовать на знаки ------ 
        cHeadName := STRTRAN(cHeadName,";", CRLF )  
        cDateBlock := STRTRAN(cDateBlock,'CRLF', '"' + CRLF + '"' )  
        xVal := Eval( &( cDateBlock ) ) 
        aAligh := &(cAlighColum)  // выравнивание: cells, header, footer  
  
        ADD COLUMN TO TBROWSE oBrw // добавить новую колонку в TBROWSE 
  
        oBrw:aColumns[nI]:cHeading := cHeadName       // заголовок колонки 
        oBrw:aColumns[nI]:bData  := &( cDateBlock )   // поля в колонке                  847 строка 
        oBrw:aColumns[nI]:nAlign := aAligh[1]         // выравнивание: cells

 
       If nKey != VK_RETURN .OR.  # ::lCheckBoxIgnoreReturn 
  
          If Upper( Chr( nKey ) ) $ "YCST1" 
             ::lChanged := uVar == .F. 
             uVar := .T. 
          ElseIf Upper( Chr( nKey ) ) $ "FN0" 
             ::lChanged := uVar == .T. 
             uVar := .F. 
          ElseIf nKey == VK_SPACE 
             uVar := ! uValue 
             ::lChanged := .T. 
          Else 
             Return 0 
          EndIf 
  
          ::lHasChanged := If( ::lChanged, .T., ::lHasChanged ) 
          ::oWnd:nLastKey := VK_RETURN 
          ::PostEdit( uVar, nCell ) 
          ::lPostEdit := .F. 
          Return 0 
       Else 
          ::lPostEdit := .T. 
          ::lChanged := .F.  
          ::oWnd:nLastKey := nKey 
          ::PostEdit( uValue, nCell )  
          ::lPostEdit := .F. 
          Return 0 
       EndIf 
 

  // запись в лог-файл всех изменений полей БД 
    oBrw1:bEditLog  := { |xo,xn,ob| WriteEditLog( xo, xn, ob ) } 

    
 ///////////////////////////////////////////////////////////////////// 
 // запись в лог-файл всех изменений полей БД 
 FUNCTION WriteEditLog( xOld, xNew, oBrw ) 
    LOCAL cFileLog := ChangeFileExt( Application.ExeName, ".log"  )   
    LOCAL nCol, cHead, cStr, CRZ := "; " 
  
    nCol := oBrw:nCell - 1                   // номер колонки в таблице  
    cHead := oBrw:aColumns[ nCol ]:cHeading  // имя шапки колонки 
    IF LEN(ALLTRIM(cHead)) == 0 
       cHead := HB_NtoS(nCol) 
    ENDIF 
  
    cStr := DToC( Date() ) + CRZ + Time() + CRZ 
    cStr += NetName()+"/"+hb_UserName()+"/User-"+HB_NtoS(M->nPubUser) + CRZ  // Кто изменил данные 
    cStr += oBrw:cAlias + CRZ + "ID=" + HB_NtoS( (oBrw:cAlias)->ID ) + CRZ  
    cStr += "Запись: " + HB_NtoS( (oBrw:cAlias)->(RecNo()) ) + CRZ  
    cStr += "Колонка: " + cHead + CRZ 
    IF VALTYPE(xOld) == "C" 
       cStr += "замена: [" + ALLTRIM(xOld)    + "] на: [" + ALLTRIM(xNew)    + "]" + CRZ 
    ELSE 
       cStr += "замена: [" + cValToChar(xOld) + "] на: [" + cValToChar(xNew) + "]" + CRZ 
    ENDIF 
    cStr += CRLF 
  
    STRFILE(cStr, cFileLog, .T.) 
  
    RETURN NIL

 
 METHOD PostEdit( uTemp, nCol, bValid ) CLASS TSBrowse 
 ... 
    xNewEditValue := ::bDataEval( ::aColumns[ nCol ], , nCol ) //Igor Nazarov 
    
    If hb_isBlock( ::bEditLog ) .and. ::aColumns[ nCol ]:xOldEditValue != xNewEditValue 
       Eval( ::bEditLog, ::aColumns[ nCol ]:xOldEditValue, xNewEditValue, Self, nCol ) 
    EndIf 
  
 Return Nil 
 В задаче 
    oBrw1:bEditLog  := { |xo,xn,ob,nc| WriteEditLog( xo, xn, ob, nc ) } 
 ... 
 FUNCTION WriteEditLog( xOld, xNew, oBrw, nCell ) 
    LOCAL cFileLog := ChangeFileExt( Application.ExeName, ".log"  ) 
    LOCAL nCol, cHead, cStr, CRZ := "; ", oCol, cAls, cName, oC 
  
    WITH OBJECT oBrw 
    DEFAULT nCell := :nCell 
    oC    := :aColumns [ nCell ] 
    oCol  := :GetColumn( nCell ) // - iif( :lSelector, 1, 0 ) ) 
    cName := oCol:cName 
    nCol  := :nColumn( cName ) 
    cAls  := iif( Empty(oCol:cAlias), :cAlias, oCol:cAlias ) 
    cHead := oCol:cHeading 
    END WITH 
  
 ? cAls , oBrw:lSelector, oBrw:nCell 
 ? nCell, oC:cName, oC:cHeading 
 ? nCol , cName   , cHead 
 ... 
 получил в _MsgLog.txt 
 MAIN	.F.	8	 
 7	FTEXT	Text	 
 7	FTEXT	Text	 
 правилась колонка 7 FTEXT 
 

 
       If nLastKey == VK_UP .and. ::lPostEditGo 
          ::GoUp() 
       ElseIf nLastkey == VK_RIGHT .and. ::lPostEditGo 
          ::GoRight() 
       ElseIf nLastkey == VK_LEFT .and. ::lPostEditGo 
          ::GoLeft() 
       ElseIf nLastkey == VK_DOWN .and. ::lPostEditGo 
          ::GoDown() 
          ::Refresh( .F. ) 
       ElseIf ::aColumns[ nCol ]:nEditMove >= 1 .and. ::aColumns[ nCol ]:nEditMove <= 5  // excel-like behaviour post-edit movement 
          Eval( aMoveCell[ ::aColumns[ nCol ]:nEditMove ] ) 
       ElseIf ::aColumns[ nCol ]:nEditMove == 0 
          ::DrawSelect() 
       EndIf 
 

 
    If hb_isBlock( ::bEditLog ) .and. ::aColumns[ nCol ]:xOldEditValue != xNewEditValue 
       uTemp := ::nCell 
       ::nCell := nCol 
       Eval( ::bEditLog, ::aColumns[ nCol ]:xOldEditValue, xNewEditValue, Self ) 
       ::nCell := uTemp  
    EndIf