Common: create ctrlObjectProperties, embed in DocumentResultList

GUIs.Common/ObjectPropertyDialog/AttributeControls.vb

@@ -70,6 +70,8 @@ Public Class AttributeControls
         For Each oAttribute As Attribute In pAttributes
             Dim oEditable = ShouldControlBeEditable(oAttribute)
             Dim oControl = GetControlForAttribute(oAttribute, Not oEditable)
+
+            ' Add new control
             Dim oItem As LayoutControlItem = LayoutRoot.AddItem()
 
             oItem.Text = oAttribute.Title

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb

@@ -22,30 +22,26 @@ Partial Class ctrlObjectPropertyDialog
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageObject = New DevExpress.XtraTab.XtraTabPage()
         Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
+        Me.GridObjectHistory = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        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.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem()
-        Me.lbLifecycleEnd = New DevExpress.XtraLayout.SimpleLabelItem()
-        Me.XtraTabPageAttributes = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
-        Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit()
-        Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
-        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
-        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
         Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -53,36 +49,45 @@ Partial Class ctrlObjectPropertyDialog
         Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.lbLifecycleEnd = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.XtraTabPageAttributes = New DevExpress.XtraTab.XtraTabPage()
         Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl()
         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.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
+        Me.d = New DevExpress.XtraBars.Bar()
+        Me.cmbEntityId = New DevExpress.XtraBars.BarEditItem()
+        Me.cmbEntityIdInner = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
+        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
+        BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
         Me.XtraTabPageObject.SuspendLayout()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.LayoutControl1.SuspendLayout()
-        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, 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.LayoutControlGroup2, 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()
-        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageAttributes.SuspendLayout()
-        Me.XtraTabPageAttributeHistory.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -90,20 +95,35 @@ Partial Class ctrlObjectPropertyDialog
         CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView2, 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()
+        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageAttributes.SuspendLayout()
         CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit()
         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.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cmbEntityIdInner, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
+        'BarStaticItem1
+        '
+        BarStaticItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+        BarStaticItem1.Caption = "BE"
+        BarStaticItem1.Id = 1
+        BarStaticItem1.Name = "BarStaticItem1"
+        '
         'XtraTabControl1
         '
         Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
-        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 30)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageObject
-        Me.XtraTabControl1.Size = New System.Drawing.Size(505, 723)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(505, 693)
         Me.XtraTabControl1.TabIndex = 2
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageObject, Me.XtraTabPageAttributes, Me.XtraTabPageAttributeHistory})
         '
@@ -111,13 +131,13 @@ Partial Class ctrlObjectPropertyDialog
         '
         Me.XtraTabPageObject.Controls.Add(Me.LayoutControl1)
         Me.XtraTabPageObject.Name = "XtraTabPageObject"
-        Me.XtraTabPageObject.Size = New System.Drawing.Size(503, 698)
+        Me.XtraTabPageObject.Size = New System.Drawing.Size(503, 668)
         Me.XtraTabPageObject.Text = "Objekt"
         '
         'LayoutControl1
         '
-        Me.LayoutControl1.Controls.Add(Me.GridControl1)
-        Me.LayoutControl1.Controls.Add(Me.ProgressBarControl1)
+        Me.LayoutControl1.Controls.Add(Me.GridObjectHistory)
+        Me.LayoutControl1.Controls.Add(Me.progressLifecycle)
         Me.LayoutControl1.Controls.Add(Me.txtObjectId)
         Me.LayoutControl1.Controls.Add(Me.txtCreatedWhen)
         Me.LayoutControl1.Controls.Add(Me.txtCreatedWho)
@@ -130,159 +150,31 @@ Partial Class ctrlObjectPropertyDialog
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1068, 351, 650, 400)
         Me.LayoutControl1.Root = Me.RootMetadata
-        Me.LayoutControl1.Size = New System.Drawing.Size(503, 698)
+        Me.LayoutControl1.Size = New System.Drawing.Size(503, 668)
         Me.LayoutControl1.TabIndex = 0
         Me.LayoutControl1.Text = "LayoutControl1"
         '
-        'ProgressBarControl1
+        'GridObjectHistory
         '
