diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 4df82507..19c7c3bf 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -44,10 +44,12 @@ On + + @@ -64,11 +66,16 @@ ..\packages\NLog.4.7.10\lib\net45\NLog.dll + + + + + @@ -107,6 +114,7 @@ Form + @@ -134,13 +142,19 @@ Settings.settings True + + ctrlObjectPropertyDialog.vb + + + UserControl + frmObjectPropertyDialog.vb Form - + @@ -162,6 +176,9 @@ My.Resources Designer + + ctrlObjectPropertyDialog.vb + frmObjectPropertyDialog.vb @@ -315,5 +332,8 @@ + + + \ No newline at end of file diff --git a/GUIs.Common/DocumentResultList/Layout.vb b/GUIs.Common/DocumentResultList/Layout.vb new file mode 100644 index 00000000..32d86590 --- /dev/null +++ b/GUIs.Common/DocumentResultList/Layout.vb @@ -0,0 +1,74 @@ +Imports DevExpress.Utils +Imports DevExpress.XtraBars.Docking +Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Logging + +Namespace DocumentResultList + Public Class Layout + Inherits BaseClass + + Private Config As ConfigManager(Of Config) + + Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config)) + MyBase.New(pLogConfig) + Config = pConfig + End Sub + + Public Sub DockManager_SaveLayout(pDockManager As DockManager) + Try + Dim oXml As String = GetDockmanager_LayoutName() + pDockManager.SaveLayoutToXml(oXml) + Catch ex As Exception + Logger.Error(ex) + Logger.Info("Error while saving GridLayout: " & ex.Message) + End Try + End Sub + + Public Sub DockManager_RestoreLayout(pDockManager As DockManager) + Try + Dim oXml As String = GetDockmanager_LayoutName() + pDockManager.RestoreLayoutFromXml(oXml) + Catch ex As Exception + Logger.Error(ex) + Logger.Info("Error while restoring GridLayout: " & ex.Message) + End Try + End Sub + + Public Sub GridView_RestoreLayout(pGridView As GridView) + Try + Dim oLayoutFile As String = GetGrid_LayoutName(pGridView) + If IO.File.Exists(oLayoutFile) Then + pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout) + End If + Catch ex As Exception + Logger.Error(ex) + Logger.Info("Error while restoring layout: " & ex.Message) + End Try + End Sub + + Public Sub GridView_SaveLayout(pGridView As GridView) + Try + Dim oXml As String = GetGrid_LayoutName(pGridView) + pGridView.SaveLayoutToXml(oXml, OptionsLayoutBase.FullLayout) + Catch ex As Exception + Logger.Error(ex) + Logger.Info("Error while saving GridLayout: " & ex.Message) + End Try + End Sub + + Public Function GetDockmanager_LayoutName() As String + Dim Filename As String = $"DockManagerDocResult_UserLayout.xml" + Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath) + Return IO.Path.Combine(oDirectory, Filename) + End Function + + Public Function GetGrid_LayoutName(pGridView As GridView) As String + Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml" + Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath) + Return IO.Path.Combine(oDirectory, Filename) + End Function + End Class + +End Namespace \ No newline at end of file diff --git a/GUIs.Common/My Project/Resources.Designer.vb b/GUIs.Common/My Project/Resources.Designer.vb index 4326f9be..75aa3f72 100644 --- a/GUIs.Common/My Project/Resources.Designer.vb +++ b/GUIs.Common/My Project/Resources.Designer.vb @@ -110,6 +110,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property clearpivottable() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("clearpivottable", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' diff --git a/GUIs.Common/My Project/Resources.resx b/GUIs.Common/My Project/Resources.resx index 763c2ef8..bf5854a4 100644 --- a/GUIs.Common/My Project/Resources.resx +++ b/GUIs.Common/My Project/Resources.resx @@ -133,6 +133,9 @@ ..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -199,7 +202,7 @@ ..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/GUIs.Common/My Project/licenses.licx b/GUIs.Common/My Project/licenses.licx index 4c23d9e3..3c8716d5 100644 --- a/GUIs.Common/My Project/licenses.licx +++ b/GUIs.Common/My Project/licenses.licx @@ -1,7 +1,8 @@ -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb b/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb new file mode 100644 index 00000000..d99cedc5 --- /dev/null +++ b/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb @@ -0,0 +1,185 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraLayout +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 +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Base + +Public Class AttributeControls + Inherits BaseClass + + Private ReadOnly Client As Client + Private ReadOnly Environment As Environment + + Public Event EditValueChanged As EventHandler + + Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pClient As Client) + MyBase.New(pLogConfig) + Client = pClient + Environment = pEnvironment + End Sub + + Public Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean + If pAttribute.IsSystem Then + Return False + End If + + Return True + End Function + + Public Async Function GetAttributesForBusinessEntity(EntityId As Long) As Task(Of List(Of Attribute)) + Try + Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{Environment.User.Language}'" + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) + + If oResult.OK = False Then + Throw New ApplicationException($"Attributes for Business Entity {EntityId} could not be retrieved!") + + ElseIf oResult.Table.Rows.Count = 0 Then + Throw New ApplicationException($"BusinessEntity {EntityId} does not have any attributes!") + + Else + Dim oAttributes As New List(Of Attribute) + + For Each oRow As DataRow In oResult.Table.Rows + oAttributes.Add(New Attribute() With { + .ID = oRow.Item("ATTR_ID"), + .Title = oRow.Item("ATTR_TITLE"), + .TypeID = oRow.Item("TYPE_ID"), + .TypeName = oRow.Item("TYPE_NAME"), + .IsSystem = Convert.ToBoolean(oRow.Item("SYS_ATTRIBUTE")) + }) + Next + + Return oAttributes + End If + Catch ex As Exception + Logger.Error(ex) + Return New List(Of Attribute) + End Try + End Function + + Public Async Function LoadControlsForAttributes(pObjectId As Long, pAttributes As List(Of Attribute), LayoutRoot As LayoutControlGroup) As Task + LayoutRoot.Clear() + + For Each oAttribute As Attribute In pAttributes + Dim oEditable = ShouldControlBeEditable(oAttribute) + Dim oControl = GetControlForAttribute(oAttribute, Not oEditable) + Dim oItem As LayoutControlItem = LayoutRoot.AddItem() + + oItem.Text = oAttribute.Title + oItem.Name = oAttribute.Title + oItem.Control = oControl + Next + + For Each oItem As LayoutControlItem In LayoutRoot.Items + If TypeOf oItem.Control Is BaseEdit Then + Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId) + Dim oEdit = DirectCast(oItem.Control, BaseEdit) + + oEdit.EditValue = oValue + + AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing) + + ElseIf TypeOf oItem.Control Is GridControl Then + Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId) + Dim oGrid = DirectCast(oItem.Control, GridControl) + oGrid.DataSource = oValueTable + + + End If + Next + End Function + + Public Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object) + Dim oIsForeign = IIf(IsForeign, 1, 0) + Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})" + Dim oResult = Await Client.GetScalarValueFromIDBAsync(oSQL) + + Return oResult.Scalar + End Function + + Public 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 oResult = Await Client.GetDatatableFromIDBAsync(oSQL) + + Return oResult.Table + End Function + + 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 = pAttribute.ID, + .Text = pAttribute.Title, + .[ReadOnly] = pIsReadOnly + } + oControl = oCheckboxEdit + + Case Attribute.TYPE_DATE + Dim oDateEdit As New DateEdit With { + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly + } + oControl = oDateEdit + + Case Attribute.TYPE_BIG_INTEGER + Dim oTextEdit As New TextEdit With { + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly + } + oControl = oTextEdit + + Case Attribute.TYPE_DECIMAL + Dim oTextEdit As New TextEdit With { + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly + } + oControl = oTextEdit + + Case Attribute.TYPE_FLOAT + Dim oTextEdit As New TextEdit With { + .Name = pAttribute.ID, + .[ReadOnly] = pIsReadOnly + } + oControl = oTextEdit + + 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) + } + + 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 = pAttribute.ID, + .[ReadOnly] = pIsReadOnly + } + oControl = oTextEdit + + End Select + + oControl.Tag = pAttribute + + Return oControl + End Function +End Class diff --git a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb b/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb deleted file mode 100644 index 24dbf077..00000000 --- a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb +++ /dev/null @@ -1,92 +0,0 @@ -Imports DevExpress.XtraEditors -Imports DevExpress.XtraLayout -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 - Private _Logger As Logger - Private _Db As MSSQLServer - - Public Sub New(LogConfig As LogConfig, Database As MSSQLServer) - _LogConfig = LogConfig - _Logger = LogConfig.GetLogger() - _Db = Database - End Sub - - 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 = pAttribute.ID, - .Text = pAttribute.Title, - .[ReadOnly] = pIsReadOnly - } - oControl = oCheckboxEdit - - Case Attribute.TYPE_DATE - Dim oDateEdit As New DateEdit With { - .Name = pAttribute.ID, - .[ReadOnly] = pIsReadOnly - } - oControl = oDateEdit - - Case Attribute.TYPE_BIG_INTEGER - Dim oTextEdit As New TextEdit With { - .Name = pAttribute.ID, - .[ReadOnly] = pIsReadOnly - } - oControl = oTextEdit - - Case Attribute.TYPE_DECIMAL - Dim oTextEdit As New TextEdit With { - .Name = pAttribute.ID, - .[ReadOnly] = pIsReadOnly - } - oControl = oTextEdit - - Case Attribute.TYPE_FLOAT - Dim oTextEdit As New TextEdit With { - .Name = pAttribute.ID, - .[ReadOnly] = pIsReadOnly - } - oControl = oTextEdit - - 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) - } - - 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 = pAttribute.ID, - .[ReadOnly] = pIsReadOnly - } - oControl = oTextEdit - - End Select - - oControl.Tag = pAttribute - - Return oControl - End Function -End Class diff --git a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb new file mode 100644 index 00000000..99eb43cb --- /dev/null +++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb @@ -0,0 +1,531 @@ + _ +Partial Class ctrlObjectPropertyDialog + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageObject = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() + Me.RootMetadata = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem() + Me.lbLifecycleEnd = New DevExpress.XtraLayout.SimpleLabelItem() + Me.XtraTabPageAttributes = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit() + Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtObjectId = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageObject.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageAttributes.SuspendLayout() + Me.XtraTabPageAttributeHistory.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageObject + Me.XtraTabControl1.Size = New System.Drawing.Size(505, 723) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageObject, Me.XtraTabPageAttributes, Me.XtraTabPageAttributeHistory}) + ' + 'XtraTabPageObject + ' + Me.XtraTabPageObject.Controls.Add(Me.LayoutControl1) + Me.XtraTabPageObject.Name = "XtraTabPageObject" + Me.XtraTabPageObject.Size = New System.Drawing.Size(503, 698) + Me.XtraTabPageObject.Text = "Objekt" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.GridControl1) + Me.LayoutControl1.Controls.Add(Me.ProgressBarControl1) + Me.LayoutControl1.Controls.Add(Me.txtObjectId) + Me.LayoutControl1.Controls.Add(Me.txtCreatedWhen) + Me.LayoutControl1.Controls.Add(Me.txtCreatedWho) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) + Me.LayoutControl1.Controls.Add(Me.txtAccessedWhen) + Me.LayoutControl1.Controls.Add(Me.TextEdit11) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1068, 351, 650, 400) + Me.LayoutControl1.Root = Me.RootMetadata + Me.LayoutControl1.Size = New System.Drawing.Size(503, 698) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'ProgressBarControl1 + ' + Me.ProgressBarControl1.Location = New System.Drawing.Point(24, 656) + Me.ProgressBarControl1.Name = "ProgressBarControl1" + Me.ProgressBarControl1.Size = New System.Drawing.Size(455, 18) + Me.ProgressBarControl1.StyleController = Me.LayoutControl1 + Me.ProgressBarControl1.TabIndex = 7 + ' + 'RootMetadata + ' + Me.RootMetadata.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.RootMetadata.GroupBordersVisible = False + Me.RootMetadata.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3}) + Me.RootMetadata.Name = "Root" + Me.RootMetadata.Size = New System.Drawing.Size(503, 698) + Me.RootMetadata.TextVisible = False + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 232) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(483, 346) + Me.LayoutControlGroup1.Text = "Objekt Historie" + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem1, Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.txtAccessedWho}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(483, 232) + Me.LayoutControlGroup2.Text = "Eigenschaften" + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.lbLifecycleStart, Me.lbLifecycleEnd}) + Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 578) + Me.LayoutControlGroup3.Name = "LayoutControlGroup3" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(483, 100) + Me.LayoutControlGroup3.Text = "Lebenszyklus" + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.ProgressBarControl1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 33) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(459, 22) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'lbLifecycleStart + ' + Me.lbLifecycleStart.AllowHotTrack = False + Me.lbLifecycleStart.Location = New System.Drawing.Point(0, 0) + Me.lbLifecycleStart.Name = "lbLifecycleStart" + Me.lbLifecycleStart.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.lbLifecycleStart.Size = New System.Drawing.Size(229, 33) + Me.lbLifecycleStart.Text = "00.00.0000" + Me.lbLifecycleStart.TextSize = New System.Drawing.Size(70, 13) + ' + 'lbLifecycleEnd + ' + Me.lbLifecycleEnd.AllowHotTrack = False + Me.lbLifecycleEnd.AppearanceItemCaption.Options.UseTextOptions = True + Me.lbLifecycleEnd.AppearanceItemCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbLifecycleEnd.Location = New System.Drawing.Point(229, 0) + Me.lbLifecycleEnd.Name = "lbLifecycleEnd" + Me.lbLifecycleEnd.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.lbLifecycleEnd.Size = New System.Drawing.Size(230, 33) + Me.lbLifecycleEnd.Text = "99.99.9999" + Me.lbLifecycleEnd.TextSize = New System.Drawing.Size(70, 13) + ' + 'XtraTabPageAttributes + ' + Me.XtraTabPageAttributes.Controls.Add(Me.LayoutControl2) + Me.XtraTabPageAttributes.Name = "XtraTabPageAttributes" + Me.XtraTabPageAttributes.Size = New System.Drawing.Size(503, 698) + Me.XtraTabPageAttributes.Text = "Attribute" + ' + 'XtraTabPageAttributeHistory + ' + Me.XtraTabPageAttributeHistory.Controls.Add(Me.GridControl2) + Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory" + Me.XtraTabPageAttributeHistory.Size = New System.Drawing.Size(503, 698) + Me.XtraTabPageAttributeHistory.Text = "Attribut Historie" + ' + 'GridControl1 + ' + Me.GridControl1.Location = New System.Drawing.Point(24, 277) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(455, 297) + Me.GridControl1.TabIndex = 9 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControl1 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(459, 301) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 67) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'txtCreatedWho + ' + Me.txtCreatedWho.Location = New System.Drawing.Point(338, 78) + Me.txtCreatedWho.Name = "txtCreatedWho" + Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtCreatedWho.Properties.ReadOnly = True + Me.txtCreatedWho.Size = New System.Drawing.Size(138, 20) + Me.txtCreatedWho.StyleController = Me.LayoutControl1 + Me.txtCreatedWho.TabIndex = 8 + ' + 'TextEdit11 + ' + Me.TextEdit11.Location = New System.Drawing.Point(338, 138) + Me.TextEdit11.Name = "TextEdit11" + Me.TextEdit11.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.TextEdit11.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.TextEdit11.Properties.ReadOnly = True + Me.TextEdit11.Size = New System.Drawing.Size(138, 20) + Me.TextEdit11.StyleController = Me.LayoutControl1 + Me.TextEdit11.TabIndex = 10 + ' + 'txtAccessedWhen + ' + Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138) + Me.txtAccessedWhen.Name = "txtAccessedWhen" + Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtAccessedWhen.Properties.ReadOnly = True + Me.txtAccessedWhen.Size = New System.Drawing.Size(137, 20) + Me.txtAccessedWhen.StyleController = Me.LayoutControl1 + Me.txtAccessedWhen.TabIndex = 6 + ' + 'txtObjectId + ' + Me.txtObjectId.Location = New System.Drawing.Point(109, 48) + Me.txtObjectId.Name = "txtObjectId" + Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtObjectId.Properties.ReadOnly = True + Me.txtObjectId.Size = New System.Drawing.Size(367, 20) + Me.txtObjectId.StyleController = Me.LayoutControl1 + Me.txtObjectId.TabIndex = 7 + ' + 'txtChangedWhen + ' + Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108) + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtChangedWhen.Properties.ReadOnly = True + Me.txtChangedWhen.Size = New System.Drawing.Size(137, 20) + Me.txtChangedWhen.StyleController = Me.LayoutControl1 + Me.txtChangedWhen.TabIndex = 5 + ' + 'txtCreatedWhen + ' + Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78) + Me.txtCreatedWhen.Name = "txtCreatedWhen" + Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtCreatedWhen.Properties.ReadOnly = True + Me.txtCreatedWhen.Size = New System.Drawing.Size(137, 20) + Me.txtCreatedWhen.StyleController = Me.LayoutControl1 + Me.txtCreatedWhen.TabIndex = 4 + ' + 'txtChangedWho + ' + Me.txtChangedWho.Location = New System.Drawing.Point(338, 108) + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(138, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 9 + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.txtObjectId + Me.LayoutControlItem1.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem1.CustomizationFormText = "Objekt Id" + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(459, 30) + Me.LayoutControlItem1.Text = "Objekt Id" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtCreatedWhen + Me.LayoutControlItem3.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem3.CustomizationFormText = "Erstellt" + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(229, 30) + Me.LayoutControlItem3.Text = "Erstellt" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.txtCreatedWho + Me.LayoutControlItem5.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem5.CustomizationFormText = "von" + Me.LayoutControlItem5.Location = New System.Drawing.Point(229, 30) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(230, 30) + Me.LayoutControlItem5.Text = "von" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtChangedWho + Me.LayoutControlItem6.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem6.CustomizationFormText = "von" + Me.LayoutControlItem6.Location = New System.Drawing.Point(229, 60) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(230, 30) + Me.LayoutControlItem6.Text = "von" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtChangedWhen + Me.LayoutControlItem7.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem7.CustomizationFormText = "Geändert" + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem7.Size = New System.Drawing.Size(229, 30) + Me.LayoutControlItem7.Text = "Geändert" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.txtAccessedWhen + Me.LayoutControlItem8.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem8.CustomizationFormText = "Letzter Zugriff" + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(229, 30) + Me.LayoutControlItem8.Text = "Letzter Zugriff" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(70, 13) + ' + 'txtAccessedWho + ' + Me.txtAccessedWho.Control = Me.TextEdit11 + Me.txtAccessedWho.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.txtAccessedWho.CustomizationFormText = "von" + Me.txtAccessedWho.Location = New System.Drawing.Point(229, 90) + Me.txtAccessedWho.Name = "txtAccessedWho" + Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.txtAccessedWho.Size = New System.Drawing.Size(230, 30) + Me.txtAccessedWho.Text = "von" + Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13) + ' + 'GridControl2 + ' + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(503, 698) + Me.GridControl2.TabIndex = 0 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + ' + 'LayoutControl2 + ' + Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl2.Name = "LayoutControl2" + Me.LayoutControl2.Root = Me.Root + Me.LayoutControl2.Size = New System.Drawing.Size(503, 698) + Me.LayoutControl2.TabIndex = 0 + Me.LayoutControl2.Text = "LayoutControl2" + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(503, 698) + Me.Root.TextVisible = False + ' + 'ctrlObjectPropertyDialog + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.XtraTabControl1) + Me.Name = "ctrlObjectPropertyDialog" + Me.Size = New System.Drawing.Size(505, 723) + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageObject.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageAttributes.ResumeLayout(False) + Me.XtraTabPageAttributeHistory.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageObject As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl + Friend WithEvents RootMetadata As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents lbLifecycleStart As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents lbLifecycleEnd As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents XtraTabPageAttributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageAttributeHistory As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtCreatedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup +End Class diff --git a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.resx b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb new file mode 100644 index 00000000..d4e15077 --- /dev/null +++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb @@ -0,0 +1,7 @@ +Imports DevExpress.XtraTab + +Public Class ctrlObjectPropertyDialog + Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load + + End Sub +End Class diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb index 5125bfda..85373fd0 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb @@ -135,7 +135,7 @@ Partial Class frmObjectPropertyDialog Me.TabFormControl1.Pages.Add(Me.TabPageAttributes) Me.TabFormControl1.Pages.Add(Me.TabPageObject) Me.TabFormControl1.Pages.Add(Me.TabPageHistory) - Me.TabFormControl1.SelectedPage = Me.TabPageAttributes + Me.TabFormControl1.SelectedPage = Me.TabPageObject Me.TabFormControl1.ShowAddPageButton = False Me.TabFormControl1.ShowTabCloseButtons = False Me.TabFormControl1.Size = New System.Drawing.Size(572, 71) @@ -390,7 +390,7 @@ Partial Class frmObjectPropertyDialog Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutObject.GroupBordersVisible = False Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleSeparator1, Me.LayoutControlItem7, Me.LayoutControlGroup1, Me.LayoutControlGroup2}) - Me.LayoutObject.Name = "LayoutObject" + Me.LayoutObject.Name = "Root" Me.LayoutObject.Size = New System.Drawing.Size(572, 534) Me.LayoutObject.TextVisible = False ' @@ -593,7 +593,7 @@ Partial Class frmObjectPropertyDialog 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.TabFormContentContainer2) Me.Controls.Add(Me.TabFormControl1) Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.Name = "frmObjectPropertyDialog" diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb index 20c51a41..e45fe8f8 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb @@ -19,7 +19,7 @@ Public Class frmObjectPropertyDialog Private ReadOnly Client As Client Private ReadOnly ObjectId As Int64 Private ReadOnly DatabaseIDB As MSSQLServer - Private ReadOnly ControlManager As PropertyControls + Private ReadOnly ControlManager As AttributeControls Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger @@ -38,7 +38,9 @@ Public Class frmObjectPropertyDialog Client = pClient ObjectId = pObjectId DatabaseIDB = Environment.DatabaseIDB - ControlManager = New PropertyControls(LogConfig, DatabaseIDB) + ControlManager = New AttributeControls(LogConfig, Environment, pClient) + AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged + ErrorHandler = New BaseErrorHandler(LogConfig, Me) End Sub @@ -74,37 +76,7 @@ Public Class frmObjectPropertyDialog End Try End Sub - Private Async Function GetAttributesForBusinessEntity(EntityId As Long) As Task(Of List(Of Attribute)) - Try - Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{Environment.User.Language}'" - Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) - If oResult.OK = False Then - Throw New ApplicationException($"Attributes for Business Entity {EntityId} could not be retrieved!") - - ElseIf oResult.Table.Rows.Count = 0 Then - Throw New ApplicationException($"BusinessEntity {EntityId} does not have any attributes!") - - Else - Dim oAttributes As New List(Of Attribute) - - For Each oRow As DataRow In oResult.Table.Rows - oAttributes.Add(New Attribute() With { - .ID = oRow.Item("ATTR_ID"), - .Title = oRow.Item("ATTR_TITLE"), - .TypeID = oRow.Item("TYPE_ID"), - .TypeName = oRow.Item("TYPE_NAME"), - .IsSystem = Convert.ToBoolean(oRow.Item("SYS_ATTRIBUTE")) - }) - Next - - Return oAttributes - End If - Catch ex As Exception - Logger.Error(ex) - Return New List(Of Attribute) - End Try - End Function Private Async Function GetBusinessEntitiesForObjectId(ObjectId As Long) As Task(Of List(Of Long)) Try @@ -161,22 +133,6 @@ Public Class frmObjectPropertyDialog Return oResult.Table End Function - Private Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object) - Dim oIsForeign = IIf(IsForeign, 1, 0) - Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})" - Dim oResult = Await Client.GetScalarValueFromIDBAsync(oSQL) - - Return oResult.Scalar - 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 oResult = Await Client.GetDatatableFromIDBAsync(oSQL) - - Return oResult.Table - End Function - Private Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged Load_Attributes() End Sub @@ -189,38 +145,13 @@ Public Class frmObjectPropertyDialog Exit Sub End If - Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) + Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(oEntityId) If oAttributes.Count = 0 Then MsgBox($"Es konnten keine Attribute für das Objekt '{ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) End If - For Each oAttribute As Attribute In oAttributes - Dim oEditable = ShouldControlBeEditable(oAttribute) - Dim oControl = ControlManager.GetControlForAttribute(oAttribute, Not oEditable) - 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 - If TypeOf oItem.Control Is BaseEdit Then - Dim oValue = Await GetAttributeValue(oItem.Name, ObjectId) - Dim oEdit = DirectCast(oItem.Control, BaseEdit) - oEdit.EditValue = oValue - - AddHandler oEdit.EditValueChanged, AddressOf BaseEdit_EditValueChanged - - 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 + Await ControlManager.LoadControlsForAttributes(ObjectId, oAttributes, AttributeLayout) Catch ex As Exception Logger.Error(ex) End Try @@ -240,14 +171,6 @@ Public Class frmObjectPropertyDialog End If End Sub - Private Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean - If pAttribute.IsSystem Then - Return False - End If - - Return True - End Function - Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean Try GridValueHistory.DataSource = pDatatable @@ -312,8 +235,4 @@ Public Class frmObjectPropertyDialog ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick") End Try End Sub - - Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click - - End Sub End Class \ No newline at end of file diff --git a/GUIs.Common/Resources/clearpivottable.svg b/GUIs.Common/Resources/clearpivottable.svg new file mode 100644 index 00000000..0e4e7bb2 --- /dev/null +++ b/GUIs.Common/Resources/clearpivottable.svg @@ -0,0 +1,15 @@ + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Common/frmDocumentResultList.Designer.vb b/GUIs.Common/frmDocumentResultList.Designer.vb index 65c9ec37..caa3684c 100644 --- a/GUIs.Common/frmDocumentResultList.Designer.vb +++ b/GUIs.Common/frmDocumentResultList.Designer.vb @@ -49,6 +49,7 @@ Partial Class frmDocumentResultList Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -71,14 +72,34 @@ Partial Class frmDocumentResultList Me.GridControl3 = New DevExpress.XtraGrid.GridControl() Me.GridView3 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView() Me.GridBand3 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() - Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.XtraSaveFileDialog = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) - Me.MenuFullAccess_IDB = New DevExpress.XtraBars.PopupMenu(Me.components) - Me.MenuViewAccess_IDB = New DevExpress.XtraBars.PopupMenu(Me.components) - Me.MenuFullAccess_EDM = New DevExpress.XtraBars.PopupMenu(Me.components) - Me.MenuFullAccess_ZOOFLOW = New DevExpress.XtraBars.PopupMenu(Me.components) Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.DockPanelFileList = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.DockPanelMetadata = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.RootMetadata = New DevExpress.XtraLayout.LayoutControlGroup() + Me.DockPanelDocViewer = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageAttributes = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPageObject = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.lbLifecycleEnd = New DevExpress.XtraLayout.SimpleLabelItem() + Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.Panel1.SuspendLayout() @@ -100,21 +121,35 @@ Partial Class frmDocumentResultList CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SplitContainerControl3.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl3.Panel1.SuspendLayout() - CType(Me.SplitContainerControl3.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl3.Panel2.SuspendLayout() - Me.SplitContainerControl3.SuspendLayout() - CType(Me.MenuFullAccess_IDB, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.MenuViewAccess_IDB, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.MenuFullAccess_EDM, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.MenuFullAccess_ZOOFLOW, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanelFileList.SuspendLayout() + Me.DockPanel2_Container.SuspendLayout() + Me.DockPanelMetadata.SuspendLayout() + Me.DockPanel3_Container.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanelDocViewer.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageAttributes.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainerControl1 ' - Me.SplitContainerControl1.Collapsed = True Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1") Me.SplitContainerControl1.Name = "SplitContainerControl1" @@ -167,9 +202,9 @@ Partial Class frmDocumentResultList ' Me.RibbonControl.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl.ExpandCollapseItem.Id = 0 - Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5}) + Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) resources.ApplyResources(Me.RibbonControl, "RibbonControl") - Me.RibbonControl.MaxItemId = 35 + Me.RibbonControl.MaxItemId = 36 Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage4, Me.RibbonPage2, Me.RibbonPageExport}) Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2}) @@ -348,6 +383,13 @@ Partial Class frmDocumentResultList Me.BarButtonItem5.Id = 34 Me.BarButtonItem5.Name = "BarButtonItem5" ' + 'BarButtonItem6 + ' + resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6") + Me.BarButtonItem6.Id = 35 + Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.clearpivottable + Me.BarButtonItem6.Name = "BarButtonItem6" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup5}) @@ -409,7 +451,9 @@ Partial Class frmDocumentResultList ' 'RibbonPageGroup1 ' + Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") ' @@ -520,23 +564,6 @@ Partial Class frmDocumentResultList Me.GridBand3.OptionsBand.AllowSize = False Me.GridBand3.VisibleIndex = 0 ' - 'SplitContainerControl3 - ' - Me.SplitContainerControl3.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.[Default] - resources.ApplyResources(Me.SplitContainerControl3, "SplitContainerControl3") - Me.SplitContainerControl3.Name = "SplitContainerControl3" - ' - 'SplitContainerControl3.Panel1 - ' - Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1) - resources.ApplyResources(Me.SplitContainerControl3.Panel1, "SplitContainerControl3.Panel1") - ' - 'SplitContainerControl3.Panel2 - ' - Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1) - resources.ApplyResources(Me.SplitContainerControl3.Panel2, "SplitContainerControl3.Panel2") - Me.SplitContainerControl3.SplitterPosition = 771 - ' 'DocumentViewer1 ' resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") @@ -547,50 +574,212 @@ Partial Class frmDocumentResultList ' Me.XtraSaveFileDialog.FileName = "XtraSaveFileDialog1" ' - 'MenuFullAccess_IDB - ' - Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFileOpen) - Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFolderOpen) - Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFilepathCopy) - Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemFolderpathCopy) - Me.MenuFullAccess_IDB.ItemLinks.Add(Me.MenuItemPropertiesIDB) - Me.MenuFullAccess_IDB.Name = "MenuFullAccess_IDB" - Me.MenuFullAccess_IDB.Ribbon = Me.RibbonControl - ' - 'MenuViewAccess_IDB - ' - Me.MenuViewAccess_IDB.ItemLinks.Add(Me.MenuItemPropertiesIDB) - Me.MenuViewAccess_IDB.Name = "MenuViewAccess_IDB" - Me.MenuViewAccess_IDB.Ribbon = Me.RibbonControl - ' - 'MenuFullAccess_EDM - ' - Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFileOpen) - Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFolderOpen) - Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFilepathCopy) - Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemFolderpathCopy) - Me.MenuFullAccess_EDM.ItemLinks.Add(Me.MenuItemPropertiesECM) - Me.MenuFullAccess_EDM.Name = "MenuFullAccess_EDM" - Me.MenuFullAccess_EDM.Ribbon = Me.RibbonControl - ' - 'MenuFullAccess_ZOOFLOW - ' - Me.MenuFullAccess_ZOOFLOW.ItemLinks.Add(Me.MenuItemsOpenFileZooFlow) - Me.MenuFullAccess_ZOOFLOW.ItemLinks.Add(Me.MenuItemPropertiesZooFlow) - Me.MenuFullAccess_ZOOFLOW.Name = "MenuFullAccess_ZOOFLOW" - Me.MenuFullAccess_ZOOFLOW.Ribbon = Me.RibbonControl - ' 'RibbonPageGroup6 ' Me.RibbonPageGroup6.Name = "RibbonPageGroup6" resources.ApplyResources(Me.RibbonPageGroup6, "RibbonPageGroup6") ' + 'DockManager1 + ' + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanelFileList, Me.DockPanelMetadata, Me.DockPanelDocViewer}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "System.Windows.Forms.StatusBar", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'DockPanelFileList + ' + Me.DockPanelFileList.Controls.Add(Me.DockPanel2_Container) + Me.DockPanelFileList.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanelFileList.ID = New System.Guid("1839997d-1d60-4497-acbb-0a49e64d6376") + resources.ApplyResources(Me.DockPanelFileList, "DockPanelFileList") + Me.DockPanelFileList.Name = "DockPanelFileList" + Me.DockPanelFileList.Options.ShowCloseButton = False + Me.DockPanelFileList.OriginalSize = New System.Drawing.Size(585, 200) + ' + 'DockPanel2_Container + ' + Me.DockPanel2_Container.Controls.Add(Me.SplitContainerControl1) + resources.ApplyResources(Me.DockPanel2_Container, "DockPanel2_Container") + Me.DockPanel2_Container.Name = "DockPanel2_Container" + ' + 'DockPanelMetadata + ' + Me.DockPanelMetadata.Controls.Add(Me.DockPanel3_Container) + Me.DockPanelMetadata.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right + Me.DockPanelMetadata.ID = New System.Guid("a7688cec-f13e-448b-82cf-a6bb020fb3f7") + resources.ApplyResources(Me.DockPanelMetadata, "DockPanelMetadata") + Me.DockPanelMetadata.Name = "DockPanelMetadata" + Me.DockPanelMetadata.Options.ShowCloseButton = False + Me.DockPanelMetadata.OriginalSize = New System.Drawing.Size(280, 200) + ' + 'DockPanel3_Container + ' + Me.DockPanel3_Container.Controls.Add(Me.XtraTabControl1) + resources.ApplyResources(Me.DockPanel3_Container, "DockPanel3_Container") + Me.DockPanel3_Container.Name = "DockPanel3_Container" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.ProgressBarControl1) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + resources.ApplyResources(Me.LayoutControl1, "LayoutControl1") + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1068, 351, 650, 400) + Me.LayoutControl1.Root = Me.RootMetadata + ' + 'RootMetadata + ' + Me.RootMetadata.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.RootMetadata.GroupBordersVisible = False + Me.RootMetadata.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3}) + Me.RootMetadata.Name = "Root" + Me.RootMetadata.Size = New System.Drawing.Size(276, 487) + Me.RootMetadata.TextVisible = False + ' + 'DockPanelDocViewer + ' + Me.DockPanelDocViewer.Controls.Add(Me.DockPanel1_Container) + Me.DockPanelDocViewer.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill + Me.DockPanelDocViewer.ID = New System.Guid("6e5335e5-ba54-49c1-81b3-f174ea4e59ca") + resources.ApplyResources(Me.DockPanelDocViewer, "DockPanelDocViewer") + Me.DockPanelDocViewer.Name = "DockPanelDocViewer" + Me.DockPanelDocViewer.Options.ShowCloseButton = False + Me.DockPanelDocViewer.OriginalSize = New System.Drawing.Size(324, 200) + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.DocumentViewer1) + resources.ApplyResources(Me.DockPanel1_Container, "DockPanel1_Container") + Me.DockPanel1_Container.Name = "DockPanel1_Container" + ' + 'XtraTabControl1 + ' + resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1") + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageAttributes + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageAttributes, Me.XtraTabPageObject, Me.XtraTabPageAttributeHistory}) + ' + 'XtraTabPageAttributes + ' + Me.XtraTabPageAttributes.Controls.Add(Me.LayoutControl1) + Me.XtraTabPageAttributes.Name = "XtraTabPageAttributes" + resources.ApplyResources(Me.XtraTabPageAttributes, "XtraTabPageAttributes") + ' + 'XtraTabPageObject + ' + Me.XtraTabPageObject.Name = "XtraTabPageObject" + resources.ApplyResources(Me.XtraTabPageObject, "XtraTabPageObject") + ' + 'XtraTabPageAttributeHistory + ' + Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory" + resources.ApplyResources(Me.XtraTabPageAttributeHistory, "XtraTabPageAttributeHistory") + ' + 'TextEdit1 + ' + resources.ApplyResources(Me.TextEdit1, "TextEdit1") + Me.TextEdit1.MenuManager = Me.RibbonControl + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.StyleController = Me.LayoutControl1 + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(232, 24) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(96, 13) + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 69) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(256, 69) + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(256, 69) + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.lbLifecycleStart, Me.lbLifecycleEnd, Me.EmptySpaceItem1}) + Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 138) + Me.LayoutControlGroup3.Name = "LayoutControlGroup3" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(256, 329) + ' + 'ProgressBarControl1 + ' + resources.ApplyResources(Me.ProgressBarControl1, "ProgressBarControl1") + Me.ProgressBarControl1.MenuManager = Me.RibbonControl + Me.ProgressBarControl1.Name = "ProgressBarControl1" + Me.ProgressBarControl1.StyleController = Me.LayoutControl1 + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.ProgressBarControl1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 262) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(232, 22) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'lbLifecycleEnd + ' + Me.lbLifecycleEnd.AllowHotTrack = False + Me.lbLifecycleEnd.AppearanceItemCaption.Options.UseTextOptions = True + Me.lbLifecycleEnd.AppearanceItemCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbLifecycleEnd.Location = New System.Drawing.Point(116, 229) + Me.lbLifecycleEnd.Name = "lbLifecycleEnd" + Me.lbLifecycleEnd.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.lbLifecycleEnd.Size = New System.Drawing.Size(116, 33) + resources.ApplyResources(Me.lbLifecycleEnd, "lbLifecycleEnd") + Me.lbLifecycleEnd.TextSize = New System.Drawing.Size(96, 13) + ' + 'lbLifecycleStart + ' + Me.lbLifecycleStart.AllowHotTrack = False + Me.lbLifecycleStart.Location = New System.Drawing.Point(0, 229) + Me.lbLifecycleStart.Name = "lbLifecycleStart" + Me.lbLifecycleStart.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.lbLifecycleStart.Size = New System.Drawing.Size(116, 33) + resources.ApplyResources(Me.lbLifecycleStart, "lbLifecycleStart") + Me.lbLifecycleStart.TextSize = New System.Drawing.Size(96, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 0) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(232, 229) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'TextEdit3 + ' + resources.ApplyResources(Me.TextEdit3, "TextEdit3") + Me.TextEdit3.MenuManager = Me.RibbonControl + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.StyleController = Me.LayoutControl1 + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(232, 24) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(96, 13) + ' 'frmDocumentResultList ' Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True] resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.SplitContainerControl3) + Me.Controls.Add(Me.DockPanelDocViewer) + Me.Controls.Add(Me.DockPanelMetadata) + Me.Controls.Add(Me.DockPanelFileList) Me.Controls.Add(Me.RibbonStatusBar) Me.Controls.Add(Me.RibbonControl) Me.IconOptions.Icon = CType(resources.GetObject("frmDocumentResultList.IconOptions.Icon"), System.Drawing.Icon) @@ -619,16 +808,31 @@ Partial Class frmDocumentResultList CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SplitContainerControl3.Panel1, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl3.Panel1.ResumeLayout(False) - CType(Me.SplitContainerControl3.Panel2, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl3.Panel2.ResumeLayout(False) - CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl3.ResumeLayout(False) - CType(Me.MenuFullAccess_IDB, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.MenuViewAccess_IDB, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.MenuFullAccess_EDM, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.MenuFullAccess_ZOOFLOW, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanelFileList.ResumeLayout(False) + Me.DockPanel2_Container.ResumeLayout(False) + Me.DockPanelMetadata.ResumeLayout(False) + Me.DockPanel3_Container.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanelDocViewer.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageAttributes.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -650,7 +854,6 @@ Partial Class frmDocumentResultList Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView Friend WithEvents GridBand3 As DevExpress.XtraGrid.Views.BandedGrid.GridBand Friend WithEvents BarButtonItemExportGrid1 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents labelResultCount As DevExpress.XtraBars.BarStaticItem @@ -664,16 +867,12 @@ Partial Class frmDocumentResultList Friend WithEvents labelWarning As DevExpress.XtraBars.BarStaticItem Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand - Friend WithEvents MenuFullAccess_IDB As DevExpress.XtraBars.PopupMenu Friend WithEvents MenuItemFileOpen As DevExpress.XtraBars.BarButtonItem Friend WithEvents MenuItemPropertiesIDB As DevExpress.XtraBars.BarButtonItem Friend WithEvents MenuItemFolderOpen As DevExpress.XtraBars.BarButtonItem Friend WithEvents MenuItemFilepathCopy As DevExpress.XtraBars.BarButtonItem Friend WithEvents MenuItemFolderpathCopy As DevExpress.XtraBars.BarButtonItem - Friend WithEvents MenuViewAccess_IDB As DevExpress.XtraBars.PopupMenu - Friend WithEvents MenuFullAccess_EDM As DevExpress.XtraBars.PopupMenu Friend WithEvents MenuItemPropertiesECM As DevExpress.XtraBars.BarButtonItem - Friend WithEvents MenuFullAccess_ZOOFLOW As DevExpress.XtraBars.PopupMenu Friend WithEvents MenuItemsOpenFileZooFlow As DevExpress.XtraBars.BarButtonItem Friend WithEvents MenuItemPropertiesZooFlow As DevExpress.XtraBars.BarButtonItem Friend WithEvents ButtonRefresh As DevExpress.XtraBars.BarButtonItem @@ -692,4 +891,30 @@ Partial Class frmDocumentResultList Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents DockPanelDocViewer As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents DockPanelMetadata As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents DockPanelFileList As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents RootMetadata As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageAttributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageObject As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageAttributeHistory As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents lbLifecycleStart As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents lbLifecycleEnd As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/GUIs.Common/frmDocumentResultList.resx b/GUIs.Common/frmDocumentResultList.resx index 8cc1d3d7..07fe96f2 100644 --- a/GUIs.Common/frmDocumentResultList.resx +++ b/GUIs.Common/frmDocumentResultList.resx @@ -253,7 +253,7 @@ - Layout zurücksetzen + Aktives Tabellen Layout zurücksetzen @@ -444,42 +444,21 @@ BarButtonItem5 + + Fenster Layout zurücksetzen + 0, 0 - - Navigation - - - RibbonPageGroup5 - Start - - RibbonPageGroup3 - - - RibbonPageGroup7 - - - RibbonPageGroup4 - Bearbeiten - - Layout - - - RibbonPageGroup1 - Layout - - RibbonPageGroup2 - Export @@ -509,7 +488,7 @@ $this - 1 + 3 RibbonControl @@ -521,10 +500,10 @@ $this - 2 + 4 - 761, 554 + 325, 529 0 @@ -578,7 +557,7 @@ GridBand2 - 0, 0 + 243, 223 0 @@ -626,7 +605,7 @@ GridBand3 - 0, 0 + 243, 296 0 @@ -659,7 +638,7 @@ 1 - 0, 0 + 243, 529 0 @@ -695,7 +674,7 @@ 1 - 771, 554 + 578, 529 2 @@ -710,28 +689,34 @@ DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - SplitContainerControl3.Panel1 + DockPanel2_Container 0 - - 0, 89 + + Navigation - - Panel1 + + RibbonPageGroup5 - - SplitContainerControl3.Panel1 + + RibbonPageGroup3 - - DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroup7 - - SplitContainerControl3 + + RibbonPageGroup4 - - 0 + + Layout + + + RibbonPageGroup1 + + + RibbonPageGroup2 Fill @@ -740,7 +725,7 @@ 0, 0 - 404, 554 + 318, 528 0 @@ -752,65 +737,20 @@ DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.7.0, Culture=neutral, PublicKeyToken=null - SplitContainerControl3.Panel2 + DockPanel1_Container 0 - - Panel2 - - - SplitContainerControl3.Panel2 - - - DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerControl3 - - - 1 - - - 1189, 558 - - - 5 - - - SplitContainerControl3 - - - SplitContainerControl3 - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 0 - 14, 16 - - 167, 16 - - - 353, 18 - - - 522, 21 - - - 692, 21 - RibbonPageGroup6 + + 155, 22 + True @@ -820,6 +760,292 @@ 1189, 671 + + DockPanel1_Container + + + DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanelDocViewer + + + 0 + + + 585, 89 + + + 324, 558 + + + Vorschau + + + DockPanelDocViewer + + + DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + + + Fill + + + + Bottom + + + 0, 0 + + + 132, 45 + + + 120, 20 + + + 4 + + + TextEdit1 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 4 + + + 24, 445 + + + 228, 18 + + + 7 + + + ProgressBarControl1 + + + DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 5 + + + 132, 114 + + + 120, 20 + + + 8 + + + TextEdit3 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 6 + + + Fill + + + 0, 0 + + + 00.00.0000 + + + 99.99.9999 + + + 271, 504 + + + 0 + + + LayoutControl1 + + + LayoutControl1 + + + DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageAttributes + + + 0 + + + 271, 504 + + + Attribute + + + XtraTabPageAttributes + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 0 + + + 273, 529 + + + 1 + + + 271, 504 + + + XtraTabPage2 + + + XtraTabPageObject + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 1 + + + 271, 504 + + + XtraTabPage3 + + + XtraTabPageAttributeHistory + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanel3_Container + + + 0 + + + 4, 26 + + + 273, 529 + + + 0 + + + DockPanel3_Container + + + DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanelMetadata + + + 0 + + + 909, 89 + + + 280, 558 + + + Mehr + + + DockPanelMetadata + + + DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 1 + + + DockPanel2_Container + + + DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanelFileList + + + 0 + + + 0, 89 + + + 585, 558 + + + Ergebnisse + + + DockPanelFileList + + + DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 2 + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA @@ -1053,6 +1279,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem6 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -1167,40 +1399,124 @@ DevExpress.XtraEditors.XtraSaveFileDialog, DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - MenuFullAccess_IDB - - - DevExpress.XtraBars.PopupMenu, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - MenuViewAccess_IDB - - - DevExpress.XtraBars.PopupMenu, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - MenuFullAccess_EDM - - - DevExpress.XtraBars.PopupMenu, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - MenuFullAccess_ZOOFLOW - - - DevExpress.XtraBars.PopupMenu, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - RibbonPageGroup6 DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DockManager1 + + + DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RootMetadata + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup1 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup2 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup3 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + lbLifecycleEnd + + + DevExpress.XtraLayout.SimpleLabelItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + lbLifecycleStart + + + DevExpress.XtraLayout.SimpleLabelItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + EmptySpaceItem1 + + + DevExpress.XtraLayout.EmptySpaceItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmDocumentResultList DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 3, 26 + + + 578, 529 + + + 0 + + + DockPanel2_Container + + + DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanelFileList + + + 0 + + + 3, 26 + + + 318, 528 + + + 0 + + + DockPanel1_Container + + + DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DockPanelDocViewer + + + 0 + \ No newline at end of file diff --git a/GUIs.Common/frmDocumentResultList.vb b/GUIs.Common/frmDocumentResultList.vb index abbb624c..a30f1604 100644 --- a/GUIs.Common/frmDocumentResultList.vb +++ b/GUIs.Common/frmDocumentResultList.vb @@ -10,7 +10,6 @@ Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Views.BandedGrid Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Grid -Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports DevExpress.XtraPrinting Imports DigitalData.Modules.Config Imports DigitalData.Modules.EDMI.API @@ -56,12 +55,14 @@ Public Class frmDocumentResultList Private ReadOnly Helpers As DocumentResultList.Helpers Private ReadOnly Params As DocumentResultList.Params + Private ReadOnly LayoutManager As DocumentResultList.Layout Private WithEvents Watcher As DocumentResultList.Watcher + Private ControlManager As AttributeControls Private Documentloader As DocumentResultList.Loader ' Runtime variables - Private Property _ResultLists As List(Of DocumentResultList.DocumentResult) + Private Property ResultLists As List(Of DocumentResultList.DocumentResult) Private _IsLoading As Boolean = True Private _ActiveGrid As GridControl = Nothing @@ -100,16 +101,17 @@ Public Class frmDocumentResultList Logger = pLogConfig.GetLogger() ErrorHandler = New BaseErrorHandler(pLogConfig, Me) + Environment = pEnvironment + Params = pParams + ResultLists = pParams.Results + Config = New ConfigManager(Of DocumentResultList.Config)(pLogConfig, oConfigPath, oConfigPath) Helpers = New DocumentResultList.Helpers(pLogConfig) Filesystem = New Modules.Filesystem.File(pLogConfig) GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3}) FileEx = New Modules.Windows.File(pLogConfig) Watcher = New DocumentResultList.Watcher(pLogConfig) - - Environment = pEnvironment - Params = pParams - _ResultLists = pParams.Results + LayoutManager = New DocumentResultList.Layout(pLogConfig, Config) _Language = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US) End Sub @@ -158,6 +160,17 @@ Public Class frmDocumentResultList SplitContainerControl2.SplitterPosition = Config.Config.SplitContainer2Distance SwitchDetailContainerHorizontal.Checked = Config.Config.SplitContainer2Horizontal + ' Hide options relating to a filepath for zooflow + If OperationMode = OperationMode.ZooFlow Then + RibbonPageGroupFilesystem.Visible = False + Else + RibbonPageGroupFilesystem.Visible = False + End If + + If OperationMode = OperationMode.NoAppServer Then + DockPanelMetadata.Visibility = Docking.DockVisibility.Hidden + End If + If OperationMode <> OperationMode.NoAppServer Then ' Location and size will be managed by the ZooFlow Search Window If Utils.IsVisibleOnAnyScreen(Config.Config.WindowLocation) Then @@ -184,6 +197,8 @@ Public Class frmDocumentResultList UpdateTotalResults() UpdateGridData() + LayoutManager.DockManager_RestoreLayout(DockManager1) + Catch ex As Exception ErrorHandler.ShowErrorMessage(ex, "Error while loading results", "Form Load") @@ -195,7 +210,8 @@ Public Class frmDocumentResultList Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.FormClosing Try - GridViewSave_Layout(_ActiveGrid.MainView) + LayoutManager.GridView_SaveLayout(_ActiveGrid.MainView) + LayoutManager.DockManager_SaveLayout(DockManager1) Config.Config.WindowLocation = Location Config.Config.WindowSize = Size @@ -207,11 +223,10 @@ Public Class frmDocumentResultList End Try End Sub - Private Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) + Private Async Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Helpers.SetRowHandle(e) Try - Reset_Errors() Cursor = Cursors.WaitCursor If e.FocusedRowHandle >= 0 Then @@ -226,7 +241,7 @@ Public Class frmDocumentResultList ' Check DocumentInfo If IsNothing(oDocumentInfo) Then - Show_Warning("File could not be loaded!") + ErrorHandler.ShowErrorMessage("File could not be loaded!") Exit Sub End If @@ -248,16 +263,19 @@ Public Class frmDocumentResultList RibbonPageGroupFilesystem.Visible = True End If - ' Hide options relating to a filepath for zooflow - If OperationMode = OperationMode.ZooFlow Then - RibbonPageGroupFilesystem.Visible = False - Else - RibbonPageGroupFilesystem.Visible = False + If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then + Dim oEntityId = 1 + Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(oEntityId) + + If oAttributes.Count = 0 Then + MsgBox($"Es konnten keine Attribute für das Objekt '{oObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) + End If + + Await ControlManager.LoadControlsForAttributes(oObjectId, oAttributes, RootMetadata) End If End If Catch ex As Exception - Logger.Error(ex) - Show_CriticalError(ex) + ErrorHandler.ShowErrorMessage(ex, "GridView_FocusedRowChanged") Finally Cursor = Cursors.Default End Try @@ -303,8 +321,7 @@ Public Class frmDocumentResultList End If Catch ex As Exception - Logger.Error(ex) - Show_CriticalError(ex) + ErrorHandler.ShowErrorMessage(ex, "Watcher_FileChanged") Finally ' Signal to the watcher that the file is no longer in use @@ -376,8 +393,7 @@ Public Class frmDocumentResultList Dim oPort As Integer = oSplit.Item(1) _IDBClient = New Client(LogConfig, oAddress, oPort) - ' TODO: INitialize databasewithfallback - '_Database + ControlManager = New AttributeControls(LogConfig, Environment, _IDBClient) If Not _IDBClient.Connect() Then Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address) @@ -398,7 +414,7 @@ Public Class frmDocumentResultList _IsLoading = True Try ' Save the new results - _ResultLists = pResults + ResultLists = pResults ' Remove the current document from Documentloader.ClearCache() @@ -450,31 +466,31 @@ Public Class frmDocumentResultList Private Sub UpdateGridData() ' Load Grids - For oIndex = 0 To _ResultLists.Count - 1 + For oIndex = 0 To ResultLists.Count - 1 Select Case oIndex Case 0 - Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(0) + Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(0) LoadGridData(GridView1, oResult) CreateDocumentGrid(GridView1, oResult) - RestoreLayout(GridView1) - UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count) + LayoutManager.GridView_RestoreLayout(GridView1) + UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) Case 1 - Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(1) + Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(1) LoadGridData(GridView2, oResult) CreateDocumentGrid(GridView2, oResult) - RestoreLayout(GridView2) - UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count) + LayoutManager.GridView_RestoreLayout(GridView2) + UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) Case 2 - Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(2) + Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(2) LoadGridData(GridView3, oResult) CreateDocumentGrid(GridView3, oResult) - RestoreLayout(GridView3) - UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count) + LayoutManager.GridView_RestoreLayout(GridView3) + UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) Case Else MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -483,7 +499,7 @@ Public Class frmDocumentResultList Next ' Hide Grids depending on Result count - Select Case _ResultLists.Count + Select Case ResultLists.Count Case 0 SplitContainerControl1.SetPanelCollapsed(True) @@ -515,7 +531,7 @@ Public Class frmDocumentResultList Private Sub UpdateTotalResults() Dim oTotalResults = 0 - For Each oList In _ResultLists + For Each oList In ResultLists oTotalResults += oList.Datatable.Rows.Count Next @@ -702,17 +718,17 @@ Public Class frmDocumentResultList Private Sub GridView1_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView1.ColumnFilterChanged Dim oRowCount = sender.RowCount - UpdateGridHeader(_ResultLists, 0, oRowCount) + UpdateGridHeader(ResultLists, 0, oRowCount) End Sub Private Sub GridView2_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView2.ColumnFilterChanged Dim oRowCount = sender.RowCount - UpdateGridHeader(_ResultLists, 1, oRowCount) + UpdateGridHeader(ResultLists, 1, oRowCount) End Sub Private Sub GridView3_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView3.ColumnFilterChanged Dim oRowCount = sender.RowCount - UpdateGridHeader(_ResultLists, 2, oRowCount) + UpdateGridHeader(ResultLists, 2, oRowCount) End Sub Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonBack.ItemClick @@ -726,30 +742,10 @@ Public Class frmDocumentResultList End If End Sub - Public Sub Show_CriticalError(Message As String) - labelCriticalError.Visibility = BarItemVisibility.Always - labelCriticalError.Caption = Message - End Sub - - Public Sub Show_CriticalError(pException As Exception) - labelCriticalError.Visibility = BarItemVisibility.Always - labelCriticalError.Caption = pException.Message - End Sub - - Public Sub Show_Warning(Message As String) - labelWarning.Visibility = BarItemVisibility.Always - labelWarning.Caption = Message - End Sub - - Public Sub Reset_Errors() - labelCriticalError.Visibility = BarItemVisibility.Never - labelWarning.Visibility = BarItemVisibility.Never - End Sub - Private Sub BarButtonResetLayout_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonResetLayout.ItemClick If Not IsNothing(_ActiveGrid) Then Try - Dim oFile = GetDevexpressGrid_LayoutName(_ActiveGrid.MainView) + Dim oFile = LayoutManager.GetGrid_LayoutName(_ActiveGrid.MainView) If IO.File.Exists(oFile) Then IO.File.Delete(oFile) End If @@ -798,45 +794,12 @@ Public Class frmDocumentResultList -#Region "Context Menu" - - 'Private Sub GridView_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) Handles GridView2.PopupMenuShowing, GridView3.PopupMenuShowing, GridView1.PopupMenuShowing - ' Try - ' Dim oView As GridView = sender - - ' If e.MenuType = GridMenuType.Row Then - ' Dim oRowHandle = e.HitInfo.RowHandle - ' Dim oRow As DataRow = oView.GetDataRow(oRowHandle) - ' Dim oObjectId As Long = oRow.Item(COLUMN_DOCID) - ' Dim oPoint As Point = oView.GridControl.PointToScreen(e.HitInfo.HitPoint) - ' Dim oRight As Rights.AccessRight = _CurrentDocument.AccessRight - - ' '_CurrentDocumentId = oObjectId - ' _CurrentDocument.Id = oObjectId - - ' If OperationMode = OperationMode.WithAppServer Then - ' If oRight = Rights.AccessRight.FULL Or oRight = Rights.AccessRight.VIEW_EXPORT Then - ' MenuFullAccess_IDB.ShowPopup(oPoint) - ' Else - ' MenuViewAccess_IDB.ShowPopup(oPoint) - ' End If - ' ElseIf OperationMode = OperationMode.ZooFlow Then - ' MenuFullAccess_ZOOFLOW.ShowPopup(oPoint) - - ' Else - ' MenuFullAccess_EDM.ShowPopup(oPoint) - ' End If - ' Else - ' '_CurrentDocumentId = Nothing - ' _CurrentDocument.Id = Nothing - ' End If - ' Catch ex As Exception - ' Logger.Error(ex) - ' MsgBox("Unexpected Error while preparing context menu", MsgBoxStyle.Critical, Text) - ' End Try - 'End Sub - +#Region "File Actions" Private Sub MenuItem_OpenProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesECM.ItemClick + If _CurrentDocument Is Nothing Then + Exit Sub + End If + Select Case OperationMode Case OperationMode.NoAppServer FileEx.OpenFileProperties(_CurrentDocument.FullPath) @@ -947,38 +910,19 @@ Public Class frmDocumentResultList Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked End If End Sub - - Private Function GetDevexpressGrid_LayoutName(pGridView As GridView) - Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml" - Return Path.Combine(Config.UserConfigPath.Replace("UserConfig.xml", ""), Filename) - End Function - - - Private Sub GridViewSave_Layout(pGridView As GridView) - Try - Dim oXml As String = GetDevexpressGrid_LayoutName(pGridView) - pGridView.SaveLayoutToXml(oXml, OptionsLayoutBase.FullLayout) - Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error while saving GridLayout: " & ex.Message) - End Try - End Sub - Private Sub RestoreLayout(pGridView As GridView) - Try - Dim oLayoutFile As String = GetDevexpressGrid_LayoutName(pGridView) - If IO.File.Exists(oLayoutFile) Then - pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout) - End If - Catch ex As Exception - Logger.Error(ex) - Logger.Info("Error while restoring layout: " & ex.Message) - End Try - End Sub - +#End Region Private Sub ButtonRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles ButtonRefresh.ItemClick RaiseEvent NeedsRefresh(Me, Params.ProfileGuid) End Sub -#End Region - + Private Sub BarButtonItem6_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem6.ItemClick + Try + Dim oFile = LayoutManager.GetDockmanager_LayoutName() + If File.Exists(oFile) Then + File.Delete(oFile) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub End Class \ No newline at end of file