STATIC FUNCTION h_KeyInit() 
  
   h_Key := {                                           ; 
               1004 => {|   | Nil                       }, ; // K_RBUTTONDOWN 
              30101 => {|   | edi_KeyCToN( "Shift-F4" ) }, ; // New file 
              30102 => {|   | edi_KeyCToN( "Ctrl-F4"  ) }, ; // Open file 
              30103 => {|   | edi_KeyCToN( "F2"       ) }, ; // Save 
              30104 => {|   | edi_KeyCToN( "Shift-F4" ) }, ; // Save as 
              30105 => {|   | edi_KeyCToN( "Shift-F8" ) }, ; // Code page 
              30109 => {|   | edi_KeyCToN( "F9"       ) }, ; // F9-Menu 
              30201 => {|   | edi_KeyCToN( "F7"       ) }, ; // Find... 
              30202 => {|   | edi_KeyCToN( "Shift-F7" ) }, ; // Find Next 
              30203 => {|   | edi_KeyCToN( "Alt-F7"   ) }, ; // Find Prev 
              30204 => {|   | edi_KeyCToN( "Ctrl-F7"  ) }, ; // Replace... 
              30205 => {|   | edi_KeyCToN( "Alt-F8"   ) }, ; // Goto... 
              30206 => {|   | edi_KeyCToN( "Alt-B"    ) }, ; // Goto the previous position 
              30207 => {|   | edi_KeyCToN( "Alt-L"    ) }, ; // Function list 
              30301 => {|   | edi_KeyCToN( "F12"      ) }, ; // List of open files 
              30302 => {|o,n| Window_OnKey(o, n)        }, ; // Split window horizontally 
              30303 => {|o,n| Window_OnKey(o, n)        }, ; // Split window vertically 
              30304 => {|o,n| Window_OnKey(o, n)        }, ; // Switch window 
              30305 => {|o,n| Window_OnKey(o, n)        }, ; // Open window fully 
              30306 => {|o,n| Window_OnKey(o, n)        }, ; // Close window 
              30999 => {|   | (-1)                      }  ; // dummy 
            } 
  
 RETURN Nil 
  
 STATIC FUNCTION Window_OnKey( o, n ) 
    LOCAL r := -1 
  
    IF     n == 30302                                        // Split window horizontally 
       j := edi_AddWindow( o, MemoRead(o:cFileName), o:cFileName, 2, Int( (o:y2-o:y1)/2 ) ) 
       j:lReadOnly := .T. 
  
    ELSEIF n == 30303                                        // Split window vertically 
       j := edi_AddWindow( o, MemoRead(o:cFileName), o:cFileName, 3, Int( (o:x2-o:x1)/2 ) ) 
       j:lReadOnly := .T. 
  
    ELSEIF n == 30304                                        // Switch window 
       IF Len(o:aWindows) > 1 
          r := edi_KeyCToN( "Ctrl-Tab" ) 
          // mnu_ToBuf( o, edi_FindWindow( o, .T. ) ) 
       ENDIF 
  
    ELSEIF n == 30305                                        // Open window fully 
       IF o:oParent != Nil 
          edi_CloseWindow( o, .F. ) 
          o:oParent := Nil 
          o:y1 := o:aRect[1] := o:aRectFull[1] 
          o:x1 := o:aRect[2] := o:aRectFull[2] 
          o:y2 := o:aRect[3] := o:aRectFull[3] 
          o:x2 := o:aRect[4] := o:aRectFull[4] 
          IF o:lTopPane 
             o:y1 ++ 
          ENDIF 
          o:TextOut() 
          edi_SetPos( o ) 
          __KeyBoard( chr(K_RIGHT)+chr(K_LEFT) ) 
       ENDIF 
  
    ELSEIF n == 30306                                        // Close window ( fully window ) 
       IF o:oParent != Nil 
          mnu_Exit( o ) 
       ELSEIF Len(o:aWindows) > 1 
          r := K_ESC 
       ENDIF 
  
    ENDIF 
  
 RETURN r 
  
 FUNCTION EdOnKey( o, n ) 
    LOCAL m := n, b, i, j, k 
    LOCAL s := hb_BitAnd( n, SHIFT_PRESSED ) != 0 
    LOCAL a := hb_BitAnd( n, ALT_PRESSED   ) != 0 
    LOCAL c := hb_BitAnd( n, CTRL_PRESSED  ) != 0 
    LOCAL p := hb_keyStd( n ) 
    LOCAL r := -1 
  
 //   ToLog(.T., n, s, a, c, p) 
  
    IF     p == K_F1     // help 
       RETURN r 
  
    ELSEIF p == K_F8     // colored syntaxis enabled\disabled 
       RETURN r 
  
    ELSEIF p == K_F10    // exit 
       RETURN r 
  
    ENDIF 
  
    b := hb_HGetDef( h_Key, n, Nil ) 
  
    If b != Nil 
       If HB_ISBLOCK( b ) .and. ( k := EVal( b, o, n ) ) != Nil 
          n := k 
       Else 
          n := b 
       EndIf 
    EndIf 
  
 RETURN n 
 

 
 STATIC FUNCTION Window_OnKey( o, n ) 
    LOCAL r := -1 
  
    IF     n == 30302                                        // Split window horizontally 
       j := edi_AddWindow( o, MemoRead(o:cFileName), o:cFileName, 2, Int( (o:y2-o:y1)/2 ) ) 
       j:lReadOnly := .T.                           // работает показ координат правильно 
  
    ELSEIF n == 30303                                        // Split window vertically 
       j := edi_AddWindow( o, MemoRead(o:cFileName), o:cFileName, 3, Int( (o:x2-o:x1)/2 ) ) 
       j:lReadOnly := .T.                           // работает показ координат правильно 
  
    ELSEIF n == 30304                                        // Switch window 
       IF Len(o:aWindows) > 1 
          // r := edi_KeyCToN( "Ctrl-Tab" ) 
          mnu_ToBuf( o, edi_FindWindow( o, .T. ) ) 
          __KeyBoard( chr(K_RIGHT)+chr(K_LEFT) )   // переключение работает правильно из меню. Ctrl+Tab, Ctrl+w,w -  показ 
                                                   // неверный координат после переключения, после стрелки - все правильно 
       ENDIF 
  
    ELSEIF n == 30305                                        // Open window fully 
       IF o:oParent != Nil 
          edi_CloseWindow( o, .F. ) 
          o:oParent := Nil 
          o:y1 := o:aRect[1] := o:aRectFull[1] 
          o:x1 := o:aRect[2] := o:aRectFull[2] 
          o:y2 := o:aRect[3] := o:aRectFull[3] 
          o:x2 := o:aRect[4] := o:aRectFull[4] 
          IF o:lTopPane 
             o:y1 ++ 
          ENDIF 
          o:TextOut() 
          edi_SetPos( o ) 
          __KeyBoard( chr(K_RIGHT)+chr(K_LEFT) )   // работает показ координат правильно 
  
       ENDIF 
  
    ELSEIF n == 30306                                        // Close window ( fully window ) 
       IF o:oParent != Nil 
          mnu_Exit( o ) 
       ELSEIF Len(o:aWindows) > 1 
          r := K_ESC 
       ENDIF 
  
    ENDIF 
  
 RETURN r