Tsb_UserKeysEvent\demo.prg 
 ... 
        This.FRM_1.Cargo := ' Form <1> created !' 
  
        cNam := 'Get_1' 
      @ nY, nX+This.FRM_1.Width+2  GETBOX &cNam  WIDTH 150 ; 
                VALUE 'Test oGet:SetKeyEvent(...)' ; 
                FONT 'Arial' SIZE 9 ; 
                TOOLTIP 'Press F5 or LDblClick' ; 
                BACKCOLOR {{255,255,255},{255,255,200},{200,255,255}} ; 
                FONTCOLOR {{0,0,0},{255,255,200},{0,0,255}} 
  
        (This.&(cNam).Object):Get:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
        (This.&(cNam).Object):Get:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } ) 
         
        nY += This.FRM_1.Height + nHgt 
 ... 
 GetBox\demo.prg 
 ... 
          oGet:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
          oGet:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } )  
 ... 
          oGet:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
          oGet:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } ) 
 ... 
 

 
 FUNCTION OGETEVENTS( hWnd, nMsg, wParam, lParam ) 
 ... 
       CASE wParam == 3  // CTRL+C Copy 
  
          CopyToClipboard( subs(oGet:Buffer, nStart, nEnd - nStart) ) 
 //       CopyToClipboard( oGet:Buffer ) 
          RETURN( 0 ) 
  
       CASE wParam == 24 .AND. !readonly // CTRL+X Cut 
  
          IF !lAllowEdit .OR. oGet:type == "L" 
             RETURN( 0 ) 
          ENDIF 
  
          CopyToClipboard( subs(oGet:Buffer, nStart, nEnd - nStart) ) 
 //       CopyToClipboard( oGet:Buffer ) //Franz  
          nStart := LoWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
 ... 
       ELSEIF wParam == VK_RIGHT 
  
          IF lShift 
             nEnd := oGet:Pos 
             SendMessage( hWnd , EM_SETSEL , nStart , nEnd ) 
          ELSE 
             SendMessage( hWnd , EM_SETSEL , nStart + 1 , nStart + 1 ) 
             _HMG_aControlMiscData1 [ i ][1] := 0 
          ENDIF 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_HOME 
          SendMessage( hWnd , EM_SETSEL , 0 , 0 ) 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_END 
          // Patch By Pier July 2008 
          // Add By Pier patch for the incorrect end position START 
 //       IF HiWord( SendMessage( hWnd , EM_GETSEL , 0 , 0 ) ) < Len( Trim( oGet:Buffer ) ) 
 //          SendMessage( hWnd , EM_SETSEL , Len( Trim( oGet:Buffer ) ) , Len( Trim( oGet:Buffer ) ) ) 
 //       ELSE 
 //          SendMessage( hWnd , EM_SETSEL , Len( oGet:Buffer ) , Len( oGet:Buffer ) ) 
 //       ENDIF 
          // Add By Pier patch for the incorrect end position STOP 
 //       oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
          nEnd   := Len( Trim(oGet:Buffer) )  
          nStart := iif( lShift, nStart, nEnd ) 
  
          SendMessage( hWnd, EM_SETSEL, nStart, nEnd ) 
  
          RETURN 1 
  
       ELSEIF wParam == VK_INSERT 
 ... 
    CASE nMsg == WM_PASTE 
  
       IF readonly .OR. ! lAllowEdit 
          RETURN( 0 ) 
       ENDIF 
  
       IF ( cText := RetrieveTextFromClipboard() ) <> NIL 
  
          nStart := LoWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
          nEnd   := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1  
          nLen   := Len( oGet:Buffer )  
  
          IF nStart # nEnd 
 ... 
             FOR i := nStart TO nEnd  // clear selection by backspacing 
                IF oGet:pos > nStart 
                   oGet:BackSpace() 
                ELSE 
                   EXIT 
                ENDIF 
             NEXT 
          ENDIF 
           
          h := oGet:pos 
           
          FOR i := 1 TO Len( cText ) 
  
             wParam := Asc( SubStr( cText, i, 1 ) ) 
  
             IF oGet:type == "N" .AND. wParam == 46 
                oGet:toDecPos() 
             ELSE 
                IF IsInsertActive() 
                   oGet:Insert( Chr( wParam ) ) 
                ELSE 
                   oGet:Overstrike( Chr( wParam ) ) 
                ENDIF 
             ENDIF 
  
             IF h + i > nLen 
                EXIT 
             ENDIF 
  
          NEXT 
 ... 
 Это, конечно, не все режимы, остальные позже. 
 

 
  LOCAL aName    := { "VOP", "SKL"  , "KLI"   , "DAT"   , "DOK"   , "GRU"  , "KOD" , "NAM"       } 
  LOCAL aColumn  := { "R_1", "R_2"  , "R_3"   , "R_4"   , "R_5"   , "R_6"  , "R_7" , "U02->R_3"  } 
  LOCAL aHeader  := { "Op.", "Sklad", "Klient", "Datums", "Dokum.", "Grupa", "Kods", "Nosaukums" } 
 ... 
     For nI := 1 To nK 
         cFld := aColumn[ nI ] 
         If ( i := AT("->", cFld) ) > 0 
            j    := left(cFld, i - 1) 
            cFld := subs(cFld, i + 2) 
         Else                        
            j    := cAls 
         EndIf 
         bFld := FieldWBlock( cFld, Select( j ) ) 
         cHdr := aHeader[ nI ] 
         If "\" $ cHdr; cHdr := StrTran(cHdr, "\", CRLF) 
         EndIf 
         cFoo := aFooter[ nI ] 
         If "\" $ cFoo; cFoo := StrTran(cFoo, "\", CRLF) 
         EndIf 
  
         ADD TO      oBrw           ; 
             DATA    bFld           ; 
             HEADER  cHdr           ; 
             FOOTER  cFoo           ; 
             COLOR   aColor  [ nI ] ; 
             ALIGN   aAlign  [ nI ] ; 
             WIDTH   aWidth  [ nI ] ; 
             PICTURE aPicture[ nI ] ; 
             MOVE    aMoveDir[ nI ] ; 
             NAME    aName   [ nI ] 
  
     Next 
 ... 
     :bOnDrawLine := {|ob| MyRelat(ob) } 
 ... 
 FUNC MyRelat( oBrw ) 
  LOCAL cAls := oBrw:cAlias 
  LOCAL cKod := (cAls)->( R_6+R_7 ) 
  
  IF ! U02->( R_1+R_2 ) == cKod 
     U02->( dbSeek(cKod) ) 
  ENDIF 
  
 RETURN Nil 
 

 
    If ::bUserKeys != Nil 
  
       uReturn := Eval( ::bUserKeys, nKey, nFlags, Self ) 
  
       If uReturn != Nil .and. ValType( uReturn ) == "N" .and. uReturn < 200 // interpreted as a virtual key code to 
          nKey := uReturn                                                    // change the original key pressed 
       ElseIf uReturn != Nil .and. ValType( uReturn ) == "L" .and. ! uReturn 
          ::nUserKey := 255  // want to inhibit the KeyDown and KeyChar Methods for key pressed 
          Return 0  
       EndIf 
    EndIf 
 т.е. надо выключить для 5, 7 cell (в :bUserKeys) 
 IF     oBrw:nCell == 5; RETURN .F. 
 ELSEIF oBrw:nCell == 7; RETURN .F. 
 ENDIF 
 RETURN .T. 
 

  * Modified: A dependance of Minigui core from the functions of the tsbrowse 
            library was removed (introduced in the build 17.07). 
            Reported by Marcelo A. L. Carli <malcarli@terra.com.br>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.20.0rc3. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-07-27 18:57). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour)