fix: depending controls in administration (multiselect, sql editor), save topmost to config

This commit is contained in:
Jonathan Jenne
2020-05-18 11:12:22 +02:00
parent 98663d3c4a
commit a00cc1a39e
5 changed files with 37 additions and 30 deletions

View File

@@ -451,16 +451,6 @@ Public Class frmAdministration
End Try
End Sub
Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
If frmloaded = True Then
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Enabled = True
Else
btnSQLView.Enabled = False
End If
End If
End Sub
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
Dim oSelectedPageName = XtraTabControl1.SelectedTabPage.Name
@@ -1432,6 +1422,14 @@ Public Class frmAdministration
End If
End Sub
Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Enabled = True
Else
btnSQLView.Enabled = False
End If
End Sub
Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged
If ListBoxControl3.SelectedIndex = -1 Then
EnableControls(Panel1, False)