Imports EgtUILib

Public Class OptionsPageUC

   Dim m_MainWindow As MainWindow = Application.Current.MainWindow

   Private UnitsList() As String = {"inch", "mm"}

   Private Sub OptionsPageUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized

      ' Associazione della lista linguaggi alla combobox
      LanguageCmBx.ItemsSource = m_MainWindow.m_LanguagesList
      ' Associazione della lista unità di misura alla combobox
      UnitsOfMeasureCmBx.ItemsSource = UnitsList

      ' Imposto la lingua corrente
      LanguageCmBx.SelectedItem = m_MainWindow.m_CurrLanguage

      ' Imposto l'unità di misura corrente
      UnitsOfMeasureCmBx.SelectedIndex = If(EgtUiUnitsAreMM(), 1, 0)

      ' Messaggi
      LanguageGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 1)
      LanguageMsgTxBl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 2)
      UnitsOfMeasureGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 3)
   End Sub

   Private Sub LanguageCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles LanguageCmBx.SelectionChanged
      m_MainWindow.m_CurrLanguage = LanguageCmBx.SelectedItem
      WritePrivateProfileString(S_GENERAL, K_MESSAGES, m_MainWindow.m_CurrLanguage.LanguageName, m_MainWindow.GetIniFile())
   End Sub

   Private Sub UnitsOfMeasureCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles UnitsOfMeasureCmBx.SelectionChanged
      Dim bMM As Boolean = (UnitsOfMeasureCmBx.SelectedIndex <> 0)
      EgtSetUiUnits(bMM)
      m_MainWindow.m_CurrentProjectPageUC.UpdateHeightTxBx()
      WritePrivateProfileString(S_GENERAL, K_MMUNITS, If(bMM, 1, 0), m_MainWindow.GetIniFile())
   End Sub

End Class