-        Me.ProgressBarControl1.Location = New System.Drawing.Point(24, 656)
-        Me.ProgressBarControl1.Name = "ProgressBarControl1"
-        Me.ProgressBarControl1.Size = New System.Drawing.Size(455, 18)
-        Me.ProgressBarControl1.StyleController = Me.LayoutControl1
-        Me.ProgressBarControl1.TabIndex = 7
-        '
-        'RootMetadata
-        '
-        Me.RootMetadata.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.RootMetadata.GroupBordersVisible = False
-        Me.RootMetadata.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3})
-        Me.RootMetadata.Name = "Root"
-        Me.RootMetadata.Size = New System.Drawing.Size(503, 698)
-        Me.RootMetadata.TextVisible = False
-        '
-        'LayoutControlGroup1
-        '
-        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
-        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 232)
-        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(483, 346)
-        Me.LayoutControlGroup1.Text = "Objekt Historie"
-        '
-        '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.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
-        Me.LayoutControlGroup2.Size = New System.Drawing.Size(483, 232)
-        Me.LayoutControlGroup2.Text = "Eigenschaften"
-        '
-        'LayoutControlGroup3
-        '
-        Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.lbLifecycleStart, Me.lbLifecycleEnd})
-        Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 578)
-        Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
-        Me.LayoutControlGroup3.Size = New System.Drawing.Size(483, 100)
-        Me.LayoutControlGroup3.Text = "Lebenszyklus"
-        '
-        'LayoutControlItem4
-        '
-        Me.LayoutControlItem4.Control = Me.ProgressBarControl1
-        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 33)
-        Me.LayoutControlItem4.Name = "LayoutControlItem4"
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(459, 22)
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem4.TextVisible = False
-        '
-        'lbLifecycleStart
-        '
-        Me.lbLifecycleStart.AllowHotTrack = False
-        Me.lbLifecycleStart.Location = New System.Drawing.Point(0, 0)
-        Me.lbLifecycleStart.Name = "lbLifecycleStart"
-        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)
-        '
-        'lbLifecycleEnd
-        '
-        Me.lbLifecycleEnd.AllowHotTrack = False
-        Me.lbLifecycleEnd.AppearanceItemCaption.Options.UseTextOptions = True
-        Me.lbLifecycleEnd.AppearanceItemCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
-        Me.lbLifecycleEnd.Location = New System.Drawing.Point(229, 0)
-        Me.lbLifecycleEnd.Name = "lbLifecycleEnd"
-        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)
-        '
-        'XtraTabPageAttributes
-        '
-        Me.XtraTabPageAttributes.Controls.Add(Me.LayoutControl2)
-        Me.XtraTabPageAttributes.Name = "XtraTabPageAttributes"
-        Me.XtraTabPageAttributes.Size = New System.Drawing.Size(503, 698)
-        Me.XtraTabPageAttributes.Text = "Attribute"
-        '
-        'XtraTabPageAttributeHistory
-        '
-        Me.XtraTabPageAttributeHistory.Controls.Add(Me.GridControl2)
-        Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory"
-        Me.XtraTabPageAttributeHistory.Size = New System.Drawing.Size(503, 698)
-        Me.XtraTabPageAttributeHistory.Text = "Attribut Historie"
-        '
-        'GridControl1
-        '
-        Me.GridControl1.Location = New System.Drawing.Point(24, 277)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(455, 297)
-        Me.GridControl1.TabIndex = 9
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridObjectHistory.Location = New System.Drawing.Point(24, 267)
+        Me.GridObjectHistory.MainView = Me.GridView1
+        Me.GridObjectHistory.Name = "GridObjectHistory"
+        Me.GridObjectHistory.Size = New System.Drawing.Size(455, 281)
+        Me.GridObjectHistory.TabIndex = 9
+        Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
         'GridView1
         '
-        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.GridControl = Me.GridObjectHistory
         Me.GridView1.Name = "GridView1"
         '
-        'LayoutControlItem2
+        'progressLifecycle
         '
