merge

GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb

@@ -33,22 +33,21 @@ Partial Class frmDocumentResultList
         Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupNavigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
+        Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
+        Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
         Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PfadInZwischenablageKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
-        Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
-        Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
         Me.GridView2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
         Me.GridBand2 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
         Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
@@ -61,11 +60,11 @@ Partial Class frmDocumentResultList
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl1.SuspendLayout()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuGrid.SuspendLayout()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl2.SuspendLayout()
         CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuGrid.SuspendLayout()
         CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -82,7 +81,7 @@ Partial Class frmDocumentResultList
         Me.RibbonControl.Name = "RibbonControl"
         Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl.Size = New System.Drawing.Size(1189, 158)
+        Me.RibbonControl.Size = New System.Drawing.Size(1189, 159)
         Me.RibbonControl.StatusBar = Me.RibbonStatusBar
         '
         'SwitchMainContainerHorizontal
@@ -160,24 +159,16 @@ Partial Class frmDocumentResultList
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4, Me.RibbonPageGroup3, Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupNavigation, Me.RibbonPageGroup1, Me.RibbonPageGroup2})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "Ergebnisse"
         '
-        'RibbonPageGroup4
+        'RibbonPageGroupNavigation
         '
-        Me.RibbonPageGroup4.AllowTextClipping = False
+        Me.RibbonPageGroupNavigation.AllowTextClipping = False
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroupNavigation.ItemLinks.Add(Me.BarButtonItem4)
-        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        Me.RibbonPageGroupNavigation.Name = "RibbonPageGroupNavigation"
-        Me.RibbonPageGroup4.Text = "Navigation"
+        Me.RibbonPageGroupNavigation.Text = "Navigation"
-        '
-        'RibbonPageGroup3
-        '
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2)
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
-        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        Me.RibbonPageGroup3.Text = "Dateiaktionen"
         '
         'RibbonPageGroup1
         '
@@ -196,10 +187,10 @@ Partial Class frmDocumentResultList
         'RibbonStatusBar
         '
         Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount)
-        Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 647)
+        Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 649)
         Me.RibbonStatusBar.Name = "RibbonStatusBar"
         Me.RibbonStatusBar.Ribbon = Me.RibbonControl
-        Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 24)
+        Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 22)
         '
         'SplitContainerControl1
         '
@@ -211,7 +202,7 @@ Partial Class frmDocumentResultList
         Me.SplitContainerControl1.Panel1.Text = "Panel1"
         Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
         Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 489)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 490)
         Me.SplitContainerControl1.SplitterPosition = 382
         Me.SplitContainerControl1.TabIndex = 2
         Me.SplitContainerControl1.Text = "SplitContainerControl1"
@@ -223,10 +214,58 @@ Partial Class frmDocumentResultList
         Me.GridControl1.MainView = Me.GridView1
         Me.GridControl1.MenuManager = Me.RibbonControl
         Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(382, 489)
+        Me.GridControl1.Size = New System.Drawing.Size(382, 490)
         Me.GridControl1.TabIndex = 0
         Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
+        'GridView1
+        '
+        Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
+        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        '
+        'GridBand1
+        '
+        Me.GridBand1.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.GridBand1.AppearanceHeader.Options.UseFont = True
+        Me.GridBand1.Caption = "GridBand1"
+        Me.GridBand1.Name = "GridBand1"
+        Me.GridBand1.OptionsBand.AllowHotTrack = False
+        Me.GridBand1.OptionsBand.AllowMove = False
+        Me.GridBand1.OptionsBand.AllowPress = False
+        Me.GridBand1.OptionsBand.AllowSize = False
+        Me.GridBand1.VisibleIndex = 0
+        Me.GridBand1.Width = 513
+        '
+        'SplitContainerControl2
+        '
+        Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl2.Horizontal = False
+        Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerControl2.Name = "SplitContainerControl2"
+        Me.SplitContainerControl2.Panel1.Controls.Add(Me.GridControl2)
+        Me.SplitContainerControl2.Panel1.Text = "Panel1"
+        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
+        Me.SplitContainerControl2.Panel2.Text = "Panel2"
+        Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 490)
+        Me.SplitContainerControl2.SplitterPosition = 223
+        Me.SplitContainerControl2.TabIndex = 0
+        Me.SplitContainerControl2.Text = "SplitContainerControl2"
+        '
+        'GridControl2
+        '
+        Me.GridControl2.ContextMenuStrip = Me.ContextMenuGrid
+        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
+        Me.GridControl2.MainView = Me.GridView2
+        Me.GridControl2.MenuManager = Me.RibbonControl
+        Me.GridControl2.Name = "GridControl2"
+        Me.GridControl2.Size = New System.Drawing.Size(370, 223)
+        Me.GridControl2.TabIndex = 0
+        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
         'ContextMenuGrid
         '
         Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.PfadInZwischenablageKopierenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
@@ -260,54 +299,6 @@ Partial Class frmDocumentResultList
         Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
         Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
         '
-        'GridView1
-        '
-        Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
-        Me.GridView1.OptionsView.ShowAutoFilterRow = True
-        '
-        'GridBand1
-        '
-        Me.GridBand1.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GridBand1.AppearanceHeader.Options.UseFont = True
-        Me.GridBand1.Caption = "GridBand1"
-        Me.GridBand1.Name = "GridBand1"
-        Me.GridBand1.OptionsBand.AllowHotTrack = False
-        Me.GridBand1.OptionsBand.AllowMove = False
-        Me.GridBand1.OptionsBand.AllowPress = False
-        Me.GridBand1.OptionsBand.AllowSize = False
-        Me.GridBand1.VisibleIndex = 0
-        Me.GridBand1.Width = 513
-        '
-        'SplitContainerControl2
-        '
-        Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
-        Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl2.Horizontal = False
-        Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerControl2.Name = "SplitContainerControl2"
-        Me.SplitContainerControl2.Panel1.Controls.Add(Me.GridControl2)
-        Me.SplitContainerControl2.Panel1.Text = "Panel1"
-        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
-        Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 489)
-        Me.SplitContainerControl2.SplitterPosition = 223
-        Me.SplitContainerControl2.TabIndex = 0
-        Me.SplitContainerControl2.Text = "SplitContainerControl2"
-        '
-        'GridControl2
-        '
-        Me.GridControl2.ContextMenuStrip = Me.ContextMenuGrid
-        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl2.MainView = Me.GridView2
-        Me.GridControl2.MenuManager = Me.RibbonControl
-        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(370, 223)
-        Me.GridControl2.TabIndex = 0
-        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
-        '
         'GridView2
         '
         Me.GridView2.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2})
@@ -317,7 +308,7 @@ Partial Class frmDocumentResultList
         '
         'GridBand2
         '
-        Me.GridBand2.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GridBand2.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
         Me.GridBand2.AppearanceHeader.Options.UseFont = True
         Me.GridBand2.Caption = "GridBand2"
         Me.GridBand2.Name = "GridBand2"
@@ -335,7 +326,7 @@ Partial Class frmDocumentResultList
         Me.GridControl3.MainView = Me.GridView3
         Me.GridControl3.MenuManager = Me.RibbonControl
         Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(370, 256)
