Salvo nel file ini il tema selezionato

OptionsWindow/OptionModule.vb

@@ -7,6 +7,9 @@ Friend Module OptionModule
    ' flag per modalità di visualizzazione file (solo lettura)
    Friend ReadOnlyDDF As Boolean = False
 
+   ' selezione tema (default=0)
+   Friend m_SelectedThema As Integer = 0
+
    ' flag per forzare l'aggiornamento delle dimensioni anta dei file DDT
    Friend AdjustDDT As Boolean = False
    Friend FileNameFromArgs As String = String.Empty
@@ -376,6 +379,8 @@ Friend Module OptionModule
 
       m_AskMeAgainConfirm = If(GetMainPrivateProfileInt(S_GENERAL, K_ASKMEAGAINCONFIRM, 1) = 1, True, False)
 
+      m_SelectedThema = GetMainPrivateProfileInt(S_GENERAL, K_THEMA, 0)
+
       ' leggo il tipo di Bevel selezionato
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)