Common: ObjectPropertyDialog improvements, DocumentResultList Improvements

2022-03-23 16:33:53 +01:00
parent 53e702374b
commit 684b3f63ac
18 changed files with 950 additions and 764 deletions
--- a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb
+++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb
@@ -28,15 +28,15 @@ Partial Class ctrlObjectPropertyDialog
        Me.XtraTabPageObject = New DevExpress.XtraTab.XtraTabPage()
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
        Me.GridObjectHistory = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ViewObjectHistory = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.progressLifecycle = New DevExpress.XtraEditors.ProgressBarControl()
        Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
        Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
        Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit()
        Me.RootMetadata = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -47,8 +47,6 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem()
@@ -58,7 +56,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage()
        Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
-        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ViewValueHistory = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.XtraTabPageVersions = New DevExpress.XtraTab.XtraTabPage()
        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
        Me.d = New DevExpress.XtraBars.Bar()
@@ -75,15 +73,13 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.LayoutControl1.SuspendLayout()
        CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewObjectHistory, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -94,8 +90,6 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -105,7 +99,7 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabPageAttributeHistory.SuspendLayout()
        CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.cmbEntityIdInner, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -144,8 +138,6 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControl1.Controls.Add(Me.txtCreatedWho)
        Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
        Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
-        Me.LayoutControl1.Controls.Add(Me.txtAccessedWhen)
-        Me.LayoutControl1.Controls.Add(Me.TextEdit11)
        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControl1.Name = "LayoutControl1"
@@ -157,17 +149,36 @@ Partial Class ctrlObjectPropertyDialog
        '
        'GridObjectHistory
        '
-        Me.GridObjectHistory.Location = New System.Drawing.Point(24, 267)
-        Me.GridObjectHistory.MainView = Me.GridView1
+        Me.GridObjectHistory.Location = New System.Drawing.Point(22, 265)
+        Me.GridObjectHistory.MainView = Me.ViewObjectHistory
        Me.GridObjectHistory.Name = "GridObjectHistory"
-        Me.GridObjectHistory.Size = New System.Drawing.Size(455, 281)
+        Me.GridObjectHistory.Size = New System.Drawing.Size(459, 285)
        Me.GridObjectHistory.TabIndex = 9
-        Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewObjectHistory})
        '
-        'GridView1
+        'ViewObjectHistory
        '
-        Me.GridView1.GridControl = Me.GridObjectHistory
-        Me.GridView1.Name = "GridView1"
+        Me.ViewObjectHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2})
+        Me.ViewObjectHistory.GridControl = Me.GridObjectHistory
+        Me.ViewObjectHistory.Name = "ViewObjectHistory"
+        Me.ViewObjectHistory.OptionsView.ShowGroupPanel = False
+        Me.ViewObjectHistory.OptionsView.ShowIndicator = False
+        '
+        'GridColumn1
+        '
+        Me.GridColumn1.Caption = "Ereignis"
+        Me.GridColumn1.FieldName = "STATE_LANG"
+        Me.GridColumn1.Name = "GridColumn1"
+        Me.GridColumn1.Visible = True
+        Me.GridColumn1.VisibleIndex = 0
+        '
+        'GridColumn2
+        '
+        Me.GridColumn2.Caption = "Datum"
+        Me.GridColumn2.FieldName = "ADDED_WHEN"
+        Me.GridColumn2.Name = "GridColumn2"
+        Me.GridColumn2.Visible = True
+        Me.GridColumn2.VisibleIndex = 1
        '
        'progressLifecycle
        '
@@ -179,81 +190,59 @@ Partial Class ctrlObjectPropertyDialog
        '
        'txtObjectId
        '
-        Me.txtObjectId.Location = New System.Drawing.Point(109, 48)
+        Me.txtObjectId.Location = New System.Drawing.Point(95, 48)
        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(367, 20)
+        Me.txtObjectId.Size = New System.Drawing.Size(381, 20)
        Me.txtObjectId.StyleController = Me.LayoutControl1
        Me.txtObjectId.TabIndex = 7
        '
        'txtCreatedWhen
        '
-        Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78)
+        Me.txtCreatedWhen.Location = New System.Drawing.Point(95, 78)
        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(137, 20)
+        Me.txtCreatedWhen.Size = New System.Drawing.Size(151, 20)
        Me.txtCreatedWhen.StyleController = Me.LayoutControl1
        Me.txtCreatedWhen.TabIndex = 4
        '
        'txtCreatedWho
        '
