MS Parameters SearchStart

2020-11-12 14:59:07 +01:00
parent 0cd5d46094
commit d0511d6d7a
2 changed files with 219 additions and 267 deletions
--- a/GUIs.ZooFlow/frmSearchStart.Designer.vb
+++ b/GUIs.ZooFlow/frmSearchStart.Designer.vb
@@ -47,12 +47,12 @@ Partial Class frmSearchStart
        Me.SwitchFilter = New DevExpress.XtraBars.BarToggleSwitchItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupProfiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupFilter = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
        Me.RepositoryItemTimeSpanEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnlProfileChoose = New System.Windows.Forms.Panel()
        Me.cmbProfile = New System.Windows.Forms.ComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@@ -66,13 +66,11 @@ Partial Class frmSearchStart
        Me.XtraTabPage8 = New DevExpress.XtraTab.XtraTabPage()
        Me.XtraTabPage9 = New DevExpress.XtraTab.XtraTabPage()
        Me.XtraTabPage10 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlSerchTerms = New DevExpress.XtraGrid.GridControl()
        Me.ContextMenuStripSearchTerms = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.tsmOperator = New System.Windows.Forms.ToolStripMenuItem()
        Me.BracketLeftToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.KlammerRechtsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.KlammerEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.GridViewSearchTerms = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.SplitContainerControlSearch = New DevExpress.XtraEditors.SplitContainerControl()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -84,12 +82,10 @@ Partial Class frmSearchStart
        CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel1.SuspendLayout()
+        Me.pnlProfileChoose.SuspendLayout()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl1.SuspendLayout()
-        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStripSearchTerms.SuspendLayout()
-        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainerControlSearch.SuspendLayout()
        Me.SuspendLayout()
@@ -244,7 +240,7 @@ Partial Class frmSearchStart
        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroupFilter})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupProfiles, Me.RibbonPageGroupFilter})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "Start"
        '
@@ -258,12 +254,12 @@ Partial Class frmSearchStart
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Suchfunktionen"
        '
-        'RibbonPageGroup2
+        'RibbonPageGroupProfiles
        '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarStaticItem1)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarEditItem2)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "Auswahl Suche"
+        Me.RibbonPageGroupProfiles.ItemLinks.Add(Me.BarStaticItem1)
+        Me.RibbonPageGroupProfiles.ItemLinks.Add(Me.BarEditItem2)
+        Me.RibbonPageGroupProfiles.Name = "RibbonPageGroupProfiles"
+        Me.RibbonPageGroupProfiles.Text = "Auswahl Suche"
        '
        'RibbonPageGroupFilter
        '
@@ -293,18 +289,18 @@ Partial Class frmSearchStart
        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1070, 22)
        '
-        'Panel1
+        'pnlProfileChoose
        '
-        Me.Panel1.BackColor = System.Drawing.Color.Transparent
-        Me.Panel1.Controls.Add(Me.cmbProfile)
-        Me.Panel1.Controls.Add(Me.Label1)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Panel1.Location = New System.Drawing.Point(0, 159)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1070, 57)
-        Me.Panel1.TabIndex = 5
+        Me.pnlProfileChoose.BackColor = System.Drawing.Color.Transparent
+        Me.pnlProfileChoose.Controls.Add(Me.cmbProfile)
+        Me.pnlProfileChoose.Controls.Add(Me.Label1)
+        Me.pnlProfileChoose.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlProfileChoose.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.pnlProfileChoose.Location = New System.Drawing.Point(0, 159)
+        Me.pnlProfileChoose.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
+        Me.pnlProfileChoose.Name = "pnlProfileChoose"
+        Me.pnlProfileChoose.Size = New System.Drawing.Size(1070, 57)
+        Me.pnlProfileChoose.TabIndex = 5
        '
        'cmbProfile
        '
@@ -335,20 +331,20 @@ Partial Class frmSearchStart
        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
        Me.XtraTabControl1.Name = "XtraTabControl1"
        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(750, 363)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1070, 363)
        Me.XtraTabControl1.TabIndex = 12
        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5, Me.XtraTabPage6, Me.XtraTabPage7, Me.XtraTabPage8, Me.XtraTabPage9, Me.XtraTabPage10})
        '
        'XtraTabPage1
        '
        Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(748, 340)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(1068, 340)
        Me.XtraTabPage1.Text = "Search#1"
        '
        'XtraTabPage2
        '
        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(748, 340)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1068, 340)
        Me.XtraTabPage2.Text = "Search#2"
        '
        'XtraTabPage3
