EgtDOORCreator 1.8l8 :

- migliorie varie a lettura/scrittura.

ProjectManager/ProjectManagerVM.vb

@@ -493,9 +493,9 @@ Public Class ProjectManagerVM
       If Not IsNothing(Map.refPartPageVM.CurrPart) Then
          ' Stampo il file correte nella cartella Template
          Dim SaveFileDialog As New EgtWPFLib5.EgtSaveFileDialog
-         SaveFileDialog.Title = K_NEWTEMPLATE
+         SaveFileDialog.Title = "New Template"
          SaveFileDialog.Directory = IniFile.m_TemplateDir & "\"
-         SaveFileDialog.Extension = K_DDTEXTENSION
+         SaveFileDialog.Extension = DDT_EXTENSION
          'SaveFileDialog.FileName = m_CurrProject.Name & "\"
          ' se decido di chiuedere la finestra
          If Not SaveFileDialog.EgtShowDialog Then
@@ -504,11 +504,11 @@ Public Class ProjectManagerVM
          ' Controllo se ha estensione il nome della porta
          If Path.HasExtension(SaveFileDialog.FileName) Then
             Dim sExtension As String = Path.GetExtension(SaveFileDialog.FileName)
-            If Not sExtension.ToLower = K_DDTEXTENSION Then
-               SaveFileDialog.FileName = SaveFileDialog.FileName.Replace(sExtension, K_DDTEXTENSION)
+            If Not sExtension.ToLower = DDT_EXTENSION Then
+               SaveFileDialog.FileName = SaveFileDialog.FileName.Replace(sExtension, DDT_EXTENSION)
             End If
          Else
-            SaveFileDialog.FileName &= K_DDTEXTENSION
+            SaveFileDialog.FileName &= DDT_EXTENSION
          End If
          If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then
             DdfFile.WriteDDFPart(Map.refPartPageVM.CurrPart, SaveFileDialog.FileName, False, False)
@@ -614,19 +614,19 @@ Public Class ProjectManagerVM
       ' Creo nuovo assembly
       ' Lancio la finestra per chiedere il nome dell'assemblato
       Dim SaveFileDialog As New EgtWPFLib5.EgtSaveFileDialog
-      SaveFileDialog.Title = K_NEWDOOR
+      SaveFileDialog.Title = "New Door"
       SaveFileDialog.Directory = LocalCurrProject.Name
-      SaveFileDialog.Extension = K_DDFEXTENSION
+      SaveFileDialog.Extension = DDF_EXTENSION
       ' Se annullo esco
       If Not SaveFileDialog.EgtShowDialog Then Return
       ' Controllo se il nome della porta ha estensione 
       If Path.HasExtension(SaveFileDialog.FileName) Then
          Dim sExtension As String = Path.GetExtension(SaveFileDialog.FileName)
-         If Not sExtension.ToLower = K_DDFEXTENSION Then
-            SaveFileDialog.FileName = SaveFileDialog.FileName.Replace(sExtension, K_DDFEXTENSION)
+         If Not sExtension.ToLower = DDF_EXTENSION Then
+            SaveFileDialog.FileName = SaveFileDialog.FileName.Replace(sExtension, DDF_EXTENSION)
          End If
       Else
-         SaveFileDialog.FileName &= K_DDFEXTENSION
+         SaveFileDialog.FileName &= DDF_EXTENSION
       End If
       ' controllo che il nome non sia presente nella lista degli assemblati
       Dim bNameExist As Boolean = False