oBrw:SetNoHoles() // убрать дырку внизу таблицы

 
    END WINDOW 
  
    br_f:SetNoHoles(3) 
    br_zaw:SetNoHoles(3) 
  
    br_f:enabled(.f.) 
 

 
 METHOD SetNoHoles( nDelta, lSet ) CLASS TSBrowse 
  
    LOCAL nH, nK, nHeight, nHole 
  
    DEFAULT nDelta := 2, lSet := .T. 
 ... 
 

     // создать 1-ю колонку  
      ADD COLUMN TO oBrw2 HEADER "Номер"+CRLF+"графы" ; 
          DATA FieldWBlock( "ID", Select() ) ; 
          SIZE nWidth1 PICTURE "@Z 999" ; 
          ALIGN DT_CENTER,DT_CENTER,DT_CENTER      
      // создать 2-ю колонку  
      ADD COLUMN TO oBrw2 HEADER "Наименование"+CRLF+"графы в карточке" ; 
          DATA FieldWBlock( "FHEADER", Select() ) ; 
          SIZE nWidth2 ; 
          ALIGN DT_LEFT,DT_CENTER,DT_LEFT     
      // создать 3-ю колонку  
      ADD COLUMN TO oBrw2 HEADER "Печать"+CRLF+"в таблице" ; 
          DATA FieldWBlock( "VIEW", Select() ) ; 
          SIZE nWidth3 ; 
          CHECKBOX                    ;      // Editing with Check Box 
          ALIGN DT_CENTER, DT_CENTER  ;       
          EDITABLE MOVE DT_MOVE_DOWN 
          oBrw2:aColumns[3]:bPrevEdit := {|| CheckField(), TRUE }  // проверка до ввода 
 .... 
    // --------- заменяем колонку CHECKBOX на свои картинки --------- 
    oBrw2:aCheck   := { LoadImage("CheckT28"), LoadImage("CheckF28") } 
 ....

 ADD COLUMN TO oBrw2 HEADER "Печать"+CRLF+"в таблице" ;  
           DATA FieldWBlock( "VIEW", Select() ) ; 

 
    LOCAL hImgTrue := LoadImage("CheckT28"), hImgFalse := LoadImage("CheckF28") 
    ..... 
    // создать 3-ю колонку  
    ADD COLUMN TO oBrw2 HEADER "Печать"+CRLF+"в таблице" ; 
        DATA FieldWBlock( "VIEW", Select() ) ;  // эту строку наверное можно выкинуть ?    
        SIZE nWidth3                                   ; 
        NAME VIEW BITMAP                          ; 
        ALIGN DT_CENTER, DT_CENTER         ;       
        EDITABLE MOVE DT_MOVE_DOWN 
        oBrw2:aColumns[3]:bPrevEdit:= {|| CheckField(), FALSE }  // проверка до ввода 
        oBrw2:aColumns[3]:uBmpCell := {|| IF( (oBrw2:cAlias)->ID == 0, '' , IF( (oBrw2:cAlias)->VIEW , hImgTrue, hImgFalse ) ) } 
        oBrw2:aColumns[3]:bData    :=  {||Nil} 
        oBrw2:aColumns[3]:cData    := '{||Nil}' 
        oBrw2:aColumns[3]:nAlign  := nMakeLong( DT_CENTER, DT_CENTER )

 
 STATIC FUNCTION CreateDatos() 
 ... 
    FOR i := 1 TO k 
       aDatos[ i ] := { " ", ;                         // 1 
          i, ;                                         // 2 
          ntoc( i ) + CRLF + "_123", ;                        // 3 
          Date() + i, ;                                // 4 
 ... 
 

* ============================================================================ 
 * FUNCTION BiffRec() Version 9.0 Nov/01/2009 
 * Excel BIFF record wrappers (Biff2) 
 * ============================================================================ 
  
 Function BiffRec( nOpCode, uData, nRow, nCol, lBorder, nAlign, nPic, nFont ) 
 ....

 
 DEFHEIGHT.DEF_ROWHEIGHT_RECORD 
     DEFHEIGHT\opcode = 37 
     DEFHEIGHT\length = 2 
 

 
       Case nOpCode == 37 // DEF_ROWHEIGHT_RECORD record 
          Default nCol := nRow 
          cHead := I2Bin( 37 ) + ;       // opCode 
                   I2Bin( 2 )                   // body length 
          cBody := I2BIN( uData )   
  
 

 
    FWrite( nHandle, BiffRec( 66, GetACP() ) ) 
    FWrite( nHandle, BiffRec( 12 ) ) 
    FWrite( nHandle, BiffRec( 13 ) ) 
    FWrite( nHandle, BiffRec( 37 , ::nHeightCell * 20)  )     
 

 
    В :Excel2() после этого 
  
    FWrite( nHandle, BiffRec( 66, GetACP() ) ) 
    FWrite( nHandle, BiffRec( 12 ) ) 
    FWrite( nHandle, BiffRec( 13 ) ) 
    Следующую строку убираем ( если кто то ужк успел  ее суда добавить ) 
 //   FWrite( nHandle, BiffRec( 37 , ::nHeightCell * 15)  )   
  
  
  
     После этого ... 
     If ! Empty( cTitle ) 
          cTitle := StrTran( cTitle, CRLF, Chr( 10 ) ) 
          nAlign := If( Chr( 10 ) $ cTitle, 5, 1 ) 
          FWrite( nHandle, BiffRec( 4, cTitle, 0, 0,, nAlign ) ) 
          nLine := 3 
     EndIf 
        
     Добавляем это  
     FWrite( nHandle, BiffRec( 37 , ::nHeightHead * 15)  )   
  
  
  
     А После этого ... 
     If bPrintRow != Nil .and. ! Eval( bPrintRow, nRow ) 
        ::Skip( 1 ) 
        Loop 
     EndIf 
  
     Добавляем это  
     If nRow == 2 
        FWrite( nHandle, BiffRec( 37 , ::nHeightCell * 15)  )   
     END 
 

 
  __objAddData  (oBrw, 'hPic1'    ) 
  oBrw:hPic1:=  LoadImage("PICTURE1") 
  
  и 
  
  oBrw:GetColumn( 'COL1'):aCheck  := {oBrw:hPic1, nil } 
 

 
    If ::aSortBmp != Nil 
       DeleteObject ( ::aSortBmp[ 1 ] ) 
       DeleteObject ( ::aSortBmp[ 2 ] ) 
    EndIf 
  
    If ::aCheck != Nil 
       DeleteObject ( ::aCheck[ 1 ] ) 
       DeleteObject ( ::aCheck[ 2 ] ) 
    EndIf 
  
    If Len( ::aColumns ) > 0 
       For i := 1 To Len( ::aColumns ) 
          If Valtype( ::aColumns[ i ]:aCheck ) == "A" 
             AEval( ::aColumns[ i ]:aCheck, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
          EndIf 
          If Valtype( ::aColumns[ i ]:aBitMaps ) == "A" 
             AEval( ::aColumns[ i ]:aBitMaps, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
          EndIf 
       Next 
    EndIf 
 

 
        oBrw:GetColumn("FLD1"):aCheck := { LoadImage(".\RES\Print32.png"), NIL } 
        oBrw:GetColumn("FLD2"):aCheck := { LoadImage(".\RES\Save32.png" ), NIL } 
        oBrw:GetColumn("FLD3"):aCheck := { LoadImage(".\RES\Mail32.png" ), NIL } 
        oBrw:GetColumn("FLD4"):aCheck := { LoadImage(".\RES\check1.bmp" ),  ; 
                                           LoadImage(".\RES\check0.bmp") } 
  
        oBrw:GetColumn("FLD6"):lBitMap  := .T. 
        oBrw:GetColumn("FLD6"):aBitMaps := { LoadImage(".\RES\edit_delete.bmp" ), ; 
                                             LoadImage(".\RES\edit_cancel.bmp" ) } 
 ... 
        oBrw:GetColumn("FLD7"):lBitMap  := .T. 
        oBrw:aBitMaps := { LoadImage(".\RES\flag_bel.bmp"), ; 
                           LoadImage(".\RES\flag_en.bmp" ), ; 
                           LoadImage(".\RES\flag_kaz.bmp"), ; 
                           LoadImage(".\RES\flag_ru.bmp" ), ; 
                           LoadImage(".\RES\flag_ua.bmp" ) } 
 

 
 ...   
     If Len( ::aColumns ) > 0  
        For i := 1 To Len( ::aColumns )  
           If Valtype( ::aColumns[ i ]:aCheck ) == "A"  
              AEval( ::aColumns[ i ]:aCheck, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } )  
           EndIf  
           If Valtype( ::aColumns[ i ]:aBitMaps ) == "A"  
              AEval( ::aColumns[ i ]:aBitMaps, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } )  
           EndIf  
        Next  
     EndIf  
  
  
    If Valtype(::aBitMaps) == "A" 
       AEval(::aBitMaps, {|hBmp| If( empty(hBmp), , DeleteObject(hBmp) ) }) 
    EndIf 
 ... 
 

 
     FUNC Brw2xml( oBrw, cFile, lActivate, hProgress, cTitle )  нужно как сейчас в библиотеке: 
     Excel2( cFile, lActivate, hProgress, aTitle, lSave, bPrintRow ), где aTitle := { cTitle, hFont }  // титул со своим фонтом 
 из-за этого я и сделал похожую функцию: 
     Excel3Xml( oBrw, cFile, lActivate, aTitle, lSave ), где aTitle := { cTitle, hFont }  // титул со своим фонтом

 
    XmlSetDefault( oBrw ) 
    // Можно значения по умолчанию переопределять 
    oBrw:aColumns[6]:XML_Format := "00\:00\:00"  
    oBrw:aColumns[9]:XML_Format := "0.00_ ;[Red]\-0.00\ " 
    
    Brw2Xml(oBrw, "TEST.XML", .T.,, aTitle) 
    XmlReSetDefault( oBrw ) 
  
  
 

 
 вместо этого     oStyle:bgColor( '#' + NToC(oBrw:nClrSpcHdBack, 16) )  
 вот это             oStyle:bgColor( '#' + NToC(CLR_GREEN, 16) )  
  
 

   XmlSetDefault( oBrw ) 
    // Можно значения по умолчанию переопределять 
    oBrw:aColumns[6]:XML_Format := "00\:00\:00"  
    oBrw:aColumns[9]:XML_Format := "0.00_ ;[Red]\-0.00\ "    
  
    Brw2Xml(oBrw, "TEST.XML", .T.,, aTitle)  // экспорт в Excel 
    XmlReSetDefault( oBrw )

      For nCol := 1 To Len( oBrw:aColumns ) 
          uData  := Eval( oBrw:aColumns[ nCol ]:bData ) 
          cType := ValType( uData )

 
          nBackColor := oBrw:aColumns[ nCol ]:nClrBack          
          oStyle:bgColor( '#' + NToC(nBackColor, 16) )  // Excel > 2003 

 
           nBackColor := oBrw:aColumns[ nCol ]:nClrBack  
           If Valtype( nBackColor ) == "B" 
              Eval( nBackColor, oBrw:nAt, nCol, oBrw ) 
           EndIf  
           oStyle:bgColor( '#' + NToC(nBackColor, 16) )  // Excel > 2003  
 

 
       For nCol := 1 To Len( oBrw:aColumns ) 
          uData  := Eval( oBrw:aColumns[ nCol ]:bData ) 
          cType := ValType( uData ) 
  
          nBackColor := oBrw:aColumns[ nCol ]:nClrBack   
          If Valtype( nBackColor ) == "B"  
             nBackColor := Eval( nBackColor, oBrw:nAt, nCol, oBrw )  
          EndIf   
          //? nLine, nCol, nBackColor, "== 12632256", CLR_HGRAY 
          oStyle:bgColor( '#' + NToC(nBackColor, 16) )   
  
          switch cType

   While  nLine <= nLen 
       oSheet:cellHeight( nRow, 1, oBrw:nHeightCell / 1.3 ) 
        
       For nCol := 1 To Len( oBrw:aColumns ) 
          uData  := Eval( oBrw:aColumns[ nCol ]:bData ) 
          cType := ValType( uData ) 
  
          nBackColor := oBrw:aColumns[ nCol ]:nClrBack   
          If Valtype( nBackColor ) == "B"  
             nBackColor := Eval( nBackColor, oBrw:nAt, nCol, oBrw )  
          EndIf   
          //? nLine, nCol, nBackColor, "== 12632256" 
          oStyle:bgColor( '#' + NToC(nBackColor, 16) )   
  
          switch cType

 
        MENUITEM  'color table white         '    ACTION nTsbColor := 1 FONT Font1 
        MENUITEM  'color table gray          '    ACTION nTsbColor := 2 FONT Font1 
        MENUITEM  'color of the table "ruler"'    ACTION nTsbColor := 3 FONT Font1 
        MENUITEM  'color of the table "columns"'  ACTION nTsbColor := 4 FONT Font1 
        MENUITEM  'color of the table "chess"'    ACTION nTsbColor := 5 FONT Font1

Function BiffRec( nOpCode, uData, nRow, nCol, lBorder, nAlign, nPic, nFont )

   lSave := .T. 
    cPath    := GetStartUpFolder() + "\"   // путь записи файла 
    cMaska   := "A14_ДолгСальдо"           // шаблон файла 
    cXlsFile := cPath + cMaska + "_" + DTOC( DATE() ) + "_" 
    cXlsFile += SUBSTR( CharRepl( ":", TIME(), "-" ), 1, 5 ) + ".xls"

   If ! Empty( cXlsFile ) 
       //cXlsFile := AllTrim( StrTran( Upper( cXlsFile ), ".XLS" ) )  поставил // 
    EndIf

   oBrw:ExcelOle( cXlsFile, lActivate, hProgress, cTitle, hFont, lSave, bExtern, aColSel, bPrintRow ) 
    cXlsFile              // имя файла 
    lActivate := .T.   // открыть Excel 
    hProgress := nil   // хенд для ProgressBar 
    lSave     := .T.   // сохранить файл 
    bExtern   := nil   //  ? 
    aColSel   := nil   //  ? 
    bPrintRow := nil   //  ?

   oBrw:nAdjColumn  := 2    // stretch column 2 to fill the voids in the right Tbrowse

   // repartition column 2 (1 + 1 -SELECTOR) - otherwise buggy  
    oBrw:bInit := {|| oBrw:SetColSize( 2, nWidthFirstColumn )} 
 .... 
 ////////////////////////////////////////////////////////////////// 
 FUNCTION ResizeBrowse() 
 .... 
 Eval(oBrw:bInit) // read the second column of the table 
 ... 

 
        :AdjColumns({3, 4, 5})   // или  :AdjColumns()  
    
        END TBROWSE  
    
        oRpt:SetNoHoles()

 oBrw:HideColumns( {10} ,.t.)   // скрыть колонки 

 
 METHOD AdjColumns( aColumns, nDelta ) CLASS TSBrowse 
 ... 
    LOCAL nVisible := 0, aVisible := {} 
 ... 
    AEval( ::aColumns, {|oc| nVisible += iif( oc:lVisible, oc:nWidth, 0 ) }) 
    AEval(   aCol    , {|nc| iif( obr:aColumns[ nc ]:lVisible, AAdd(aVisible, nc), Nil ) }) 
  
    k := Len(aVisible) 
 ... 
       For i := 1 To k 
           c := aVisible[ i ] 
 ... 
 

 
       :lLockFreeze  := .T.      // избегать прорисовки курсора на замороженных столбцах 
  
       :AdjColumns() // растяжка колонок до размера тсб по ширине 
 ... 
      :GetColumn("Name_8"):lEdit := .T. 
  
      :HideColumns( {10} ,.t.)   // скрыть колонки 
  
       TsbColor( oBrw )  // задание цветов таблицы 
 ... 
 т.е. сначала разместили по ширине колонки, потом скрыли. ЗАМЕЧАТЕЛЬНО    
 Убрал в самый низ 
 ... 
       :AdjColumns() // растяжка колонок до размера тсб по ширине 
  
    END WITH  // oBrw объект снят 
 сработало как надо.