@@ -399,18 +395,6 @@ Partial Class frmSearchStart
        Me.XtraTabPage10.Size = New System.Drawing.Size(748, 340)
        Me.XtraTabPage10.Text = "Search#10"
        '
-        'GridControlSerchTerms
-        '
-        Me.GridControlSerchTerms.ContextMenuStrip = Me.ContextMenuStripSearchTerms
-        Me.GridControlSerchTerms.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlSerchTerms.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlSerchTerms.MainView = Me.GridViewSearchTerms
-        Me.GridControlSerchTerms.MenuManager = Me.RibbonControl1
-        Me.GridControlSerchTerms.Name = "GridControlSerchTerms"
-        Me.GridControlSerchTerms.Size = New System.Drawing.Size(310, 363)
-        Me.GridControlSerchTerms.TabIndex = 15
-        Me.GridControlSerchTerms.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearchTerms})
-        '
        'ContextMenuStripSearchTerms
        '
        Me.ContextMenuStripSearchTerms.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmOperator, Me.BracketLeftToolStripMenuItem, Me.KlammerRechtsToolStripMenuItem, Me.KlammerEntfernenToolStripMenuItem})
@@ -441,22 +425,9 @@ Partial Class frmSearchStart
        Me.KlammerEntfernenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
        Me.KlammerEntfernenToolStripMenuItem.Text = "Klammer entfernen"
        '
-        'GridViewSearchTerms
-        '
-        Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(125, Byte), Integer))
-        Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms
-        Me.GridViewSearchTerms.Name = "GridViewSearchTerms"
-        Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
-        Me.GridViewSearchTerms.OptionsBehavior.Editable = False
-        Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = False
-        Me.GridViewSearchTerms.OptionsView.ShowViewCaption = True
-        Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium"
-        '
        'SplitContainerControlSearch
        '
+        Me.SplitContainerControlSearch.Collapsed = True
        Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        Me.SplitContainerControlSearch.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
@@ -464,8 +435,8 @@ Partial Class frmSearchStart
        Me.SplitContainerControlSearch.Name = "SplitContainerControlSearch"
        Me.SplitContainerControlSearch.Panel1.Controls.Add(Me.XtraTabControl1)
        Me.SplitContainerControlSearch.Panel1.Text = "Panel1"
-        Me.SplitContainerControlSearch.Panel2.Controls.Add(Me.GridControlSerchTerms)
        Me.SplitContainerControlSearch.Panel2.Text = "Panel2"
+        Me.SplitContainerControlSearch.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1
        Me.SplitContainerControlSearch.Size = New System.Drawing.Size(1070, 363)
        Me.SplitContainerControlSearch.SplitterPosition = 310
        Me.SplitContainerControlSearch.TabIndex = 16
@@ -478,7 +449,7 @@ Partial Class frmSearchStart
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1070, 601)
        Me.Controls.Add(Me.SplitContainerControlSearch)
-        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.pnlProfileChoose)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
@@ -499,13 +470,11 @@ Partial Class frmSearchStart
        CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
+        Me.pnlProfileChoose.ResumeLayout(False)
+        Me.pnlProfileChoose.PerformLayout()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabControl1.ResumeLayout(False)
-        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ContextMenuStripSearchTerms.ResumeLayout(False)
-        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerControlSearch.ResumeLayout(False)
        Me.ResumeLayout(False)
@@ -517,7 +486,7 @@ End Sub
    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
-    Friend WithEvents Panel1 As Panel
+    Friend WithEvents pnlProfileChoose As Panel
    Friend WithEvents cmbProfile As ComboBox
    Friend WithEvents Label1 As Label
    Friend WithEvents BarButtonItemNewSearch As DevExpress.XtraBars.BarButtonItem
@@ -538,12 +507,10 @@ End Sub
    Friend WithEvents RepositoryItemRadioGroup1 As DevExpress.XtraEditors.Repository.RepositoryItemRadioGroup
    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents GridControlSerchTerms As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewSearchTerms As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents SplitContainerControlSearch As DevExpress.XtraEditors.SplitContainerControl
    Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem
    Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroupProfiles As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents BarStaticItemInfo As DevExpress.XtraBars.BarStaticItem
    Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip
    Friend WithEvents tsmOperator As ToolStripMenuItem