EgtDOORCreator 2.1j2:

-> correzioni creazione nuovo progetto.
This commit is contained in:
Nicola Pievani
2019-10-30 16:13:34 +00:00
parent 00c9d0d1b2
commit be9bccdc6f
3 changed files with 20 additions and 15 deletions
+7 -3
View File
@@ -975,9 +975,9 @@ Public Class AssemblyManagerVM
Else
Dim LastProject As String = m_CurrProject.Name
' confermo che non devono essere prese inconsiderazione le modifiche
m_CurrProject.SelAssemblyName.IsModified = False
'm_CurrProject.SelAssemblyName.IsModified = False
' elimino qualsiasi resto di porta
m_CurrProject.SelAssemblyName = Nothing
'm_CurrProject.SelAssemblyName = Nothing
' pulisco entry page
Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nNothingSelected
' aggiorno il titolo della pagina
@@ -1514,7 +1514,11 @@ Public Class AssemblyManagerVM
SaveFileDialog.Directory = m_CurrProject.Name
SaveFileDialog.Extension = DDF_EXTENSION
' Se annullo esco
If Not SaveFileDialogWnd.ShowDialog Then Return
If Not SaveFileDialogWnd.ShowDialog Then
'm_CurrProject.SelAssemblyName = New AssemblyName
m_CurrProject.SelAssemblyName = Nothing
Return
End If
Dim FilePath As String = Path.GetFileNameWithoutExtension(SaveFileDialog.FileName)
SaveFileDialog.FileName = SaveFileDialog.FileName.Replace(FilePath, Trim(FilePath))
' Controllo se il nome della porta ha estensione