-        Me.LayoutControlItem2.Control = Me.GridControl1
-        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(459, 301)
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem2.TextVisible = False
-        '
-        'EmptySpaceItem1
-        '
-        Me.EmptySpaceItem1.AllowHotTrack = False
-        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
-        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
-        Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 67)
-        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
-        '
-        'txtCreatedWho
-        '
-        Me.txtCreatedWho.Location = New System.Drawing.Point(338, 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.StyleController = Me.LayoutControl1
-        Me.txtCreatedWho.TabIndex = 8
-        '
-        '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
-        '
-        '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
+        Me.progressLifecycle.Location = New System.Drawing.Point(24, 630)
+        Me.progressLifecycle.Name = "progressLifecycle"
+        Me.progressLifecycle.Size = New System.Drawing.Size(455, 14)
+        Me.progressLifecycle.StyleController = Me.LayoutControl1
+        Me.progressLifecycle.TabIndex = 7
         '
         'txtObjectId
         '
@@ -295,17 +187,6 @@ Partial Class ctrlObjectPropertyDialog
         Me.txtObjectId.StyleController = Me.LayoutControl1
         Me.txtObjectId.TabIndex = 7
         '
-        'txtChangedWhen
-        '
-        Me.txtChangedWhen.Location = New System.Drawing.Point(109, 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.StyleController = Me.LayoutControl1
-        Me.txtChangedWhen.TabIndex = 5
-        '
         'txtCreatedWhen
         '
         Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78)
@@ -317,6 +198,17 @@ Partial Class ctrlObjectPropertyDialog
         Me.txtCreatedWhen.StyleController = Me.LayoutControl1
         Me.txtCreatedWhen.TabIndex = 4
         '
+        'txtCreatedWho
+        '
+        Me.txtCreatedWho.Location = New System.Drawing.Point(338, 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.StyleController = Me.LayoutControl1
+        Me.txtCreatedWho.TabIndex = 8
+        '
         'txtChangedWho
         '
         Me.txtChangedWho.Location = New System.Drawing.Point(338, 108)
@@ -328,6 +220,81 @@ Partial Class ctrlObjectPropertyDialog
         Me.txtChangedWho.StyleController = Me.LayoutControl1
         Me.txtChangedWho.TabIndex = 9
         '
+        'txtChangedWhen
+        '
+        Me.txtChangedWhen.Location = New System.Drawing.Point(109, 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.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]
+        Me.RootMetadata.GroupBordersVisible = False
+        Me.RootMetadata.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3})
+        Me.RootMetadata.Name = "Root"
+        Me.RootMetadata.Size = New System.Drawing.Size(503, 668)
+        Me.RootMetadata.TextVisible = False
+        '
+        'LayoutControlGroup1
+        '
+        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.Size = New System.Drawing.Size(483, 330)
+        Me.LayoutControlGroup1.Text = "Objekt Historie"
+        '
+        'LayoutControlItem2
+        '
+        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.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.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
+        Me.LayoutControlGroup2.Size = New System.Drawing.Size(483, 222)
+        Me.LayoutControlGroup2.Text = "Eigenschaften"
+        '
+        'EmptySpaceItem1
+        '
+        Me.EmptySpaceItem1.AllowHotTrack = False
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
+        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 57)
+        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        '
         'LayoutControlItem1
         '
         Me.LayoutControlItem1.Control = Me.txtObjectId
@@ -412,28 +379,60 @@ Partial Class ctrlObjectPropertyDialog
         Me.txtAccessedWho.Text = "von"
         Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13)
         '
-        'GridControl2
+        'LayoutControlGroup3
         '
-        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl2.MainView = Me.GridView2
-        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(503, 698)
-        Me.GridControl2.TabIndex = 0
-        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.lbLifecycleStart, Me.lbLifecycleEnd})
+        Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 552)
+        Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
+        Me.LayoutControlGroup3.Size = New System.Drawing.Size(483, 96)
+        Me.LayoutControlGroup3.Text = "Lebenszyklus"
         '
-        'GridView2
+        'LayoutControlItem4
         '
