MS FlowSearch

GUIs.ZooFlow/ClassConstants.vb

@@ -27,7 +27,8 @@
 
     Public Const NOTIFICATION_DELAY = 2500
 
-    Public Const SQLCMD_FLOW_SEARCH1 = "FLOW_SEARCH1"
+    Public Const SQLCMD_FLOW_SEARCH_LOWER_LIMIT = "FLOW_SEARCH_LOWER_LIMIT"
+    Public Const SQLCMD_FLOW_SEARCH_TILE = "FLOW_SEARCH_PER_TILE"
 
     Public Const RESULTLIST_COL_ADDED_WHEN_DE = "Erstellt wann"
     Public Const RESULTLIST_COL_CHANGED_WHEN_DE = "Geändert wann"

GUIs.ZooFlow/ClassInit.vb

@@ -313,22 +313,22 @@ Public Class ClassInit
                 For Each oLine In oLines
                     _Logger.Debug(oLine.Trim)
                     If oLine = "NO_BASICCONF" Then
-                        My.Application.User.HideBasicConfig = True
+                        MyApplication.User.HideBasicConfig = True
 
                     ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then
                         Try
                             Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "")
-                            My.Application.Search.StringAttributeId = Long.Parse(oResult)
+                            MyApplication.Search.SelectInStringAttributeIds = oResult
                         Catch ex As Exception
-                            My.Application.Search.StringAttributeId = -1
+                            MyApplication.Search.SelectInStringAttributeIds = ""
                         End Try
                     ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then
                         Try
                             Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "")
 
-                            My.Application.Search.IntegerAttributeId = Long.Parse(oResult)
+                            MyApplication.Search.SelectInIntegerAttributeIds = oResult
                         Catch ex As Exception
-                            My.Application.Search.IntegerAttributeId = -1
+                            MyApplication.Search.SelectInIntegerAttributeIds = ""
                         End Try
                     Else
                         _Logger.Info($"Wrong WorkingMode: {oLine}")

GUIs.ZooFlow/Search/State.vb

@@ -1,6 +1,6 @@
 Namespace Search
     Public Class State
-        Public Property StringAttributeId As Long = -1
+        Public Property SelectInStringAttributeIds As String = ""
-        Public Property IntegerAttributeId As Long = -1
+        Public Property SelectInIntegerAttributeIds As String = ""
     End Class
 End Namespace

GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb

@@ -22,54 +22,25 @@ Partial Class frmFlowSearch
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim TileItemElement19 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
+        Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement20 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
+        Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement21 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement22 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement23 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemFrame3 As DevExpress.XtraEditors.TileItemFrame = New DevExpress.XtraEditors.TileItemFrame()
-        Dim TileItemElement24 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
-        Dim TileItemFrame4 As DevExpress.XtraEditors.TileItemFrame = New DevExpress.XtraEditors.TileItemFrame()
-        Dim TileItemElement25 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement26 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement27 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement28 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement29 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement30 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement31 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement32 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement33 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement34 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement35 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement36 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
         Me.Panel1 = New System.Windows.Forms.Panel()
         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.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
+        Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
+        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
         Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
         Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
-        Me.TileItem3 = New DevExpress.XtraEditors.TileItem()
-        Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileItem5 = New DevExpress.XtraEditors.TileItem()
-        Me.TileItem4 = New DevExpress.XtraEditors.TileItem()
-        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileItem6 = New DevExpress.XtraEditors.TileItem()
-        Me.TileItem7 = New DevExpress.XtraEditors.TileItem()
-        Me.TileItem8 = New DevExpress.XtraEditors.TileItem()
-        Me.TileGroup4 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileItem9 = New DevExpress.XtraEditors.TileItem()
-        Me.TileItem10 = New DevExpress.XtraEditors.TileItem()
-        Me.TileGroup5 = New DevExpress.XtraEditors.TileGroup()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'Panel1
         '
+        Me.Panel1.BackColor = System.Drawing.Color.DimGray
         Me.Panel1.Controls.Add(Me.txtSearch)
         Me.Panel1.Controls.Add(Me.lblFoundResult)
         Me.Panel1.Controls.Add(Me.Label1)
@@ -81,19 +52,19 @@ Partial Class frmFlowSearch
         '
         'txtSearch
         '
-        Me.txtSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
+        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.Name = "txtSearch"
         Me.txtSearch.Size = New System.Drawing.Size(167, 23)
-        Me.txtSearch.TabIndex = 1
+        Me.txtSearch.TabIndex = 0
         '
         'lblFoundResult
         '
         Me.lblFoundResult.AutoSize = True
-        Me.lblFoundResult.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
+        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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
+        Me.lblFoundResult.ForeColor = System.Drawing.Color.White
         Me.lblFoundResult.Location = New System.Drawing.Point(12, 38)
         Me.lblFoundResult.Name = "lblFoundResult"
         Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
@@ -105,342 +76,66 @@ 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.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
+        Me.Label1.ForeColor = System.Drawing.Color.White
         Me.Label1.Location = New System.Drawing.Point(185, 15)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "finden"
         '
