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

@@ -1432,8 +1432,6 @@ Public Class frmIndex
End If
End If
BarCheckItem1.Checked = TopMost
labelFilePath.Caption = CURRENT_WORKFILE
ClassWindowLocation.LoadFormLocationSize(Me)
@@ -1484,7 +1482,6 @@ Public Class frmIndex
End Sub
Private Sub frmIndex_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
'Me.TopMost = True
Me.BringToFront()
Me.Focus()
Me.Cursor = Cursors.Default
@@ -1495,6 +1492,9 @@ Public Class frmIndex
checkItemDeleteSource.Enabled = True
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
checkItemTopMost.Checked = CONFIG.Config.TopMost
TopMost = CONFIG.Config.TopMost
FormLoaded = True
Try
@@ -2540,8 +2540,12 @@ Public Class frmIndex
End If
End Sub
Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem1.CheckedChanged
TopMost = BarCheckItem1.Checked
Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemTopMost.CheckedChanged
If FormLoaded = True Then
TopMost = checkItemTopMost.Checked
CONFIG.Config.TopMost = checkItemTopMost.Checked
CONFIG.Save()
End If
End Sub
Private Sub checkItemDeleteSource_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemDeleteSource.CheckedChanged
@@ -2667,4 +2671,8 @@ Public Class frmIndex
CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked
CONFIG.Save()
End Sub
Private Sub frmIndex_RightToLeftChanged(sender As Object, e As EventArgs) Handles Me.RightToLeftChanged
End Sub
End Class