-        Me.txtCreatedWho.Location = New System.Drawing.Point(338, 78)
+        Me.txtCreatedWho.Location = New System.Drawing.Point(324, 78)
        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(138, 20)
+        Me.txtCreatedWho.Size = New System.Drawing.Size(152, 20)
        Me.txtCreatedWho.StyleController = Me.LayoutControl1
        Me.txtCreatedWho.TabIndex = 8
        '
        'txtChangedWho
        '
-        Me.txtChangedWho.Location = New System.Drawing.Point(338, 108)
+        Me.txtChangedWho.Location = New System.Drawing.Point(324, 108)
        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(138, 20)
+        Me.txtChangedWho.Size = New System.Drawing.Size(152, 20)
        Me.txtChangedWho.StyleController = Me.LayoutControl1
        Me.txtChangedWho.TabIndex = 9
        '
        'txtChangedWhen
        '
-        Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108)
+        Me.txtChangedWhen.Location = New System.Drawing.Point(95, 108)
        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(137, 20)
+        Me.txtChangedWhen.Size = New System.Drawing.Size(151, 20)
        Me.txtChangedWhen.StyleController = Me.LayoutControl1
        Me.txtChangedWhen.TabIndex = 5
        '
-        'txtAccessedWhen
-        '
-        Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138)
-        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(137, 20)
-        Me.txtAccessedWhen.StyleController = Me.LayoutControl1
-        Me.txtAccessedWhen.TabIndex = 6
-        '
-        'TextEdit11
-        '
-        Me.TextEdit11.Location = New System.Drawing.Point(338, 138)
-        Me.TextEdit11.Name = "TextEdit11"
-        Me.TextEdit11.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
-        Me.TextEdit11.Properties.AppearanceReadOnly.Options.UseBackColor = True
-        Me.TextEdit11.Properties.ReadOnly = True
-        Me.TextEdit11.Size = New System.Drawing.Size(138, 20)
-        Me.TextEdit11.StyleController = Me.LayoutControl1
-        Me.TextEdit11.TabIndex = 10
-        '
        'RootMetadata
        '
        Me.RootMetadata.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -268,6 +257,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 222)
        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
+        Me.LayoutControlGroup1.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0)
        Me.LayoutControlGroup1.Size = New System.Drawing.Size(483, 330)
        Me.LayoutControlGroup1.Text = "Objekt Historie"
        '
@@ -276,13 +266,14 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem2.Control = Me.GridObjectHistory
        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(459, 285)
+        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(9, 9, 9, 9)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(477, 303)
        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
        Me.LayoutControlItem2.TextVisible = False
        '
        'LayoutControlGroup2
        '
-        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem1, Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.txtAccessedWho})
+        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem1, Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7})
        Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
        Me.LayoutControlGroup2.Size = New System.Drawing.Size(483, 222)
@@ -291,9 +282,9 @@ Partial Class ctrlObjectPropertyDialog
        'EmptySpaceItem1
        '
        Me.EmptySpaceItem1.AllowHotTrack = False
-        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 90)
        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
-        Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 57)
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 87)
        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
        '
        'LayoutControlItem1
@@ -306,7 +297,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem1.Size = New System.Drawing.Size(459, 30)
        Me.LayoutControlItem1.Text = "Objekt Id"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(56, 13)
        '
        'LayoutControlItem3
        '
@@ -318,7 +309,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem3.Size = New System.Drawing.Size(229, 30)
        Me.LayoutControlItem3.Text = "Erstellt"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(56, 13)
        '
        'LayoutControlItem5
        '
@@ -330,7 +321,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem5.Size = New System.Drawing.Size(230, 30)
        Me.LayoutControlItem5.Text = "von"
-        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(56, 13)
        '
        'LayoutControlItem6
        '
@@ -342,7 +333,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem6.Size = New System.Drawing.Size(230, 30)
        Me.LayoutControlItem6.Text = "von"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(56, 13)
        '
        'LayoutControlItem7
        '
@@ -354,31 +345,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem7.Size = New System.Drawing.Size(229, 30)
        Me.LayoutControlItem7.Text = "Geändert"
