AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Common: Show Grid in Property Dialog

Browse Source
This commit is contained in:
Jonathan Jenne 2020-11-12 15:13:10 +01:00
parent 6b7a9a6293
commit 6b4010232d
5 changed files with 417 additions and 313 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.Common/My Project/licenses.licx
View File

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

74
GUIs.Common/ObjectPropertyDialog/PropertyControls.vb
View File

@ -4,6 +4,9 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Controls.LookupGrid Imports DigitalData.Controls.LookupGrid
Imports DevExpress.XtraGrid
Imports System.Windows.Forms
Imports DevExpress.XtraGrid.Views.Grid
Public Class PropertyControls Public Class PropertyControls
Private _LogConfig As LogConfig Private _LogConfig As LogConfig
@ -16,53 +19,72 @@ Public Class PropertyControls
_Db = Database _Db = Database
End Sub End Sub
Public Function GetControlForAttribute(Attribute As Attribute) As BaseEdit Public Function GetControlForAttribute(pAttribute As Attribute, pIsReadOnly As Boolean) As Control
Select Case Attribute.TypeName Dim oControl As Control
Case "BIT"
Select Case pAttribute.TypeName
Case Attribute.TYPE_BIT
Dim oCheckboxEdit As New CheckEdit With { Dim oCheckboxEdit As New CheckEdit With {
.Name = Attribute.ID, .Name = pAttribute.ID,
.Text = Attribute.Title .Text = pAttribute.Title,
.[ReadOnly] = pIsReadOnly
} }
Return oCheckboxEdit oControl = oCheckboxEdit
Case "DATE" Case Attribute.TYPE_DATE
Dim oDateEdit As New DateEdit With { Dim oDateEdit As New DateEdit With {
.Name = Attribute.ID .Name = pAttribute.ID,
.[ReadOnly] = pIsReadOnly
} }
Return oDateEdit oControl = oDateEdit
Case "BIG INTEGER" Case Attribute.TYPE_BIG_INTEGER
Dim oTextEdit As New TextEdit With { Dim oTextEdit As New TextEdit With {
.Name = Attribute.ID .Name = pAttribute.ID,
.[ReadOnly] = pIsReadOnly
} }
Return oTextEdit oControl = oTextEdit
Case "DECIMAL" Case Attribute.TYPE_DECIMAL
Dim oTextEdit As New TextEdit With { Dim oTextEdit As New TextEdit With {
.Name = Attribute.ID .Name = pAttribute.ID,
.[ReadOnly] = pIsReadOnly
} }
Return oTextEdit oControl = oTextEdit
Case "FLOAT" Case Attribute.TYPE_FLOAT
Dim oTextEdit As New TextEdit With { Dim oTextEdit As New TextEdit With {
.Name = Attribute.ID .Name = pAttribute.ID,
.[ReadOnly] = pIsReadOnly
} }
Return oTextEdit oControl = oTextEdit
Case "VECTOR STRING" Case Attribute.TYPE_VECTOR_STRING
Dim oLookupEdit As New LookupControl2 With { ' Minimum size is picked up by the LayoutControl to determine the grids size
.Name = Attribute.ID, Dim oGrid As New GridControl With {
.MultiSelect = True, .Name = pAttribute.ID,
.[ReadOnly] = True .MinimumSize = New System.Drawing.Size(0, 100)
} }
Return oLookupEdit
oGrid.ForceInitialize()
Dim oView = DirectCast(oGrid.DefaultView, GridView)
oView.OptionsView.ShowGroupPanel = False
oView.OptionsView.ShowColumnHeaders = False
oView.OptionsView.ShowIndicator = False
oView.OptionsBehavior.ReadOnly = True
oView.OptionsBehavior.Editable = False
oControl = oGrid
Case Else Case Else
Dim oTextEdit As New TextEdit With { Dim oTextEdit As New TextEdit With {
.Name = Attribute.ID .Name = pAttribute.ID,
.[ReadOnly] = pIsReadOnly
} }
Return oTextEdit oControl = oTextEdit
End Select End Select
Return oControl
End Function End Function
End Class End Class

600
GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb generated
View File

@ -1,9 +1,13 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraLayout
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmObjectPropertyDialog Partial Class frmObjectPropertyDialog
Inherits DevExpress.XtraBars.TabForm Inherits DevExpress.XtraBars.TabForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,9 +24,9 @@ Partial Class frmObjectPropertyDialog
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true) Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjectPropertyDialog)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjectPropertyDialog))
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl() Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl()
@ -35,9 +39,28 @@ Partial Class frmObjectPropertyDialog
Me.TabPageObject = New DevExpress.XtraBars.TabFormPage() Me.TabPageObject = New DevExpress.XtraBars.TabFormPage()
Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer() Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer()
Me.LayoutControlObject = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControlObject = New DevExpress.XtraLayout.LayoutControl()
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
Me.progressLifecycle = New DevExpress.XtraEditors.ProgressBarControl()
Me.lbLifecycleEnd = New DevExpress.XtraEditors.LabelControl()
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.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup()
Me.TabPageLifecycle = New DevExpress.XtraBars.TabFormPage() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TabFormContentContainer3 = New DevExpress.XtraBars.TabFormContentContainer() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage() Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage()
Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer() Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer()
Me.GridValueHistory = New DevExpress.XtraGrid.GridControl() Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
@ -48,56 +71,48 @@ Partial Class frmObjectPropertyDialog
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.AttributeRoot = New DevExpress.XtraLayout.LayoutControlGroup() Me.AttributeRoot = New DevExpress.XtraLayout.LayoutControlGroup()
Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit() CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() Me.TabFormContentContainer1.SuspendLayout()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit() CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.TabFormContentContainer2.SuspendLayout()
Me.txtObjectId = New DevExpress.XtraEditors.TextEdit() CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlObject.SuspendLayout()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit() Me.GroupControl1.SuspendLayout()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabFormContentContainer1.SuspendLayout CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabFormContentContainer2.SuspendLayout CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlObject.SuspendLayout CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabFormContentContainer4.SuspendLayout CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit Me.TabFormContentContainer4.SuspendLayout()
CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.AttributeRoot, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout()
CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit '
CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).BeginInit 'SplashScreenManager
CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit '
CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).BeginInit SplashScreenManager.ClosingDelay = 500
CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
' '
'RepositoryItemComboBox1 'RepositoryItemComboBox1
' '
Me.RepositoryItemComboBox1.AutoHeight = false Me.RepositoryItemComboBox1.AutoHeight = False
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
' '
@ -108,17 +123,16 @@ Partial Class frmObjectPropertyDialog
Me.TabFormControl1.Name = "TabFormControl1" Me.TabFormControl1.Name = "TabFormControl1"
Me.TabFormControl1.Pages.Add(Me.TabPageAttributes) Me.TabFormControl1.Pages.Add(Me.TabPageAttributes)
Me.TabFormControl1.Pages.Add(Me.TabPageObject) Me.TabFormControl1.Pages.Add(Me.TabPageObject)
Me.TabFormControl1.Pages.Add(Me.TabPageLifecycle)
Me.TabFormControl1.Pages.Add(Me.TabPageHistory) Me.TabFormControl1.Pages.Add(Me.TabPageHistory)
Me.TabFormControl1.SelectedPage = Me.TabPageAttributes Me.TabFormControl1.SelectedPage = Me.TabPageAttributes
Me.TabFormControl1.ShowAddPageButton = false Me.TabFormControl1.ShowAddPageButton = False
Me.TabFormControl1.ShowTabCloseButtons = false Me.TabFormControl1.ShowTabCloseButtons = False
Me.TabFormControl1.Size = New System.Drawing.Size(572, 71) Me.TabFormControl1.Size = New System.Drawing.Size(572, 71)
Me.TabFormControl1.TabForm = Me Me.TabFormControl1.TabForm = Me
Me.TabFormControl1.TabIndex = 0 Me.TabFormControl1.TabIndex = 0
Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1) Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1)
Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity) Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity)
Me.TabFormControl1.TabStop = false Me.TabFormControl1.TabStop = False
' '
'cmbBusinessEntity 'cmbBusinessEntity
' '
@ -162,10 +176,10 @@ Partial Class frmObjectPropertyDialog
'AttributeLayout 'AttributeLayout
' '
Me.AttributeLayout.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.AttributeLayout.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.AttributeLayout.GroupBordersVisible = false Me.AttributeLayout.GroupBordersVisible = False
Me.AttributeLayout.Name = "AttributeRoot" Me.AttributeLayout.Name = "AttributeRoot"
Me.AttributeLayout.Size = New System.Drawing.Size(572, 534) Me.AttributeLayout.Size = New System.Drawing.Size(572, 534)
Me.AttributeLayout.TextVisible = false Me.AttributeLayout.TextVisible = False
' '
'TabPageObject 'TabPageObject
' '
@ -184,6 +198,7 @@ Partial Class frmObjectPropertyDialog
' '
'LayoutControlObject 'LayoutControlObject
' '
Me.LayoutControlObject.Controls.Add(Me.GroupControl1)
Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen) Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen)
Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen) Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen)
Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen) Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen)
@ -199,28 +214,217 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlObject.TabIndex = 0 Me.LayoutControlObject.TabIndex = 0
Me.LayoutControlObject.Text = "LayoutControl1" Me.LayoutControlObject.Text = "LayoutControl1"
' '
'GroupControl1
'
Me.GroupControl1.Controls.Add(Me.progressLifecycle)
Me.GroupControl1.Controls.Add(Me.lbLifecycleEnd)
Me.GroupControl1.Controls.Add(Me.lbLifecycleStart)
Me.GroupControl1.Location = New System.Drawing.Point(12, 428)
Me.GroupControl1.Name = "GroupControl1"
Me.GroupControl1.Size = New System.Drawing.Size(548, 94)
Me.GroupControl1.TabIndex = 2
Me.GroupControl1.Text = "Lebenszyklus"
'
'progressLifecycle
'
Me.progressLifecycle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.progressLifecycle.Location = New System.Drawing.Point(5, 49)
Me.progressLifecycle.Name = "progressLifecycle"
Me.progressLifecycle.Size = New System.Drawing.Size(538, 40)
Me.progressLifecycle.TabIndex = 0
'
'lbLifecycleEnd
'
Me.lbLifecycleEnd.LineVisible = True
Me.lbLifecycleEnd.Location = New System.Drawing.Point(489, 30)
Me.lbLifecycleEnd.Name = "lbLifecycleEnd"
Me.lbLifecycleEnd.Size = New System.Drawing.Size(54, 13)
Me.lbLifecycleEnd.TabIndex = 1
Me.lbLifecycleEnd.Text = "00.00.0000"
'
'lbLifecycleStart
'
Me.lbLifecycleStart.LineVisible = True
Me.lbLifecycleStart.Location = New System.Drawing.Point(5, 30)
Me.lbLifecycleStart.Name = "lbLifecycleStart"
Me.lbLifecycleStart.Size = New System.Drawing.Size(54, 13)
Me.lbLifecycleStart.TabIndex = 1
Me.lbLifecycleStart.Text = "00.00.0000"
'
'txtCreatedWhen
'
Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37)
Me.txtCreatedWhen.Name = "txtCreatedWhen"
Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtCreatedWhen.Properties.ReadOnly = True
Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
Me.txtCreatedWhen.TabIndex = 4
'
'txtChangedWhen
'
Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61)
Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtChangedWhen.Properties.ReadOnly = True
Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWhen.StyleController = Me.LayoutControlObject
Me.txtChangedWhen.TabIndex = 5
'
'txtAccessedWhen
'
Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85)
Me.txtAccessedWhen.Name = "txtAccessedWhen"
Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtAccessedWhen.Properties.ReadOnly = True
Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
Me.txtAccessedWhen.TabIndex = 6
'
'txtObjectId
'
Me.txtObjectId.Location = New System.Drawing.Point(87, 12)
Me.txtObjectId.Name = "txtObjectId"
Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtObjectId.Properties.ReadOnly = True
Me.txtObjectId.Size = New System.Drawing.Size(473, 20)
Me.txtObjectId.StyleController = Me.LayoutControlObject
Me.txtObjectId.TabIndex = 7
'
'txtCreatedWho
'
Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37)
Me.txtCreatedWho.Name = "txtCreatedWho"
Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtCreatedWho.Properties.ReadOnly = True
Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWho.StyleController = Me.LayoutControlObject
Me.txtCreatedWho.TabIndex = 8
'
'txtChangedWho
'
Me.txtChangedWho.Location = New System.Drawing.Point(363, 61)
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtChangedWho.Properties.ReadOnly = True
Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWho.StyleController = Me.LayoutControlObject
Me.txtChangedWho.TabIndex = 9
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(363, 85)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(197, 20)
Me.TextEdit1.StyleController = Me.LayoutControlObject
Me.TextEdit1.TabIndex = 10
'
'LayoutObject 'LayoutObject
' '
Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutObject.GroupBordersVisible = false Me.LayoutObject.GroupBordersVisible = False
Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1}) Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1, Me.LayoutControlItem7})
Me.LayoutObject.Name = "LayoutObject" Me.LayoutObject.Name = "LayoutObject"
Me.LayoutObject.Size = New System.Drawing.Size(572, 534) Me.LayoutObject.Size = New System.Drawing.Size(572, 534)
Me.LayoutObject.TextVisible = false Me.LayoutObject.TextVisible = False
' '
'TabPageLifecycle 'LayoutControlItem1
' '
Me.TabPageLifecycle.ContentContainer = Me.TabFormContentContainer3 Me.LayoutControlItem1.Control = Me.txtCreatedWhen
Me.TabPageLifecycle.Name = "TabPageLifecycle" Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25)
Me.TabPageLifecycle.Text = "Lebenszyklus" Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem1.Text = "Erstellt"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
' '
'TabFormContentContainer3 'LayoutControlItem2
' '
Me.TabFormContentContainer3.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlItem2.Control = Me.txtChangedWhen
Me.TabFormContentContainer3.Location = New System.Drawing.Point(0, 71) Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49)
Me.TabFormContentContainer3.Name = "TabFormContentContainer3" Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.TabFormContentContainer3.Size = New System.Drawing.Size(572, 534) Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24)
Me.TabFormContentContainer3.TabIndex = 3 Me.LayoutControlItem2.Text = "Geändert"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtAccessedWhen
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem3.Text = "Letzter Zugriff"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.txtObjectId
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24)
Me.LayoutControlItem4.Text = "Objekt Id"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
'
'SimpleSeparator1
'
Me.SimpleSeparator1.AllowHotTrack = False
Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24)
Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.txtCreatedWho
Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem5.Text = "von"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.txtChangedWho
Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem6.Text = "von"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13)
'
'txtAccessedWho
'
Me.txtAccessedWho.Control = Me.TextEdit1
Me.txtAccessedWho.CustomizationFormText = "von"
Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73)
Me.txtAccessedWho.Name = "txtAccessedWho"
Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24)
Me.txtAccessedWho.Text = "von"
Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 319)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.GroupControl1
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 416)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Size = New System.Drawing.Size(552, 98)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False
' '
'TabPageHistory 'TabPageHistory
' '
@ -252,15 +456,15 @@ Partial Class frmObjectPropertyDialog
Me.ViewValueHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5}) Me.ViewValueHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5})
Me.ViewValueHistory.GridControl = Me.GridValueHistory Me.ViewValueHistory.GridControl = Me.GridValueHistory
Me.ViewValueHistory.Name = "ViewValueHistory" Me.ViewValueHistory.Name = "ViewValueHistory"
Me.ViewValueHistory.OptionsBehavior.Editable = false Me.ViewValueHistory.OptionsBehavior.Editable = False
Me.ViewValueHistory.OptionsBehavior.ReadOnly = true Me.ViewValueHistory.OptionsBehavior.ReadOnly = True
' '
'GridColumn1 'GridColumn1
' '
Me.GridColumn1.Caption = "Attribut" Me.GridColumn1.Caption = "Attribut"
Me.GridColumn1.FieldName = "Attribute" Me.GridColumn1.FieldName = "Attribute"
Me.GridColumn1.Name = "GridColumn1" Me.GridColumn1.Name = "GridColumn1"
Me.GridColumn1.Visible = true Me.GridColumn1.Visible = True
Me.GridColumn1.VisibleIndex = 0 Me.GridColumn1.VisibleIndex = 0
' '
'GridColumn2 'GridColumn2
@ -268,7 +472,7 @@ Partial Class frmObjectPropertyDialog
Me.GridColumn2.Caption = "Alter Wert" Me.GridColumn2.Caption = "Alter Wert"
Me.GridColumn2.FieldName = "Old value" Me.GridColumn2.FieldName = "Old value"
Me.GridColumn2.Name = "GridColumn2" Me.GridColumn2.Name = "GridColumn2"
Me.GridColumn2.Visible = true Me.GridColumn2.Visible = True
Me.GridColumn2.VisibleIndex = 1 Me.GridColumn2.VisibleIndex = 1
' '
'GridColumn3 'GridColumn3
@ -276,7 +480,7 @@ Partial Class frmObjectPropertyDialog
Me.GridColumn3.Caption = "Neuer Wert" Me.GridColumn3.Caption = "Neuer Wert"
Me.GridColumn3.FieldName = "New value" Me.GridColumn3.FieldName = "New value"
Me.GridColumn3.Name = "GridColumn3" Me.GridColumn3.Name = "GridColumn3"
Me.GridColumn3.Visible = true Me.GridColumn3.Visible = True
Me.GridColumn3.VisibleIndex = 2 Me.GridColumn3.VisibleIndex = 2
' '
'GridColumn4 'GridColumn4
@ -284,7 +488,7 @@ Partial Class frmObjectPropertyDialog
Me.GridColumn4.Caption = "Geändert Wer" Me.GridColumn4.Caption = "Geändert Wer"
Me.GridColumn4.FieldName = "Changed who" Me.GridColumn4.FieldName = "Changed who"
Me.GridColumn4.Name = "GridColumn4" Me.GridColumn4.Name = "GridColumn4"
Me.GridColumn4.Visible = true Me.GridColumn4.Visible = True
Me.GridColumn4.VisibleIndex = 3 Me.GridColumn4.VisibleIndex = 3
' '
'GridColumn5 'GridColumn5
@ -292,181 +496,21 @@ Partial Class frmObjectPropertyDialog
Me.GridColumn5.Caption = "Geändert Wann" Me.GridColumn5.Caption = "Geändert Wann"
Me.GridColumn5.FieldName = "Changed when" Me.GridColumn5.FieldName = "Changed when"
Me.GridColumn5.Name = "GridColumn5" Me.GridColumn5.Name = "GridColumn5"
Me.GridColumn5.Visible = true Me.GridColumn5.Visible = True
Me.GridColumn5.VisibleIndex = 4 Me.GridColumn5.VisibleIndex = 4
' '
'AttributeRoot 'AttributeRoot
' '
Me.AttributeRoot.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.AttributeRoot.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.AttributeRoot.GroupBordersVisible = false Me.AttributeRoot.GroupBordersVisible = False
Me.AttributeRoot.Location = New System.Drawing.Point(0, 0) Me.AttributeRoot.Location = New System.Drawing.Point(0, 0)
Me.AttributeRoot.Name = "AttributeRoot" Me.AttributeRoot.Name = "AttributeRoot"
Me.AttributeRoot.Size = New System.Drawing.Size(572, 534) Me.AttributeRoot.Size = New System.Drawing.Size(572, 534)
Me.AttributeRoot.TextVisible = false Me.AttributeRoot.TextVisible = False
'
'txtCreatedWhen
'
Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37)
Me.txtCreatedWhen.Name = "txtCreatedWhen"
Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtCreatedWhen.Properties.ReadOnly = true
Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
Me.txtCreatedWhen.TabIndex = 4
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.txtCreatedWhen
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem1.Text = "Erstellt"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
'
'txtChangedWhen
'
Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61)
Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtChangedWhen.Properties.ReadOnly = true
Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWhen.StyleController = Me.LayoutControlObject
Me.txtChangedWhen.TabIndex = 5
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.txtChangedWhen
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem2.Text = "Geändert"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13)
'
'txtAccessedWhen
'
Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85)
Me.txtAccessedWhen.Name = "txtAccessedWhen"
Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtAccessedWhen.Properties.ReadOnly = true
Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
Me.txtAccessedWhen.TabIndex = 6
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtAccessedWhen
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem3.Text = "Letzter Zugriff"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13)
'
'txtObjectId
'
Me.txtObjectId.Location = New System.Drawing.Point(87, 12)
Me.txtObjectId.Name = "txtObjectId"
Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtObjectId.Properties.ReadOnly = true
Me.txtObjectId.Size = New System.Drawing.Size(473, 20)
Me.txtObjectId.StyleController = Me.LayoutControlObject
Me.txtObjectId.TabIndex = 7
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.txtObjectId
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24)
Me.LayoutControlItem4.Text = "Objekt Id"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
'
'SimpleSeparator1
'
Me.SimpleSeparator1.AllowHotTrack = false
Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24)
Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
'
'txtCreatedWho
'
Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37)
Me.txtCreatedWho.Name = "txtCreatedWho"
Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtCreatedWho.Properties.ReadOnly = true
Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWho.StyleController = Me.LayoutControlObject
Me.txtCreatedWho.TabIndex = 8
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.txtCreatedWho
Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem5.Text = "von"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13)
'
'txtChangedWho
'
Me.txtChangedWho.Location = New System.Drawing.Point(363, 61)
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.txtChangedWho.Properties.ReadOnly = true
Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWho.StyleController = Me.LayoutControlObject
Me.txtChangedWho.TabIndex = 9
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.txtChangedWho
Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24)
Me.LayoutControlItem6.Text = "von"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13)
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(363, 85)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = true
Me.TextEdit1.Properties.ReadOnly = true
Me.TextEdit1.Size = New System.Drawing.Size(197, 20)
Me.TextEdit1.StyleController = Me.LayoutControlObject
Me.TextEdit1.TabIndex = 10
'
'txtAccessedWho
'
Me.txtAccessedWho.Control = Me.TextEdit1
Me.txtAccessedWho.CustomizationFormText = "von"
Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73)
Me.txtAccessedWho.Name = "txtAccessedWho"
Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24)
Me.txtAccessedWho.Text = "von"
Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = false
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 417)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'SplashScreenManager
'
SplashScreenManager.ClosingDelay = 500
' '
'frmObjectPropertyDialog 'frmObjectPropertyDialog
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(572, 605) Me.ClientSize = New System.Drawing.Size(572, 605)
Me.Controls.Add(Me.TabFormContentContainer1) Me.Controls.Add(Me.TabFormContentContainer1)
@ -475,36 +519,41 @@ Partial Class frmObjectPropertyDialog
Me.Name = "frmObjectPropertyDialog" Me.Name = "frmObjectPropertyDialog"
Me.TabFormControl = Me.TabFormControl1 Me.TabFormControl = Me.TabFormControl1
Me.Text = "Eigenschaften" Me.Text = "Eigenschaften"
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabFormContentContainer1.ResumeLayout(false) Me.TabFormContentContainer1.ResumeLayout(False)
CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).EndInit CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabFormContentContainer2.ResumeLayout(false) Me.TabFormContentContainer2.ResumeLayout(False)
CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControlObject.ResumeLayout(false) Me.LayoutControlObject.ResumeLayout(False)
CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabFormContentContainer4.ResumeLayout(false) Me.GroupControl1.ResumeLayout(False)
CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).EndInit Me.GroupControl1.PerformLayout()
CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).EndInit CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).EndInit CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabFormContentContainer4.ResumeLayout(False)
CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AttributeRoot, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub End Sub
@ -513,8 +562,6 @@ End Sub
Friend WithEvents TabFormContentContainer1 As DevExpress.XtraBars.TabFormContentContainer Friend WithEvents TabFormContentContainer1 As DevExpress.XtraBars.TabFormContentContainer
Friend WithEvents TabPageObject As DevExpress.XtraBars.TabFormPage Friend WithEvents TabPageObject As DevExpress.XtraBars.TabFormPage
Friend WithEvents TabFormContentContainer2 As DevExpress.XtraBars.TabFormContentContainer Friend WithEvents TabFormContentContainer2 As DevExpress.XtraBars.TabFormContentContainer
Friend WithEvents TabPageLifecycle As DevExpress.XtraBars.TabFormPage
Friend WithEvents TabFormContentContainer3 As DevExpress.XtraBars.TabFormContentContainer
Friend WithEvents LayoutControlAttributes As DevExpress.XtraLayout.LayoutControl Friend WithEvents LayoutControlAttributes As DevExpress.XtraLayout.LayoutControl
Friend WithEvents AttributeRoot As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents AttributeRoot As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem
@ -548,4 +595,9 @@ End Sub
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl
Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl
Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
End Class End Class

29
GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb
View File

@ -6,6 +6,8 @@ Imports DevExpress.XtraSplashScreen
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.Language
Imports DevExpress.XtraGrid
Public Class frmObjectPropertyDialog Public Class frmObjectPropertyDialog
Private _LogConfig As LogConfig Private _LogConfig As LogConfig
@ -40,7 +42,6 @@ Public Class frmObjectPropertyDialog
Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox) Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox)
oCombobox.Items.AddRange(oEntityIds) oCombobox.Items.AddRange(oEntityIds)
ShowAttributeHistory(oHistoryDataTable) ShowAttributeHistory(oHistoryDataTable)
ShowObjectProperties(oObjectProperties) ShowObjectProperties(oObjectProperties)
@ -121,6 +122,14 @@ Public Class frmObjectPropertyDialog
Return oTermValue Return oTermValue
End Function End Function
Private Async Function GetAttributeValueAsTable(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of DataTable)
Dim oIsForeign = IIf(IsForeign, 1, 0)
Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
Dim oDatatable = Await _Db.GetDatatableAsync(oSQL)
Return oDatatable
End Function
Private Async Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged Private Async Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged
Dim oEntityId As Long Dim oEntityId As Long
@ -131,17 +140,25 @@ Public Class frmObjectPropertyDialog
Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId)
For Each oAttribute As Attribute In oAttributes For Each oAttribute As Attribute In oAttributes
Dim oControl = _Controls.GetControlForAttribute(oAttribute) Dim oControl = _Controls.GetControlForAttribute(oAttribute, True)
Dim oItem As LayoutControlItem = AttributeLayout.AddItem() Dim oItem As LayoutControlItem = AttributeLayout.AddItem()
oItem.Text = oAttribute.Title oItem.Text = oAttribute.Title
oItem.Name = oAttribute.Title oItem.Name = oAttribute.Title
oItem.Control = oControl oItem.Control = oControl
Next Next
For Each oItem As LayoutControlItem In AttributeLayout.Items For Each oItem As LayoutControlItem In AttributeLayout.Items
If TypeOf oItem.Control Is BaseEdit Then
Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId) Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId)
Dim oEdit = DirectCast(oItem.Control, BaseEdit) Dim oEdit = DirectCast(oItem.Control, BaseEdit)
oEdit.EditValue = oValue oEdit.EditValue = oValue
ElseIf TypeOf oItem.Control Is GridControl Then
Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, _ObjectId)
Dim oGrid = DirectCast(oItem.Control, GridControl)
oGrid.DataSource = oValueTable
End If
Next Next
End Sub End Sub
@ -166,8 +183,12 @@ Public Class frmObjectPropertyDialog
txtObjectId.Text = oRow.Item("IDB_OBJ_ID") txtObjectId.Text = oRow.Item("IDB_OBJ_ID")
txtCreatedWhen.Text = oRow.Item("ADDED_WHEN") txtCreatedWhen.Text = oRow.Item("ADDED_WHEN")
txtCreatedWho.Text = oRow.Item("ADDED_WHO") txtCreatedWho.Text = oRow.Item("ADDED_WHO")
txtChangedWhen.Text = oRow.Item("CHANGED_WHEN") txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN"), String.Empty)
txtChangedWho.Text = oRow.Item("CHANGED_WHO") 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 Return True
Catch ex As Exception Catch ex As Exception

7
Modules.ZooFlow/Params/Attribute.vb
View File

@ -1,4 +1,11 @@
Public Class Attribute Public Class Attribute
Public Const TYPE_BIT = "BIT"
Public Const TYPE_FLOAT = "FLOAT"
Public Const TYPE_DECIMAL = "DECIMAL"
Public Const TYPE_DATE = "DATE"
Public Const TYPE_BIG_INTEGER = "BIG INTEGER"
Public Const TYPE_VECTOR_STRING = "VECTOR STRING"
Public Property ID As Long Public Property ID As Long
Public Property Title As String Public Property Title As String
Public Property TypeID As Long Public Property TypeID As Long