+        'Panel2
+        '
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel2.Location = New System.Drawing.Point(0, 474)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1245, 18)
+        Me.Panel2.TabIndex = 1
+        '
         'TileControlMatch
         '
-        Me.TileControlMatch.AllowDragTilesBetweenGroups = False
+        Me.TileControlMatch.BackColor = System.Drawing.Color.DimGray
-        Me.TileControlMatch.AllowGlyphSkinning = True
-        Me.TileControlMatch.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
-        Me.TileControlMatch.AppearanceGroupText.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White
-        Me.TileControlMatch.AppearanceGroupText.Options.UseBackColor = True
-        Me.TileControlMatch.AppearanceGroupText.Options.UseFont = True
-        Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
-        Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.TileControlMatch.ColumnCount = 6
         Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
-        Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
-        Me.TileControlMatch.Groups.Add(Me.TileGroupData)
         Me.TileControlMatch.Groups.Add(Me.TileGroup2)
         Me.TileControlMatch.Groups.Add(Me.TileGroup3)
-        Me.TileControlMatch.Groups.Add(Me.TileGroup4)
-        Me.TileControlMatch.Groups.Add(Me.TileGroup5)
-        Me.TileControlMatch.IndentBetweenGroups = 25
         Me.TileControlMatch.Location = New System.Drawing.Point(0, 61)
-        Me.TileControlMatch.MaxId = 14
+        Me.TileControlMatch.MaxId = 2
         Me.TileControlMatch.Name = "TileControlMatch"
         Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
-        Me.TileControlMatch.ShowGroupText = True
+        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 413)
-        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 431)
         Me.TileControlMatch.TabIndex = 2
         Me.TileControlMatch.Text = "TileControl1"
         '
-        'TileGroupDocumentsData
+        'TileGroup2
         '
-        Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
+        Me.TileGroup2.Items.Add(Me.TileItem1)
-        Me.TileGroupDocumentsData.Text = "Kombiniert"
+        Me.TileGroup2.Items.Add(Me.TileItem2)
-        Me.TileGroupDocumentsData.Visible = False
+        Me.TileGroup2.Name = "TileGroup2"
+        Me.TileGroup2.Text = "Attribut1"
         '
-        'TileGroupDocuments
+        'TileGroup3
         '
-        Me.TileGroupDocuments.Items.Add(Me.TileItem1)
+        Me.TileGroup3.Name = "TileGroup3"
-        Me.TileGroupDocuments.Items.Add(Me.TileItem2)
-        Me.TileGroupDocuments.Items.Add(Me.TileItem3)
-        Me.TileGroupDocuments.Name = "TileGroupDocuments"
-        Me.TileGroupDocuments.Text = "Dokumente"
         '
         'TileItem1
         '
-        Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
         Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True
-        TileItemElement19.Appearance.Normal.ForeColor = System.Drawing.Color.Black
+        TileItemElement1.Text = "TileItem1"
-        TileItemElement19.Appearance.Normal.Options.UseForeColor = True
+        Me.TileItem1.Elements.Add(TileItemElement1)
-        TileItemElement19.Text = "TileItem1"
-        Me.TileItem1.Elements.Add(TileItemElement19)
         Me.TileItem1.Id = 0
         Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
         Me.TileItem1.Name = "TileItem1"
         '
         'TileItem2
         '
-        Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White
         Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True
