MS FlowSearch und Ansatz DocumentResultlist

2021-02-02 11:06:42 +01:00
parent 15653490b1
commit de685806f0
20 changed files with 635 additions and 156 deletions
--- a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmFlowSearch
-    Inherits DevExpress.XtraEditors.XtraForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()>
@@ -22,39 +22,70 @@ Partial Class frmFlowSearch
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
        Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
        Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton()
        Me.txtSearch = New System.Windows.Forms.TextBox()
        Me.lblFoundResult = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
        Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
        Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
        Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
+        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarToggleSwitchItemDateALL = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItemCURRENTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItemLASTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItemCURRENTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItemLASTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup()
+        Me.BarToggleSwitchItemTODAY = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItemYESTERDAY = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
+        Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItem2 = 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.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.Panel1.SuspendLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.DimGray
+        Me.Panel1.Controls.Add(Me.CheckButton1)
        Me.Panel1.Controls.Add(Me.txtSearch)
        Me.Panel1.Controls.Add(Me.lblFoundResult)
        Me.Panel1.Controls.Add(Me.Label1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Location = New System.Drawing.Point(0, 159)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(1245, 61)
        Me.Panel1.TabIndex = 0
        '
+        'CheckButton1
+        '
+        Me.CheckButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
+        Me.CheckButton1.Appearance.Options.UseBackColor = True
+        Me.CheckButton1.ImageOptions.SvgImage = CType(resources.GetObject("CheckButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.CheckButton1.Location = New System.Drawing.Point(7, 11)
+        Me.CheckButton1.Name = "CheckButton1"
+        Me.CheckButton1.Size = New System.Drawing.Size(110, 45)
+        Me.CheckButton1.TabIndex = 5
+        Me.CheckButton1.Text = "Zeige Alles"
+        '
        'txtSearch
        '
        Me.txtSearch.BackColor = System.Drawing.Color.White
        Me.txtSearch.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearch.Location = New System.Drawing.Point(16, 12)
+        Me.txtSearch.Location = New System.Drawing.Point(148, 11)
        Me.txtSearch.Name = "txtSearch"
        Me.txtSearch.Size = New System.Drawing.Size(167, 23)
        Me.txtSearch.TabIndex = 0
@@ -65,7 +96,7 @@ Partial Class frmFlowSearch
        Me.lblFoundResult.BackColor = System.Drawing.Color.Transparent
        Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblFoundResult.ForeColor = System.Drawing.Color.White
-        Me.lblFoundResult.Location = New System.Drawing.Point(12, 38)
+        Me.lblFoundResult.Location = New System.Drawing.Point(144, 37)
        Me.lblFoundResult.Name = "lblFoundResult"
        Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
        Me.lblFoundResult.TabIndex = 3
@@ -77,7 +108,7 @@ Partial Class frmFlowSearch
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(185, 15)
+        Me.Label1.Location = New System.Drawing.Point(321, 14)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(43, 16)
        Me.Label1.TabIndex = 0
@@ -86,7 +117,7 @@ Partial Class frmFlowSearch
        'Panel2
        '
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(0, 474)
+        Me.Panel2.Location = New System.Drawing.Point(0, 452)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(1245, 18)
        Me.Panel2.TabIndex = 1
@@ -97,11 +128,11 @@ Partial Class frmFlowSearch
        Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TileControlMatch.Groups.Add(Me.TileGroup2)
        Me.TileControlMatch.Groups.Add(Me.TileGroup3)
-        Me.TileControlMatch.Location = New System.Drawing.Point(0, 61)
+        Me.TileControlMatch.Location = New System.Drawing.Point(0, 220)
        Me.TileControlMatch.MaxId = 2
        Me.TileControlMatch.Name = "TileControlMatch"
        Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
-        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 413)
+        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 232)
        Me.TileControlMatch.TabIndex = 2
        Me.TileControlMatch.Text = "TileControl1"
        '
@@ -112,10 +143,6 @@ Partial Class frmFlowSearch
        Me.TileGroup2.Name = "TileGroup2"
        Me.TileGroup2.Text = "Attribut1"
        '
-        'TileGroup3
-        '
-        Me.TileGroup3.Name = "TileGroup3"
-        '
        'TileItem1
        '
        Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -136,6 +163,129 @@ Partial Class frmFlowSearch
        Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
        Me.TileItem2.Name = "TileItem2"
        '
+        'TileGroup3
+        '
+        Me.TileGroup3.Name = "TileGroup3"
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItemDateALL, Me.BarToggleSwitchItemCURRENTYEAR, Me.BarToggleSwitchItemLASTYEAR, Me.BarToggleSwitchItemCURRENTMONTH, Me.BarToggleSwitchItemLASTMONTH, Me.BarButtonGroup1, Me.BarToggleSwitchItemTODAY, Me.BarToggleSwitchItemYESTERDAY, Me.BarCheckItem1, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 12
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(1245, 159)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'BarToggleSwitchItemDateALL
+        '
+        Me.BarToggleSwitchItemDateALL.BindableChecked = True
+        Me.BarToggleSwitchItemDateALL.Caption = "keine Eingrenzung"
+        Me.BarToggleSwitchItemDateALL.Checked = True
+        Me.BarToggleSwitchItemDateALL.Id = 1
+        Me.BarToggleSwitchItemDateALL.Name = "BarToggleSwitchItemDateALL"
+        '
+        'BarToggleSwitchItemCURRENTYEAR
+        '
+        Me.BarToggleSwitchItemCURRENTYEAR.Caption = "Aktuelles Jahr"
+        Me.BarToggleSwitchItemCURRENTYEAR.Id = 2
+        Me.BarToggleSwitchItemCURRENTYEAR.Name = "BarToggleSwitchItemCURRENTYEAR"
+        '
+        'BarToggleSwitchItemLASTYEAR
+        '
+        Me.BarToggleSwitchItemLASTYEAR.Caption = "Letztes Jahr"
+        Me.BarToggleSwitchItemLASTYEAR.Id = 3
+        Me.BarToggleSwitchItemLASTYEAR.Name = "BarToggleSwitchItemLASTYEAR"
+        '
+        'BarToggleSwitchItemCURRENTMONTH
+        '
+        Me.BarToggleSwitchItemCURRENTMONTH.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+        Me.BarToggleSwitchItemCURRENTMONTH.Caption = "Aktueller Monat"
+        Me.BarToggleSwitchItemCURRENTMONTH.Id = 4
+        Me.BarToggleSwitchItemCURRENTMONTH.Name = "BarToggleSwitchItemCURRENTMONTH"
+        '
+        'BarToggleSwitchItemLASTMONTH
+        '
+        Me.BarToggleSwitchItemLASTMONTH.Caption = "LetzterMonat"
+        Me.BarToggleSwitchItemLASTMONTH.Id = 5
+        Me.BarToggleSwitchItemLASTMONTH.Name = "BarToggleSwitchItemLASTMONTH"
+        '
+        'BarButtonGroup1
+        '
+        Me.BarButtonGroup1.Caption = "BarButtonGroup1"
+        Me.BarButtonGroup1.Id = 6
+        Me.BarButtonGroup1.Name = "BarButtonGroup1"
+        '
+        'BarToggleSwitchItemTODAY
+        '
+        Me.BarToggleSwitchItemTODAY.Caption = "Heute"
+        Me.BarToggleSwitchItemTODAY.Id = 7
+        Me.BarToggleSwitchItemTODAY.Name = "BarToggleSwitchItemTODAY"
+        '
+        'BarToggleSwitchItemYESTERDAY
+        '
+        Me.BarToggleSwitchItemYESTERDAY.Caption = "Gestern"
+        Me.BarToggleSwitchItemYESTERDAY.Id = 8
+        Me.BarToggleSwitchItemYESTERDAY.Name = "BarToggleSwitchItemYESTERDAY"
+        '
+        'BarCheckItem1
+        '
+        Me.BarCheckItem1.Caption = "BarCheckItem1"
+        Me.BarCheckItem1.Id = 9
+        Me.BarCheckItem1.Name = "BarCheckItem1"
+        '
+        'BarToggleSwitchItem1
+        '
+        Me.BarToggleSwitchItem1.Caption = "BarToggleSwitchItem1"
+        Me.BarToggleSwitchItem1.Id = 10
+        Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
+        '
+        'BarToggleSwitchItem2
+        '
+        Me.BarToggleSwitchItem2.Caption = "BarToggleSwitchItem2"
+        Me.BarToggleSwitchItem2.Id = 11
+        Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemDateALL)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTMONTH)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTMONTH)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTODAY)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemYESTERDAY)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Datumeingränzung"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTYEAR)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarToggleSwitchItemLASTYEAR)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 470)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1245, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
        'frmFlowSearch
        '
        Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -146,12 +296,18 @@ Partial Class frmFlowSearch
        Me.Controls.Add(Me.TileControlMatch)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
        Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.Name = "frmFlowSearch"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "FlowSearch"
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
+        Me.PerformLayout()

    End Sub

@@ -165,4 +321,22 @@ Partial Class frmFlowSearch
    Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
    Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
    Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents BarToggleSwitchItemDateALL As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItemCURRENTYEAR As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItemLASTYEAR As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItemCURRENTMONTH As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItemLASTMONTH As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarButtonGroup1 As DevExpress.XtraBars.BarButtonGroup
+    Friend WithEvents BarToggleSwitchItemTODAY As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItemYESTERDAY As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents CheckButton1 As DevExpress.XtraEditors.CheckButton
 End Class