-        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(70, 13)
-        '
-        'LayoutControlItem8
-        '
-        Me.LayoutControlItem8.Control = Me.txtAccessedWhen
-        Me.LayoutControlItem8.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
-        Me.LayoutControlItem8.CustomizationFormText = "Letzter Zugriff"
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 90)
-        Me.LayoutControlItem8.Name = "LayoutControlItem8"
-        Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(229, 30)
-        Me.LayoutControlItem8.Text = "Letzter Zugriff"
-        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(70, 13)
-        '
-        'txtAccessedWho
-        '
-        Me.txtAccessedWho.Control = Me.TextEdit11
-        Me.txtAccessedWho.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
-        Me.txtAccessedWho.CustomizationFormText = "von"
-        Me.txtAccessedWho.Location = New System.Drawing.Point(229, 90)
-        Me.txtAccessedWho.Name = "txtAccessedWho"
-        Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.txtAccessedWho.Size = New System.Drawing.Size(230, 30)
-        Me.txtAccessedWho.Text = "von"
-        Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(56, 13)
        '
        'LayoutControlGroup3
        '
@@ -405,7 +372,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.lbLifecycleStart.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
        Me.lbLifecycleStart.Size = New System.Drawing.Size(229, 33)
        Me.lbLifecycleStart.Text = "00.00.0000"
-        Me.lbLifecycleStart.TextSize = New System.Drawing.Size(70, 13)
+        Me.lbLifecycleStart.TextSize = New System.Drawing.Size(56, 13)
        '
        'lbLifecycleEnd
        '
@@ -417,7 +384,7 @@ Partial Class ctrlObjectPropertyDialog
        Me.lbLifecycleEnd.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
        Me.lbLifecycleEnd.Size = New System.Drawing.Size(230, 33)
        Me.lbLifecycleEnd.Text = "99.99.9999"
-        Me.lbLifecycleEnd.TextSize = New System.Drawing.Size(70, 13)
+        Me.lbLifecycleEnd.TextSize = New System.Drawing.Size(56, 13)
        '
        'XtraTabPageAttributes
        '
@@ -449,6 +416,7 @@ Partial Class ctrlObjectPropertyDialog
        '
        Me.XtraTabPageAttributeHistory.Controls.Add(Me.GridValueHistory)
        Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory"
+        Me.XtraTabPageAttributeHistory.PageEnabled = False
        Me.XtraTabPageAttributeHistory.Size = New System.Drawing.Size(503, 668)
        Me.XtraTabPageAttributeHistory.Text = "Attribut Historie"
        '
@@ -456,16 +424,18 @@ Partial Class ctrlObjectPropertyDialog
        '
        Me.GridValueHistory.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GridValueHistory.Location = New System.Drawing.Point(0, 0)
-        Me.GridValueHistory.MainView = Me.GridView2
+        Me.GridValueHistory.MainView = Me.ViewValueHistory
        Me.GridValueHistory.Name = "GridValueHistory"
        Me.GridValueHistory.Size = New System.Drawing.Size(503, 668)
        Me.GridValueHistory.TabIndex = 0
-        Me.GridValueHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        Me.GridValueHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewValueHistory})
        '
-        'GridView2
+        'ViewValueHistory
        '
-        Me.GridView2.GridControl = Me.GridValueHistory
-        Me.GridView2.Name = "GridView2"
+        Me.ViewValueHistory.GridControl = Me.GridValueHistory
+        Me.ViewValueHistory.Name = "ViewValueHistory"
+        Me.ViewValueHistory.OptionsView.ShowGroupPanel = False
+        Me.ViewValueHistory.OptionsView.ShowIndicator = False
        '
        'XtraTabPageVersions
        '
@@ -564,15 +534,13 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.LayoutControl1.ResumeLayout(False)
        CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewObjectHistory, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -583,8 +551,6 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).EndInit()
@@ -594,7 +560,7 @@ Partial Class ctrlObjectPropertyDialog
        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabPageAttributeHistory.ResumeLayout(False)
        CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.cmbEntityIdInner, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
@@ -616,7 +582,7 @@ Partial Class ctrlObjectPropertyDialog
    Friend WithEvents XtraTabPageAttributes As DevExpress.XtraTab.XtraTabPage
    Friend WithEvents XtraTabPageAttributeHistory As DevExpress.XtraTab.XtraTabPage
    Friend WithEvents GridObjectHistory As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ViewObjectHistory As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
    Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit
@@ -624,17 +590,13 @@ Partial Class ctrlObjectPropertyDialog
    Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit
    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
    Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit
    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents GridValueHistory As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ViewValueHistory As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl
    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
@@ -646,4 +608,6 @@ Partial Class ctrlObjectPropertyDialog
    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
    Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
    Friend WithEvents XtraTabPageVersions As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
 End Class
--- a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
+++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
@@ -6,6 +6,9 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.ZooFlow
 Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Base.IDB
