Было: 
      _DoWindowEventProcedure ( _HMG_aFormGotFocusProcedure  , i , 'WINDOW_GOTFOCUS' ) 
     iif ( _HMG_aFormFocusedControl  != 0 , setfocus ( _HMG_aFormFocusedControl  ) , Nil ) 
  
 Стало: 
          IF  _HMG_IsModalActive 
 	      BringWindowToTop(_HMG_ActiveModalHandle) 
 	 ELSE 
 	      iif ( _HMG_aFormFocusedControl  != 0 , setfocus ( _HMG_aFormFocusedControl  ) , Nil ) 
 	 END 
 

 
          if  _HMG_IsModalActive 
 	      BringWindowToTop(_HMG_ActiveModalHandle) 
               if _HMG_aFormFocusedControl  <> _HMG_ActiveModalHandle .and. _HMG_aFormType [ i ] <> "M" 
 		 FlashWindowEx( _HMG_ActiveModalHandle , 1, 5, 100 ) 
   	      end	 
 	 else 
 	      iif ( _HMG_aFormFocusedControl  != 0 , setfocus ( _HMG_aFormFocusedControl  ) , Nil ) 
 	 end 
  
 

 
 METHOD GoToRec( nRec ) CLASS TSBrowse  
 ... 
      ( ::cAlias )->( DbGoto( nRec ) )  
  
 //     If nRecNo != ( ::cAlias )->( RecNo() ) .and. ::nLen > nLines   было  
  
      If ::nLen > nLines    
         
           nRecNo := ( ::cAlias )->( RecNo() )  
          ( ::cAlias )->( DbSkip( nLines - ::nRowPos ) )  
  
          If ( ::cAlias )->( EoF() )  
 ... 
          Else  
             ( ::cAlias )->( DbGoTo( nRecNo ) )  
             ::nLastPos := nRecNo  
             ::nAt      := ::nLogicPos()  
          EndIf  
 ... 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
  
 FIELD id, info 
 *----------------------------------- 
 PROCEDURE Main 
 *----------------------------------- 
    LOCAL i, obrw 
  
    IF !hb_FileExists( "datab.dbf" ) 
       dbCreate( "datab", { { "ID", "N", 5, 0 }, { "INFO", "C", 15, 0 } } ) 
    ENDIF 
  
    USE datab ALIAS base NEW 
    INDEX ON id TO datab temporary 
  
    IF LastRec() == 0 
       FOR i := 1 TO 200 
          APPEND BLANK 
          REPLACE id WITH RecNo(), info WITH "record " + hb_ntos( RecNo(), 4 ) 
       NEXT 
    ENDIF 
  
    DEFINE WINDOW win_1 AT 0, 0 WIDTH 400 HEIGHT 500 ; 
       MAIN TITLE "TSBrowse Add Record Demo" NOMAXIMIZE NOSIZE 
  
       @06,  10 BUTTON BRUN CAPTION "Add Record"  ACTION AddRecord( obrw )  
       @06, 110 BUTTON BFND CAPTION "Find ID 100" ACTION FindRecord( obrw )  
  
       DEFINE STATUSBAR FONT _HMG_DefaultFontName SIZE _HMG_DefaultFontSize 
          STATUSITEM "" 
       END STATUSBAR 
  
       DEFINE TBROWSE obrw AT 40, 10 GRID ALIAS "base" ; 
          WIDTH 370 HEIGHT 418 - 60 
  
       ADD COLUMN TO obrw HEADER "ID" ; 
          SIZE 100 ; 
          DATA FieldWBlock( "id", Select( "base" ) ) ; 
          TOOLTIP "My column 1" 
  
       ADD COLUMN TO obrw HEADER "INFO" ; 
          SIZE 150 ; 
          DATA FieldWBlock( "info", Select( "base" ) ) ; 
          TOOLTIP "My column 2" 
  
       obrw:cToolTip   := "My all columns TsBrowse tooltip" 
       obrw:lNoHScroll := .T. 
       obrw:SetColor( { 2 }, { {|| iif( base->( ordKeyNo() ) % 2 == 0, RGB( 255, 255, 255 ), RGB( 230, 230, 230 ) ) } } ) 
  
       END TBROWSE 
  
       obrw:SetFocus() 
  
    END WINDOW 
  
    CENTER WINDOW win_1 
    ACTIVATE WINDOW win_1 
  
 RETURN 
  
 *----------------------------------- 
 PROCEDURE AddRecord( obrw ) 
 *----------------------------------- 
    APPEND BLANK 
    REPLACE id WITH RecNo(), info WITH "record " + hb_ntos( RecNo(), 4 ) 
  
    obrw:GoToRec( base->( RecNo() ) ) 
    obrw:SetFocus() 
  
 RETURN 
  
 FUNC FindRecord( obrw ) 
  
  SEEK 100 
  
  obrw:GotoRec(RecNo()) 
  obrw:SetFocus() 
  
 RETURN 
 

 
 //H_EVENTS.PRG 
          _DoWindowEventProcedure ( _HMG_aFormGotFocusProcedure  , i , 'WINDOW_GOTFOCUS' ) 
  
          IF  _HMG_IsModalActive 
 	      BringWindowToTop(_HMG_ActiveModalHandle) 
               if _HMG_aFormFocusedControl  <> _HMG_ActiveModalHandle .and. _HMG_aFormType [ i ] <> "M"  // Это нужно чтоб при вызове  из модального окна  - другого 
 		FlashWindowEx( _HMG_ActiveModalHandle , 1, 6, 50 )                                                           // модального , старое не мограло  
   	      end	  
 	 ELSE 
 	      iif ( _HMG_aFormFocusedControl  != 0 , setfocus ( _HMG_aFormFocusedControl  ) , Nil ) 
 	 END 
 

 
 #include "minigui.ch" 
  
 Function Main 
  
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 640 HEIGHT 480 ; 
 		TITLE 'MiniGUI Main' ; 
 		MAIN ; 
 		ON INIT Child()  
  
  
 	END WINDOW 
  
 	Form_1.Activate 
  
 Return Nil 
  
  
 Func Child() 
 	Form_1.Hide 
 	DEFINE WINDOW Form_2 ; 
 		AT 100,100 ; 
 		WIDTH 640 HEIGHT 480 ; 
 		TITLE 'MiniGUI Standard' ; 
 		WINDOWTYPE STANDARD   ; 
 		ON INIT Modal()  
  
 	END WINDOW 
 	 
 	Form_2.Activate 
 	Form_1.Show 
  
 return nil 
  
  
 Func Modal() 
 	DEFINE WINDOW Form_3 ; 
 		AT 200,200 ; 
 		WIDTH 640 HEIGHT 480 ; 
 		TITLE 'MiniGUI Modal' ; 
 		MODAL  
  
 	END WINDOW 
 	Form_3.Activate 
 return nil 
 