+        Me.GridControl3.Size = New System.Drawing.Size(370, 257)
         Me.GridControl3.TabIndex = 0
         Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
         '
@@ -348,7 +339,7 @@ Partial Class frmDocumentResultList
         '
         'GridBand3
         '
-        Me.GridBand3.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GridBand3.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
         Me.GridBand3.AppearanceHeader.Options.UseFont = True
         Me.GridBand3.Caption = "GridBand3"
         Me.GridBand3.Name = "GridBand3"
@@ -361,13 +352,13 @@ Partial Class frmDocumentResultList
         'SplitContainerControl3
         '
         Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 159)
         Me.SplitContainerControl3.Name = "SplitContainerControl3"
         Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1)
         Me.SplitContainerControl3.Panel1.Text = "Panel1"
         Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1)
         Me.SplitContainerControl3.Panel2.Text = "Panel2"
-        Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 489)
+        Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 490)
         Me.SplitContainerControl3.SplitterPosition = 762
         Me.SplitContainerControl3.TabIndex = 5
         Me.SplitContainerControl3.Text = "SplitContainerControl3"
@@ -377,7 +368,7 @@ Partial Class frmDocumentResultList
         Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(417, 489)
+        Me.DocumentViewer1.Size = New System.Drawing.Size(417, 490)
         Me.DocumentViewer1.TabIndex = 0
         '
         'XtraSaveFileDialog
@@ -386,6 +377,7 @@ Partial Class frmDocumentResultList
         '
         'frmDocumentResultList
         '
+        Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1189, 671)
@@ -402,11 +394,11 @@ Partial Class frmDocumentResultList
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl1.ResumeLayout(False)
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuGrid.ResumeLayout(False)
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl2.ResumeLayout(False)
         CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuGrid.ResumeLayout(False)
         CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -440,7 +432,6 @@ Partial Class frmDocumentResultList
     Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents ContextMenuGrid As Windows.Forms.ContextMenuStrip
     Friend WithEvents DateiÖffnenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
@@ -450,7 +441,7 @@ Partial Class frmDocumentResultList
     Friend WithEvents labelResultCount As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents XtraSaveFileDialog As DevExpress.XtraEditors.XtraSaveFileDialog
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroupNavigation As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents EigenschaftenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
 End Class

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -34,6 +34,7 @@ Public Class frmDocumentResultList
     Private Const COLUMN_DOCID = "DocID"
 
     Private _IsLoading As Boolean = True
+    Private _IsLegacy As Boolean = True
 
     Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm
 
@@ -44,6 +45,7 @@ Public Class frmDocumentResultList
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "ResultList", Params.WindowGuid)
 
+        _IsLegacy = Not Params.IsIDBResult
         _LogConfig = LogConfig
         _Logger = LogConfig.GetLogger()
         _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath, oConfigPath)
@@ -69,6 +71,14 @@ Public Class frmDocumentResultList
                 End If
             End If
 
+            If _IsLegacy = True Then
+                RibbonPageGroupNavigation.Visible = True
+            Else
+                RibbonPageGroupNavigation.Visible = False
+            End If
+
+            RibbonControl.Minimized = True
+
             ' Initialize Viewer with GDPicture.NET License
             DocumentViewer1.Init(_LogConfig, _Environment.Settings.GdPictureKey)
 
@@ -110,6 +120,7 @@ Public Class frmDocumentResultList
             ' Hide Grids depending on Result count
             Select Case _ResultLists.Count
                 Case 0
+
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)
 
@@ -118,12 +129,18 @@ Public Class frmDocumentResultList
 
                     MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                 Case 1
+                    SplitContainerControl1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1
+                    SplitContainerControl2.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1
+
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)
 
                     SwitchMainContainerHorizontal.Enabled = False
                     SwitchDetailContainerHorizontal.Enabled = False
                 Case 2
+                    SplitContainerControl1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Both
+                    SplitContainerControl2.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1
+
                     SplitContainerControl2.SetPanelCollapsed(True)
 
                     SwitchDetailContainerHorizontal.Enabled = False

GUIs.Common/My Project/licenses.licx

@@ -1,4 +1,5 @@
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb

@@ -22,29 +22,82 @@ Partial Class frmObjectPropertyDialog
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true)
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjectPropertyDialog))
         Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
         Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl()
         Me.cmbBusinessEntity = New DevExpress.XtraBars.BarEditItem()
-        Me.TabPageProperties = New DevExpress.XtraBars.TabFormPage()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.TabPageAttributes = New DevExpress.XtraBars.TabFormPage()
         Me.TabFormContentContainer1 = New DevExpress.XtraBars.TabFormContentContainer()
-        Me.LayoutControlProperties = New DevExpress.XtraLayout.LayoutControl()
+        Me.LayoutControlAttributes = New DevExpress.XtraLayout.LayoutControl()
-        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.AttributeLayout = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.TabPageMetadata = New DevExpress.XtraBars.TabFormPage()
+        Me.TabPageObject = New DevExpress.XtraBars.TabFormPage()
         Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer()
+        Me.LayoutControlObject = New DevExpress.XtraLayout.LayoutControl()
+        Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.TabPageLifecycle = New DevExpress.XtraBars.TabFormPage()
         Me.TabFormContentContainer3 = New DevExpress.XtraBars.TabFormContentContainer()
-        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage()
-        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer()
-        CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
-        Me.TabFormContentContainer1.SuspendLayout()
+        Me.ViewValueHistory = New DevExpress.XtraGrid.Views.Grid.GridView()
-        CType(Me.LayoutControlProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.SuspendLayout()
+        Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.AttributeRoot = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
+        Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
+        Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
+        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.TabFormContentContainer1.SuspendLayout
+        CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.TabFormContentContainer2.SuspendLayout
+        CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.LayoutControlObject.SuspendLayout
+        CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.TabFormContentContainer4.SuspendLayout
+        CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.SuspendLayout
         '
         'RepositoryItemComboBox1
         '
-        Me.RepositoryItemComboBox1.AutoHeight = False
+        Me.RepositoryItemComboBox1.AutoHeight = false
         Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
         Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
         '
@@ -53,18 +106,19 @@ Partial Class frmObjectPropertyDialog
         Me.TabFormControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.cmbBusinessEntity, Me.BarStaticItem1})
         Me.TabFormControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabFormControl1.Name = "TabFormControl1"
-        Me.TabFormControl1.Pages.Add(Me.TabPageProperties)
+        Me.TabFormControl1.Pages.Add(Me.TabPageAttributes)
-        Me.TabFormControl1.Pages.Add(Me.TabPageMetadata)
+        Me.TabFormControl1.Pages.Add(Me.TabPageObject)
         Me.TabFormControl1.Pages.Add(Me.TabPageLifecycle)
