Dario Sassi
724f59c616
- corretta abilitazione Compo, DXF, CSV, REG e VeinMatch con disabilitazione di FastGrid e viceversa.
90 lines
4.6 KiB
VB.net
90 lines
4.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class OptionsPageUC
|
|
|
|
Dim m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, 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)
|
|
|
|
' Leggo se la modalità FastGrid è abilitata, e controllo bit su chiave
|
|
If GetPrivateProfileInt(S_FASTGRID, K_FG_ENABLE, 0, m_MainWindow.GetIniFile()) <> 0 Then
|
|
FastGridGpBx.Visibility = Windows.Visibility.Visible
|
|
' Leggo se la modalità FastGrid è attiva
|
|
Dim bFgOn As Boolean = GetPrivateProfileInt(S_FASTGRID, K_FG_ACTIVE, 0, m_MainWindow.GetIniFile()) <> 0
|
|
EnableFastGridBtn.IsChecked = bFgOn
|
|
' Abilitazione importazione Dxf e pezzi parametrici
|
|
m_MainWindow.m_CadCutPageUC.DrawBtn.IsEnabled = Not bFgOn
|
|
m_MainWindow.m_CadCutPageUC.ImportBtn.IsEnabled = Not bFgOn
|
|
' Abilitazione Csv, Vein Matching e Registrazione
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.CSVBtn.IsEnabled = Not bFgOn
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.VeinMatchingBtn.IsEnabled = Not bFgOn
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.RegisterBtn.IsEnabled = Not bFgOn
|
|
Else
|
|
FastGridGpBx.Visibility = Windows.Visibility.Collapsed
|
|
' Attivo importazione Dxf e pezzi parametrici
|
|
m_MainWindow.m_CadCutPageUC.DrawBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.ImportBtn.IsEnabled = True
|
|
' Attivo Csv, Vein Matching e Registrazione
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.CSVBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.VeinMatchingBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.RegisterBtn.IsEnabled = True
|
|
End If
|
|
|
|
' Messaggi
|
|
LanguageGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 1)
|
|
LanguageMsgTxBl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 2)
|
|
UnitsOfMeasureGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 3)
|
|
FastGridGpBx.Header = EgtMsg(MSG_OPTIONSPAGEUC + 11)
|
|
FastGridTxBl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 12)
|
|
|
|
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
|
|
|
|
Private Sub EnableFastGridBtn_Checked(sender As Object, e As RoutedEventArgs) Handles EnableFastGridBtn.Checked
|
|
WritePrivateProfileString(S_FASTGRID, K_FG_ACTIVE, 1, m_MainWindow.GetIniFile())
|
|
' Disattivo importazione Dxf e pezzi parametrici
|
|
m_MainWindow.m_CadCutPageUC.DrawBtn.IsEnabled = False
|
|
m_MainWindow.m_CadCutPageUC.ImportBtn.IsEnabled = False
|
|
' Disattivo Csv, Vein Matching e Registrazione
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.CSVBtn.IsEnabled = False
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.VeinMatchingBtn.IsEnabled = False
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.RegisterBtn.IsEnabled = False
|
|
End Sub
|
|
|
|
Private Sub EnableFastGridBtn_Unchecked(sender As Object, e As RoutedEventArgs) Handles EnableFastGridBtn.Unchecked
|
|
WritePrivateProfileString(S_FASTGRID, K_FG_ACTIVE, 0, m_MainWindow.GetIniFile())
|
|
' Attivo importazione Dxf e pezzi parametrici
|
|
m_MainWindow.m_CadCutPageUC.DrawBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.ImportBtn.IsEnabled = True
|
|
' Attivo Csv, Vein Matching e Registrazione
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.CSVBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.VeinMatchingBtn.IsEnabled = True
|
|
m_MainWindow.m_CadCutPageUC.m_ProjectMgr.RegisterBtn.IsEnabled = True
|
|
End Sub
|
|
|
|
End Class
|