From fa5bd6b0d40d705d851a00062982fe1cbfbaeb4e Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 10 Apr 2017 07:59:34 +0000 Subject: [PATCH] EgtCAM5 : - adattamenti per modifiche a EgtWpfLib5. --- ProjectPage/ProjectViewModel.vb | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index f4e1472..68bb5a9 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -1191,6 +1191,7 @@ Namespace EgtCAM5 #Region "CONTROLLER EVENTS" Private Sub OnNewProject(ByVal sender As Object, ByVal bOk As Boolean) Handles m_Controller.OnNewProject + EgtZoom(ZM.ALL) If Not bOk Then MessageBox.Show(EgtMsg(10002), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error) ' Error on new file - Error End If @@ -1201,6 +1202,7 @@ Namespace EgtCAM5 End Sub Private Sub OnOpenProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnOpenProject + EgtZoom(ZM.ALL) WritePrivateProfileString(S_GENERAL, K_LASTNGEDIR, Path.GetDirectoryName(sFile)) If bOk Then IniFile.m_MruFiles.Add(sFile) @@ -1211,6 +1213,10 @@ Namespace EgtCAM5 End If End Sub + Private Sub OnInsertedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnInsertedProject + EgtZoom(ZM.ALL) + End Sub + Private Sub OnSavingProject(ByVal sender As Object) Handles m_Controller.OnSavingProject End Sub @@ -1253,6 +1259,7 @@ Namespace EgtCAM5 End Sub Private Sub OnImportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnImportedProject + EgtZoom(ZM.ALL) WritePrivateProfileString(S_GENERAL, K_LASTIMPDIR, Path.GetDirectoryName(sFile)) If Not bOk Then Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'" 'Error importing file