-        Me.TabFormControl1.SelectedPage = Me.TabPageProperties
+        Me.TabFormControl1.Pages.Add(Me.TabPageHistory)
-        Me.TabFormControl1.ShowAddPageButton = False
+        Me.TabFormControl1.SelectedPage = Me.TabPageAttributes
-        Me.TabFormControl1.ShowTabCloseButtons = False
+        Me.TabFormControl1.ShowAddPageButton = false
+        Me.TabFormControl1.ShowTabCloseButtons = false
         Me.TabFormControl1.Size = New System.Drawing.Size(572, 71)
         Me.TabFormControl1.TabForm = Me
         Me.TabFormControl1.TabIndex = 0
         Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1)
         Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity)
-        Me.TabFormControl1.TabStop = False
+        Me.TabFormControl1.TabStop = false
         '
         'cmbBusinessEntity
         '
@@ -74,53 +128,86 @@ Partial Class frmObjectPropertyDialog
         Me.cmbBusinessEntity.Id = 6
         Me.cmbBusinessEntity.Name = "cmbBusinessEntity"
         '
-        'TabPageProperties
+        'BarStaticItem1
         '
-        Me.TabPageProperties.ContentContainer = Me.TabFormContentContainer1
+        Me.BarStaticItem1.Caption = "Entity:"
-        Me.TabPageProperties.Name = "TabPageProperties"
+        Me.BarStaticItem1.Id = 0
-        Me.TabPageProperties.Text = "Eigenschaften"
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        '
+        'TabPageAttributes
+        '
+        Me.TabPageAttributes.ContentContainer = Me.TabFormContentContainer1
+        Me.TabPageAttributes.Name = "TabPageAttributes"
+        Me.TabPageAttributes.Text = "Attribute"
         '
         'TabFormContentContainer1
         '
-        Me.TabFormContentContainer1.Controls.Add(Me.LayoutControlProperties)
+        Me.TabFormContentContainer1.Controls.Add(Me.LayoutControlAttributes)
         Me.TabFormContentContainer1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TabFormContentContainer1.Location = New System.Drawing.Point(0, 71)
         Me.TabFormContentContainer1.Name = "TabFormContentContainer1"
         Me.TabFormContentContainer1.Size = New System.Drawing.Size(572, 534)
         Me.TabFormContentContainer1.TabIndex = 1
         '
-        'LayoutControlProperties
+        'LayoutControlAttributes
         '
-        Me.LayoutControlProperties.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControlAttributes.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControlProperties.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlAttributes.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlProperties.Name = "LayoutControlProperties"
+        Me.LayoutControlAttributes.Name = "LayoutControlAttributes"
-        Me.LayoutControlProperties.Root = Me.Root
+        Me.LayoutControlAttributes.Root = Me.AttributeLayout
-        Me.LayoutControlProperties.Size = New System.Drawing.Size(572, 534)
+        Me.LayoutControlAttributes.Size = New System.Drawing.Size(572, 534)
-        Me.LayoutControlProperties.TabIndex = 0
+        Me.LayoutControlAttributes.TabIndex = 0
-        Me.LayoutControlProperties.Text = "LayoutControl1"
+        Me.LayoutControlAttributes.Text = "LayoutControl1"
         '
-        'Root
+        'AttributeLayout
         '
-        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.AttributeLayout.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.Root.GroupBordersVisible = False
+        Me.AttributeLayout.GroupBordersVisible = false
-        Me.Root.Name = "Root"
+        Me.AttributeLayout.Name = "AttributeRoot"
-        Me.Root.Size = New System.Drawing.Size(572, 534)
+        Me.AttributeLayout.Size = New System.Drawing.Size(572, 534)
-        Me.Root.TextVisible = False
+        Me.AttributeLayout.TextVisible = false
         '
-        'TabPageMetadata
+        'TabPageObject
         '
-        Me.TabPageMetadata.ContentContainer = Me.TabFormContentContainer2
+        Me.TabPageObject.ContentContainer = Me.TabFormContentContainer2
-        Me.TabPageMetadata.Name = "TabPageMetadata"
+        Me.TabPageObject.Name = "TabPageObject"
-        Me.TabPageMetadata.Text = "Metadaten"
+        Me.TabPageObject.Text = "Objekt"
         '
         'TabFormContentContainer2
         '
+        Me.TabFormContentContainer2.Controls.Add(Me.LayoutControlObject)
         Me.TabFormContentContainer2.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TabFormContentContainer2.Location = New System.Drawing.Point(0, 71)
         Me.TabFormContentContainer2.Name = "TabFormContentContainer2"
         Me.TabFormContentContainer2.Size = New System.Drawing.Size(572, 534)
         Me.TabFormContentContainer2.TabIndex = 2
         '
+        'LayoutControlObject
+        '
+        Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen)
+        Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen)
+        Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen)
+        Me.LayoutControlObject.Controls.Add(Me.txtObjectId)
+        Me.LayoutControlObject.Controls.Add(Me.txtCreatedWho)
+        Me.LayoutControlObject.Controls.Add(Me.txtChangedWho)
+        Me.LayoutControlObject.Controls.Add(Me.TextEdit1)
+        Me.LayoutControlObject.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControlObject.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlObject.Name = "LayoutControlObject"
+        Me.LayoutControlObject.Root = Me.LayoutObject
+        Me.LayoutControlObject.Size = New System.Drawing.Size(572, 534)
+        Me.LayoutControlObject.TabIndex = 0
+        Me.LayoutControlObject.Text = "LayoutControl1"
+        '
+        'LayoutObject
+        '
+        Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.LayoutObject.GroupBordersVisible = false
+        Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1})
+        Me.LayoutObject.Name = "LayoutObject"
+        Me.LayoutObject.Size = New System.Drawing.Size(572, 534)
+        Me.LayoutObject.TextVisible = false
+        '
         'TabPageLifecycle
         '
         Me.TabPageLifecycle.ContentContainer = Me.TabFormContentContainer3
@@ -135,42 +222,330 @@ Partial Class frmObjectPropertyDialog
         Me.TabFormContentContainer3.Size = New System.Drawing.Size(572, 534)
         Me.TabFormContentContainer3.TabIndex = 3
         '
-        'BarStaticItem1
+        'TabPageHistory
         '
