diff --git a/GUIs.Common/My Project/licenses.licx b/GUIs.Common/My Project/licenses.licx index 0916fd88..9447cbf5 100644 --- a/GUIs.Common/My Project/licenses.licx +++ b/GUIs.Common/My Project/licenses.licx @@ -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.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 diff --git a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb b/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb index a4730082..6588de42 100644 --- a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb +++ b/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb @@ -4,6 +4,9 @@ Imports DigitalData.Modules.Logging Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.Database Imports DigitalData.Controls.LookupGrid +Imports DevExpress.XtraGrid +Imports System.Windows.Forms +Imports DevExpress.XtraGrid.Views.Grid Public Class PropertyControls Private _LogConfig As LogConfig @@ -16,53 +19,72 @@ Public Class PropertyControls _Db = Database End Sub - Public Function GetControlForAttribute(Attribute As Attribute) As BaseEdit - Select Case Attribute.TypeName - Case "BIT" + Public Function GetControlForAttribute(pAttribute As Attribute, pIsReadOnly As Boolean) As Control + Dim oControl As Control + + Select Case pAttribute.TypeName + Case Attribute.TYPE_BIT Dim oCheckboxEdit As New CheckEdit With { - .Name = Attribute.ID, - .Text = Attribute.Title + .Name = pAttribute.ID, + .Text = pAttribute.Title, + .[ReadOnly] = pIsReadOnly } - Return oCheckboxEdit + oControl = oCheckboxEdit - Case "DATE" + Case Attribute.TYPE_DATE 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 { - .Name = Attribute.ID + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly } - Return oTextEdit + oControl = oTextEdit - Case "DECIMAL" + Case Attribute.TYPE_DECIMAL 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 { - .Name = Attribute.ID + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly } - Return oTextEdit + oControl = oTextEdit - Case "VECTOR STRING" - Dim oLookupEdit As New LookupControl2 With { - .Name = Attribute.ID, - .MultiSelect = True, - .[ReadOnly] = True + Case Attribute.TYPE_VECTOR_STRING + ' Minimum size is picked up by the LayoutControl to determine the grids size + Dim oGrid As New GridControl With { + .Name = pAttribute.ID, + .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 Dim oTextEdit As New TextEdit With { - .Name = Attribute.ID + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly } - Return oTextEdit + oControl = oTextEdit End Select + + Return oControl End Function End Class diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb index 68be8152..3b9b4499 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb @@ -1,9 +1,13 @@ - _ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraLayout + + Partial Class frmObjectPropertyDialog Inherits DevExpress.XtraBars.TabForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try 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. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + 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)) Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl() @@ -35,9 +39,28 @@ Partial Class frmObjectPropertyDialog Me.TabPageObject = New DevExpress.XtraBars.TabFormPage() Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer() 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.TabPageLifecycle = New DevExpress.XtraBars.TabFormPage() - Me.TabFormContentContainer3 = New DevExpress.XtraBars.TabFormContentContainer() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + 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.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer() Me.GridValueHistory = New DevExpress.XtraGrid.GridControl() @@ -48,56 +71,48 @@ Partial Class frmObjectPropertyDialog Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() Me.AttributeRoot = New DevExpress.XtraLayout.LayoutControlGroup() - Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.txtObjectId = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() - Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() - Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() - Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem() - Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() - CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).BeginInit - Me.TabFormContentContainer1.SuspendLayout - CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).BeginInit - Me.TabFormContentContainer2.SuspendLayout - CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).BeginInit - Me.LayoutControlObject.SuspendLayout - CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).BeginInit - Me.TabFormContentContainer4.SuspendLayout - CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit - Me.SuspendLayout + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabFormContentContainer1.SuspendLayout() + CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabFormContentContainer2.SuspendLayout() + CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlObject.SuspendLayout() + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupControl1.SuspendLayout() + CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabFormContentContainer4.SuspendLayout() + CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AttributeRoot, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SplashScreenManager + ' + SplashScreenManager.ClosingDelay = 500 ' 'RepositoryItemComboBox1 ' - Me.RepositoryItemComboBox1.AutoHeight = false + Me.RepositoryItemComboBox1.AutoHeight = False Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" ' @@ -108,17 +123,16 @@ Partial Class frmObjectPropertyDialog Me.TabFormControl1.Name = "TabFormControl1" Me.TabFormControl1.Pages.Add(Me.TabPageAttributes) Me.TabFormControl1.Pages.Add(Me.TabPageObject) - Me.TabFormControl1.Pages.Add(Me.TabPageLifecycle) Me.TabFormControl1.Pages.Add(Me.TabPageHistory) Me.TabFormControl1.SelectedPage = Me.TabPageAttributes - Me.TabFormControl1.ShowAddPageButton = false - Me.TabFormControl1.ShowTabCloseButtons = false + Me.TabFormControl1.ShowAddPageButton = False + Me.TabFormControl1.ShowTabCloseButtons = False Me.TabFormControl1.Size = New System.Drawing.Size(572, 71) Me.TabFormControl1.TabForm = Me Me.TabFormControl1.TabIndex = 0 Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1) Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity) - Me.TabFormControl1.TabStop = false + Me.TabFormControl1.TabStop = False ' 'cmbBusinessEntity ' @@ -162,10 +176,10 @@ Partial Class frmObjectPropertyDialog 'AttributeLayout ' Me.AttributeLayout.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.AttributeLayout.GroupBordersVisible = false + Me.AttributeLayout.GroupBordersVisible = False Me.AttributeLayout.Name = "AttributeRoot" Me.AttributeLayout.Size = New System.Drawing.Size(572, 534) - Me.AttributeLayout.TextVisible = false + Me.AttributeLayout.TextVisible = False ' 'TabPageObject ' @@ -184,6 +198,7 @@ Partial Class frmObjectPropertyDialog ' 'LayoutControlObject ' + Me.LayoutControlObject.Controls.Add(Me.GroupControl1) Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen) Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen) Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen) @@ -199,28 +214,217 @@ Partial Class frmObjectPropertyDialog Me.LayoutControlObject.TabIndex = 0 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 ' Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.LayoutObject.GroupBordersVisible = false - Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1}) + Me.LayoutObject.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.LayoutControlItem7}) Me.LayoutObject.Name = "LayoutObject" 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.TabPageLifecycle.Name = "TabPageLifecycle" - Me.TabPageLifecycle.Text = "Lebenszyklus" + 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) ' - 'TabFormContentContainer3 + 'LayoutControlItem2 ' - Me.TabFormContentContainer3.Dock = System.Windows.Forms.DockStyle.Fill - Me.TabFormContentContainer3.Location = New System.Drawing.Point(0, 71) - Me.TabFormContentContainer3.Name = "TabFormContentContainer3" - Me.TabFormContentContainer3.Size = New System.Drawing.Size(572, 534) - Me.TabFormContentContainer3.TabIndex = 3 + 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) + ' + '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 ' @@ -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.GridControl = Me.GridValueHistory Me.ViewValueHistory.Name = "ViewValueHistory" - Me.ViewValueHistory.OptionsBehavior.Editable = false - Me.ViewValueHistory.OptionsBehavior.ReadOnly = true + Me.ViewValueHistory.OptionsBehavior.Editable = False + Me.ViewValueHistory.OptionsBehavior.ReadOnly = True ' 'GridColumn1 ' Me.GridColumn1.Caption = "Attribut" Me.GridColumn1.FieldName = "Attribute" Me.GridColumn1.Name = "GridColumn1" - Me.GridColumn1.Visible = true + Me.GridColumn1.Visible = True Me.GridColumn1.VisibleIndex = 0 ' 'GridColumn2 @@ -268,7 +472,7 @@ Partial Class frmObjectPropertyDialog Me.GridColumn2.Caption = "Alter Wert" Me.GridColumn2.FieldName = "Old value" Me.GridColumn2.Name = "GridColumn2" - Me.GridColumn2.Visible = true + Me.GridColumn2.Visible = True Me.GridColumn2.VisibleIndex = 1 ' 'GridColumn3 @@ -276,7 +480,7 @@ Partial Class frmObjectPropertyDialog Me.GridColumn3.Caption = "Neuer Wert" Me.GridColumn3.FieldName = "New value" Me.GridColumn3.Name = "GridColumn3" - Me.GridColumn3.Visible = true + Me.GridColumn3.Visible = True Me.GridColumn3.VisibleIndex = 2 ' 'GridColumn4 @@ -284,7 +488,7 @@ Partial Class frmObjectPropertyDialog Me.GridColumn4.Caption = "Geändert Wer" Me.GridColumn4.FieldName = "Changed who" Me.GridColumn4.Name = "GridColumn4" - Me.GridColumn4.Visible = true + Me.GridColumn4.Visible = True Me.GridColumn4.VisibleIndex = 3 ' 'GridColumn5 @@ -292,229 +496,72 @@ Partial Class frmObjectPropertyDialog Me.GridColumn5.Caption = "Geändert Wann" Me.GridColumn5.FieldName = "Changed when" Me.GridColumn5.Name = "GridColumn5" - Me.GridColumn5.Visible = true + Me.GridColumn5.Visible = True Me.GridColumn5.VisibleIndex = 4 ' 'AttributeRoot ' 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.Name = "AttributeRoot" Me.AttributeRoot.Size = New System.Drawing.Size(572, 534) - Me.AttributeRoot.TextVisible = false - ' - 'txtCreatedWhen - ' - Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37) - Me.txtCreatedWhen.Name = "txtCreatedWhen" - Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtCreatedWhen.Properties.ReadOnly = true - Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20) - Me.txtCreatedWhen.StyleController = Me.LayoutControlObject - Me.txtCreatedWhen.TabIndex = 4 - ' - 'LayoutControlItem1 - ' - Me.LayoutControlItem1.Control = Me.txtCreatedWhen - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem1.Text = "Erstellt" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13) - ' - 'txtChangedWhen - ' - Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61) - Me.txtChangedWhen.Name = "txtChangedWhen" - Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtChangedWhen.Properties.ReadOnly = true - Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20) - Me.txtChangedWhen.StyleController = Me.LayoutControlObject - Me.txtChangedWhen.TabIndex = 5 - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.txtChangedWhen - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem2.Text = "Geändert" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13) - ' - 'txtAccessedWhen - ' - Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85) - Me.txtAccessedWhen.Name = "txtAccessedWhen" - Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtAccessedWhen.Properties.ReadOnly = true - Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20) - Me.txtAccessedWhen.StyleController = Me.LayoutControlObject - Me.txtAccessedWhen.TabIndex = 6 - ' - 'LayoutControlItem3 - ' - Me.LayoutControlItem3.Control = Me.txtAccessedWhen - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73) - Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem3.Text = "Letzter Zugriff" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13) - ' - 'txtObjectId - ' - Me.txtObjectId.Location = New System.Drawing.Point(87, 12) - Me.txtObjectId.Name = "txtObjectId" - Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtObjectId.Properties.ReadOnly = true - Me.txtObjectId.Size = New System.Drawing.Size(473, 20) - Me.txtObjectId.StyleController = Me.LayoutControlObject - Me.txtObjectId.TabIndex = 7 - ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.txtObjectId - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24) - Me.LayoutControlItem4.Text = "Objekt Id" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13) - ' - 'SimpleSeparator1 - ' - Me.SimpleSeparator1.AllowHotTrack = false - Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24) - Me.SimpleSeparator1.Name = "SimpleSeparator1" - Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1) - ' - 'txtCreatedWho - ' - Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37) - Me.txtCreatedWho.Name = "txtCreatedWho" - Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtCreatedWho.Properties.ReadOnly = true - Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20) - Me.txtCreatedWho.StyleController = Me.LayoutControlObject - Me.txtCreatedWho.TabIndex = 8 - ' - 'LayoutControlItem5 - ' - Me.LayoutControlItem5.Control = Me.txtCreatedWho - Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25) - Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem5.Text = "von" - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13) - ' - 'txtChangedWho - ' - Me.txtChangedWho.Location = New System.Drawing.Point(363, 61) - Me.txtChangedWho.Name = "txtChangedWho" - Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.txtChangedWho.Properties.ReadOnly = true - Me.txtChangedWho.Size = New System.Drawing.Size(197, 20) - Me.txtChangedWho.StyleController = Me.LayoutControlObject - Me.txtChangedWho.TabIndex = 9 - ' - 'LayoutControlItem6 - ' - Me.LayoutControlItem6.Control = Me.txtChangedWho - Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49) - Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem6.Text = "von" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13) - ' - 'TextEdit1 - ' - Me.TextEdit1.Location = New System.Drawing.Point(363, 85) - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White - Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = true - Me.TextEdit1.Properties.ReadOnly = true - Me.TextEdit1.Size = New System.Drawing.Size(197, 20) - Me.TextEdit1.StyleController = Me.LayoutControlObject - Me.TextEdit1.TabIndex = 10 - ' - 'txtAccessedWho - ' - Me.txtAccessedWho.Control = Me.TextEdit1 - Me.txtAccessedWho.CustomizationFormText = "von" - Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73) - Me.txtAccessedWho.Name = "txtAccessedWho" - Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24) - Me.txtAccessedWho.Text = "von" - Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13) - ' - 'EmptySpaceItem1 - ' - Me.EmptySpaceItem1.AllowHotTrack = false - Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97) - Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 417) - Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) - ' - 'SplashScreenManager - ' - SplashScreenManager.ClosingDelay = 500 + Me.AttributeRoot.TextVisible = False ' '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.ClientSize = New System.Drawing.Size(572, 605) Me.Controls.Add(Me.TabFormContentContainer1) Me.Controls.Add(Me.TabFormControl1) - Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.Name = "frmObjectPropertyDialog" Me.TabFormControl = Me.TabFormControl1 Me.Text = "Eigenschaften" - CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).EndInit - Me.TabFormContentContainer1.ResumeLayout(false) - CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).EndInit - Me.TabFormContentContainer2.ResumeLayout(false) - CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).EndInit - Me.LayoutControlObject.ResumeLayout(false) - CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).EndInit - Me.TabFormContentContainer4.ResumeLayout(false) - CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit - Me.ResumeLayout(false) + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabFormContentContainer1.ResumeLayout(False) + CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabFormContentContainer2.ResumeLayout(False) + CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlObject.ResumeLayout(False) + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupControl1.ResumeLayout(False) + Me.GroupControl1.PerformLayout() + CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + 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 Friend WithEvents TabFormControl1 As DevExpress.XtraBars.TabFormControl Friend WithEvents TabPageAttributes As DevExpress.XtraBars.TabFormPage Friend WithEvents TabFormContentContainer1 As DevExpress.XtraBars.TabFormContentContainer Friend WithEvents TabPageObject As DevExpress.XtraBars.TabFormPage Friend WithEvents TabFormContentContainer2 As DevExpress.XtraBars.TabFormContentContainer - Friend WithEvents TabPageLifecycle As DevExpress.XtraBars.TabFormPage - Friend WithEvents TabFormContentContainer3 As DevExpress.XtraBars.TabFormContentContainer Friend WithEvents LayoutControlAttributes As DevExpress.XtraLayout.LayoutControl Friend WithEvents AttributeRoot As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem @@ -548,4 +595,9 @@ End Sub Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem 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 diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb index 0ace9315..7c98444f 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb @@ -6,6 +6,8 @@ Imports DevExpress.XtraSplashScreen Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging Imports DigitalData.Modules.ZooFlow +Imports DigitalData.Modules.Language +Imports DevExpress.XtraGrid Public Class frmObjectPropertyDialog Private _LogConfig As LogConfig @@ -40,7 +42,6 @@ Public Class frmObjectPropertyDialog Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox) oCombobox.Items.AddRange(oEntityIds) - ShowAttributeHistory(oHistoryDataTable) ShowObjectProperties(oObjectProperties) @@ -121,6 +122,14 @@ Public Class frmObjectPropertyDialog Return oTermValue 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 Dim oEntityId As Long @@ -131,17 +140,25 @@ Public Class frmObjectPropertyDialog Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) For Each oAttribute As Attribute In oAttributes - Dim oControl = _Controls.GetControlForAttribute(oAttribute) + Dim oControl = _Controls.GetControlForAttribute(oAttribute, True) Dim oItem As LayoutControlItem = AttributeLayout.AddItem() + oItem.Text = oAttribute.Title oItem.Name = oAttribute.Title oItem.Control = oControl Next For Each oItem As LayoutControlItem In AttributeLayout.Items - Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId) - Dim oEdit = DirectCast(oItem.Control, BaseEdit) - oEdit.EditValue = oValue + If TypeOf oItem.Control Is BaseEdit Then + Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId) + Dim oEdit = DirectCast(oItem.Control, BaseEdit) + 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 End Sub @@ -166,8 +183,12 @@ Public Class frmObjectPropertyDialog txtObjectId.Text = oRow.Item("IDB_OBJ_ID") txtCreatedWhen.Text = oRow.Item("ADDED_WHEN") txtCreatedWho.Text = oRow.Item("ADDED_WHO") - txtChangedWhen.Text = oRow.Item("CHANGED_WHEN") - txtChangedWho.Text = oRow.Item("CHANGED_WHO") + 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 diff --git a/Modules.ZooFlow/Params/Attribute.vb b/Modules.ZooFlow/Params/Attribute.vb index 78795862..b9e11ed7 100644 --- a/Modules.ZooFlow/Params/Attribute.vb +++ b/Modules.ZooFlow/Params/Attribute.vb @@ -1,4 +1,11 @@ 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 Title As String Public Property TypeID As Long