-        Me.GridView2.GridControl = Me.GridControl2
-        Me.GridView2.Name = "GridView2"
+        Me.LayoutControlItem4.Control = Me.progressLifecycle
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 33)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(459, 18)
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem4.TextVisible = False
+        '
+        'lbLifecycleStart
+        '
+        Me.lbLifecycleStart.AllowHotTrack = False
+        Me.lbLifecycleStart.Location = New System.Drawing.Point(0, 0)
+        Me.lbLifecycleStart.Name = "lbLifecycleStart"
+        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)
+        '
+        'lbLifecycleEnd
+        '
+        Me.lbLifecycleEnd.AllowHotTrack = False
+        Me.lbLifecycleEnd.AppearanceItemCaption.Options.UseTextOptions = True
+        Me.lbLifecycleEnd.AppearanceItemCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
+        Me.lbLifecycleEnd.Location = New System.Drawing.Point(229, 0)
+        Me.lbLifecycleEnd.Name = "lbLifecycleEnd"
+        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)
+        '
+        'XtraTabPageAttributes
+        '
+        Me.XtraTabPageAttributes.Controls.Add(Me.LayoutControl2)
+        Me.XtraTabPageAttributes.Name = "XtraTabPageAttributes"
+        Me.XtraTabPageAttributes.Size = New System.Drawing.Size(503, 668)
+        Me.XtraTabPageAttributes.Text = "Attribute"
         '
         'LayoutControl2
         '
         Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LayoutControl2.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControl2.Name = "LayoutControl2"
+        Me.LayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(551, 406, 650, 400)
         Me.LayoutControl2.Root = Me.Root
-        Me.LayoutControl2.Size = New System.Drawing.Size(503, 698)
+        Me.LayoutControl2.Size = New System.Drawing.Size(503, 668)
         Me.LayoutControl2.TabIndex = 0
         Me.LayoutControl2.Text = "LayoutControl2"
         '
@@ -442,14 +441,113 @@ Partial Class ctrlObjectPropertyDialog
         Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
         Me.Root.GroupBordersVisible = False
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(503, 698)
+        Me.Root.Size = New System.Drawing.Size(503, 668)
         Me.Root.TextVisible = False
         '
+        'XtraTabPageAttributeHistory
+        '
+        Me.XtraTabPageAttributeHistory.Controls.Add(Me.GridValueHistory)
+        Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory"
+        Me.XtraTabPageAttributeHistory.Size = New System.Drawing.Size(503, 668)
+        Me.XtraTabPageAttributeHistory.Text = "Attribut Historie"
+        '
+        'GridValueHistory
+        '
+        Me.GridValueHistory.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridValueHistory.Location = New System.Drawing.Point(0, 0)
+        Me.GridValueHistory.MainView = Me.GridView2
+        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})
+        '
+        'GridView2
+        '
+        Me.GridView2.GridControl = Me.GridValueHistory
+        Me.GridView2.Name = "GridView2"
+        '
+        'BarManager1
+        '
+        Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.d})
+        Me.BarManager1.DockControls.Add(Me.barDockControlTop)
+        Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
+        Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
+        Me.BarManager1.DockControls.Add(Me.barDockControlRight)
+        Me.BarManager1.Form = Me
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.cmbEntityId, BarStaticItem1})
+        Me.BarManager1.MainMenu = Me.d
+        Me.BarManager1.MaxItemId = 2
+        Me.BarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.cmbEntityIdInner})
+        '
+        'd
+        '
+        Me.d.BarName = "Hauptmenü"
+        Me.d.DockCol = 0
+        Me.d.DockRow = 0
+        Me.d.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
+        Me.d.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(BarStaticItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.cmbEntityId)})
+        Me.d.OptionsBar.AllowQuickCustomization = False
+        Me.d.OptionsBar.DrawDragBorder = False
+        Me.d.OptionsBar.MinHeight = 30
+        Me.d.OptionsBar.UseWholeRow = True
+        Me.d.Text = "Hauptmenü"
+        '
+        'cmbEntityId
+        '
+        Me.cmbEntityId.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+        Me.cmbEntityId.CaptionToEditorIndent = 10
+        Me.cmbEntityId.Edit = Me.cmbEntityIdInner
+        Me.cmbEntityId.EditWidth = 100
+        Me.cmbEntityId.Id = 0
+        Me.cmbEntityId.Name = "cmbEntityId"
+        '
+        'cmbEntityIdInner
+        '
+        Me.cmbEntityIdInner.AutoHeight = False
+        Me.cmbEntityIdInner.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.cmbEntityIdInner.Name = "cmbEntityIdInner"
+        '
+        'barDockControlTop
+        '
+        Me.barDockControlTop.CausesValidation = False
+        Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
+        Me.barDockControlTop.Manager = Me.BarManager1
+        Me.barDockControlTop.Size = New System.Drawing.Size(505, 30)
+        '
+        'barDockControlBottom
+        '
+        Me.barDockControlBottom.CausesValidation = False
+        Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 723)
+        Me.barDockControlBottom.Manager = Me.BarManager1
+        Me.barDockControlBottom.Size = New System.Drawing.Size(505, 0)
+        '
+        'barDockControlLeft
+        '
+        Me.barDockControlLeft.CausesValidation = False
+        Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
+        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 30)
+        Me.barDockControlLeft.Manager = Me.BarManager1
+        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 693)
+        '
+        'barDockControlRight
+        '
+        Me.barDockControlRight.CausesValidation = False
+        Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
+        Me.barDockControlRight.Location = New System.Drawing.Point(505, 30)
+        Me.barDockControlRight.Manager = Me.BarManager1
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 693)
+        '
         'ctrlObjectPropertyDialog
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.XtraTabControl1)
+        Me.Controls.Add(Me.barDockControlLeft)
+        Me.Controls.Add(Me.barDockControlRight)
+        Me.Controls.Add(Me.barDockControlBottom)
+        Me.Controls.Add(Me.barDockControlTop)
         Me.Name = "ctrlObjectPropertyDialog"
         Me.Size = New System.Drawing.Size(505, 723)
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -457,27 +555,21 @@ Partial Class ctrlObjectPropertyDialog
         Me.XtraTabPageObject.ResumeLayout(False)
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.LayoutControl1.ResumeLayout(False)
-        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, 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.LayoutControlGroup2, 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()
-        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageAttributes.ResumeLayout(False)
-        Me.XtraTabPageAttributeHistory.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
@@ -485,18 +577,27 @@ Partial Class ctrlObjectPropertyDialog
         CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView2, 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()