-        Me.BarStaticItem1.Caption = "Entity:"
+        Me.TabPageHistory.ContentContainer = Me.TabFormContentContainer4
-        Me.BarStaticItem1.Id = 0
+        Me.TabPageHistory.Name = "TabPageHistory"
-        Me.BarStaticItem1.Name = "BarStaticItem1"
+        Me.TabPageHistory.Text = "Historie"
+        '
+        'TabFormContentContainer4
+        '
+        Me.TabFormContentContainer4.Controls.Add(Me.GridValueHistory)
+        Me.TabFormContentContainer4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabFormContentContainer4.Location = New System.Drawing.Point(0, 71)
+        Me.TabFormContentContainer4.Name = "TabFormContentContainer4"
+        Me.TabFormContentContainer4.Size = New System.Drawing.Size(572, 534)
+        Me.TabFormContentContainer4.TabIndex = 3
+        '
+        'GridValueHistory
+        '
+        Me.GridValueHistory.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridValueHistory.Location = New System.Drawing.Point(0, 0)
+        Me.GridValueHistory.MainView = Me.ViewValueHistory
+        Me.GridValueHistory.Name = "GridValueHistory"
+        Me.GridValueHistory.Size = New System.Drawing.Size(572, 534)
+        Me.GridValueHistory.TabIndex = 0
+        Me.GridValueHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewValueHistory})
+        '
+        'ViewValueHistory
+        '
+        Me.ViewValueHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5})
+        Me.ViewValueHistory.GridControl = Me.GridValueHistory
+        Me.ViewValueHistory.Name = "ViewValueHistory"
+        Me.ViewValueHistory.OptionsBehavior.Editable = false
+        Me.ViewValueHistory.OptionsBehavior.ReadOnly = true
+        '
+        'GridColumn1
+        '
+        Me.GridColumn1.Caption = "Attribut"
+        Me.GridColumn1.FieldName = "Attribute"
+        Me.GridColumn1.Name = "GridColumn1"
+        Me.GridColumn1.Visible = true
+        Me.GridColumn1.VisibleIndex = 0
+        '
+        'GridColumn2
+        '
+        Me.GridColumn2.Caption = "Alter Wert"
+        Me.GridColumn2.FieldName = "Old value"
+        Me.GridColumn2.Name = "GridColumn2"
+        Me.GridColumn2.Visible = true
+        Me.GridColumn2.VisibleIndex = 1
+        '
+        'GridColumn3
+        '
+        Me.GridColumn3.Caption = "Neuer Wert"
+        Me.GridColumn3.FieldName = "New value"
+        Me.GridColumn3.Name = "GridColumn3"
+        Me.GridColumn3.Visible = true
+        Me.GridColumn3.VisibleIndex = 2
+        '
+        'GridColumn4
+        '
+        Me.GridColumn4.Caption = "Geändert Wer"
+        Me.GridColumn4.FieldName = "Changed who"
+        Me.GridColumn4.Name = "GridColumn4"
+        Me.GridColumn4.Visible = true
+        Me.GridColumn4.VisibleIndex = 3
+        '
+        'GridColumn5
+        '
+        Me.GridColumn5.Caption = "Geändert Wann"
+        Me.GridColumn5.FieldName = "Changed when"
+        Me.GridColumn5.Name = "GridColumn5"
+        Me.GridColumn5.Visible = true
+        Me.GridColumn5.VisibleIndex = 4
+        '
+        'AttributeRoot
+        '
+        Me.AttributeRoot.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.AttributeRoot.GroupBordersVisible = false
+        Me.AttributeRoot.Location = New System.Drawing.Point(0, 0)
+        Me.AttributeRoot.Name = "AttributeRoot"
+        Me.AttributeRoot.Size = New System.Drawing.Size(572, 534)
+        Me.AttributeRoot.TextVisible = false
+        '
+        'txtCreatedWhen
+        '
+        Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37)
+        Me.txtCreatedWhen.Name = "txtCreatedWhen"
+        Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtCreatedWhen.Properties.ReadOnly = true
+        Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
+        Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
+        Me.txtCreatedWhen.TabIndex = 4
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.txtCreatedWhen
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24)
+        Me.LayoutControlItem1.Text = "Erstellt"
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'txtChangedWhen
+        '
+        Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61)
+        Me.txtChangedWhen.Name = "txtChangedWhen"
+        Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtChangedWhen.Properties.ReadOnly = true
+        Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
+        Me.txtChangedWhen.StyleController = Me.LayoutControlObject
+        Me.txtChangedWhen.TabIndex = 5
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.txtChangedWhen
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24)
+        Me.LayoutControlItem2.Text = "Geändert"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'txtAccessedWhen
+        '
+        Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85)
+        Me.txtAccessedWhen.Name = "txtAccessedWhen"
+        Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtAccessedWhen.Properties.ReadOnly = true
+        Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20)
+        Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
+        Me.txtAccessedWhen.TabIndex = 6
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.txtAccessedWhen
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24)
+        Me.LayoutControlItem3.Text = "Letzter Zugriff"
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'txtObjectId
+        '
+        Me.txtObjectId.Location = New System.Drawing.Point(87, 12)
+        Me.txtObjectId.Name = "txtObjectId"
+        Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtObjectId.Properties.ReadOnly = true
+        Me.txtObjectId.Size = New System.Drawing.Size(473, 20)
+        Me.txtObjectId.StyleController = Me.LayoutControlObject
+        Me.txtObjectId.TabIndex = 7
+        '
+        'LayoutControlItem4
+        '
+        Me.LayoutControlItem4.Control = Me.txtObjectId
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24)
+        Me.LayoutControlItem4.Text = "Objekt Id"
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'SimpleSeparator1
+        '
+        Me.SimpleSeparator1.AllowHotTrack = false
+        Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24)
+        Me.SimpleSeparator1.Name = "SimpleSeparator1"
+        Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
+        '
+        'txtCreatedWho
+        '
+        Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37)
+        Me.txtCreatedWho.Name = "txtCreatedWho"
+        Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtCreatedWho.Properties.ReadOnly = true
+        Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
+        Me.txtCreatedWho.StyleController = Me.LayoutControlObject
+        Me.txtCreatedWho.TabIndex = 8
+        '
+        'LayoutControlItem5
+        '
+        Me.LayoutControlItem5.Control = Me.txtCreatedWho
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25)
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24)
+        Me.LayoutControlItem5.Text = "von"
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'txtChangedWho
+        '
+        Me.txtChangedWho.Location = New System.Drawing.Point(363, 61)
+        Me.txtChangedWho.Name = "txtChangedWho"
+        Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.txtChangedWho.Properties.ReadOnly = true
+        Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
+        Me.txtChangedWho.StyleController = Me.LayoutControlObject
+        Me.txtChangedWho.TabIndex = 9
+        '
+        'LayoutControlItem6
+        '
+        Me.LayoutControlItem6.Control = Me.txtChangedWho
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49)
+        Me.LayoutControlItem6.Name = "LayoutControlItem6"
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24)
+        Me.LayoutControlItem6.Text = "von"
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'TextEdit1
+        '
+        Me.TextEdit1.Location = New System.Drawing.Point(363, 85)
+        Me.TextEdit1.Name = "TextEdit1"
+        Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = true
+        Me.TextEdit1.Properties.ReadOnly = true
+        Me.TextEdit1.Size = New System.Drawing.Size(197, 20)
+        Me.TextEdit1.StyleController = Me.LayoutControlObject
+        Me.TextEdit1.TabIndex = 10
+        '
+        'txtAccessedWho
+        '
+        Me.txtAccessedWho.Control = Me.TextEdit1
+        Me.txtAccessedWho.CustomizationFormText = "von"
+        Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73)
+        Me.txtAccessedWho.Name = "txtAccessedWho"
+        Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24)
+        Me.txtAccessedWho.Text = "von"
+        Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13)
+        '
+        'EmptySpaceItem1
+        '
+        Me.EmptySpaceItem1.AllowHotTrack = false
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97)
+        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 417)
+        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'SplashScreenManager
+        '
+        SplashScreenManager.ClosingDelay = 500
         '
         'frmObjectPropertyDialog
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(572, 605)
         Me.Controls.Add(Me.TabFormContentContainer1)
         Me.Controls.Add(Me.TabFormControl1)
