Merge pull request IDEMSInternational#5246 from Patowhiz/OutputWindowDel

Delete Selection on Delete Key Press Output window

instat/ucrOutputWindow.vb

@@ -21,7 +21,16 @@ Public Class ucrOutputWindow
     'TEST temporary
     Private Sub ucrOutputWindow_Load(sender As Object, e As EventArgs) Handles Me.Load
         autoTranslate(Me)
+        'for some reason the normal KeyDown event is not raised when del key is pressed
+        'probably because the del is not recognised as an inputkey to ucrRichTextBox 
+        AddHandler ucrRichTextBox.PreviewKeyDown, AddressOf ucrRichTextBox_KeyDownEventHandler
+    End Sub
 
+    Private Sub ucrRichTextBox_KeyDownEventHandler(sender As Object, e As EventArgs)
+        'if its a delete key then delete the selection
+        If DirectCast(e, System.Windows.Input.KeyEventArgs).Key = System.Windows.Input.Key.Delete Then
+            ucrRichTextBox.rtbOutput.Selection.Text = ""
+        End If
     End Sub
 
     'Protected Overrides Sub OnFormClosing(ByVal e As FormClosingEventArgs)
@@ -121,4 +130,5 @@ Public Class ucrOutputWindow
     Private Sub HelpRTB_Click(sender As Object, e As EventArgs) Handles HelpRTB.Click
         Help.ShowHelp(Me, frmMain.strStaticPath & "\" & frmMain.strHelpFilePath, HelpNavigator.TopicId, "540")
     End Sub
+
 End Class