+        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageAttributes.ResumeLayout(False)
         CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit()
         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.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cmbEntityIdInner, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPageObject As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
+    Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl
     Friend WithEvents RootMetadata As DevExpress.XtraLayout.LayoutControlGroup
     Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
     Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
@@ -506,7 +607,7 @@ Partial Class ctrlObjectPropertyDialog
     Friend WithEvents lbLifecycleEnd As DevExpress.XtraLayout.SimpleLabelItem
     Friend WithEvents XtraTabPageAttributes As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents XtraTabPageAttributeHistory As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridObjectHistory As DevExpress.XtraGrid.GridControl
     Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
@@ -524,8 +625,16 @@ Partial Class ctrlObjectPropertyDialog
     Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridValueHistory As DevExpress.XtraGrid.GridControl
     Friend WithEvents GridView2 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
+    Friend WithEvents d As DevExpress.XtraBars.Bar
+    Friend WithEvents cmbEntityId As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents cmbEntityIdInner As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
+    Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
 End Class

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.resx

@@ -117,4 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="BarStaticItem1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb

@@ -1,7 +1,190 @@
-Imports DevExpress.XtraTab
+Imports System.Windows.Forms
+Imports DevExpress.XtraEditors.Repository
+Imports DigitalData.GUIs.Common.Base
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Language
+Imports DigitalData.Modules.ZooFlow
 
 Public Class ctrlObjectPropertyDialog
-    Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Implements IBaseForm
 
