Merge branch 'develop'

- corretta versione.

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, 2406, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2406, 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
@@ -287,6 +287,7 @@ Public Class MainWindowM
       EgtPHOTOLib.MainData.SetConfigDir(m_sConfigDir)
       EgtPHOTOLib.MainData.SetKeyLevel(m_nKeyLevel)
       EgtPHOTOLib.MainData.SetKeyOptions(m_nKeyOptions)
+      EgtPHOTOLib.MainData.SetUser(Environment.MachineName & "\" & Environment.UserName & " (" & nInstance.ToString() & ")")
       EgtPHOTOLib.MainData.SetPhotoDir(m_sPhotoDir)
       EgtPHOTOLib.MainData.SetBackUpDir(m_sBackUpDir)
       EgtPHOTOLib.MainData.SetTemplateFilePrinter(m_TemplateFilePrinter)
@@ -298,10 +299,10 @@ Public Class MainWindowM
       Dim sIdKey As String = String.Empty
       EgtGetKeyInfo(sIdKey)
       EgtPHOTOLib.MainData.SetKey(sIdKey)
-      '' lancio il timer di aggiornamento dell'interfaccia, per la gestione di due OmagPHOTO che accedono allo stesso SQL
-      ' AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_Tick
-      ' m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(2000)
-      ' m_RefreshTimer.Start()
+      ' lancio il timer di aggiornamento dell'interfaccia, per la gestione di due OmagPHOTO che accedono allo stesso SQL
+      AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_Tick
+      m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(2000)
+      m_RefreshTimer.Start()
    End Sub
 
    ' per la gestione di due OmagPHOTO che accedono allo stesso SQL

MainWindow/MainWindowVM.vb

@@ -125,6 +125,11 @@ Public Class MainWindowVM
             EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok(Nothing)
          End If
       End If
+      ' deseleziono la lastra corrente
+      If Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM) AndAlso
+         Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab) Then
+         EgtPHOTOLib.PhotoMap.refOptionPanelVM.Cancel(Nothing)
+      End If
       ' Imposto contesto principale
       EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
       ' Chiudo il gestore della macchina fotografica

My Project/AssemblyInfo.vb

@@ -59,5 +59,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.6.1")>
-<Assembly: AssemblyFileVersion("2.4.6.1")>
+<Assembly: AssemblyVersion("2.5.1.1")>
+<Assembly: AssemblyFileVersion("2.5.1.1")>

OmagPHOTO.vbproj

@@ -216,6 +216,9 @@
   <ItemGroup>
     <Resource Include="Resources\TopCommandBar\Search.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\InstrumentPanel\Matitina.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagPHOTO\OmagPHOTOR32.exe

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