EgtCAM5 :

- Migliorie varie.

MainWindow/MainWindowViewModel.vb

@@ -128,7 +128,7 @@ Namespace EgtCAM5
          ' INITIALIZE EGALTECH ENVIRONMENT
          InitializeEgtEnvironment()
 
-
+         AddHandler Application.Current.MainWindow.KeyDown, AddressOf MainWindow_KeyDown
          ' INITIALIZE GRAPHICS
          TabList.Add(New ProjectViewModel)
          TabList.Add(New ToolsDbViewModel)
@@ -442,6 +442,24 @@ Namespace EgtCAM5
          End If
       End Sub
 
+#End Region
+
+#Region "Events"
+
+      Private Sub MainWindow_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs)
+         ' Con ESC esco dall'azione corrente
+         If e.Key = Key.Escape Then
+            ' reset Azione corrente
+            Application.Msn.NotifyColleagues(Application.RESETSTATUS)
+            ' reset Analisi e Distanza
+            'chkAnalyze.Checked = False
+            'chkGetDist.Checked = False
+            ' pulisco output
+            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "")
+            Application.Msn.NotifyColleagues(Application.RESETINPUTBOX)
+         End If
+      End Sub
+
 #End Region
 
    End Class