-aggiunta scelta tema e piccole modifiche grafiche

OptionsWindow/OptionModule.vb

@@ -35,6 +35,9 @@ Friend Module OptionModule
    ' Colore linea di distanz
    Friend m_LineDistanceColor As Color3d
 
+   ' selezione tema (default=0)
+   Friend m_SelectedThema As Integer = 0
+
 #End Region    ' Fields & Properties
 
 #Region "METHODS"
@@ -98,6 +101,8 @@ Friend Module OptionModule
       Dim DstLnColor As New Color3d(255, 0, 0)
       GetMainPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor)
       m_LineDistanceColor = DstLnColor
+      ' imposto il tema 
+      m_SelectedThema = GetMainPrivateProfileInt(S_GENERAL, K_THEMA, 0)
    End Sub
 
 #End Region    ' Methods