Zooflow: Custom Searches

2022-06-08 16:31:34 +02:00
parent bd136bf6be
commit d5b9cae282
22 changed files with 1024 additions and 283 deletions
--- a/GUIs.ZooFlow/Search/frmSearchFlow.Designer.vb
+++ b/GUIs.ZooFlow/Search/frmSearchFlow.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmSearchFlow
    Inherits DevExpress.XtraBars.Ribbon.RibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmSearchFlow
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
@@ -49,10 +49,17 @@ Partial Class frmSearchFlow
        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
        Me.btnSaveSearch = New DevExpress.XtraBars.BarButtonItem()
+        Me.chkGridVertical = New DevExpress.XtraBars.BarCheckItem()
+        Me.chkGridHorizontal = New DevExpress.XtraBars.BarCheckItem()
+        Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
+        Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemTrackBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RepositoryItemMarqueeProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -80,6 +87,8 @@ Partial Class frmSearchFlow
        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemTrackBar2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemMarqueeProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.PanelControl1.SuspendLayout()
@@ -137,12 +146,12 @@ Partial Class frmSearchFlow
        '
        Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 24
+        Me.RibbonControl1.MaxItemId = 28
        Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1})
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
+        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1, Me.RepositoryItemTrackBar1, Me.RepositoryItemTrackBar2})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show
@@ -168,6 +177,7 @@ Partial Class frmSearchFlow
        Me.chkOperatorAnd.Id = 16
        Me.chkOperatorAnd.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.link3
        Me.chkOperatorAnd.Name = "chkOperatorAnd"
+        Me.chkOperatorAnd.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
        '
        'chkOperatorOr
        '
@@ -176,6 +186,7 @@ Partial Class frmSearchFlow
        Me.chkOperatorOr.Id = 17
        Me.chkOperatorOr.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.unlink1
        Me.chkOperatorOr.Name = "chkOperatorOr"
+        Me.chkOperatorOr.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
        '
        'chkDatefilter2
        '
@@ -215,14 +226,58 @@ Partial Class frmSearchFlow
        '
        'btnSaveSearch
        '
-        Me.btnSaveSearch.Caption = "Aktuelle Eingabe als Suche speichern"
+        Me.btnSaveSearch.Caption = "Aktuelle Suche speichern"
        Me.btnSaveSearch.Id = 23
        Me.btnSaveSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_security_permission_action
        Me.btnSaveSearch.Name = "btnSaveSearch"
        '
+        'chkGridVertical
+        '
+        Me.chkGridVertical.Caption = "Gruppen vertikal"
+        Me.chkGridVertical.GroupIndex = 1
+        Me.chkGridVertical.Id = 24
+        Me.chkGridVertical.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.alignverticalcenter
+        Me.chkGridVertical.Name = "chkGridVertical"
+        '
+        'chkGridHorizontal
+        '
+        Me.chkGridHorizontal.Caption = "Gruppen horizontal"
+        Me.chkGridHorizontal.GroupIndex = 1
+        Me.chkGridHorizontal.Id = 25
+        Me.chkGridHorizontal.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.alignhorizontalcenter
+        Me.chkGridHorizontal.Name = "chkGridHorizontal"
+        '
+        'BarEditItem1
+        '
+        Me.BarEditItem1.Caption = "Zeilen"
+        Me.BarEditItem1.Edit = Me.RepositoryItemTrackBar1
+        Me.BarEditItem1.Id = 26
+        Me.BarEditItem1.Name = "BarEditItem1"
+        '
+        'RepositoryItemTrackBar1
+        '
+        Me.RepositoryItemTrackBar1.LabelAppearance.Options.UseTextOptions = True
+        Me.RepositoryItemTrackBar1.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
+        Me.RepositoryItemTrackBar1.Maximum = 5
+        Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1"
+        '
+        'BarEditItem2
+        '
+        Me.BarEditItem2.Caption = "BarEditItem2"
+        Me.BarEditItem2.Edit = Me.RepositoryItemTrackBar2
+        Me.BarEditItem2.Id = 27
+        Me.BarEditItem2.Name = "BarEditItem2"
+        '
+        'RepositoryItemTrackBar2
+        '
+        Me.RepositoryItemTrackBar2.LabelAppearance.Options.UseTextOptions = True
+        Me.RepositoryItemTrackBar2.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
+        Me.RepositoryItemTrackBar2.Maximum = 5
+        Me.RepositoryItemTrackBar2.Name = "RepositoryItemTrackBar2"
+        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5, Me.RibbonPageGroup3})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "Suche"
        '
@@ -249,12 +304,20 @@ Partial Class frmSearchFlow
        Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
        Me.RibbonPageGroup5.Text = "Begriffsverknüpfung"
        '
+        'RibbonPage3
+        '
+        Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
+        Me.RibbonPage3.Name = "RibbonPage3"
+        Me.RibbonPage3.Text = "Layout"
+        '
        'RibbonPageGroup3
        '
-        Me.RibbonPageGroup3.Enabled = False
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.btnSaveSearch)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.chkGridVertical)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.chkGridHorizontal)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarEditItem1)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarEditItem2)
        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        Me.RibbonPageGroup3.Text = "Eigene Suchen"
+        Me.RibbonPageGroup3.Text = "RibbonPageGroup3"
        '
        'RepositoryItemMarqueeProgressBar1
        '
@@ -336,7 +399,7 @@ Partial Class frmSearchFlow
        Me.GridSearches.MainView = Me.ViewSearches
        Me.GridSearches.MenuManager = Me.RibbonControl1
        Me.GridSearches.Name = "GridSearches"
-        Me.GridSearches.Size = New System.Drawing.Size(858, 184)
+        Me.GridSearches.Size = New System.Drawing.Size(858, 183)
        Me.GridSearches.TabIndex = 1
        Me.GridSearches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSearches})
        '