-        Me.TileItem2.CurrentFrameIndex = 1
+        TileItemElement2.Text = "TileItem2"
-        TileItemElement20.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
+        Me.TileItem2.Elements.Add(TileItemElement2)
-        TileItemElement20.Appearance.Hovered.Options.UseFont = True
-        TileItemElement20.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement20.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement20.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement20.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
-        TileItemElement20.Appearance.Normal.Options.UseFont = True
-        TileItemElement20.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement20.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement20.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement20.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
-        TileItemElement20.Appearance.Selected.Options.UseFont = True
-        TileItemElement20.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement20.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement20.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement20.Text = "Header"
-        TileItemElement20.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement20.TextLocation = New System.Drawing.Point(4, 0)
-        TileItemElement21.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement21.Appearance.Hovered.Options.UseFont = True
-        TileItemElement21.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement21.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement21.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement21.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement21.Appearance.Normal.Options.UseFont = True
-        TileItemElement21.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement21.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement21.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement21.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement21.Appearance.Selected.Options.UseFont = True
-        TileItemElement21.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement21.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement21.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement21.Text = "Text2"
-        TileItemElement21.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement21.TextLocation = New System.Drawing.Point(4, 27)
-        TileItemElement22.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement22.Appearance.Hovered.Options.UseFont = True
-        TileItemElement22.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement22.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement22.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement22.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement22.Appearance.Normal.Options.UseFont = True
-        TileItemElement22.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement22.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement22.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement22.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement22.Appearance.Selected.Options.UseFont = True
-        TileItemElement22.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement22.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement22.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement22.Text = "Text3"
-        TileItemElement22.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement22.TextLocation = New System.Drawing.Point(4, 43)
-        TileItemElement23.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement23.Appearance.Hovered.Options.UseFont = True
-        TileItemElement23.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement23.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement23.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement23.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement23.Appearance.Normal.Options.UseFont = True
-        TileItemElement23.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement23.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement23.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement23.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement23.Appearance.Selected.Options.UseFont = True
-        TileItemElement23.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement23.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement23.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement23.Text = "Text4"
-        TileItemElement23.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement23.TextLocation = New System.Drawing.Point(4, 59)
-        Me.TileItem2.Elements.Add(TileItemElement20)
-        Me.TileItem2.Elements.Add(TileItemElement21)
-        Me.TileItem2.Elements.Add(TileItemElement22)
-        Me.TileItem2.Elements.Add(TileItemElement23)
-        TileItemFrame3.Animation = DevExpress.XtraEditors.TileItemContentAnimationType.ScrollDown
-        TileItemElement24.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
-        TileItemElement24.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement24.ImageOptions.ImageLocation = New System.Drawing.Point(-12, -8)
-        TileItemElement24.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomOutside
-        TileItemElement24.ImageOptions.ImageSize = New System.Drawing.Size(120, 120)
-        TileItemFrame3.Elements.Add(TileItemElement24)
-        TileItemFrame3.Image = CType(resources.GetObject("TileItemFrame3.Image"), System.Drawing.Image)
-        TileItemFrame4.Animation = DevExpress.XtraEditors.TileItemContentAnimationType.ScrollTop
-        TileItemElement25.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
-        TileItemElement25.Appearance.Hovered.Options.UseFont = True
-        TileItemElement25.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement25.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement25.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement25.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
-        TileItemElement25.Appearance.Normal.Options.UseFont = True
-        TileItemElement25.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement25.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement25.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement25.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
-        TileItemElement25.Appearance.Selected.Options.UseFont = True
-        TileItemElement25.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement25.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement25.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement25.Text = "Header"
-        TileItemElement25.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement25.TextLocation = New System.Drawing.Point(4, 0)
-        TileItemElement26.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement26.Appearance.Hovered.Options.UseFont = True
-        TileItemElement26.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement26.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement26.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement26.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement26.Appearance.Normal.Options.UseFont = True
-        TileItemElement26.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement26.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement26.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement26.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement26.Appearance.Selected.Options.UseFont = True
-        TileItemElement26.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement26.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement26.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement26.Text = "Text2"
-        TileItemElement26.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement26.TextLocation = New System.Drawing.Point(4, 27)
-        TileItemElement27.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement27.Appearance.Hovered.Options.UseFont = True
-        TileItemElement27.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement27.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement27.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement27.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement27.Appearance.Normal.Options.UseFont = True
-        TileItemElement27.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement27.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement27.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement27.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement27.Appearance.Selected.Options.UseFont = True
-        TileItemElement27.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement27.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement27.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement27.Text = "Text3"
-        TileItemElement27.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement27.TextLocation = New System.Drawing.Point(4, 43)
-        TileItemElement28.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement28.Appearance.Hovered.Options.UseFont = True
-        TileItemElement28.Appearance.Hovered.Options.UseTextOptions = True
-        TileItemElement28.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement28.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement28.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement28.Appearance.Normal.Options.UseFont = True
-        TileItemElement28.Appearance.Normal.Options.UseTextOptions = True
-        TileItemElement28.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement28.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement28.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        TileItemElement28.Appearance.Selected.Options.UseFont = True
-        TileItemElement28.Appearance.Selected.Options.UseTextOptions = True
-        TileItemElement28.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
-        TileItemElement28.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
-        TileItemElement28.Text = "Text4"
-        TileItemElement28.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileItemElement28.TextLocation = New System.Drawing.Point(4, 59)
-        TileItemFrame4.Elements.Add(TileItemElement25)
-        TileItemFrame4.Elements.Add(TileItemElement26)
-        TileItemFrame4.Elements.Add(TileItemElement27)
-        TileItemFrame4.Elements.Add(TileItemElement28)
-        Me.TileItem2.Frames.Add(TileItemFrame3)
-        Me.TileItem2.Frames.Add(TileItemFrame4)
         Me.TileItem2.Id = 1
         Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
         Me.TileItem2.Name = "TileItem2"
         '
