Correzione comando "Salva con nome"

2021-11-08 12:32:19 +01:00
parent 59fba24e6f
commit bb56d619d3
2 changed files with 2 additions and 1 deletions
@@ -1485,6 +1485,7 @@ Public Class ProjectManagerVM
      ' aggiungo il nome del file alla lista degli assemblati
      Dim Local_AssemblyName As New AssemblyName
      Local_AssemblyName.Name = SaveFileDialog.FileName
+      Local_AssemblyName.GraphicName = Path.GetFileNameWithoutExtension(SaveFileDialog.FileName)
      LocalCurrProject.AssemblyList.Add(Local_AssemblyName)

      ' devo creare tutto l'assemblato (comando GoBack nel CompoPanel)