* New: Added the new functions for Windows GDI objects memory release. 
            It will activate the GDI objects recording and call CheckRes() 
            to generate the checkres.txt log file on the application quit. 
            The above logfile will report the following unreleased objects: 
            - BITMAP handles; 
            - BRUSH handles; 
            - CURSOR handles; 
            - FONT handles; 
            - ICON handles; 
            - IMAGELIST handles; 
            - REGION handles. 
            Note: This feature will work after setting of debugging mode 
            via the Harbour command Set( _SET_DEBUG, .T. ) or AltD( 1 ). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\Grid_5) 
   * Fixed: Detected resource leakage of GDI objects at the release of the 
            Main form with usage of the new MiniGUI Resources control system. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Fixed: TREE: There is a blurring of the picture in some cases. 
            Bug was reported by Eladio Bravo <eladibravo/at/gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\DirTree_2) 
   * Updated: Revised a hot mouse tracking in the ButtonEx control. 
            Problem was reported by Gilbert Vaillancourt. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see menulist_2.prg in folder \samples\Advanced\MenuList) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - New: COMBOBOXEX supports the optional clause NOTRANSPARENT; 
            - New: IMAGE CHECKBUTTON supports the optional clause NOTRANSPARENT; 
            - New: TAB control supports the optional clause NOTRANSPARENT; 
            - New: TREE control supports the optional clause NOTRANSPARENT. 
            Based upon a contribution of Claudio Soto <srvet/at/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 variable :lFastDraw in the TSBrowse class; 
            - correction of a filling of :aRowPosAtRec auxiliary array 
              in the methods GoUp() and GoDown(). 
            Suggested and contributed by Sergej Kiselev. 
            - updated class TCursor has been used for creating of the STOP 
              cursor in the method MouseMove(). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.34.0dev (from 3.33.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: 'How to add a skin for a Grid control' sample: 
            - fixed a resource leakage with usage of the Minigui Resources 
              control system. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\Grid_5) 
   * Updated: 'TBrowse in the MDI environment' sample: 
            - added a memo field editing in the Card edit mode. 
            Contributed by Sergej Kiselev 
            (see in folder \samples\Advanced\Tsb_DemoMDI) 
 

 
 METHOD SetDbf( cAlias ) CLASS TSBrowse 
 	Local cAdsKeyNo, cAdsKeyCount, nTags, nEle 
  
 	Default ::cAlias := cAlias 
 	Default ::cAlias := Alias() 
  
 	If Empty( ::cAlias ) 
 		Return Nil 
 	EndIf 
  
 	cAlias := ::cAlias 
 	::cDriver := ( ::cAlias )->( RddName() ) 
  
 	Default ::bGoTop	 := {|| ( cAlias )->( DbGoTop() ) }, ; 
 			  ::bGoBottom := {|| ( cAlias )->( DbGoBottom() ) }, ; 
 			  ::bSkip	  := {| n | iif( n == Nil, n := 1, Nil ), ::DbSkipper( n ) }, ; 
 			  ::bBof		:= {|| ( cAlias )->( Bof() ) }, ; 
 			  ::bEof		:= {|| ( cAlias )->( Eof() ) } 
  
 	If "ADS" $ ::cDriver 
 		cAdsKeyNo := "{| n, oBrw | iif( n == Nil, Round( " + cAlias + "->( ADSGetRelKeyPos() ) * oBrw:nLen, 0 ), " + ; 
 								 cAlias + "->( ADSSetRelKeyPos( n / oBrw:nLen ) ) ) }" 
  
 		cAdsKeyCount := "{|cTag| " + cAlias + "->( ADSKeyCount(cTag,, 1 ) ) }" 
  
 		Default ::bKeyNo	 := &cAdsKeyNo , ; 
 				  ::bKeyCount := &cAdsKeyCount, ; 
 				  ::bLogicLen := &cAdsKeyCount, ; 
 				  ::bTagOrder := {|uTag| ( cAlias )->( OrdSetFocus( uTag ) ) }, ; 
 				  ::bGoToPos  := {|n| Eval( ::bKeyNo, n, Self ) } 
 	Else 
 		Default ::bKeyNo	 := {| n | ( cAlias )->( iif( n == Nil, iif( IndexOrd() > 0, OrdKeyNo(), RecNo() ), ; 
 										iif( IndexOrd() > 0, OrdKeyGoto( n ), DbGoTo( n ) ) ) ) }, ; 
 				  ::bKeyCount := {|| ( cAlias )->( iif( IndexOrd() > 0, OrdKeyCount(), LastRec() ) ) }, ; 
 				  ::bLogicLen := {|| ( cAlias )->( iif(  IndexOrd() == 0, LastRec(), OrdKeyCount() ) ) }, ; 
 				  ::bTagOrder := {|uTag| ( cAlias )->( OrdSetFocus( uTag ) ) }, ; 
 				  ::bGoToPos  := {|n| Eval( ::bKeyNo, n ) } 
 	EndIf 
  
 	nTags := ( cAlias )->( OrdCount() ) 
 	::aTags := {} 
  
 	For nEle := 1 To nTags 
 		AAdd( ::aTags, { ( cAlias )->( OrdName( nEle ) ), ( cAlias )->( OrdKey( nEle ) ) } ) 
 	Next 
 	if "SQL" $ ::cDriver 
 		Eval( ::bGoToPos, 100 ) 
 		::bGoBottom := {|| CursorWait(), ( cAlias )->( DbGoBottom() ), CursorArrow() } 
 		::bRecLock  := {|| .t. } 
 	endif 
  
 	::nLen := Eval( ::bLogicLen ) 
 	::ResetVScroll( .T. ) 
  
 Return Self