EgtCAM5 :

- adattamenti per modifiche a EgtWpfLib5.

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