Merge branch 'feature/Manage_Multi_Istances'

MainWindow/MainWindowM.vb

@@ -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