В :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 
 ...