Gestione lettura/stampa nuova versione DDF

OptionsWindow/OptionModule.vb

@@ -30,6 +30,14 @@ Friend Module OptionModule
    Friend m_bBevelUp As Visibility
    Friend m_bBevelDown As Visibility
 
+   ' Parametri per la scelta della versione di stampa ddf
+   Friend m_sVersionDDF As String = "2"
+   Friend m_sSpaceTabCompo As String = ""
+   Friend m_sSpace1Tab As String = ConstCompo.DDF_SPACE3
+   Friend m_sSpace2Tab As String = ConstCompo.DDF_SPACE5
+   Friend m_sSpace3Tab As String = ConstCompo.DDF_SPACE5
+   Friend m_sSpaceHype As String = ConstCompo.DDF_HYPHEN
+
    Friend m_DisableInvertBevel As Visibility = Visibility.Collapsed
 
    Friend m_DisableAddGeometry As Visibility = Visibility.Collapsed
@@ -232,6 +240,20 @@ Friend Module OptionModule
          OptionModule.ReadOnlyDDF = False
       End If
 
+      ' valore indentazione programma
+      Dim sVer As String = String.Empty
+      If GetMainPrivateProfileString(S_GENERAL, K_DDFVERSION, "1", sVer) > 0 Then
+         Dim sItem() As String = sVer.Split(";"c)
+         m_sVersionDDF = sItem(0).Trim
+      End If
+      If m_sVersionDDF = "2" Then
+         m_sSpaceTabCompo = ConstCompo.DDF_SPACE2
+         m_sSpace1Tab = ConstCompo.DDF_SPACE2
+         m_sSpace2Tab = ConstCompo.DDF_SPACE4
+         m_sSpace3Tab = ConstCompo.DDF_SPACE6
+         m_sSpaceHype = ConstCompo.DDF_HYPHEN_2
+      End If
+
       ' imposto unità di misura per interfaccia utente
       m_bIsMmUnit = (GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
       EgtSetUiUnits(m_bIsMmUnit)