METHOD GotoRec( nRec, nRowPos )                                        CLASS TSBrowse 
    LOCAL cAlias 
    LOCAL nSkip := 0  
    LOCAL lMore := .T. 
    LOCAL lSkip := .F. 
    LOCAL lRet  := .F. 
    LOCAL lReCount := .F. 
     
    If ::lIsDbf 
  
       lRet   := .T. 
       cAlias := ::cAlias 
       ::SetFocus() 
       ::nLastPos := (cAlias)->( RecNo() ) 
       hb_default( @nRowPos,  ::nRowPos ) 
       (cAlias)->( dbGoto(nRec) ) 
    
       DO WHILE (cAlias)->( !EOF() ) .and. nSkip < ( ::nRowCount() - nRowPos )  
          (cAlias)->( dbSkip(1) )   
          nSkip ++  
       ENDDO  
  
       If (cAlias)->( EOF() )  
          lReCount := .T.  
          nRowPos  := ::nRowCount() - nSkip + 1 
       EndIf 
    
       (cAlias)->( dbGoto(nRec) )   
       nSkip     := 0 
       ::nRowPos := 1  
  
       DO WHILE lMore 
          (cAlias)->( dbSkip(-1) ) 
          nSkip ++ 
          lMore := !(cAlias)->(BOF()) .and. nSkip < (nRowPos) 
          lSkip := !(cAlias)->(BOF()) 
       ENDDO 
  
       ::Refresh(lReCount, lReCount) 
  
       If lSkip 
 	      ::Skip(nSkip)  
       EndIf 
  
       ::nRowPos := nSkip  
       ::nAt     := ::nLogicPos() 
  
       ::ResetVScroll() 
  
       If ::bChange != Nil 
          Eval( ::bChange, Self, 0 ) 
       EndIf 
  
       ::lHitTop := ::lHitBottom := .F. 
        
       DO EVENTS 
  
    EndIf 
  
 RETURN lRet 
 

 
 STATIC FUNCTION RecnoClone(oBrw, lMsg) 
    LOCAL oRec, nRec, aRec, nCnt := 0 
    LOCAL aClone, lClone := .F., nClone := 0 
    LOCAL cAls := oBrw:cAlias 
    LOCAL oMetka := This.Button_Clone.Cargo 
    LOCAL cMsg := "Clone line (^) and insert record in a database ?" 
  
    If Empty( aClone := oMetka:GetAll(.F.) ) 
       aClone := {{ (cAls)->( RecNo() ), (cAls)->( RecGet() ) }} 
    EndIf 
  
    If !Empty(lMsg) 
       cMsg   := StrTran( cMsg, '^', hb_ntos(Len(aClone)) ) 
       lClone := MsgYesNo( cMsg, "Сonfirmation", .f. ) 
    EndIf 
  
    If ! lClone 
       oBrw:SetFocus() 
       RETURN .F. 
    EndIf 
  
 // oBrw:bAddBefore := {|ob| oRec := (ob:cAlias)->( RecGet() ) }  // все поля 
    oBrw:bAddAfter  := {|ob,ladd| iif( ladd, (ob:cAlias)->( RecPut(oRec) ), ) } // все поля 
  
    FOR EACH aRec IN aClone 
        nCnt ++ 
        If nCnt == 2; LOOP 
        EndIf 
        nRec := aRec[1] 
        oRec := aRec[2] 
        // можно удалить поля (не нужные при clone) или заполнить new значениями  
        // oRec:Del('F1') 
        // oRec:Del('F4') 
        // oRec:Set('F4', .T.) 
        // oRec:Set('F1', Date()) 
        If oBrw:AppendRow(.T.) 
           nClone++ 
           oMetka:Del(nRec)              // убираем метку 
           ? "Clone=", nRec, "==>" , (cAls)->( RecNo() ) 
        EndIf 
    NEXT 
  
    (cAls)->(DbCommit()) 
  
    oBrw:bAddBefore := Nil 
    oBrw:bAddAfter  := Nil 
    oBrw:nCell      := 3    
     
    If nClone != Len(aClone) 
       MsgStop('Selected line (' + hb_ntos(Len(aClone)) + ').' + CRLF + ; 
               'Insert record in a database (' + hb_ntos(nClone) + ')', 'ERROR') 
    EndIf 
  
    oBrw:SetFocus() 
  
   RETURN .T. 
 

  * Fixed: Wrong row position of a WHOLEDROPDOWN menu of a ToolButton which 
            was placed into a HORIZONTAL SplitBox control. 
            Bug was reported by Natali Almeida. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Fixed: Missed a TabPage's hotkeys management in the functions _AddTabPage() 
            and _DeleteTabPage() in a TAB control. 
            It exists in the official version too. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\Tab) 
   * Fixed: Problem with a ToolButton's hotkey assigning after a changing of 
            the ToolButton 'Caption' property at runtime. 
            It exists in the official version too. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo1.prg in folder \samples\Basic\CONTAINERS\TOOLBAR) 
   * Enhanced: Added the set/get 'Visible' property for the forms: 
            - ThisWindow|<FormName>.Visible [ := | --> ] lBoolean 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\NOTIFYICON) 
   * Modified: The new Harbour function __mvGetDef() was used instead of the 
            combination of the __mvExist()/__mvGet() in the MiniGUI core. 
            Note: It is required a latest Harbour version for a correct work. 
            The compatibility with xHarbour compiler and Harbour version 3.4 is 
            provided. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Modified: The function WaitWindow() was improved for masking of a hidden 
            border on form's top at Windows 10. 
            Problem was reported by Pierpaolo Martinello. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\WAIT_WINDOW) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - New: Draw GRAPH in Bitmap is based upon the BosTaurus library. 
            Added the new command GRAPH BITMAP for PIE|BARS|LINES|POINTS graph. 
            An algorithm of 'Graph Bitmap' was updated for compatibility with a 
            graphic module in the MiniGUI core. 
            Note: It is highly recommended to use Graph Bitmap instead of Graph 
            Command because the painting is much more efficient and does not  
            produce a flicker. 
            Based upon a contribution of S. Rathinagiri <srgiri/at/dataone.in>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\BTGraph) 
            - New: Added an alternative syntax for the following controls: 
              - SplitBox; 
              - Tab; 
              - Tree. 
            (see into the appropriate header's files) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - added the new method FilterData( cFilter, lFocus ) in the TSBrowse 
              class. Contributed by Sergej Kiselev 
              (see demo in folder \samples\Advanced\Tsb_ListBox) 
            - modified the method GotoRec( nRec [, nRowPos ] ) in the TSBrowse 
              class. Contributed by Igor Nazarov 
              (see demo in folder \samples\Advanced\Tsb_GotoRec)