... 
          IF _HMG_IsModalActive 
             BringWindowToTop ( _HMG_ActiveModalHandle ) 
             IF iswinnt() .AND. ( _HMG_aFormType  != 'M' .OR. ; 
                _HMG_aFormFocused  == .T. .AND. _HMG_aFormType [ AScan ( _HMG_aFormHandles, _HMG_aFormParentHandle  ) ] == 'M' ) 
                // Form's caption blinking 
                FlashWindowEx ( _HMG_ActiveModalHandle , 1 , 5 , 60 ) 
             ELSE 
                _HMG_aFormFocused  := .T. 
             ENDIF 
          ENDIF 
  
          IF _HMG_aFormFocusedControl  != 0 
             setfocus ( _HMG_aFormFocusedControl  ) 
          ENDIF 
 

 
         IF  iswinnt() .AND. ( _HMG_aFormType  != 'M' .OR. ;  
             _HMG_aFormFocused  == .T. .AND. _HMG_aFormType [ AScan ( _HMG_aFormHandles, _HMG_aFormParentHandle  ) ] == 'M' )  
 

 
         if iswinnt() .AND. _HMG_aFormFocusedControl  <> _HMG_ActiveModalHandle  .and. _HMG_aFormType [ i ] <> "M" 
 

... 
          _DoWindowEventProcedure ( _HMG_aFormGotFocusProcedure [ i ] , i , 'WINDOW_GOTFOCUS' ) 
  
          IF _HMG_IsModalActive .AND. Empty ( _HMG_InplaceParentHandle ) 
             BringWindowToTop ( _HMG_ActiveModalHandle ) 
             IF iswinnt() .AND. _HMG_aFormType [ i ] != 'M' 
                // Form's caption blinking 
                FlashWindowEx ( _HMG_ActiveModalHandle , 1 , 5 , 60 ) 
             ENDIF 
          ENDIF 
 ...