*-----------------------------------------------------------------------------* 
 Procedure _BrowseUp ( ControlName , ParentForm , z ) 
 *-----------------------------------------------------------------------------* 
    Local i , s  , _Alias , _RecNo , _BrowseArea , _BrowseRecMap , _DeltaScroll  
    LOCAL hBrowse, nLine    
  
    i := Iif( pcount() == 2 , GetControlIndex ( ControlName , ParentForm ) , z ) 
  
    hBrowse       := _HMG_aControlhandles 
  
    _DeltaScroll  := ListView_GetSubItemRect ( hBrowse, 0 , 0 ) 
  
    _BrowseRecMap := _HMG_aControlRangeMax  
  
    nLine := ListView_GetFirstItem( hBrowse ) 
  
    If nLine == 1 
  
       _Alias      := Alias() 
       _BrowseArea := _HMG_aControlSpacing  
  
       If Select (_BrowseArea) == 0 
          Return 
       EndIf 
  
       Select &_BrowseArea 
  
       _RecNo := RecNo() 
       Go _BrowseRecMap [1] 
       Skip -1 
  
       IF ! _BrowseRecMap [1]==RecNo()   // BAA 18-Мар-2012 10:09:03 Что бы не дергалось 
  
          _BrowseVscrollUpdate( i ) 
          _BrowseUpdate( '', '', i ) 
          ListView_Scroll( hBrowse, _DeltaScroll[2] * (-1) , 0 ) 
  
       ENDIF  
  
       Go _RecNo 
       if Select( _Alias ) != 0 
          Select &_Alias 
       Else 
          Select 0 
       Endif 
  
       ListView_SetCursel ( hBrowse, 1 ) 
      
       _BrowseOnChange (i) 
  
       Return 
    ENDIF 
  
    // BAA 15-Апр-2012 18:42:48 
  
    IF _HMG_ActiveDlgProcHandle == 0 .AND. _HMG_ActiveMDIChildIndex < 1 
  
       ListView_SetCursel( hBrowse, nLine - 1 ) 
       _BrowseOnChange (i) 
  
       Return 
   
    ENDIF 
  
    IF  _HMG_ActiveMDIChildIndex > 0  
  
       ListView_SetCursel ( hBrowse, nLine - 1 ) 
       _BrowseVscrollFastUpdate ( i , -1 )  
       _BrowseOnChange (i) 
       ListView_SetCursel ( hBrowse, nLine )  
  
    ELSE 
       _BrowseOnChange (i)   
    ENDIF 
  
 Return 
  
 *-----------------------------------------------------------------------------* 
 Procedure _BrowseDown ( ControlName , ParentForm , z ) 
 *-----------------------------------------------------------------------------* 
    Local i , PageLength , s , _Alias , _RecNo , _BrowseArea , _BrowseRecMap , _DeltaScroll 
    LOCAL hBrowse, nLine 
  
    i := Iif( pcount() == 2 , GetControlIndex ( ControlName , ParentForm ) , z ) 
  
    hBrowse       := _HMG_aControlhandles 
  
    _DeltaScroll  := ListView_GetSubItemRect ( hBrowse, 0 , 0 ) 
  
    _BrowseRecMap := _HMG_aControlRangeMax  
  
    nLine         := ListView_GetFirstItem( hBrowse ) 
  
    PageLength    := ListViewGetCountPerPage( hBrowse ) 
    _BrowseArea   := _HMG_aControlSpacing  
  
    If nLine == PageLength 
  
       if _HMG_aControlContainerHandle  != 0 
          Return 
       EndIf 
  
       _Alias      := Alias() 
  
       If Select (_BrowseArea) == 0 
          Return 
       EndIf 
  
       Select &_BrowseArea 
       _RecNo := RecNo() 
  
       Go _BrowseRecMap [1] 
       Skip 
  
       _BrowseUpdate( '', '', i ) 
       _BrowseVscrollUpdate( i ) 
  
       ListView_Scroll( hBrowse, _DeltaScroll[2] * (-1) , 0 ) 
  
       Go _RecNo 
  
       if Select( _Alias ) != 0 
          Select &_Alias 
       Else 
          Select 0 
       Endif 
  
       ListView_SetCursel ( hBrowse, Len(_HMG_aControlRangeMax ) ) 
         
       _BrowseOnChange (i) 
       
       Return   
    ENDIF  
  
    // BAA 15-Апр-2012 18:42:48 
  
    IF _HMG_ActiveDlgProcHandle == 0  .AND. _HMG_ActiveMDIChildIndex < 1 
  
       ListView_SetCursel ( hBrowse, nLine + 1 ) 
  
       _BrowseVscrollFastUpdate ( i , 1 ) 
  
       _BrowseOnChange (i) 
  
       Return    
    ENDIF 
  
    IF _HMG_ActiveMDIChildIndex > 0 
       ListView_SetCursel ( hBrowse, nLine+1 ) 
       _BrowseVscrollFastUpdate ( i , 1 )  
       _BrowseOnChange (i) 
       ListView_SetCursel ( hBrowse, nLine ) 
    ELSE 
       _BrowseOnChange (i) 
    ENDIF 
  
 Return 
 

 
 h_hotkey.prg 
 ======== 
 ... 
 *-----------------------------------------------------------------------------* 
 FUNCTION _DetermineKey( cKey ) 
 *-----------------------------------------------------------------------------* 
 ... 
    IF valtype(cKey) == "N"          // BAA 16-Apr-2012 
        Return iif(cKey > 0 .and. cKey <= len(aKeyTables), aKeyTables[cKey], "") 
    ENDIF 
  
    aKey := { 0, 0 } 
 ... 
  
 h_windowsMDI.prg 
 ============ 
 ... 
 Function _DefineChildMDIWindow (...) 
 ... 
       _SetWindowProperty( Formhandle, "PROP_CFILE", if(Title=="","No Title",Title) ) 
       _SetWindowProperty( Formhandle, "PROP_FORMNAME", FormName ) 
       _SetWindowProperty( Formhandle, "PROP_MODIFIED" , .f.) 
       _SetWindowProperty( Formhandle, "PROP_PARENTNAME", ParentForm )   // BAA 16-Apr-2012 
 ... 
  
 h_windows.prg 
 ============ 
 ... 
 *-----------------------------------------------------------------------------* 
 Function GetParentFormName( nControlIndex ) 
 *-----------------------------------------------------------------------------* 
    Local i, nParentForm, cParentForm 
  
    IF valtype(nControlIndex) == "N"       // BAA 16-Apr-2012 
        i := ascan( _HMG_aFormHandles, _HMG_aControlParentHandles [nControlIndex] ) 
       Return iif( i > 0, _HMG_aFormNames , "" ) 
    ENDIF 
  
  // BAA 16-Apr-2012 
  If _HMG_BeginWindowMDIActive  //JP MDI HotKey 
     nParentForm := GetActiveMdiHandle() 
     if nParentForm == 0 
        cParentForm := _HMG_MainClientMDIName 
     else 
        cParentForm := _GetWindowProperty ( nParentForm, "PROP_FORMNAME" ) 
     endif                      //End JP 
  ElseIf _HMG_BeginWindowActive 
     cParentForm := _HMG_ActiveFormName 
  EndIf 
  
  If ValType ( cParentForm ) != 'U' 
     If ! _IsWindowDefined( cParentForm ); cParentForm := "" 
     Endif 
  EndIf 
  
 RETURN cParentForm 
 

 
 h_hotkey.prg 
 ============ 
 ... 
 *-----------------------------------------------------------------------------* 
 Procedure _DefineHotKey ( cParentForm , nMod , nKey , bAction ) 
 *-----------------------------------------------------------------------------* 
    Local nParentForm , nId , k 
  
    If _HMG_BeginWindowMDIActive  //JP MDI HotKey 
       IF ! empty(_HMG_ActiveFormName)              // BK 22-Apr-2012 
          cParentForm := _HMG_ActiveFormName        // BK 
       ELSE                                          
          nParentForm := GetActiveMdiHandle() 
          if nParentForm == 0 
             cParentForm := _HMG_MainClientMDIName 
          else 
             cParentForm := _GetWindowProperty ( nParentForm, "PROP_FORMNAME" ) 
          endif                      //End JP 
       ENDIF 
    ElseIf _HMG_BeginWindowActive 
       cParentForm := _HMG_ActiveFormName 
    EndIf 
 ... 
    _ReleaseHotKey ( cParentForm, nMod , nKey ) 
  
    if _HMG_BeginWindowMDIActive  //JP MDI HotKey 
       IF ! empty(_HMG_ActiveFormName)                  // BK 22-Apr-2012 
          cParentForm := _HMG_ActiveFormName            // BK 
          nParentForm := GetFormHandle ( cParentForm )  // BK 
       ELSE 
          nParentForm := GetActiveMdiHandle() 
          If nParentForm == 0 
             nParentForm := GetFormHandle ( cParentForm ) 
          EndIf                      //End JP 
       ENDIF 
    else 
       nParentForm := GetFormHandle ( cParentForm ) 
    endif 
 ... 
  
 h_events.prg 
 ============ 
 ... 
    case WM_SETFOCUS 
 *********************************************************************** 
 ... 
       For x := 1 To ControlCount 
          //JP MDI HotKey 
          If _HMG_aControlType [x] == 'HOTKEY' 
             If .Not. _HMG_BeginWindowMDIActive 
                ReleaseHotKey ( 0 , _HMG_aControlIds [x] )  // BK 22-Apr-2012 
             ElseIf _HMG_aControlParentHandles [x] == hWnd .Or.  ; 
                    _HMG_InplaceParentHandle <> 0           // BK 22-Apr-2012 
                ReleaseHotKey ( 0 , _HMG_aControlIds [x] )  // BK 22-Apr-2012 
             Endif 
          EndIf 
          //End 
       Next x 
  
       For x := 1 To ControlCount 
          If _HMG_aControlType [x] == 'HOTKEY' 
             If _HMG_aControlParentHandles[x] == hWnd       // BK 22-Apr-2012 
                InitHotKey ( hWnd , _HMG_aControlPageMap [x] , _HMG_aControlValue [x] , _HMG_aControlIds [x] ) 
             EndIf 
          EndIf 
       Next x 
 ... 
  
 h_windows.prg 
 ============= 
 ... 
 Procedure _SetActivationFocus(i) 
 *-----------------------------------------------------------------------------* 
 ... 
    For x := 1 To Len (_HMG_aControlHandles) 
       If _HMG_aControlParenthandles [x] == h .and. _HMG_aControlType[x] != "HOTKEY" // BK 25-Apr-2012 
 ... 
    Next x 
    If FocusDefined == .F. 
       SetFocus( GetNextDlgTabItem ( h , 0 , .F. ) ) 
       If _HMG_BeginWindowMDIActive                         // BK 25-Apr-2012 
          _HMG_aFormFocusedControl  := GetFocus()        // 
       Endif                                                // BK End 
    EndIf 
 ... 
 

 
    case WM_SETFOCUS 
 ... 
       For x := 1 To ControlCount 
          If _HMG_aControlType [x] == 'HOTKEY' 
             If _HMG_BeginWindowMDIActive                   // BK 
                IF _HMG_aControlParentHandles[x] == hWnd    // BK 
                   InitHotKey ( hWnd , _HMG_aControlPageMap [x] , _HMG_aControlValue [x] , _HMG_aControlIds [x] ) 
                ENdif 
             Else 
                If _HMG_aControlParentHandles[x] == hWnd .Or. ( _HMG_BeginWindowMDIActive .And. _HMG_InplaceParentHandle == GetActiveMdiHandle() ) 
                   InitHotKey ( hWnd , _HMG_aControlPageMap [x] , _HMG_aControlValue [x] , _HMG_aControlIds [x] ) 
                EndIf 
             EndIf 
          EndIf 
       Next x 
 ... 
 

 
 METHOD Dispatch(oEvent AS cEvent) AS LONGINT PASCAL CLASS cMDIChild 
 LOCAL hFocusWnd AS PTR 
  
 ~"ONLYEARLY+" 
  
  IF     oEvent:uMsg==WM_MDIACTIVATE 
         RETURN SELF:OnMDIActivate(oEvent) 
  
  ELSEIF oEvent:uMsg==WM_NCACTIVATE 
 		IF oEvent:wParam==0 .AND. !(hFocusWnd:=GetFocus())==NULL_PTR .AND. IsChild( SELF:hWnd, hFocusWnd) 
 			SELF:hLastFocusedControl:=hFocusWnd 
 		ENDIF 
  ENDIF 
  
 RETURN SUPER:Dispatch(oEvent) 
  
 ~"ONLYEARLY-" 
  
 METHOD OnMDIActivate(oEvent AS cEvent) AS LONGINT PASCAL CLASS cMDIChild 
 /* 
 	This event handler is called in response to a WM_MDIACTIVATE message. 
  
 	This event occurs when a MDI child window is deactivated and again when a MDI child window is activated. 
  
 PARAMETERS: 
 	oEvent - A cEvent object that provides additional information about the event. 
  
 	Within the context of this event, the cEvent export variables have the following meaning: 
 	 
 	PTR(_cast,oEvent:wParam) - Handle to the MDI child window being deactivated. 
  
 	PTR(_cast,oEvent:lParam) - Handle to the MDI child window being activated. 
  
 RETURN VALUES: 
 	If an application processes this message, it should return zero. 
  
 REMARKS: 
 	This event handler is used internally by the cMDIChild class.  If an application overrides this event, it is highly recommended that the event be passed to the super class: 
 	 
 		super:OnMDIActivate(oEvent) 
  
 	See the WIN32 API help for more information on the WM_MDIACTIVATE message. 
  
 */ 
 LOCAL oShell		AS cMDIShell 
 LOCAL hWndClient 	AS PTR 
 LOCAL oMenu		AS cMenu 
 LOCAL oLastWin	AS cWindow 
 LOCAL oTB		AS cToolbar 
  
 ~"ONLYEARLY+" 
  
 	oShell		:= OBJECT(_CAST, SELF:oParent) 
 	hWndClient	:= oShell:Handle(4) 
  
 	// if we are being activated 
 	IF PTR(_CAST,oEvent:lParam)==SELF:hWnd 
 		 
 		// get the menu we will be using.  If we don't have one, use our parent's 
 		IF (oMenu:=SELF:oMenu)==NULL_OBJECT 
 			oMenu := oShell:Menu 
 		ENDIF 
  
 		// there is no menu anywhere 
 		IF oMenu==NULL_OBJECT 
 			SendMessage(hWndClient,WM_MDISETMENU,0,0) 
 			SendMessage(hWndClient,WM_MDIREFRESHMENU,0,0) 
  
 		// we have a menu 
 		ELSE 
 			SendMessage(hWndClient,WM_MDISETMENU,DWORD(_CAST,oMenu:hMenu),LONGINT(_CAST,oMenu:hWindowMenu)) 
 			SendMessage(hWndClient,WM_MDIREFRESHMENU,0,0) 
 		ENDIF 
  
 		// get the window that is deactivating... 
 		IF (oLastWin:=WindowObjectFromHandle(PTR(_CAST,oEvent:wParam)))==NULL_OBJECT 
 			// if there is no window deactivating, default to the shell window 
 			oLastWin:=oShell 
 		ENDIF 
  
 		// if we don't have a toolbar... 
 		IF SELF:oToolbar==NULL_OBJECT 
 			// try to show the shell toolbar 
 			IF !(oTB:=oShell:Toolbar)==NULL_OBJECT 
 				oTB:Show(SW_NORMAL) 
 			ENDIF 
  
 			// hide the currently displayed toolbar 
 			IF !oLastWin==oShell .and. !(oTB:=oLastWin:Toolbar)==NULL_OBJECT 
 				oTB:Hide() 
 			ENDIF 
  
 		// we do have a toolbar...show it 
 		ELSE 
 			SELF:oToolbar:Show(SW_NORMAL) 
  
 			// hide the toolbar from the deactivating window 
 			IF !(oTB:=oLastWin:Toolbar)==NULL_OBJECT .and. oTB:IsVisible() 
 				oTB:Hide() 
 			ENDIF 
 		ENDIF 
  
 		// if we do not currently have an inplace active object... 
 		IF SELF:oIOleInPlaceActiveObject==NULL_OBJECT 
 			oShell:DrawMenuBar() 
 			oShell:AlignControls() 
 		ELSE 
 			SELF:oIOleInPlaceActiveObject:OnDocWindowActivate(TRUE) 
 		ENDIF 
  
 	// we are being deactivated 
 	ELSEIF PTR(_CAST,oEvent:wParam)==SELF:hWnd 
  
 		// if we have an inplace active object 
 		IF !SELF:oIOLEInplaceActiveObject==NULL_OBJECT 
 			SELF:oIOLEInplaceActiveObject:OnDocWindowActivate(FALSE) 
 			oShell:OnIOleInPlaceUIWindow_SetBorderSpace(NULL_PTR) 
 		ENDIF 
  
 		// no one else is being activated 
 		IF oEvent:lParam==0 
 			oMenu:=oShell:Menu 
  
 			// no menu 
 			IF oMenu==NULL_OBJECT 
 				SendMessage(hWndClient,WM_MDISETMENU,0,0) 
 				SendMessage(hWndClient,WM_MDIREFRESHMENU,0,0) 
  
 			// there is a menu 
 			ELSE 
 				SendMessage(hWndClient,WM_MDISETMENU,DWORD(_CAST,oMenu:hMenu),LONGINT(_CAST,oMenu:hWindowMenu)) 
 				SendMessage(hWndClient,WM_MDIREFRESHMENU,0,0) 
 			ENDIF 
  
 			IF !(oTB:=oShell:Toolbar)==NULL_OBJECT 
 				oTB:Show(SW_NORMAL) 
 			ENDIF 
  
 			IF !SELF:oToolBar==NULL_OBJECT 
 				SELF:oToolBar:Hide() 
 			ENDIF 
  
 			// refresh and repaint the menu 
 			oShell:DrawMenuBar() 
  
 			// this is required because AlignControls won't work here because we are still the current MDI child 
 			oShell:PostMessage(WM_SIZE,0,0) 
 		ENDIF 
  
 	ENDIF 
  
 	RETURN SELF:_Default(oEvent) 
  
 ~"ONLYEARLY-" 
 

 
  h_events.prg  
  ============  
  ...  
     case WM_SETFOCUS  
  ***********************************************************************  
  ...  
        For x := 1 To ControlCount  
           //JP MDI HotKey  
           If _HMG_aControlType [x] == 'HOTKEY'  
              If .Not. _HMG_BeginWindowMDIActive  
                 ReleaseHotKey ( 0 , _HMG_aControlIds [x] )  // BK 22-Apr-2012  
              ElseIf _HMG_aControlParentHandles [x] == hWnd .Or.  ;  
                     _HMG_InplaceParentHandle <> 0           // BK 22-Apr-2012  
                 ReleaseHotKey ( 0 , _HMG_aControlIds [x] )  // BK 22-Apr-2012  
              Endif  
           EndIf  
           //End  
        Next x  
    
 !!!       For x := 1 To ControlCount                                                                            
 !!!          If _HMG_aControlType [x] == 'HOTKEY'                                                       
 !!!             If _HMG_aControlParentHandles[x] == hWnd       // BK 22-Apr-2012           
 !!!                InitHotKey ( hWnd , _HMG_aControlPageMap [x] , _HMG_aControlValue [x] , _HMG_aControlIds [x] )  
 !!!             EndIf  
 !!!          EndIf  
 !!!       Next x  
  ...  
 

 
 h_windowsMDI.prg 
 ================ 
 ... 
 Function _DefineChildMDIWindow (..) 
 ... 
    ChildIndex := _HMG_ActiveMDIChildIndex + 1 
  
    // BK 10-Май-2012 
    IF AScan( _HMG_aFormNames, FormName ) > 0       
       FormName += '_'+alltrim(str(ChildIndex))  
       IF ChildIndex > 1                            
          ChildIndex -= 1                           
       ENDIF                                        
    ENDIF                                           
   // BK End 
  
    i := ascan ( _HMG_aFormType , 'A' ) 
 ...