+Imports DevExpress.XtraLayout

 Public Class ctrlObjectPropertyDialog
    Implements IBaseForm
@@ -14,15 +17,20 @@ Public Class ctrlObjectPropertyDialog
    Private Property Logger As Logger Implements IBaseForm.Logger
    Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
    Private Property ControlManager As AttributeControls
+    Private Property GridBuilder As GridBuilder
    Private Property Client As Client
    Private Property Environment As Environment
    Private Property ObjectId As Long

    Private ReadOnly Changes As New Dictionary(Of String, Object)

+    Public ReadOnly Property HasChanges As Boolean
+        Get
+            Return Changes.Count > 0
+        End Get
+    End Property

-    Private Loading As Boolean = False
-
+    Private IsLoading As Boolean = False
    Private LastEntityId As Integer = 0

    Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -34,10 +42,42 @@ Public Class ctrlObjectPropertyDialog
        Logger = pLogConfig.GetLogger()
        ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm)
        ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
+
+        GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory)
+        GridBuilder.
+            WithDefaults().
+            WithReadOnlyOptions().
+            WithClipboardHandler()
+
+        AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
+
        Client = pClient
        Environment = pEnv
    End Sub

+    Public Async Function SaveChanges() As Task
+        Try
+            For Each oChange As KeyValuePair(Of String, Object) In Changes
+                Logger.Info("Updating Attribute [{0}] with value [{1}]", oChange.Key, oChange.Value.ToString)
+                Await Client.SetAttributeValueAsync(ObjectId, oChange.Key, oChange.Value, New Options.SetAttributeValueOptions With {
+                    .Language = Environment.User.Language,
+                    .Username = Environment.User.UserName
+                })
+
+                Logger.Info("Updating Object State for Object [{0}]", ObjectId)
+                Await Client.SetObjectStateAsync(ObjectId, FileStore.OBJECT_STATE_METADATA_CHANGED, New Options.SetObjectStateOptions With {
+                    .Language = Environment.User.Language,
+                    .Username = Environment.User.UserName
+                })
+            Next
+
+            ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
+            Changes.Clear()
+        Catch ex As Exception
+            ErrorHandler.ShowErrorMessage(ex, "SaveChanges")
+        End Try
+    End Function
+
    Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean)
        ' Load Business Entities
        Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId)
@@ -52,7 +92,7 @@ Public Class ctrlObjectPropertyDialog
    End Function

    Public Async Function LoadObject(pObjectId As Long, pEntityId As Long) As Task(Of Boolean)
-        Loading = True
+        IsLoading = True
        Dim oLoadingHandle = SplashScreenManager.ShowOverlayForm(Me)

        Try
@@ -85,13 +125,16 @@ Public Class ctrlObjectPropertyDialog
            ' Save the current entity id
            LastEntityId = pEntityId

+            ' Delete all existing changes from other objects
+            Changes.Clear()
+
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        Finally
            SplashScreenManager.CloseOverlayForm(oLoadingHandle)
-            Loading = False
+            IsLoading = False
        End Try
    End Function

@@ -123,8 +166,8 @@ Public Class ctrlObjectPropertyDialog
            txtObjectId.Text = oRow.Item("IDB_OBJ_ID")
            txtCreatedWhen.Text = oRow.Item("ADDED_WHEN")
            txtCreatedWho.Text = oRow.Item("ADDED_WHO")
-            txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN"), String.Empty)
-            txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO"), String.Empty)
+            txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN_SUBSTRUCTURE"), String.Empty)
+            txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO_SUBSTRUCTURE"), String.Empty)

            lbLifecycleStart.Text = DirectCast(oRow.Item("ADDED_WHEN"), Date).ToShortDateString
            lbLifecycleEnd.Text = Date.MaxValue.ToShortDateString
