Unfortunately, this resource is still unavailable to me :(
Here it is:
https://wormhole.app/z5rR6#nNcaa_ywAu7s3BSzpvsI_Q
cnavarro wrote:Dear Vilina, please attach your sampleGood Morning Cristobal,
CLASS TVfaEdit FROM TRichEdit5
METHOD KeyDown( nKey, nFlags )
ENDCLASS
METHOD KeyDown( nKey, nFlags ) CLASS TVfaEdit
if ( nKey == VK_INSERT .and. GetKeyState( VK_SHIFT ) .or. ;
nKey == Asc( "V" ) .and. GetKeyState( VK_CONTROL ) )
if ! ::lReadOnly
::Paste()
::PostMsg( FM_CHANGE )
endif
return 0
endif
if ::lReadOnly
if nKey == VK_BACK .or. nKey == VK_DELETE .or. nKey == VK_RETURN
return 0
endif
endif
::Super:KeyDown( nKey, nFlags )
// Suggested by the user MaxP (Massimo): 11/22/2019, remove PostMsg
//::PostMsg( FM_CHANGE )
// Added by Cristobal Navarro
if !::lReadOnly
::PostMsg( FM_CHANGE )
endif
if ::lHighlight
if nKey == VK_DELETE .or. nKey == VK_BACK
::PostMsg( FM_HIGHLIGHT )
endif
endif
return nil HB_SETCODEPAGE( "UTF8" )
Fw_SetUnicode( .T. )