EgtDOORCreator 1.9j3 :

- gestione creazione/apertura singola porta.

AssemblyManager/AssemblyManagerVM.vb

@@ -17,6 +17,16 @@ Public Class AssemblyManagerVM
       End Set
    End Property
 
+   Private m_VisibilityDoorList As Visibility = Visibility.Visible
+   Public Property VisibilityDoorList As Visibility
+      Get
+            Return m_VisibilityDoorList
+      End Get
+      Set(value As Visibility)
+         m_VisibilityDoorList = value
+      End Set
+   End Property
+
 #Region "MESSAGES"
 
    Public ReadOnly Property AddNewDoorToolTip As String
@@ -98,6 +108,8 @@ Public Class AssemblyManagerVM
       End If
       If DdfFile.DDFIsCorrect Then
          SavedAssName.IsModified = False
+         ' ogni progetto salvato è l'ultimo da aprire, anche se il programma è chiuso dall'HardwareManager
+         WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LASTPROJECT, Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name)
          SavedAssName.NotifyPropertyChanged("IsModify")
       End If
 
@@ -142,6 +154,14 @@ Public Class AssemblyManagerVM
          EgtZoom(ZM.ALL)
          Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nAssemblyPage
       End If
+      ' ogni progetto salvato è l'ultimo da aprire, anche se il programma è chiuso dall'HardwareManager
+      ' controllo che esiste almeno un file aperto
+      If Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
+         Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name) Then
+         WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LASTPROJECT, Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name)
+      Else
+         WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LASTPROJECT, Map.refAssemblyManagerVM.CurrProject.Name)
+      End If
       Return True
    End Function
 
@@ -749,7 +769,6 @@ Public Class AssemblyManagerVM
          End If
          ' elimino dalla lista
          m_CurrProject.AssemblyList.RemoveAt(IndexDoorList)
-         ' ''CurrProject.NotifyPropertyChanged("AssemblyList")
       End If
       ' aggiungo il nome del file alla lista degli assemblati
       Dim Local_AssemblyName As New AssemblyName
@@ -758,7 +777,6 @@ Public Class AssemblyManagerVM
       ' Seleziono AssembyName creato
       m_CurrProject.SelAssemblyName = Local_AssemblyName
       ' aggiorno la lista
-      ''CurrProject.NotifyPropertyChanged("AssemblyList")
       '------------------------------------------------------------------------------------------------------------------------------------------------
       ' LETTURA DI UN FILE DI TIPO TEMPLATE
       If Not String.IsNullOrEmpty(ImportTemplate) Then