+    Private Property LogConfig As LogConfig Implements IBaseForm.LogConfig
+    Private Property Logger As Logger Implements IBaseForm.Logger
+    Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
+    Private Property ControlManager As AttributeControls
+    Private Property Client As Client
+    Private Property Environment As Environment
+    Private Property ObjectId As Long
+
+    Private ReadOnly Changes As New Dictionary(Of String, Object)
+    Private Property Loading As Boolean = False
+
+    Public Sub Initialize(pLogConfig As LogConfig, pHostForm As Form, pClient As Client, pEnv As Environment)
+        LogConfig = pLogConfig
+        Logger = pLogConfig.GetLogger()
+        ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm)
+        ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
+        Client = pClient
+        Environment = pEnv
+    End Sub
+
+    Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean)
+        ' Load Business Entities
+        Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId)
+        Dim oActiveEntity = oEntityIds.FirstOrDefault()
+
+        Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbEntityId.Edit, RepositoryItemComboBox)
+        oCombobox.Items.Clear()
+        oCombobox.Items.AddRange(oEntityIds)
+        cmbEntityId.EditValue = oEntityIds.First()
+
+        Return Await LoadObject(pObjectId, oActiveEntity)
+    End Function
+
+    Public Async Function LoadObject(pObjectId As Long, pEntityId As Long) As Task(Of Boolean)
+        Loading = True
+        Try
+            ObjectId = pObjectId
+
+            ' Load History of attribute value changes
+            Dim oAttributeHistoryTable = Await GetValueHistoryForObjectId(pObjectId)
+            ShowAttributeHistory(oAttributeHistoryTable)
+
+            ' Load History of object state changes
+            Dim oObjectHistoryTable = Await GetObjectHistoryForObjectId(pObjectId)
+            ShowObjectHistory(oObjectHistoryTable)
+
+            ' Load Object Properties
+            Dim oObjectProperties = Await GetPropertiesForObjectId(ObjectId)
+            ShowObjectProperties(oObjectProperties)
+
+            ' Load Attribute controls and values
+            Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(cmbEntityId.EditValue)
+            Await ControlManager.LoadControlsForAttributes(ObjectId, oAttributes, Root)
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+            Loading = False
+        End Try
+    End Function
+
+    Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean
+        Try
+            GridValueHistory.DataSource = pDatatable
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Function ShowObjectHistory(pDatatable As DataTable) As Boolean
+        Try
+            GridObjectHistory.DataSource = pDatatable
+
+            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 = Utils.NotNull(oRow.Item("CHANGED_WHEN"), String.Empty)
+            txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO"), String.Empty)
+
+            lbLifecycleStart.Text = DirectCast(oRow.Item("ADDED_WHEN"), Date).ToShortDateString
+            lbLifecycleEnd.Text = Date.MaxValue.ToShortDateString
+            progressLifecycle.Position = 30
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Async Function GetBusinessEntitiesForObjectId(ObjectId As Long) As Task(Of List(Of Long))
+        Try
+            Dim oSQL = $"SELECT BE_ID FROM TBIDB_OBJECT_BE WHERE IDB_OBJ_ID = {ObjectId}"
+            Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+            If oResult.OK = False Then
+                Throw New ApplicationException($"Business Entities could not be retrieved!")
+
+            ElseIf oResult.Table.Rows.Count = 0 Then
+                Throw New ApplicationException($"ObjectId {ObjectId} is not assigned to any business entity!")
+
+            Else
+                Dim oEntities As New List(Of Long)
+
+                For Each oRow In oResult.Table.Rows
+                    oEntities.Add(oRow.item("BE_ID"))
+                Next
+
+                Return oEntities
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return New List(Of Long)
+        End Try
+    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} AND 
+            ORDER BY ChangeID DESC
+        "
+        Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+        Return oResult.Table
+    End Function
+
+    Private Async Function GetObjectHistoryForObjectId(ObjectId As Long) As Task(Of DataTable)
+        Dim oSQL As String = $"
+            SELECT * FROM VWIDB_DOC_STATES 
+            WHERE IDB_OBJ_ID = {ObjectId} AND LANG_CODE = '{Environment.User.Language}'
+            ORDER BY ADDED_WHEN DESC
+        "
+        Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+        Return oResult.Table
+    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 oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+        Return oResult.Table
+    End Function
+
+    Private Async Sub Load_Attributes(pObject As Long, pBusinessEntityId As Long)
+        Try
+            Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(pBusinessEntityId)
+
+            If oAttributes.Count = 0 Then
+                MsgBox($"Es konnten keine Attribute für das Objekt '{pObject}' geladen werden!", MsgBoxStyle.Critical, Text)
+            End If
+
+            Await ControlManager.LoadControlsForAttributes(pObject, oAttributes, Root)
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    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
+            LoadObject(ObjectId, oEntityId)
+        End If
     End Sub
 End Class

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb

@@ -235,4 +235,8 @@ Public Class frmObjectPropertyDialog
             ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick")
         End Try
     End Sub
+
+    Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click
+
+    End Sub
 End Class