From a00cc1a39e2bfcbca91d602dc5a87f2eb5f88542 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 18 May 2020 11:12:22 +0200 Subject: [PATCH] fix: depending controls in administration (multiselect, sql editor), save topmost to config --- Global_Indexer/ClassConfig.vb | 1 + Global_Indexer/frmAdministration.vb | 18 ++++++++---------- Global_Indexer/frmIndex.designer.vb | 22 +++++++++++----------- Global_Indexer/frmIndex.resx | 8 ++++---- Global_Indexer/frmIndex.vb | 18 +++++++++++++----- 5 files changed, 37 insertions(+), 30 deletions(-) diff --git a/Global_Indexer/ClassConfig.vb b/Global_Indexer/ClassConfig.vb index 4295520..c96c5e8 100644 --- a/Global_Indexer/ClassConfig.vb +++ b/Global_Indexer/ClassConfig.vb @@ -14,6 +14,7 @@ Public Class ClassConfig Public Property ProfilePreselection As Boolean = False Public Property ShowIndexResult As Boolean = True Public Property DeleteOriginalFile As Boolean = False + Public Property TopMost As Boolean = True ' Misc Settings Public Property LogErrorsOnly As Boolean = True diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index f5f414d..1e0a444 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -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) diff --git a/Global_Indexer/frmIndex.designer.vb b/Global_Indexer/frmIndex.designer.vb index a67acb3..d48c21a 100644 --- a/Global_Indexer/frmIndex.designer.vb +++ b/Global_Indexer/frmIndex.designer.vb @@ -34,7 +34,7 @@ Partial Class frmIndex Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem() Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem() + Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem() Me.checkItemDeleteSource = New DevExpress.XtraBars.BarCheckItem() Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem() Me.labelError = New DevExpress.XtraBars.BarStaticItem() @@ -142,7 +142,7 @@ Partial Class frmIndex 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.BarCheckItem1, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.MaxItemId = 22 Me.RibbonControl1.Name = "RibbonControl1" @@ -162,14 +162,14 @@ Partial Class frmIndex Me.BarToggleSwitchItem2.Id = 2 Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2" ' - 'BarCheckItem1 + 'checkItemTopMost ' - Me.BarCheckItem1.BindableChecked = True - resources.ApplyResources(Me.BarCheckItem1, "BarCheckItem1") - Me.BarCheckItem1.Checked = True - Me.BarCheckItem1.Id = 5 - Me.BarCheckItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarCheckItem1.Name = "BarCheckItem1" + Me.checkItemTopMost.BindableChecked = True + resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost") + Me.checkItemTopMost.Checked = True + Me.checkItemTopMost.Id = 5 + Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.checkItemTopMost.Name = "checkItemTopMost" ' 'checkItemDeleteSource ' @@ -267,7 +267,7 @@ Partial Class frmIndex 'RibbonPageGroup2 ' Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' @@ -404,7 +404,7 @@ Partial Class frmIndex Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem + Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem Friend WithEvents checkItemDeleteSource As DevExpress.XtraBars.BarCheckItem Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem diff --git a/Global_Indexer/frmIndex.resx b/Global_Indexer/frmIndex.resx index 39dfa58..a40c818 100644 --- a/Global_Indexer/frmIndex.resx +++ b/Global_Indexer/frmIndex.resx @@ -246,7 +246,7 @@ Multi Indexing - + Andere Fenster überdecken @@ -766,10 +766,10 @@ DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarCheckItem1 + + checkItemTopMost - + DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 2872a8a..9053f9d 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -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