-        'TileItem3
-        '
-        Me.TileItem3.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.TileItem3.AppearanceItem.Normal.Options.UseBackColor = True
-        TileItemElement29.Text = "TileItem3"
-        Me.TileItem3.Elements.Add(TileItemElement29)
-        Me.TileItem3.Id = 2
-        Me.TileItem3.ItemSize = DevExpress.XtraEditors.TileItemSize.Small
-        Me.TileItem3.Name = "TileItem3"
-        '
-        'TileGroupData
-        '
-        Me.TileGroupData.Name = "TileGroupData"
-        Me.TileGroupData.Text = "Daten"
-        '
-        'TileGroup2
-        '
-        Me.TileGroup2.Items.Add(Me.TileItem5)
-        Me.TileGroup2.Items.Add(Me.TileItem4)
-        Me.TileGroup2.Name = "TileGroup2"
-        Me.TileGroup2.Text = "Group3"
-        '
-        'TileItem5
-        '
-        TileItemElement30.Text = "TileItem5"
-        Me.TileItem5.Elements.Add(TileItemElement30)
-        Me.TileItem5.Id = 11
-        Me.TileItem5.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
-        Me.TileItem5.Name = "TileItem5"
-        '
-        'TileItem4
-        '
-        TileItemElement31.Text = "TileItem4dadadasdasdasdasdasd"
-        TileItemElement31.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
-        Me.TileItem4.Elements.Add(TileItemElement31)
-        Me.TileItem4.Id = 3
-        Me.TileItem4.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
-        Me.TileItem4.Name = "TileItem4"
-        Me.TileItem4.RowCount = 3
-        Me.TileItem4.TextShowMode = DevExpress.XtraEditors.TileItemContentShowMode.Hover
-        '
-        'TileGroup3
-        '
-        Me.TileGroup3.Items.Add(Me.TileItem6)
-        Me.TileGroup3.Items.Add(Me.TileItem7)
-        Me.TileGroup3.Items.Add(Me.TileItem8)
-        Me.TileGroup3.Name = "TileGroup3"
-        Me.TileGroup3.Text = "Group4"
-        '
-        'TileItem6
-        '
-        TileItemElement32.Text = "TileItem6"
-        Me.TileItem6.Elements.Add(TileItemElement32)
-        Me.TileItem6.Id = 6
-        Me.TileItem6.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
-        Me.TileItem6.Name = "TileItem6"
-        '
-        'TileItem7
-        '
-        TileItemElement33.Text = "TileItem7"
-        Me.TileItem7.Elements.Add(TileItemElement33)
-        Me.TileItem7.Id = 7
-        Me.TileItem7.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
-        Me.TileItem7.Name = "TileItem7"
-        '
-        'TileItem8
-        '
-        TileItemElement34.Text = "TileItem8"
-        Me.TileItem8.Elements.Add(TileItemElement34)
-        Me.TileItem8.Id = 8
-        Me.TileItem8.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
-        Me.TileItem8.Name = "TileItem8"
-        '
-        'TileGroup4
-        '
-        Me.TileGroup4.Items.Add(Me.TileItem9)
-        Me.TileGroup4.Items.Add(Me.TileItem10)
-        Me.TileGroup4.Name = "TileGroup4"
-        Me.TileGroup4.Text = "Group5"
-        '
-        'TileItem9
-        '
-        TileItemElement35.Text = "TileItem9"
-        Me.TileItem9.Elements.Add(TileItemElement35)
-        Me.TileItem9.Id = 12
-        Me.TileItem9.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
-        Me.TileItem9.Name = "TileItem9"
-        '
-        'TileItem10
-        '
-        TileItemElement36.Text = "TileItem10"
-        Me.TileItem10.Elements.Add(TileItemElement36)
-        Me.TileItem10.Id = 13
-        Me.TileItem10.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
-        Me.TileItem10.Name = "TileItem10"
-        '
-        'TileGroup5
-        '
-        Me.TileGroup5.Name = "TileGroup5"
-        Me.TileGroup5.Text = "Group 6"
-        '
         'frmFlowSearch
         '
         Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -449,6 +144,7 @@ Partial Class frmFlowSearch
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1245, 492)
         Me.Controls.Add(Me.TileControlMatch)
+        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)
         Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.Name = "frmFlowSearch"
@@ -462,23 +158,11 @@ Partial Class frmFlowSearch
     Friend WithEvents Panel1 As Panel
     Friend WithEvents txtSearch As TextBox
     Friend WithEvents Label1 As Label
+    Friend WithEvents lblFoundResult As Label
+    Friend WithEvents Panel2 As Panel
     Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
-    Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
+    Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
     Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
     Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileItem3 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileItem5 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileItem4 As DevExpress.XtraEditors.TileItem
     Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileItem6 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileItem7 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileItem8 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileGroup4 As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileItem9 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileItem10 As DevExpress.XtraEditors.TileItem
-    Friend WithEvents TileGroup5 As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents lblFoundResult As Label
 End Class

GUIs.ZooFlow/Search/frmFlowSearch.resx

@@ -117,89 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="resource.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAHgAAAB4CAYAAAA5ZDbSAAAABGdBTUEAALGPC/xhBQAACFBJREFUeF7t
-        nN9rlmUcxj3wwAPBAw889UAQPPIP8KBlqAUjsyhiBytCKoqRIpn9IBZm5Y8ywUE6WqARhpKwSUvbwlKX
-        aIlNSdhcc2PTZjN92Y+2d5t9r7tbuG+fa83t1e2+7/d7wQf6XtfzffY+z8Vs77v33azbt28rCUNNJR2o
-        qaQDNZV0yBqzZj2kxEumz4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsAclU
-        AYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5
-        eIMxyBKQTBWQWEcAkYs3GIMsAcmozp8//6XobeX+g3trb3NGrCOAyMUbjEGWgGRUeCDseKVwcG/tbc6I
-        HQ8QuXiDMcgSkIxKC35waMGJowUnjhacOFpw4mjBiRNlwfPmzVt+4MCBd69cudLQ39/flc/n+0Aul/uj
-        paWldvfu3evYXjESXcFVVVXrpdROuzquent7L2zYsOF5do5iIqqCjx8/vlsOH/tva2KNjo7+s2/fvjfZ
-        uYqFaAquq6v70B4+KY2NjeW3bdv2KjtnMRBFweXl5c/iu9EePmkNDg7+uXjx4lXs3KkTRcFtbW3f2kOn
-        rFOnTn3Gzp06wRe8dOnSx+S7d8geOmXhBzN2/tQJvuDq6uqN9rCC9bSIfY2UCb7gxsbGT+1hBWvPnj0b
-        2NdImeALPnPmzOf2sIL1f18nVYIvuKGh4RN7WMEqxle4gi8YpdjDCtaqVaueYF8jZYIveOHChSvz+Xy/
-        PXTKunXrVgs7f+oEXzC4ePHiQXvolHXs2LGP2blTJ4qCV6xYsXp4eDhnD5+0crlc2/z58x9h506dKAoG
-        eD48JrIr9yz8875u3bpyds5iIJqCAX4HPJlXtYaGhv7esmXLy+xcxUJUBQN8N16/fv1Xuzqextrb278v
-        LS19kp2jmIiu4DtUVla+iHft9/T0/CI/IV8WWq9evdp0+vTpvWvXri1jO8VItAUr94YWnDhacOJowYmj
-        BSeOFpw4WnBgzJ49u+Tw4cPv9/X1deAp35IlSx5lx90rWnBAVFRUZF7EGR4evnXixIkq/FaN7UyEFhwA
-        KO/cuXP78R5ue0syGhoa6m1sbNy1YMGCSf3SRAueYWpqat4YGBjotrdiQuE93kePHt2Oz2ex892NFjxD
-        4B2enZ2dP9pbMGnhQ3f4tMecOXNK2PnvoAVPM/jOw/9TR0ZGBuzlFyT5Yaz90KFD741XtBY8jWzduvWV
-        XC532V72fRXekoT7iJ/C3a+pBU8Dy5YtK21tba2zl/tAdfPmzd+rq6tfv/O1teAHCL6bjhw58hGe6thL
-        nTb19vY279q16zUt+AGxfv365+Qm/2YvccaEn7rtf2bEHjdA5OINxiBLQDKqlArGx1Sbm5u/kue0I/by
-        ghV7/ACRizcYgywByahSKXj//v1vyXPacb9jQhO7BoDIxRuMQZaAZFSxF1xWVvZMd3f3SXs50YhdC0Dk
-        4g3GIEtAMqpYC8Z7rfHB8kL++sBMil0TQOTiDcYgS0AyqhgL3rlzZ4U8p223lxCl2HUBRC7eYAyyBCSj
-        iqng5cuXr25ra6u3Dz1qsesDiFy8wRhkCUhGFUPBeCmwvr5+ez6fn/JHaEITu06AyMUbjEGWgGRUoRe8
-        adOmF27cuHHRPtxkxK4VIHLxBmOQJSAZVUgF49Un/NkmeUzvnD179ouurq6T8px21D7UpMSuHyBy8QZj
-        kCUgGdVMFbxo0aKVmzdvfgn/9F66dOkbvPI0MjJS8GeRYxG7JwCRizcYgywByaimo+A1a9Y8VVNTs7Gp
-        qWlvR0fHD319fVem8mnFlMTuE0Dk4g3GIEtAMqr7WTCem+L/mbW1tR9cuHDh656enl9n4sX+GMTuH0Dk
-        4g3GIEtAMqqpFlxSUvI4/vosfoEuT12+w4fQYngNOBSxewoQuXiDMcgSkIxqooLnzp37MN5xePDgwUp8
-        ovDatWs/Dw4O/mXXVVMUu9cAkYs3GIMsAcmo3ILxpwt37NhRgT+Ahl+S4xfYsb4UGLrcblwQuXiDMcgS
-        kIwKbz6TpyM/DQwMXLWWahrEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwj
-        gMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xB
-        loBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDE
-        OgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzB
-        GGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYK
-        SKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjF
-        G4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBk
-        qoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKI
-        XLzBGGQJSKYKSKwjgMjFG4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsKfGQ
-        6fNuQ0kLairpQE0lHaippMLtWf8CcsOF40c0ZBkAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="TileItemFrame3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAHgAAAB4CAYAAAA5ZDbSAAAABGdBTUEAALGPC/xhBQAACFBJREFUeF7t
-        nN9rlmUcxj3wwAPBAw889UAQPPIP8KBlqAUjsyhiBytCKoqRIpn9IBZm5Y8ywUE6WqARhpKwSUvbwlKX
-        aIlNSdhcc2PTZjN92Y+2d5t9r7tbuG+fa83t1e2+7/d7wQf6XtfzffY+z8Vs77v33azbt28rCUNNJR2o
-        qaQDNZV0yBqzZj2kxEumz4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsAclU
-        AYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5
-        eIMxyBKQTBWQWEcAkYs3GIMsAcmozp8//6XobeX+g3trb3NGrCOAyMUbjEGWgGRUeCDseKVwcG/tbc6I
-        HQ8QuXiDMcgSkIxKC35waMGJowUnjhacOFpw4mjBiRNlwfPmzVt+4MCBd69cudLQ39/flc/n+0Aul/uj
-        paWldvfu3evYXjESXcFVVVXrpdROuzquent7L2zYsOF5do5iIqqCjx8/vlsOH/tva2KNjo7+s2/fvjfZ
-        uYqFaAquq6v70B4+KY2NjeW3bdv2KjtnMRBFweXl5c/iu9EePmkNDg7+uXjx4lXs3KkTRcFtbW3f2kOn
-        rFOnTn3Gzp06wRe8dOnSx+S7d8geOmXhBzN2/tQJvuDq6uqN9rCC9bSIfY2UCb7gxsbGT+1hBWvPnj0b
-        2NdImeALPnPmzOf2sIL1f18nVYIvuKGh4RN7WMEqxle4gi8YpdjDCtaqVaueYF8jZYIveOHChSvz+Xy/
-        PXTKunXrVgs7f+oEXzC4ePHiQXvolHXs2LGP2blTJ4qCV6xYsXp4eDhnD5+0crlc2/z58x9h506dKAoG
-        eD48JrIr9yz8875u3bpyds5iIJqCAX4HPJlXtYaGhv7esmXLy+xcxUJUBQN8N16/fv1Xuzqextrb278v
-        LS19kp2jmIiu4DtUVla+iHft9/T0/CI/IV8WWq9evdp0+vTpvWvXri1jO8VItAUr94YWnDhacOJowYmj
-        BSeOFpw4WnBgzJ49u+Tw4cPv9/X1deAp35IlSx5lx90rWnBAVFRUZF7EGR4evnXixIkq/FaN7UyEFhwA
-        KO/cuXP78R5ue0syGhoa6m1sbNy1YMGCSf3SRAueYWpqat4YGBjotrdiQuE93kePHt2Oz2ex892NFjxD
-        4B2enZ2dP9pbMGnhQ3f4tMecOXNK2PnvoAVPM/jOw/9TR0ZGBuzlFyT5Yaz90KFD741XtBY8jWzduvWV
-        XC532V72fRXekoT7iJ/C3a+pBU8Dy5YtK21tba2zl/tAdfPmzd+rq6tfv/O1teAHCL6bjhw58hGe6thL
-        nTb19vY279q16zUt+AGxfv365+Qm/2YvccaEn7rtf2bEHjdA5OINxiBLQDKqlArGx1Sbm5u/kue0I/by
-        ghV7/ACRizcYgywByahSKXj//v1vyXPacb9jQhO7BoDIxRuMQZaAZFSxF1xWVvZMd3f3SXs50YhdC0Dk
-        4g3GIEtAMqpYC8Z7rfHB8kL++sBMil0TQOTiDcYgS0AyqhgL3rlzZ4U8p223lxCl2HUBRC7eYAyyBCSj
-        iqng5cuXr25ra6u3Dz1qsesDiFy8wRhkCUhGFUPBeCmwvr5+ez6fn/JHaEITu06AyMUbjEGWgGRUoRe8
-        adOmF27cuHHRPtxkxK4VIHLxBmOQJSAZVUgF49Un/NkmeUzvnD179ouurq6T8px21D7UpMSuHyBy8QZj
-        kCUgGdVMFbxo0aKVmzdvfgn/9F66dOkbvPI0MjJS8GeRYxG7JwCRizcYgywByaimo+A1a9Y8VVNTs7Gp
-        qWlvR0fHD319fVem8mnFlMTuE0Dk4g3GIEtAMqr7WTCem+L/mbW1tR9cuHDh656enl9n4sX+GMTuH0Dk
-        4g3GIEtAMqqpFlxSUvI4/vosfoEuT12+w4fQYngNOBSxewoQuXiDMcgSkIxqooLnzp37MN5xePDgwUp8
-        ovDatWs/Dw4O/mXXVVMUu9cAkYs3GIMsAcmo3ILxpwt37NhRgT+Ahl+S4xfYsb4UGLrcblwQuXiDMcgS
-        kIwKbz6TpyM/DQwMXLWWahrEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwj
-        gMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xB
-        loBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDE
-        OgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzB
-        GGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYK
-        SKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjF
-        G4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBk
-        qoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKI
-        XLzBGGQJSKYKSKwjgMjFG4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsKfGQ
-        6fNuQ0kLairpQE0lHaippMLtWf8CcsOF40c0ZBkAAAAASUVORK5CYII=
-</value>
-  </data>
   <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="frmFlowSearch.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

GUIs.ZooFlow/Search/frmFlowSearch.vb

@@ -11,14 +11,14 @@ Public Class frmFlowSearch
     Private SecondaryFont As New Font("Segoe UI", 8)
     Dim oLastAttribute As String = ""
     Dim oAttributeCount As Integer = 1
-    Dim BASE_SSEARCHCommand As String
+    Dim BASE_SEARCHCommand As String
     Private LastSearchForm As frmDocumentResultList
     Public Sub New(pBaseSearchSql As String)
 
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
-        BASE_SSEARCHCommand = pBaseSearchSql
+        BASE_SEARCHCommand = pBaseSearchSql
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Logger = My.LogConfig.GetLogger()
     End Sub
@@ -27,6 +27,7 @@ Public Class frmFlowSearch
         Try
 
             If txtSearch.Text = String.Empty Then
+                Reset_Form()
                 Exit Sub
             End If
             lblFoundResult.Visible = False
@@ -38,18 +39,23 @@ Public Class frmFlowSearch
             Logger.Error(ex)
         End Try
     End Sub
+    Sub Reset_Form()
+        TileControlMatch.Groups.Clear()
+        lblFoundResult.Visible = False
+    End Sub
     Sub SearchContent(oSearchValue As String)
+        Try
             oLastAttribute = ""
-        Dim oSQL = BASE_SSEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
+            Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
-        Dim oResultCount As Integer = 0
+            Dim oResultCountAttributes As Integer = 0
             TileControlMatch.Groups.Clear()
 
-        Dim ODT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
+            Dim oResultsfromSearchDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
-        If Not IsNothing(ODT) Then
+            If Not IsNothing(oResultsfromSearchDT) Then
 
-            Dim oView As DataView = New DataView(ODT)
+                Dim oView As DataView = New DataView(oResultsfromSearchDT)
                 Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID")
-            Dim oGroups = ODT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE"))
+                Dim oGroups = oResultsfromSearchDT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE"))
                 Dim oNewTable As New DataTable
                 oNewTable.Columns.Add("ATTRIBUTE")
                 oNewTable.Columns.Add("COUNT", Type.GetType("System.Int32"))
@@ -61,9 +67,9 @@ Public Class frmFlowSearch
 
                     For Each orow As DataRow In oNewTable.Rows
                         oAttrCount += 1
-                    oResultCount += orow.Item(1)
+                        oResultCountAttributes += orow.Item(1)
                     Next
-                lblFoundResult.Text = GetResultString(oResultCount, oAttrCount, oSearchValue)
+                    lblFoundResult.Text = GetResultString(oResultCountAttributes, oAttrCount, oSearchValue)
                     lblFoundResult.Visible = True
 
                 End If
@@ -74,37 +80,64 @@ Public Class frmFlowSearch
                     Dim oGroup As New TileGroup
                     oGroup.Text = $"{oGroupRow.Item(0).ToString} [{oGroupRow.Item(1).ToString}]"
                     oGroup.Visible = True
-                For Each oitemRow As DataRow In ODT.Rows
+                    For Each oitemRow As DataRow In oResultsfromSearchDT.Rows
                         If oitemRow.Item("ATTRIBUTE") = oGroupRow.Item(0) Then
                             Dim oItem = CreateTile(oitemRow.Item("TERM_VALUE"), oitemRow.Item("COUNT_OBJ"), oGroupRow.Item(0).ToString, oitemRow.Item("ATTR_ID"), oitemRow.Item("TERM_GUID"))
+                            If Not IsNothing(oItem) Then
                                 oGroup.Items.Add(oItem)
                             End If
+
+                        End If
                     Next
                     TileControlMatch.Groups.Add(oGroup)
                 Next
 
                 'Wenn weniger als 45 Belege gefunden wurden wird direkt die Suche ausgeführt
-            If oResultCount > 0 And oResultCount <= 45 Then
+                If oResultCountAttributes > 0 And oResultCountAttributes <= 45 Then
                     StartSearch_Full(oSearchValue)
+                Else
+                    If oResultsfromSearchDT.Rows.Count = 0 Then
+                        Reset_Form()
+
+                    End If
                 End If
 
             Else
                 lblFoundResult.Text = "Result from DB Is Nothing..Check SQL"
                 lblFoundResult.Visible = True
             End If
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+
 
     End Sub
     Private Function StartSearch_Full(pSearchValue As String) As Boolean
         Dim oHandle As IOverlaySplashScreenHandle = Nothing
         Dim oItemsFound As Boolean = False
-        Dim oState = My.Application.Search
+        Dim oSearchData = My.Application.Search
 
         Try
             oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
-            Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oState.StringAttributeId}','{oState.IntegerAttributeId}'"
+            Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
             Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
             If Not IsNothing(oDTOBJECT_RESULT) Then
+                oItemsFound = True
+                OpenResultForm(oDTOBJECT_RESULT)
+            End If
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+
+        End Try
+        Return oItemsFound
+    End Function
+    Private Sub OpenResultForm(pDTRESULT As DataTable)
+        Try
             Dim oEnvironment As New Modules.ZooFlow.Environment() With {
                 .User = My.Application.User,
                 .Modules = My.Application.Modules,
@@ -120,7 +153,7 @@ Public Class frmFlowSearch
                 .Results = New List(Of DocumentResult) From {
                     New DocumentResult() With {
                         .Title = "FlowSearchResult",
-                            .Datatable = oDTOBJECT_RESULT
+                        .Datatable = pDTRESULT
                     }
                 }
             }
@@ -132,18 +165,11 @@ Public Class frmFlowSearch
             ' Position Result Window below this window
             LastSearchForm.Location = GetResultFormLocation()
             LastSearchForm.Size = GetResultFormSize()
-                oItemsFound = True
-            End If
-
 
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
+            Logger.Error(ex)
-        Finally
-            SplashScreenManager.CloseOverlayForm(oHandle)
-
         End Try
-        Return oItemsFound
+    End Sub
-    End Function
 
     Private Function GetResultFormLocation() As Point
         Return Location
@@ -160,15 +186,17 @@ Public Class frmFlowSearch
         Return String.Format(oBase, oResultString, oProfileString, SearchContent)
     End Function
     Private Function CreateTile(pTermValue As String, pCount_Obj As String, pAttribute As String, pAttributeID As String, pTermGuid As Long) As TileItem
-        Dim oItem As New TileItem() With {.Tag = $"{pTermGuid}#{pAttributeID}"}
+        Try
+            Dim oItem As New TileItem() With {.Tag = $"{pTermGuid}|{pAttributeID}"}
 
-        oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(255, 214, 47)
             If oLastAttribute <> pAttribute Then
                 oAttributeCount = 1
                 oLastAttribute = pAttribute
                 oItem.ItemSize = TileItemSize.Wide
-        ElseIf oAttributeCount = 2 Then
+                oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(165, 36, 49) ' GELB 255, 214, 47)
+            Else
                 oItem.ItemSize = TileItemSize.Medium
+                oItem.AppearanceItem.Normal.BackColor = Color.White
             End If
             oAttributeCount += 1
 
@@ -181,11 +209,13 @@ Public Class frmFlowSearch
             Select Case oItem.ItemSize
                 Case TileItemSize.Wide
                     oNameElement.Appearance.Normal.Font = FontLargeBold
+                    oNameElement.Appearance.Normal.ForeColor = Color.White
                 Case Else
                     oNameElement.Appearance.Normal.Font = SecondaryFontBold
+                    oNameElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49)
             End Select
 
-        oNameElement.Appearance.Normal.ForeColor = Color.Black
+            'oNameElement.Appearance.Normal.ForeColor = Color.Black
             oItem.Elements.Add(oNameElement)
 
             'Dim oCommentElement = New TileItemElement With {
@@ -210,14 +240,19 @@ Public Class frmFlowSearch
             Select Case oItem.ItemSize
                 Case TileItemSize.Wide
                     oCountElement.Appearance.Normal.Font = FontLargeNormal
+                    oCountElement.Appearance.Normal.ForeColor = Color.White
                 Case Else
                     oCountElement.Appearance.Normal.Font = SecondaryFont
+                    oCountElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49)
             End Select
-        oCountElement.Appearance.Normal.ForeColor = Color.Black
-
             oItem.Elements.Add(oCountElement)
 
             Return oItem
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+
     End Function
 
     Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearch.GotFocus
@@ -227,4 +262,38 @@ Public Class frmFlowSearch
     Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
         TileControlMatch.Groups.Clear()
     End Sub
+
+    Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
+        Try
+            Dim oItem As TileItem = e.Item
+            Dim oItemTag = oItem.Tag
+            Dim oHandle As IOverlaySplashScreenHandle = Nothing
+            Dim oItemsFound As Boolean = False
+            Dim oSearchData = My.Application.Search
+            Dim oSplit = oItem.Tag.ToString.Split("|")
+            Try
+                oHandle = SplashScreenManager.ShowOverlayForm(Me)
+
+                Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE '{oSplit(0)}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
+                Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
+                If Not IsNothing(oDTOBJECT_RESULT) Then
+                    oItemsFound = True
+                    OpenResultForm(oDTOBJECT_RESULT)
+                End If
+
+
+            Catch ex As Exception
+                MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
+            Finally
+                SplashScreenManager.CloseOverlayForm(oHandle)
+
+            End Try
+            Return oItemsFound
+
+
+        Catch ex As Exception
+            MsgBox($"Error while loading Searches: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+            Logger.Error(ex)
+        End Try
+    End Sub
 End Class

GUIs.ZooFlow/frmFlowForm.vb

@@ -400,14 +400,15 @@ Public Class frmFlowForm
             Cursor = Cursors.Default
             Exit Sub
         End If
-        Dim oSQL As String = ""
+        Dim oSQLFlowSearch As String = ""
         For Each oRow As DataRow In My.DTCOMMON_SQL.Rows
-            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH1 Then
+            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
-                oSQL = oRow.Item("SQL_COMMAND")
+                oSQLFlowSearch = oRow.Item("SQL_COMMAND")
             End If
         Next
-        If oSQL <> String.Empty Then
+        If oSQLFlowSearch <> String.Empty Then
-            Dim oForm As New frmFlowSearch(oSQL)
+            oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
+            Dim oForm As New frmFlowSearch(oSQLFlowSearch)
             oForm.Show()
             oForm.BringToFront()
         End If