ZooFlow: Remove modcurrent, move flowsearch, small changes

This commit is contained in:
Jonathan Jenne
2021-01-12 10:58:27 +01:00
parent e8358e2921
commit 6fd11a09c7
13 changed files with 38 additions and 29 deletions

View File

@@ -0,0 +1,6 @@
Namespace Search
Public Class State
Public Property StringAttributeId As Long = -1
Public Property IntegerAttributeId As Long = -1
End Class
End Namespace

View File

@@ -0,0 +1,484 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmFlowSearch
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'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()>
Private Sub InitializeComponent()
Dim TileItemElement19 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement20 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.TileControlMatch = New DevExpress.XtraEditors.TileControl()
Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupDocuments = 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.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.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1245, 61)
Me.Panel1.TabIndex = 0
'
'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.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
'
'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.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.Location = New System.Drawing.Point(12, 38)
Me.lblFoundResult.Name = "lblFoundResult"
Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
Me.lblFoundResult.TabIndex = 3
Me.lblFoundResult.Text = "Found"
Me.lblFoundResult.Visible = False
'
'Label1
'
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.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"
'
'TileControlMatch
'
Me.TileControlMatch.AllowDragTilesBetweenGroups = False
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.Name = "TileControlMatch"
Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
Me.TileControlMatch.ShowGroupText = True
Me.TileControlMatch.Size = New System.Drawing.Size(1245, 431)
Me.TileControlMatch.TabIndex = 2
Me.TileControlMatch.Text = "TileControl1"
'
'TileGroupDocumentsData
'
Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
Me.TileGroupDocumentsData.Text = "Kombiniert"
Me.TileGroupDocumentsData.Visible = False
'
'TileGroupDocuments
'
Me.TileGroupDocuments.Items.Add(Me.TileItem1)
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.Options.UseBackColor = True
TileItemElement19.Appearance.Normal.ForeColor = System.Drawing.Color.Black
TileItemElement19.Appearance.Normal.Options.UseForeColor = True
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.Options.UseBackColor = True
Me.TileItem2.CurrentFrameIndex = 1
TileItemElement20.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
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))
Me.Appearance.Options.UseBackColor = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1245, 492)
Me.Controls.Add(Me.TileControlMatch)
Me.Controls.Add(Me.Panel1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmFlowSearch"
Me.Text = "FlowSearch"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents txtSearch As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
Friend WithEvents TileGroupDocumentsData 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

View File

@@ -0,0 +1,224 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM
MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5
YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu
MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x
LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value>
</data>
</root>

View File

@@ -0,0 +1,230 @@
Imports DigitalData.Modules.Logging
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DevExpress.XtraSplashScreen
Public Class frmFlowSearch
Private Logger As Logger
Private FontLargeBold As New Font("Segoe UI", 10, FontStyle.Bold)
Private FontLargeNormal As New Font("Segoe UI", 10)
Private SecondaryFontBold As New Font("Segoe UI", 8, FontStyle.Bold)
Private SecondaryFont As New Font("Segoe UI", 8)
Dim oLastAttribute As String = ""
Dim oAttributeCount As Integer = 1
Dim BASE_SSEARCHCommand As String
Private LastSearchForm As frmDocumentResultList
Public Sub New(pBaseSearchSql As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
BASE_SSEARCHCommand = pBaseSearchSql
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
End Sub
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
Try
If txtSearch.Text = String.Empty Then
Exit Sub
End If
lblFoundResult.Visible = False
SearchContent(Trim(txtSearch.Text))
Catch ex As Exception
lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log"
lblFoundResult.Visible = True
Logger.Error(ex)
End Try
End Sub
Sub SearchContent(oSearchValue As String)
oLastAttribute = ""
Dim oSQL = BASE_SSEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
Dim oResultCount As Integer = 0
TileControlMatch.Groups.Clear()
Dim ODT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
If Not IsNothing(ODT) Then
Dim oView As DataView = New DataView(ODT)
Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID")
Dim oGroups = ODT.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"))
For Each oGroup In oGroups
oNewTable.Rows.Add(oGroup.Key, oGroup.Sum(Function(row) row.Field(Of Int32)("COUNT_OBJ")))
Next
If Not IsNothing(oNewTable) Then
Dim oAttrCount As Integer = 0
For Each orow As DataRow In oNewTable.Rows
oAttrCount += 1
oResultCount += orow.Item(1)
Next
lblFoundResult.Text = GetResultString(oResultCount, oAttrCount, oSearchValue)
lblFoundResult.Visible = True
End If
oNewTable.DefaultView.Sort = "COUNT ASC"
oNewTable = oNewTable.DefaultView.ToTable
For Each oGroupRow As DataRow In oNewTable.Rows
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
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"))
oGroup.Items.Add(oItem)
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
StartSearch_Full(oSearchValue)
End If
Else
lblFoundResult.Text = "Result from DB Is Nothing..Check SQL"
lblFoundResult.Visible = True
End If
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
Try
oHandle = SplashScreenManager.ShowOverlayForm(Me)
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oState.StringAttributeId}','{oState.IntegerAttributeId}'"
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
If Not IsNothing(oDTOBJECT_RESULT) Then
Dim oEnvironment As New Modules.ZooFlow.Environment() With {
.User = My.Application.User,
.Modules = My.Application.Modules,
.Database = My.Database,
.DatabaseIDB = My.DatabaseIDB,
.Settings = My.Application.Settings,
.Service = My.Application.Service
}
Dim oShortGuid = Guid.NewGuid()
Dim oWindowGuid = $"FLOWSEARCH-{My.User.Name}"
Dim oParams = New DocumentResultParams() With {
.WindowGuid = oWindowGuid,
.Results = New List(Of DocumentResult) From {
New DocumentResult() With {
.Title = "FlowSearchResult",
.Datatable = oDTOBJECT_RESULT
}
}
}
Dim oForm As New frmDocumentResultList(My.LogConfig, oEnvironment, oParams)
oForm.Show()
LastSearchForm = oForm
' 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)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
Return oItemsFound
End Function
Private Function GetResultFormLocation() As Point
Return Location
End Function
Private Function GetResultFormSize() As Size
Return Size
End Function
Private Function GetResultString(CountObjects, CountAttribute, SearchContent) As String
Dim oResultString = $"wurden {CountObjects} Objekte" ' IIf(CountAttribute = 1, $"wurden {CountObjects} Objekte", $"wurden {CountObjects} Objekte in {CountAttribute} Attributen")
Dim oProfileString = IIf(CountAttribute = 1, "einem Attribut", $"{CountAttribute} Attributen")
Dim oBase = "Es {0} in {1} für Ihre Suche nach '{2}' gefunden:"
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}"}
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.ItemSize = TileItemSize.Medium
End If
oAttributeCount += 1
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement With {
.Text = pTermValue,
.TextAlignment = TileItemContentAlignment.TopLeft
}
Select Case oItem.ItemSize
Case TileItemSize.Wide
oNameElement.Appearance.Normal.Font = FontLargeBold
Case Else
oNameElement.Appearance.Normal.Font = SecondaryFontBold
End Select
oNameElement.Appearance.Normal.ForeColor = Color.Black
oItem.Elements.Add(oNameElement)
'Dim oCommentElement = New TileItemElement With {
' .Text = "Anzahl Objekte: " & pCount_Obj,
' .TextAlignment = TileItemContentAlignment.MiddleLeft
'}
'Select Case oItem.ItemSize
' Case TileItemSize.Wide
' oCommentElement.Appearance.Normal.Font = FontLargeNormal
' Case Else
' oCommentElement.Appearance.Normal.Font = SecondaryFont
'End Select
'oCommentElement.Appearance.Normal.ForeColor = Color.Black
'oItem.Elements.Add(oCommentElement)
Dim oCountElement = New TileItemElement With {
.Text = "Anzahl Objekte: " & pCount_Obj,
.TextAlignment = TileItemContentAlignment.BottomRight
}
Select Case oItem.ItemSize
Case TileItemSize.Wide
oCountElement.Appearance.Normal.Font = FontLargeNormal
Case Else
oCountElement.Appearance.Normal.Font = SecondaryFont
End Select
oCountElement.Appearance.Normal.ForeColor = Color.Black
oItem.Elements.Add(oCountElement)
Return oItem
End Function
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearch.GotFocus
Label1.Visible = True
End Sub
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
TileControlMatch.Groups.Clear()
End Sub
End Class