Emmanuele Sassi
7a378e44f3
- Aggiunto cambio lingua in pagina opzioni. - Sistemati tutti i testi in italiano e inglese.
25 lines
926 B
VB.net
25 lines
926 B
VB.net
Imports EgtUILib
|
|
|
|
Public Class OptionsPageUC
|
|
|
|
Dim m_MainWindow As MainWindow = Application.Current.MainWindow
|
|
|
|
Private Sub OptionsPageUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
|
|
'Associazione della lista materiali alla combobox
|
|
LanguageCmBx.ItemsSource = m_MainWindow.m_LanguagesList
|
|
|
|
'Imposto la lingua corrente
|
|
LanguageCmBx.SelectedItem = m_MainWindow.m_CurrLanguage
|
|
|
|
LanguageGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 1)
|
|
LanguageMsgTxBl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 2)
|
|
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
|
|
|
|
End Class
|