From d2ff748fe0a5f5477e16a3cba1c79999f03f759d Mon Sep 17 00:00:00 2001 From: NicolaP Date: Thu, 11 Aug 2022 12:45:27 +0200 Subject: [PATCH 1/2] Migliorata la gestione di creazione nuova lastra --- TopCommandBar/TopCommandBarVM.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/TopCommandBar/TopCommandBarVM.vb b/TopCommandBar/TopCommandBarVM.vb index 08e4b3e..4ce76c5 100644 --- a/TopCommandBar/TopCommandBarVM.vb +++ b/TopCommandBar/TopCommandBarVM.vb @@ -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 From e034816bed1d9c82d299ac9912341423bba6df4e Mon Sep 17 00:00:00 2001 From: NicolaP Date: Wed, 11 Jan 2023 19:31:17 +0100 Subject: [PATCH 2/2] Cambio versione 2.5a1 --- MainWindow/MainWindowM.vb | 4 ++-- My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/MainWindow/MainWindowM.vb b/MainWindow/MainWindowM.vb index 36f1969..337677e 100644 --- a/MainWindow/MainWindowM.vb +++ b/MainWindow/MainWindowM.vb @@ -202,8 +202,8 @@ Public Class MainWindowM Dim bNetHwKey As Boolean = ( GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1) EgtSetNetHwKey( bNetHwKey) ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(9423, 2407, 1, m_nKeyLevel) And - EgtGetKeyOptions(9423, 2407, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(9423, 2501, 1, m_nKeyLevel) And + EgtGetKeyOptions(9423, 2501, 1, m_nKeyOptions) ' Verifico abilitazione prodotto Dim bProd As Boolean = GetKeyOption(KEY_OPT.PHOTO_BASE) ' Inizializzazione generale di EgtInterface diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index ef698d8..bf2539e 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -59,5 +59,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +