Dario Sassi
41 lines
1.7 KiB
VB.net
41 lines
1.7 KiB
VB.net
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
|