-        Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
         Me.Name = "frmObjectPropertyDialog"
         Me.TabFormControl = Me.TabFormControl1
-        Me.Text = "Objekt-Eigenschaften"
+        Me.Text = "Eigenschaften"
-        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.TabFormContentContainer1.ResumeLayout(False)
+        Me.TabFormContentContainer1.ResumeLayout(false)
-        CType(Me.LayoutControlProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ResumeLayout(False)
+        Me.TabFormContentContainer2.ResumeLayout(false)
+        CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).EndInit
+        Me.LayoutControlObject.ResumeLayout(false)
+        CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).EndInit
+        Me.TabFormContentContainer4.ResumeLayout(false)
+        CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit
+        Me.ResumeLayout(false)
 
-    End Sub
+End Sub
 
     Friend WithEvents TabFormControl1 As DevExpress.XtraBars.TabFormControl
-    Friend WithEvents TabPageProperties As DevExpress.XtraBars.TabFormPage
+    Friend WithEvents TabPageAttributes As DevExpress.XtraBars.TabFormPage
     Friend WithEvents TabFormContentContainer1 As DevExpress.XtraBars.TabFormContentContainer
-    Friend WithEvents TabPageMetadata As DevExpress.XtraBars.TabFormPage
+    Friend WithEvents TabPageObject As DevExpress.XtraBars.TabFormPage
     Friend WithEvents TabFormContentContainer2 As DevExpress.XtraBars.TabFormContentContainer
     Friend WithEvents TabPageLifecycle As DevExpress.XtraBars.TabFormPage
     Friend WithEvents TabFormContentContainer3 As DevExpress.XtraBars.TabFormContentContainer
-    Friend WithEvents LayoutControlProperties As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents LayoutControlAttributes As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents AttributeRoot As DevExpress.XtraLayout.LayoutControlGroup
     Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem
     Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
     Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents TabPageHistory As DevExpress.XtraBars.TabFormPage
+    Friend WithEvents TabFormContentContainer4 As DevExpress.XtraBars.TabFormContentContainer
+    Friend WithEvents GridValueHistory As DevExpress.XtraGrid.GridControl
+    Friend WithEvents ViewValueHistory As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents LayoutControlObject As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents LayoutObject As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents AttributeLayout As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents txtCreatedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator
+    Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
 End Class

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb

@@ -2,6 +2,7 @@
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraLayout
+Imports DevExpress.XtraSplashScreen
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow
@@ -28,13 +29,23 @@ Public Class frmObjectPropertyDialog
     End Sub
 
     Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
+        Dim oHandle As IOverlaySplashScreenHandle = Nothing
-            Dim EntityIds = Await GetBusinessEntitiesForObjectId(_ObjectId)
-            Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox)
-            oCombobox.Items.AddRange(EntityIds)
 
-            If EntityIds.Count = 1 Then
+        Try
-                cmbBusinessEntity.EditValue = EntityIds.First()
+            oHandle = SplashScreenManager.ShowOverlayForm(Me)
+
+            Dim oEntityIds = Await GetBusinessEntitiesForObjectId(_ObjectId)
+            Dim oHistoryDataTable = Await GetValueHistoryForObjectId(_ObjectId)
+            Dim oObjectProperties = Await GetPropertiesForObjectId(_ObjectId)
+            Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox)
+            oCombobox.Items.AddRange(oEntityIds)
+
+
+            ShowAttributeHistory(oHistoryDataTable)
+            ShowObjectProperties(oObjectProperties)
+
+            If oEntityIds.Count = 1 Then
+                cmbBusinessEntity.EditValue = oEntityIds.First()
             End If
         Catch ex As ApplicationException
             _Logger.Error(ex)
@@ -42,6 +53,10 @@ Public Class frmObjectPropertyDialog
         Catch ex As Exception
             _Logger.Error(ex)
             MessageBox.Show("Unhandled exception occurred please check the log", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+        Finally
+            If oHandle IsNot Nothing
+                SplashScreenManager.CloseOverlayForm(oHandle)
+            End If
         End Try
     End Sub
 
@@ -67,7 +82,7 @@ Public Class frmObjectPropertyDialog
         End If
     End Function
 
-    Private Async Function GetBusinessEntitiesForObjectId(ObjectId) As Task(Of List(Of Long))
+    Private Async Function GetBusinessEntitiesForObjectId(ObjectId As Long) As Task(Of List(Of Long))
         Dim oSQL = $"SELECT BE_ID FROM TBIDB_OBJECT_BE WHERE IDB_OBJ_ID = {ObjectId}"
         Dim oDatatable = Await _Db.GetDatatableAsync(oSQL)
 
@@ -84,6 +99,20 @@ Public Class frmObjectPropertyDialog
         End If
     End Function
 
+    Private Async Function GetValueHistoryForObjectId(ObjectId As Long) As Task(Of DataTable)
+        Dim oSQL As String = $"SELECT * FROM VWIDB_CHANGE_LOG WHERE IDB_OBJ_ID = {ObjectId} ORDER BY ChangeID DESC"
+        Dim oDatatable = Await _Db.GetDatatableAsync(oSQL)
+
+        Return oDatatable
+    End Function
+
+    Private Async Function GetPropertiesForObjectId(ObjectId As Long) As Task(Of DataTable)
+        Dim oSQL As String = $"SELECT * FROM TBIDB_OBJECT WHERE IDB_OBJ_ID = {ObjectId}"
+        Dim oDatatable = Await _Db.GetDatatableAsync(oSQL)
+
+        Return oDatatable
+    End Function
+
     Private Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object)
         Dim oIsForeign = IIf(IsForeign, 1, 0)
         Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
@@ -103,16 +132,47 @@ Public Class frmObjectPropertyDialog
 
         For Each oAttribute As Attribute In oAttributes
             Dim oControl = _Controls.GetControlForAttribute(oAttribute)
-            Dim oItem As LayoutControlItem = Root.AddItem()
+            Dim oItem As LayoutControlItem = AttributeLayout.AddItem()
             oItem.Text = oAttribute.Title
             oItem.Name = oAttribute.Title
             oItem.Control = oControl
         Next
 
-        For Each oItem As LayoutControlItem In Root.Items
+        For Each oItem As LayoutControlItem In AttributeLayout.Items
             Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId)
             Dim oEdit = DirectCast(oItem.Control, BaseEdit)
             oEdit.EditValue = oValue
         Next
     End Sub
+
+    Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean
+        Try
+            If pDatatable.Rows.Count > 0
+                GridValueHistory.DataSource = pDatatable
+            Else
+                TabPageHistory.Visible = False
+            End If
+
+            Return True
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Function ShowObjectProperties(pDatatable As DataTable) As Boolean
+        Try
+            Dim oRow As DataRow = pDatatable.Rows.Item(0)
+            txtObjectId.Text = oRow.Item("IDB_OBJ_ID")
+            txtCreatedWhen.Text = oRow.Item("ADDED_WHEN")
+            txtCreatedWho.Text = oRow.Item("ADDED_WHO")
+            txtChangedWhen.Text = oRow.Item("CHANGED_WHEN")
+            txtChangedWho.Text = oRow.Item("CHANGED_WHO")
+
+            Return True
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return False
+        End Try
+    End Function
 End Class