@@ -199,8 +242,6 @@ Public Class ctrlObjectPropertyDialog
                MsgBox($"Es konnten keine Attribute für das Objekt '{pObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
            End If

-
-
            ControlManager.LoadControlsForAttributes(oAttributes, Root)
            Await ControlManager.LoadControlValuesForAttributes(pObjectId, Root)
        Catch ex As Exception
@@ -211,8 +252,28 @@ Public Class ctrlObjectPropertyDialog
    Private Async Sub cmbEntityId_EditValueChanged(sender As Object, e As EventArgs) Handles cmbEntityId.EditValueChanged
        Dim oEntityId As Long

-        If Integer.TryParse(cmbEntityId.EditValue, oEntityId) AndAlso Loading = False Then
+        If Integer.TryParse(cmbEntityId.EditValue, oEntityId) AndAlso IsLoading = False Then
            Await LoadObject(ObjectId, oEntityId)
        End If
    End Sub
+
+    Private Sub BaseEdit_EditValueChanged(sender As Object, e As EventArgs)
+        If IsLoading = True Then
+            Exit Sub
+        End If
+
+        Dim oControlItem As LayoutControlItem = sender
+        Dim oControl As BaseEdit = oControlItem.Control
+        Dim oAttribute As Attribute = oControl.Tag
+        Dim oValue = oControl.EditValue
+        Dim oKey = oAttribute.Title
+
+        If Changes.ContainsKey(oKey) Then
+            Changes.Item(oKey) = oValue
+        Else
+            Changes.Add(oAttribute.Title, oValue)
+
+        End If
+    End Sub
+
 End Class
--- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb
+++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb
@@ -50,11 +50,9 @@ Partial Class frmObjectPropertyDialog
        Me.lbLifecycleStart = New DevExpress.XtraEditors.LabelControl()
        Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
        Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
        Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
        Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -66,8 +64,6 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
        Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage()
        Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer()
        Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
@@ -93,11 +89,9 @@ Partial Class frmObjectPropertyDialog
        CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -109,8 +103,6 @@ Partial Class frmObjectPropertyDialog
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabFormContentContainer4.SuspendLayout()
        CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -222,11 +214,9 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlObject.Controls.Add(Me.GroupControl1)
        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"
@@ -237,10 +227,10 @@ Partial Class frmObjectPropertyDialog
        '
        'GridObjectHistory
        '
-        Me.GridObjectHistory.Location = New System.Drawing.Point(24, 211)
+        Me.GridObjectHistory.Location = New System.Drawing.Point(24, 181)
        Me.GridObjectHistory.MainView = Me.GridView1
        Me.GridObjectHistory.Name = "GridObjectHistory"
-        Me.GridObjectHistory.Size = New System.Drawing.Size(524, 199)
+        Me.GridObjectHistory.Size = New System.Drawing.Size(524, 229)
        Me.GridObjectHistory.TabIndex = 11
        Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -260,7 +250,7 @@ Partial Class frmObjectPropertyDialog
        '
        'GridColumn7
        '
-        Me.GridColumn7.Caption = "Datum "
+        Me.GridColumn7.Caption = "Datum"
        Me.GridColumn7.FieldName = "ADDED_WHEN"
        Me.GridColumn7.Name = "GridColumn7"
        Me.GridColumn7.Visible = True
@@ -310,81 +300,59 @@ Partial Class frmObjectPropertyDialog
        '
        'txtCreatedWhen
        '
-        Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78)
+        Me.txtCreatedWhen.Location = New System.Drawing.Point(84, 78)
        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(172, 20)
+        Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
        Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
        Me.txtCreatedWhen.TabIndex = 4
        '
        'txtChangedWhen
        '
-        Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108)
+        Me.txtChangedWhen.Location = New System.Drawing.Point(84, 108)
        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(172, 20)
+        Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
        Me.txtChangedWhen.StyleController = Me.LayoutControlObject
        Me.txtChangedWhen.TabIndex = 5
        '
-        'txtAccessedWhen
-        '
-        Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138)
-        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(172, 20)
-        Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
-        Me.txtAccessedWhen.TabIndex = 6
-        '
        'txtObjectId
        '
-        Me.txtObjectId.Location = New System.Drawing.Point(109, 48)
+        Me.txtObjectId.Location = New System.Drawing.Point(84, 48)
        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(436, 20)
+        Me.txtObjectId.Size = New System.Drawing.Size(461, 20)
        Me.txtObjectId.StyleController = Me.LayoutControlObject
        Me.txtObjectId.TabIndex = 7
        '
        'txtCreatedWho
        '
-        Me.txtCreatedWho.Location = New System.Drawing.Point(373, 78)
+        Me.txtCreatedWho.Location = New System.Drawing.Point(348, 78)
        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(172, 20)
+        Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
        Me.txtCreatedWho.StyleController = Me.LayoutControlObject
        Me.txtCreatedWho.TabIndex = 8
        '
        'txtChangedWho
        '
-        Me.txtChangedWho.Location = New System.Drawing.Point(373, 108)
+        Me.txtChangedWho.Location = New System.Drawing.Point(348, 108)
        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(172, 20)
