-aggiunto scelta toppaneltema

-piccoli aggiustamenti

OptionsWindow/OptionModule.vb

@@ -38,6 +38,9 @@ Friend Module OptionModule
    ' selezione tema (default=0)
    Friend m_SelectedThema As Integer = 0
 
+   ' selezione tema toppanel (default=0)
+   Friend m_SelectedThemaTopPanel As Integer = 0
+
 #End Region    ' Fields & Properties
 
 #Region "METHODS"
@@ -54,7 +57,7 @@ Friend Module OptionModule
       End While
       If nIndex = 1 Then
          EgtOutLog("Error missing languages section in Config.ini")
-         MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
          End
       End If
       ' Inizializzo la lingua corrente
@@ -103,6 +106,8 @@ Friend Module OptionModule
       m_LineDistanceColor = DstLnColor
       ' imposto il tema 
       m_SelectedThema = GetMainPrivateProfileInt(S_GENERAL, K_THEMA, 0)
+      ' imposto il tema toppanel
+      m_SelectedThemaTopPanel = GetMainPrivateProfileInt(S_GENERAL, K_TOPPANEL, 0)
    End Sub
 
 #End Region    ' Methods