Migliorata la gestione di creazione nuova lastra

2022-08-11 12:45:27 +02:00
parent fc89ef7deb
commit d2ff748fe0
1 changed files with 9 additions and 0 deletions
@@ -156,6 +156,15 @@ Public Class TopCommandBarVM
   Friend Sub NewCmd(Optional bUseDefaults As Boolean = False)
      ' passo alla libreria l'oggetto Camera che è stato inizializzato nel Omag-PHOTO
      EgtPHOTOLib.MainData.SetCamera(Map.refMainWindowVM.m_Camera)
+      Dim bIsSaved As Boolean = False
+      If EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab.IsModified Then
+         ' 91125: Salvare le modifiche correnti? - 92201: Avviso
+         If MessageBox.Show(EgtMsg(91125), EgtMsg(92201), MessageBoxButton.YesNo, MessageBoxImage.Asterisk) = MessageBoxResult.Yes Then
+            EgtPHOTOLib.PhotoMap.refOptionPanelVM.Save()
+            bIsSaved = True
+         End If
+      End If
+      If Not bIsSaved Then EgtPHOTOLib.PhotoMap.refOptionPanelVM.Cancel(Nothing)
      Map.refProjectVM.SelProjectMode = ProjectSlabVM.ProjectModeOpt.NEWSLAB
   End Sub