From 915ab2be151054800a1fb843c0d1d578e1fe23d3 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Wed, 22 Nov 2017 07:42:45 +0000 Subject: [PATCH] EgtCAM5 1.8k3 : - migliorata gestione analisi e distanza chiusi in automatico al lancio di altri comandi. --- My Project/AssemblyInfo.vb | 4 ++-- ProjectPage/ProjectViewModel.vb | 10 +++++++++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 0e0556c..8b9bd42 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -70,5 +70,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index 32c0719..be33eaf 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -1174,7 +1174,7 @@ Namespace EgtCAM5 Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, sDistance) End Sub - Private Sub Scene1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles m_ProjectScene.KeyDown + Private Sub OnSceneKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles m_ProjectScene.KeyDown ' Con DEL eseguo cancellazione delle entità selezionate If e.KeyData = System.Windows.Forms.Keys.Delete Then m_Controller.SetLastInteger(GDB_ID.SEL) @@ -1194,6 +1194,14 @@ Namespace EgtCAM5 End If End Sub + Private Sub OnSceneCloseAnalyze(sender As System.Object) Handles m_ProjectScene.OnCloseAnalyze + Application.Msn.NotifyColleagues(Application.ANALYZE_ISCHECKED, False) + End Sub + + Private Sub OnSceneCloseGetDist(sender As System.Object) Handles m_ProjectScene.OnCloseGetDist + Application.Msn.NotifyColleagues(Application.GETDISTANCE_ISCHECKED, False) + End Sub + #End Region #Region "CONTROLLER EVENTS"