GUIs.ZooFlow/My Project/licenses.licx

@@ -1,14 +1,14 @@
-DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.ZooFlow/frmSearchStart.Designer.vb

@@ -23,6 +23,7 @@ Partial Class frmSearchStart
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true)
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearchStart))
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarButtonItemNewSearch = New DevExpress.XtraBars.BarButtonItem()
@@ -36,9 +37,20 @@ Partial Class frmSearchStart
         Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
         Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.txtFilterFrom = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemDateEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit()
+        Me.txtFilterTo = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemDateEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit()
+        Me.cmbFilterTimeframe = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
+        Me.SwitchFilter = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupFilter = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
+        Me.RepositoryItemTimeSpanEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.cmbProfile = New System.Windows.Forms.ComboBox()
@@ -65,10 +77,16 @@ Partial Class frmSearchStart
         Me.ContextMenuStripMultiselect = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemDateEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemDateEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemDateEdit2.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
@@ -78,20 +96,22 @@ Partial Class frmSearchStart
         CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControlSearch.SuspendLayout()
         Me.ContextMenuStripMultiselect.SuspendLayout()
-        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
+        'SplashScreenManager
+        '
+        SplashScreenManager.ClosingDelay = 500
+        '
         'RibbonControl1
         '
         Me.RibbonControl1.AutoSizeItems = True
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4, Me.BarStaticItem1, Me.txtFilterFrom, Me.txtFilterTo, Me.cmbFilterTimeframe, Me.SwitchFilter})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 11
+        Me.RibbonControl1.MaxItemId = 20
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1})
+        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1, Me.RepositoryItemTextEdit1, Me.RepositoryItemDateEdit1, Me.RepositoryItemDateEdit2, Me.RepositoryItemComboBox2, Me.RepositoryItemTimeSpanEdit1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.Size = New System.Drawing.Size(1070, 159)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
@@ -143,10 +163,9 @@ Partial Class frmSearchStart
         '
         'BarEditItem2
         '
-        Me.BarEditItem2.Caption = "Suchen"
         Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1
+        Me.BarEditItem2.EditWidth = 100
         Me.BarEditItem2.Id = 7
-        Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarEditItem2.Name = "BarEditItem2"
         '
         'RepositoryItemComboBox1
@@ -167,9 +186,69 @@ Partial Class frmSearchStart
         Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem4.Name = "BarButtonItem4"
         '
+        'BarStaticItem1
+        '
+        Me.BarStaticItem1.Caption = "Suchen"
+        Me.BarStaticItem1.Id = 12
+        Me.BarStaticItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'txtFilterFrom
+        '
+        Me.txtFilterFrom.Caption = "Von"
+        Me.txtFilterFrom.Edit = Me.RepositoryItemDateEdit1
+        Me.txtFilterFrom.EditWidth = 100
+        Me.txtFilterFrom.Id = 15
+        Me.txtFilterFrom.Name = "txtFilterFrom"
+        '
+        'RepositoryItemDateEdit1
+        '
+        Me.RepositoryItemDateEdit1.AutoHeight = False
+        Me.RepositoryItemDateEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemDateEdit1.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemDateEdit1.Name = "RepositoryItemDateEdit1"
+        Me.RepositoryItemDateEdit1.NullDate = ""
+        '
+        'txtFilterTo
+        '
+        Me.txtFilterTo.Caption = "Bis"
+        Me.txtFilterTo.Edit = Me.RepositoryItemDateEdit2
+        Me.txtFilterTo.EditWidth = 100
+        Me.txtFilterTo.Id = 16
+        Me.txtFilterTo.Name = "txtFilterTo"
+        '
+        'RepositoryItemDateEdit2
+        '
+        Me.RepositoryItemDateEdit2.AutoHeight = False
+        Me.RepositoryItemDateEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemDateEdit2.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemDateEdit2.Name = "RepositoryItemDateEdit2"
+        Me.RepositoryItemDateEdit2.NullDate = ""
+        '
+        'cmbFilterTimeframe
+        '
+        Me.cmbFilterTimeframe.Caption = "Zeitraum"
+        Me.cmbFilterTimeframe.Edit = Me.RepositoryItemComboBox2
+        Me.cmbFilterTimeframe.EditWidth = 100
+        Me.cmbFilterTimeframe.Id = 17
+        Me.cmbFilterTimeframe.Name = "cmbFilterTimeframe"
+        '
+        'RepositoryItemComboBox2
+        '
+        Me.RepositoryItemComboBox2.AutoHeight = False
+        Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2"
+        '
+        'SwitchFilter
+        '
+        Me.SwitchFilter.Caption = "Suche Filtern"
+        Me.SwitchFilter.Id = 18
+        Me.SwitchFilter.Name = "SwitchFilter"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroupFilter})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "Start"
         '
@@ -179,15 +258,37 @@ Partial Class frmSearchStart
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemNewSearch)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.SwitchFilter)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "Suchfunktionen"
         '
         'RibbonPageGroup2
         '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarStaticItem1)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarEditItem2)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         Me.RibbonPageGroup2.Text = "Auswahl Suche"
         '
+        'RibbonPageGroupFilter
+        '
+        Me.RibbonPageGroupFilter.Enabled = False
+        Me.RibbonPageGroupFilter.ItemLinks.Add(Me.cmbFilterTimeframe)
+        Me.RibbonPageGroupFilter.ItemLinks.Add(Me.txtFilterFrom)
+        Me.RibbonPageGroupFilter.ItemLinks.Add(Me.txtFilterTo)
+        Me.RibbonPageGroupFilter.Name = "RibbonPageGroupFilter"
+        Me.RibbonPageGroupFilter.Text = "Filter"
+        '
+        'RepositoryItemTextEdit1
+        '
+        Me.RepositoryItemTextEdit1.AutoHeight = False
+        Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
+        '
+        'RepositoryItemTimeSpanEdit1
+        '
+        Me.RepositoryItemTimeSpanEdit1.AutoHeight = False
+        Me.RepositoryItemTimeSpanEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemTimeSpanEdit1.Name = "RepositoryItemTimeSpanEdit1"
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo)
@@ -238,14 +339,14 @@ Partial Class frmSearchStart
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(750, 310)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(750, 363)
         Me.XtraTabControl1.TabIndex = 12
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5, Me.XtraTabPage6, Me.XtraTabPage7, Me.XtraTabPage8, Me.XtraTabPage9, Me.XtraTabPage10})
         '
         'XtraTabPage1
         '
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(748, 287)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(748, 340)
         Me.XtraTabPage1.Text = "Search#1"
         '
         'XtraTabPage2
@@ -310,7 +411,7 @@ Partial Class frmSearchStart
         Me.GridControlSerchTerms.MainView = Me.GridViewSearchTerms
         Me.GridControlSerchTerms.MenuManager = Me.RibbonControl1
         Me.GridControlSerchTerms.Name = "GridControlSerchTerms"