@@ -376,16 +439,16 @@ Partial Class frmSearchFlow
        TableRowDefinition1.Length.Value = 43.0R
        ItemTemplate1.Rows.Add(TableRowDefinition1)
        Me.ViewSearches.Templates.Add(ItemTemplate1)
-        TableColumnDefinition3.Length.Value = 30.0R
+        TableColumnDefinition3.Length.Value = 35.0R
        TableColumnDefinition3.PaddingRight = 5
-        TableColumnDefinition4.Length.Value = 129.0R
+        TableColumnDefinition4.Length.Value = 111.0R
        Me.ViewSearches.TileColumns.Add(TableColumnDefinition3)
        Me.ViewSearches.TileColumns.Add(TableColumnDefinition4)
        TableRowDefinition2.Length.Value = 17.0R
        TableRowDefinition3.Length.Value = 45.0R
        Me.ViewSearches.TileRows.Add(TableRowDefinition2)
        Me.ViewSearches.TileRows.Add(TableRowDefinition3)
-        TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
        TileViewItemElement3.Appearance.Normal.Options.UseFont = True
        TileViewItemElement3.Column = Me.colName
        TileViewItemElement3.ColumnIndex = 1
@@ -421,7 +484,7 @@ Partial Class frmSearchFlow
        'DateEditFrom
        '
        Me.DateEditFrom.EditValue = Nothing
-        Me.DateEditFrom.Location = New System.Drawing.Point(95, 327)
+        Me.DateEditFrom.Location = New System.Drawing.Point(95, 326)
        Me.DateEditFrom.MenuManager = Me.RibbonControl1
        Me.DateEditFrom.Name = "DateEditFrom"
        Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -433,7 +496,7 @@ Partial Class frmSearchFlow
        'DateEditTo
        '
        Me.DateEditTo.EditValue = Nothing
-        Me.DateEditTo.Location = New System.Drawing.Point(95, 379)
+        Me.DateEditTo.Location = New System.Drawing.Point(95, 378)
        Me.DateEditTo.MenuManager = Me.RibbonControl1
        Me.DateEditTo.Name = "DateEditTo"
        Me.DateEditTo.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -444,7 +507,7 @@ Partial Class frmSearchFlow
        '
        'CheckEdit1
        '
-        Me.CheckEdit1.Location = New System.Drawing.Point(4, 354)
+        Me.CheckEdit1.Location = New System.Drawing.Point(4, 353)
        Me.CheckEdit1.MenuManager = Me.RibbonControl1
        Me.CheckEdit1.Name = "CheckEdit1"
        Me.CheckEdit1.Properties.OffText = "Datum bis deaktiviert"
@@ -455,7 +518,7 @@ Partial Class frmSearchFlow
        '
        'ComboBoxDateAttributes
        '
-        Me.ComboBoxDateAttributes.Location = New System.Drawing.Point(95, 409)
+        Me.ComboBoxDateAttributes.Location = New System.Drawing.Point(95, 408)
        Me.ComboBoxDateAttributes.MenuManager = Me.RibbonControl1
        Me.ComboBoxDateAttributes.Name = "ComboBoxDateAttributes"
        Me.ComboBoxDateAttributes.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -481,10 +544,10 @@ Partial Class frmSearchFlow
        Me.LayoutControlGroupDate2.AppearanceGroup.Options.UseBorderColor = True
        Me.LayoutControlGroupDate2.BestFitWeight = 0
        Me.LayoutControlGroupDate2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem4, Me.EmptySpaceItem1, Me.LayoutControlItem6, Me.LayoutControlItem8})
-        Me.LayoutControlGroupDate2.Location = New System.Drawing.Point(0, 298)
+        Me.LayoutControlGroupDate2.Location = New System.Drawing.Point(0, 297)
        Me.LayoutControlGroupDate2.Name = "LayoutControlGroupDate2"
        Me.LayoutControlGroupDate2.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0)
-        Me.LayoutControlGroupDate2.Size = New System.Drawing.Size(886, 148)
+        Me.LayoutControlGroupDate2.Size = New System.Drawing.Size(886, 149)
        Me.LayoutControlGroupDate2.Text = "Eigenes Datum"
        Me.LayoutControlGroupDate2.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
        '
@@ -514,7 +577,7 @@ Partial Class frmSearchFlow
        Me.EmptySpaceItem1.AllowHotTrack = False
        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 112)
        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
-        Me.EmptySpaceItem1.Size = New System.Drawing.Size(882, 10)
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(882, 11)
        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
        '
        'LayoutControlItem6
@@ -543,7 +606,7 @@ Partial Class frmSearchFlow
        Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3})
        Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 64)
        Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
-        Me.LayoutControlGroup3.Size = New System.Drawing.Size(886, 234)
+        Me.LayoutControlGroup3.Size = New System.Drawing.Size(886, 233)
        Me.LayoutControlGroup3.Text = "Meine Suchen"
        '
        'LayoutControlItem3
@@ -551,7 +614,7 @@ Partial Class frmSearchFlow
        Me.LayoutControlItem3.Control = Me.GridSearches
        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(862, 188)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(862, 187)
        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
        Me.LayoutControlItem3.TextVisible = False
        '
@@ -588,6 +651,8 @@ Partial Class frmSearchFlow
        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "Search Flow"
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemTrackBar2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RepositoryItemMarqueeProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.PanelControl1.ResumeLayout(False)
@@ -662,5 +727,12 @@ Partial Class frmSearchFlow
    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents colGroupText As DevExpress.XtraGrid.Columns.TileViewColumn
    Friend WithEvents btnSaveSearch As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents chkGridVertical As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents chkGridHorizontal As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
+    Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemTrackBar2 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
 End Class