* Fixed: Wrong row position of a WHOLEDROPDOWN menu of a ToolButton which 
            was placed into a Vertical PagerBox control. 
            Bug was reported by Natali Almeida. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\CONTAINERS\PAGERBOX) 
   * Fixed: Revised a bitmap cleaning at the exit from a Preview window in 
            a graph printing module at using of the recent xHarbour compiler. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo at folder \samples\Basic\MAINDEMO_(SYNTAX_I)) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            Added the set/get 'Enabled' property for the forms: 
            - ThisWindow|<FormName>.Enabled [ := | --> ] lBoolean 
  
            There are the following add-ons for a TREE control: 
            - added a new command to support a sorting: 
  
              TREESORT ControlName OF ParentName [ ITEM nItem ] ; 
              [ RECURSIVE lRecursive ] [ CASESENSITIVE lCaseSensitive ] ; 
              [ ASCENDINGORDER lAscendingOrder ] [ NODEPOSITION nNodePosition ] 
              (see demo in folder \samples\Advanced\DirTree_2) 
  
            - enhanced Expand/Collapse methods: include recursive clause. 
  
              Sample code: 
              Form_1.Tree_1.Collapse (Form_1.Tree_1.Value, .T.) // Collapse All 
              Form_1.Tree_1.Expand   (Form_1.Tree_1.Value, .T.) // Expand All 
              (see demo in folder \samples\Basic\TreeMenu_2) 
  
            - added the useful functions (and appropriate properties) below: 
              - TreeItemIsTrueNode(); 
              - TreeItemGetNodeFlag(); 
              - TreeItemIsExpand(); 
              - TreeItemGetRootValue(); 
              - TreeItemGetFirstItemValue(). 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - added the new method AppendRow() in TSBrowse class. 
            Contributed by Sergej Kiselev and Igor Nazarov 
            (see demo.prg in folder \samples\Advanced\Tsb_Basic) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.25.1 (from 3.25.0dev). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2018-09-14 15:36): 
            * Updated: OpenSSL wrapper for using of the version 1.0.2p. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'How to create a child form with a modal behavior' sample. 
            Requested by Anand Gupta on HMG forum. 
            Based upon a contribution of HMG user Edward 
            (see in folder \samples\Basic\ChildAsModal) 
   * New: 'Display of different fonts depending on the screen resolution' sample. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Basic\ScreenMode) 
   * New: 'Tree Menu' sample by Andres Gonzalez Lopez. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\TreeMenu_2) 
   * New: 'Tree Sort Directory' sample by Claudio Soto. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\DirTree_2) 
   * New: 'TSBrowse: network opening of the database' samples. 
            Contributed by Igor Nazarov and Verchenko Andrey 
            (see in folder \samples\Advanced\Tsb_Basic) 
   * Updated: 'Tree with the images' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see ImageTree.prg in folder \samples\Basic\IMAGETREE_2) 
   * Updated: 'Directory Tree' sample by Vladimir Chumachenko. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\IMAGETREE_3) 
   * Updated: 'Progress bar using for showing of DBF's processing' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\PROGRESSBAR_3) 
   * Updated: 'Memory File System usage' sample: 
            - added copying of a memory table to a disk file. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\MEMORY_TABLES). 
   * Updated: 'TSBrowse Export data to a XLS/XML file' sample: 
            - fixed class Tsb2Xml2Xls for export of data to XML file. 
            Contributed by Sergej Kiselev 
            (see Tsb4xml.prg in folder \samples\Advanced\Tsb_Brw2xml) 
 

 
 METHOD AppendRow( lUnlock ) CLASS TSBrowse 
  
     LOCAL cAlias, bAddRec, xRet, lAdd := .F., lUps := .F. 
    
     If HB_ISBLOCK( ::bAddBefore )   
        xRet := Eval( ::bAddBefore, Self )   
        If HB_ISLOGICAL(xRet) .and. ! xRet 
           lUps := .T. 
 //          RETURN lAdd 
        EndIf 
     EndIf 
    
     Do case  
        case   lUps 
  
        case ::lIsDbf  
  
             cAlias  := ::cAlias  
             bAddRec := If( !Empty( ::bAddRec ), ::bAddRec, {|| ( cAlias )->( dbAppend() ), ! NetErr() } )  
  
             If Eval( bAddRec, Self )  
 //             SysRefresh()  
 //             ::nLen := ( cAlias )->( Eval( ::bLogicLen ) )  
 //             ::Upstable()  
 //             ::Refresh(.T., .T.)  
                lUps := lAdd := .T.  
             EndIf 
  
        case ::lIsArr  
  
             bAddRec := If( !Empty( ::bAddRec ), ::bAddRec, {|| aAdd(::aArray, AClone( ::aDefValue )  ), .T. } )  
  
             If Eval( bAddRec, Self )   
 //             SysRefresh()  
 //             ::nLen    := Len( ::aArray )  
 //             ::nAt     := ::nLen   
 //             ::nRowPos := ::nRowCount()  
 //             ::Refresh(.T., .T.)  
                lUps := lAdd := .T.  
             EndIf  
  
     end  
    
     If HB_ISBLOCK( ::bAddAfter )   
        Eval( ::bAddAfter, Self, lAdd )   
     EndIf 
  
     If lAdd .and. ::lIsDbf .and. ! empty(lUnlock) 
        ( cAlias )->( dbUnlock() ) 
     EndIf 
  
     If lUps 
  
        If     ::lIsDbf 
           SysRefresh()  
           ::nLen := ( cAlias )->( Eval( ::bLogicLen ) )  
           ::Upstable()  
           ::Refresh(.T., .T.)  
        ElseIf ::lIsArr 
           SysRefresh()  
           ::nLen    := Len( ::aArray )  
           ::nAt     := ::nLen   
           ::nRowPos := ::nRowCount()  
           ::Refresh(.T., .T.)  
        EndIf 
  
     EndIf 
  
     ::SetFocus()  
  
 RETURN lAdd 
 

 
 METHOD AppendRow( lUnlock ) CLASS TSBrowse 
  
     LOCAL cAlias, bAddRec, xRet, lAdd := .F., lUps := .F. 
     LOCAL oClr1 := oKeyData() 
     LOCAL oClr2 := oKeyData() 
     LOCAL lNoGray := ::lNoGrayBar 
    
     If ::lIsDbf  
        cAlias := ::cAlias  
     EndIf 
    
     If HB_ISBLOCK( ::bAddBefore )   
        xRet := Eval( ::bAddBefore, Self )   
        If HB_ISLOGICAL(xRet) .and. ! xRet 
           lUps := .T. 
        EndIf 
     EndIf 
    
     Do case  
        case   lUps 
  
        case ::lIsDbf  
  
             bAddRec := If( !Empty( ::bAddRec ), ::bAddRec, {|| ( cAlias )->( dbAppend() ), ! NetErr() } )  
  
             If Eval( bAddRec, Self )  
                lUps := lAdd := .T.  
             EndIf 
  
        case ::lIsArr  
  
             bAddRec := If( !Empty( ::bAddRec ), ::bAddRec, {|| aAdd(::aArray, AClone( ::aDefValue )  ), .T. } )  
  
             If Eval( bAddRec, Self )   
                lUps := lAdd := .T.  
             EndIf  
  
     end  
    
     If HB_ISBLOCK( ::bAddAfter )   
        Eval( ::bAddAfter, Self, lAdd )   
     EndIf 
  
     If lAdd .and. ::lIsDbf .and. ! empty(lUnlock) 
        ( cAlias )->( dbUnlock() ) 
     EndIf 
  
     If lUps 
  
        If     ::lIsDbf 
  
           SysRefresh()  
           AEval(::aColumns, {|oc,nc| oClr1:Set(nc, { oc:nClrFocuBack, oc:nClrFocuFore }), ; 
                                      oClr2:Set(nc, { oc:nClrSeleBack, oc:nClrSeleFore }), ; 
                                      oc:nClrFocuBack := oc:nClrFore, ; 
                                      oc:nClrFocuFore := oc:nClrBack, ; 
                                      oc:nClrSeleBack := oc:nClrFore, ; 
                                      oc:nClrSeleFore := oc:nClrBack }) 
           ::lNoGrayBar := .T. 
           ::nLen := ( cAlias )->( Eval( ::bLogicLen ) )  
           ::Upstable()  
  
           AEval(::aColumns, {|oc,nc,ac1,ac2| ac1 := oClr1:Get(nc), ac2 := oClr2:Get(nc), ; 
                                              oc:nClrFocuBack := ac1[1], ; 
                                              oc:nClrFocuFore := ac1[2], ; 
                                              oc:nClrSeleBack := ac2[1], ; 
                                              oc:nClrSeleFore := ac2[2] }) 
           ::lNoGrayBar := lNoGray 
           ::Refresh(.T., .T.)  
  
        ElseIf ::lIsArr 
  
           SysRefresh()  
           ::nLen    := Len( ::aArray )  
           ::nAt     := ::nLen   
           ::nRowPos := ::nRowCount()  
           ::Refresh(.T., .T.)  
  
        EndIf 
  
     EndIf 
  
     ::SetFocus()  
  
 RETURN lAdd