-        Me.GridControlSerchTerms.Size = New System.Drawing.Size(310, 310)
+        Me.GridControlSerchTerms.Size = New System.Drawing.Size(310, 363)
         Me.GridControlSerchTerms.TabIndex = 15
         Me.GridControlSerchTerms.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearchTerms})
         '
@@ -360,18 +461,16 @@ Partial Class frmSearchStart
         '
         'SplitContainerControlSearch
         '
-        Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerControlSearch.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
-        Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207)
+        Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 216)
         Me.SplitContainerControlSearch.Name = "SplitContainerControlSearch"
         Me.SplitContainerControlSearch.Panel1.Controls.Add(Me.XtraTabControl1)
         Me.SplitContainerControlSearch.Panel1.Text = "Panel1"
         Me.SplitContainerControlSearch.Panel2.Controls.Add(Me.GridControlSerchTerms)
         Me.SplitContainerControlSearch.Panel2.Text = "Panel2"
-        Me.SplitContainerControlSearch.Size = New System.Drawing.Size(1070, 310)
+        Me.SplitContainerControlSearch.Size = New System.Drawing.Size(1070, 363)
         Me.SplitContainerControlSearch.SplitterPosition = 310
         Me.SplitContainerControlSearch.TabIndex = 16
         '
@@ -395,17 +494,6 @@ Partial Class frmSearchStart
         Me.MehrfachauswahlInaktivierenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
         Me.MehrfachauswahlInaktivierenToolStripMenuItem.Text = "Mehrfachauswahl inaktivieren"
         '
-        'DateEdit1
-        '
-        Me.DateEdit1.EditValue = Nothing
-        Me.DateEdit1.Location = New System.Drawing.Point(173, 543)
-        Me.DateEdit1.MenuManager = Me.RibbonControl1
-        Me.DateEdit1.Name = "DateEdit1"
-        Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.DateEdit1.Size = New System.Drawing.Size(100, 20)
-        Me.DateEdit1.TabIndex = 19
-        '
         'frmSearchStart
         '
         Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
@@ -413,7 +501,6 @@ Partial Class frmSearchStart
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1070, 601)
-        Me.Controls.Add(Me.DateEdit1)
         Me.Controls.Add(Me.SplitContainerControlSearch)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
@@ -429,6 +516,13 @@ Partial Class frmSearchStart
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemDateEdit1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemDateEdit2.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemDateEdit2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -439,8 +533,6 @@ Partial Class frmSearchStart
         CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControlSearch.ResumeLayout(False)
         Me.ContextMenuStripMultiselect.ResumeLayout(False)
-        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout
 
@@ -487,5 +579,15 @@ End Sub
     Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
+    Friend WithEvents RibbonPageGroupFilter As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
+    Friend WithEvents txtFilterFrom As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemDateEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit
+    Friend WithEvents txtFilterTo As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemDateEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit
+    Friend WithEvents cmbFilterTimeframe As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
+    Friend WithEvents SwitchFilter As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents RepositoryItemTimeSpanEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit
 End Class

GUIs.ZooFlow/frmSearchStart.resx

@@ -167,26 +167,6 @@
         Ni4xLDIzLjF6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPHBhdGggZD0iTTI3LjUsMTEuOGwtMTAsMTBsLTku
         Mi05LjJsMTAtMTBjMC43LTAuNywxLjktMC43LDIuNiwwbDYuNiw2LjZDMjguMiw5LjksMjguMiwxMSwy
         Ny41LDExLjh6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
-</value>
-  </data>
-  <data name="BarEditItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
-        MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
-        bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku
-        NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs
-        MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx
-        OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2
-        czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu
-        NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw
-        LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y
-        LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw==
 </value>
   </data>
   <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -207,13 +187,33 @@
         IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
         My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
         Cjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarStaticItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
+        MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
+        bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku
+        NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs
+        MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx
+        OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2
+        czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu
+        NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw
+        LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y
+        LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw==
 </value>
   </data>
   <metadata name="ContextMenuStripSearchTerms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
+    <value>189, 17</value>
   </metadata>
   <metadata name="ContextMenuStripMultiselect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>237, 17</value>
+    <value>409, 17</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>174</value>

GUIs.ZooFlow/frmSearchStart.vb

@@ -7,6 +7,8 @@ Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraEditors
 Imports DigitalData.GUIs.Common
 Imports System.Random
+Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraEditors.Repository
 
 Public Class frmSearchStart
     Private Logger As Logger
@@ -43,9 +45,70 @@ Public Class frmSearchStart
         oSearchTerms.Columns.Add("BracketRight", GetType(String))
         oSearchTerms.Columns.Add("Operator", GetType(String))
         DTSearchTerms = oSearchTerms
+    End Sub
 
+    Private Sub frmSearchStart_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Me.Panel1.Visible = False
+            For Each oTab As XtraTabPage In XtraTabControl1.TabPages
+                oTab.PageVisible = False
+            Next
+
+            RepositoryItemComboBox2.Items.AddRange(New List(Of FilterTimeframe) From {
+                New FilterTimeframe() With {.Name = "Alle", .From = Nothing, .[To] = Nothing},
+                New FilterTimeframe() With {.Name = "Eigener", .From = Nothing, .[To] = Nothing},
+                New FilterTimeframe() With {
+                    .Name = "letzte 7 Tage",
+                    .From = Date.Now.Subtract(TimeSpan.FromDays(7)),
+                    .[To] = Date.Now
+                },
+                New FilterTimeframe() With {
+                    .Name = "letzte 14 Tage",
+                    .From = Date.Now.Subtract(TimeSpan.FromDays(14)),
+                    .[To] = Date.Now
+                }
+            })
+
+            If DTSearchProfiles.Rows.Count > 1 Then
+                cmbProfile.DataSource = DTSearchProfiles
+                cmbProfile.ValueMember = DTSearchProfiles.Columns("SEARCH_PROFILE_ID").ColumnName
+                cmbProfile.DisplayMember = DTSearchProfiles.Columns("TITLE").ColumnName
+                cmbProfile.AutoCompleteMode = AutoCompleteMode.Suggest
+                cmbProfile.AutoCompleteSource = AutoCompleteSource.ListItems
+                cmbProfile.SelectedIndex = -1
+                TabSelectedIndex = -1
+
+                Me.Panel1.Visible = True
+                For Each orow As DataRow In DTSearchProfiles.Rows
+                    RepositoryItemComboBox1.Items.Add(orow.Item("TITLE"))
+                Next
+
+            Else
+                TabSelectedIndex = 0
+                TabSelected = XtraTabControl1.TabPages(0)
+                TabSelected.PageVisible = True
+                PSEARCH_ID = DTSearchProfiles.Rows(0).Item("SEARCH_PROFILE_ID")
+                SEARCH_SQL = DTSearchProfiles.Rows(0).Item("RESULT_SQL")
+                SEARCH_TITLE = DTSearchProfiles.Rows(0).Item("TITLE")
+                TabSelected.Text = DTSearchProfiles.Rows(0).Item("TITLE")
+                Load_Search_Attributes()
+                BarButtonItemNewSearch.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            End If
+            SEARCH_COUNT = DTSearchProfiles.Rows.Count
+            SplitContainerControlSearch.Collapsed = True
+            RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red
+            If My.UIConfig.SearchForm.Location.X > 0 And My.UIConfig.SearchForm.Location.Y > 0 Then
+                Me.Location = My.UIConfig.SearchForm.Location
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while loading ProfileSearches:")
+        End Try
 
     End Sub