+        Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
        Me.txtChangedWho.StyleController = Me.LayoutControlObject
        Me.txtChangedWho.TabIndex = 9
        '
-        'TextEdit1
-        '
-        Me.TextEdit1.Location = New System.Drawing.Point(373, 138)
-        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(172, 20)
-        Me.TextEdit1.StyleController = Me.LayoutControlObject
-        Me.TextEdit1.TabIndex = 10
-        '
        'LayoutObject
        '
        Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -397,7 +365,7 @@ Partial Class frmObjectPropertyDialog
        'SimpleSeparator1
        '
        Me.SimpleSeparator1.AllowHotTrack = False
-        Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 165)
+        Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 135)
        Me.SimpleSeparator1.Name = "SimpleSeparator1"
        Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
        '
@@ -413,9 +381,9 @@ Partial Class frmObjectPropertyDialog
        'LayoutControlGroup1
        '
        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem8})
-        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 166)
+        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 136)
        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(552, 248)
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(552, 278)
        Me.LayoutControlGroup1.Text = "Objekt Historie"
        '
        'LayoutControlItem8
@@ -423,16 +391,16 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem8.Control = Me.GridObjectHistory
        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlItem8.Name = "LayoutControlItem8"
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(528, 203)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(528, 233)
        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0)
        Me.LayoutControlItem8.TextVisible = False
        '
        'LayoutControlGroup2
        '
-        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.txtAccessedWho})
+        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2})
        Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
-        Me.LayoutControlGroup2.Size = New System.Drawing.Size(552, 165)
+        Me.LayoutControlGroup2.Size = New System.Drawing.Size(552, 135)
        Me.LayoutControlGroup2.Text = "Eigenschaften"
        '
        'LayoutControlItem4
@@ -443,7 +411,7 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 30)
        Me.LayoutControlItem4.Text = "Objekt Id"
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(45, 13)
        '
        'LayoutControlItem1
        '
@@ -453,7 +421,7 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem1.Size = New System.Drawing.Size(264, 30)
        Me.LayoutControlItem1.Text = "Erstellt"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(45, 13)
        '
        'LayoutControlItem5
        '
@@ -463,7 +431,7 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem5.Size = New System.Drawing.Size(264, 30)
        Me.LayoutControlItem5.Text = "von"
-        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(45, 13)
        '
        'LayoutControlItem6
        '
@@ -473,7 +441,7 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem6.Size = New System.Drawing.Size(264, 30)
        Me.LayoutControlItem6.Text = "von"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(45, 13)
        '
        'LayoutControlItem2
        '
@@ -483,28 +451,7 @@ Partial Class frmObjectPropertyDialog
        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem2.Size = New System.Drawing.Size(264, 30)
        Me.LayoutControlItem2.Text = "Geändert"
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13)
-        '
-        'LayoutControlItem3
-        '
-        Me.LayoutControlItem3.Control = Me.txtAccessedWhen
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 90)
-        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(264, 30)
-        Me.LayoutControlItem3.Text = "Letzter Zugriff"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
-        '
-        'txtAccessedWho
-        '
-        Me.txtAccessedWho.Control = Me.TextEdit1
-        Me.txtAccessedWho.CustomizationFormText = "von"
-        Me.txtAccessedWho.Location = New System.Drawing.Point(264, 90)
-        Me.txtAccessedWho.Name = "txtAccessedWho"
-        Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.txtAccessedWho.Size = New System.Drawing.Size(264, 30)
-        Me.txtAccessedWho.Text = "von"
-        Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(45, 13)
        '
        'TabPageHistory
        '
@@ -615,11 +562,9 @@ Partial Class frmObjectPropertyDialog
        CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
@@ -631,8 +576,6 @@ Partial Class frmObjectPropertyDialog
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabFormContentContainer4.ResumeLayout(False)
        CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
@@ -665,12 +608,10 @@ Partial Class frmObjectPropertyDialog
    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 SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator
    Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit
    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
    Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl
    Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl
    Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl
@@ -683,8 +624,6 @@ Partial Class frmObjectPropertyDialog
    Friend WithEvents LayoutControlItem2 As LayoutControlItem
    Friend WithEvents LayoutControlItem5 As LayoutControlItem
    Friend WithEvents LayoutControlItem6 As LayoutControlItem
-    Friend WithEvents LayoutControlItem3 As LayoutControlItem
-    Friend WithEvents txtAccessedWho As LayoutControlItem
    Friend WithEvents LayoutControlItem8 As LayoutControlItem
    Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents LayoutControlGroup1 As LayoutControlGroup