fix: depending controls in administration (multiselect, sql editor), save topmost to config
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user