+
+
     Public Sub AddSearchAttribute(pAttributeId As String, pAttributeTitle As String, pSearchTerm As String, Optional pCriteria As String = "=")
         GridControlSerchTerms.DataSource = Nothing
         Dim oMultiselect As Boolean = False
@@ -107,51 +170,6 @@ Public Class frmSearchStart
 
     End Sub
 
-
-    Private Sub frmSearchStart_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-            Me.Panel1.Visible = False
-            For Each oTab As XtraTabPage In XtraTabControl1.TabPages
-                oTab.PageVisible = False
-            Next
-            If DTSearchProfiles.Rows.Count > 1 Then
-                cmbProfile.DataSource = DTSearchProfiles
-                cmbProfile.ValueMember = DTSearchProfiles.Columns("SEARCH_PROFILE_ID").ColumnName
-                cmbProfile.DisplayMember = DTSearchProfiles.Columns("TITLE").ColumnName
-                cmbProfile.AutoCompleteMode = AutoCompleteMode.Suggest
-                cmbProfile.AutoCompleteSource = AutoCompleteSource.ListItems
-                cmbProfile.SelectedIndex = -1
-                TabSelectedIndex = -1
-
-                Me.Panel1.Visible = True
-                For Each orow As DataRow In DTSearchProfiles.Rows
-                    RepositoryItemComboBox1.Items.Add(orow.Item("TITLE"))
-                Next
-
-            Else
-                TabSelectedIndex = 0
-                TabSelected = XtraTabControl1.TabPages(0)
-                TabSelected.PageVisible = True
-                PSEARCH_ID = DTSearchProfiles.Rows(0).Item("SEARCH_PROFILE_ID")
-                SEARCH_SQL = DTSearchProfiles.Rows(0).Item("RESULT_SQL")
-                SEARCH_TITLE = DTSearchProfiles.Rows(0).Item("TITLE")
-                TabSelected.Text = DTSearchProfiles.Rows(0).Item("TITLE")
-                Load_Search_Attributes()
-                BarButtonItemNewSearch.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-            End If
-            SEARCH_COUNT = DTSearchProfiles.Rows.Count
-            SplitContainerControlSearch.Collapsed = True
-            RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red
-            If My.UIConfig.SearchForm.Location.X > 0 And My.UIConfig.SearchForm.Location.Y > 0 Then
-                Me.Location = My.UIConfig.SearchForm.Location
-            End If
-
-        Catch ex As Exception
-            Logger.Error(ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while loading ProfileSearches:")
-        End Try
-
-    End Sub
     Sub Load_Search_Attributes()
         Try
             DataLoaded = False
@@ -754,10 +772,14 @@ Public Class frmSearchStart
     End Function
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
-        Start_Search
+        Start_Search()
     End Sub
-    Private Function Start_Search()
+    Private Sub Start_Search()
+        Dim oHandle As IOverlaySplashScreenHandle = Nothing
+
         Try
+            oHandle = SplashScreenManager.ShowOverlayForm(Me)
+
             Dim oSEARCH_SQL = SEARCH_SQL
             Dim oOperator As String
             Dim oCount As Integer = 1
@@ -772,14 +794,18 @@ Public Class frmSearchStart
                 oOperator = oRow.Item("Operator").ToString
                 Dim oSearchTerm = GetSearchTermForType(oRow.Item("AttrID"), oRow.Item("AttrTitle").ToString, oRow.Item("Criteria").ToString, oRow.Item("SearchTerm").ToString)
 
-                oSEARCH_SQL &= IIf(oCount = 0, " ", "") + $"{oRow.Item("BracketLeft").ToString}{oSearchTerm}{oRow.Item("BracketLeft").ToString}"
+                Dim oBracketLeft As String = oRow.Item("BracketLeft").ToString
+                Dim oBracketRight As String = oRow.Item("BracketLeft").ToString
+                Dim oSpaceChar = IIf(oCount = 0, " ", "")
+
+                oSEARCH_SQL &= $"{oSpaceChar}{oBracketLeft}{oSearchTerm}{oBracketRight}"
                 If DTSearchTerms.Rows.Count > oCount Then
                     oSEARCH_SQL &= $" {oOperator} {Chr(13)}"
                 End If
                 oCount += 1
             Next
 
-            Dim oEnvironment As New DigitalData.Modules.ZooFlow.Environment() With {
+            Dim oEnvironment As New Modules.ZooFlow.Environment() With {
                 .User = My.Application.User,
                 .Modules = My.Application.Modules,
                 .Database = My.Database,
@@ -791,6 +817,7 @@ Public Class frmSearchStart
                 Dim oShortGuid = Guid.NewGuid()
                 Dim oWindowGuid = $"{PSEARCH_ID.ToString}-{My.User.Name}"
                 Dim oParams = New DocumentResultParams() With {
+                    .IsIDBResult = True,
                     .WindowGuid = oWindowGuid,
                     .Results = New List(Of DocumentResult) From {
                         New DocumentResult() With {
@@ -805,12 +832,11 @@ Public Class frmSearchStart
             Else
                 Display_InfoItem("No results for this searchcombination!", Color.OrangeRed)
             End If
-
-
         Catch ex As Exception
-
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
         End Try
-    End Function
+    End Sub
 
     Private Sub frmSearchStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
         If e.KeyCode = Keys.F2 Then
@@ -818,5 +844,34 @@ Public Class frmSearchStart
         End If
     End Sub
 
+    Private Sub SwitchFilter_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchFilter.CheckedChanged
+        If SwitchFilter.Checked Then
+            RibbonPageGroupFilter.Enabled = True
+        Else
+            RibbonPageGroupFilter.Enabled = False
+        End If
+    End Sub
 
+    Private Class FilterTimeframe
+        Public Property Name As String
+        Public Property From As Date
+        Public Property [To] As Date
+
+        Public Overrides Function ToString() As String
+            Return Name.ToString
+        End Function
+    End Class
+
+    Private Sub cmbFilterTimeframe_EditValueChanged(sender As Object, e As EventArgs) Handles cmbFilterTimeframe.EditValueChanged
+        Dim oTimeframe As FilterTimeframe = DirectCast(cmbFilterTimeframe.EditValue, FilterTimeframe)
+
+        If IsNothing(oTimeframe.From) And IsNothing(oTimeframe.To) Then
+            txtFilterFrom.Reset()
+            txtFilterTo.Reset()
+        Else
+            txtFilterFrom.EditValue = oTimeframe.From
+            txtFilterTo.EditValue = oTimeframe.[To]
+        End If
+
+    End Sub
 End Class