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

Common: ObjectPropertyDialog improvements, DocumentResultList Improvements

Browse Source
This commit is contained in:
Jonathan Jenne 2022-03-23 16:33:53 +01:00
parent 53e702374b
commit 684b3f63ac
18 changed files with 950 additions and 764 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
GUIs.Common/Common.vbproj
View File

@ -172,6 +172,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmDocumentResultList.resx"> <EmbeddedResource Include="frmDocumentResultList.resx">
<DependentUpon>frmDocumentResultList.vb</DependentUpon> <DependentUpon>frmDocumentResultList.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" /> <EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
@ -354,5 +355,20 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\enablescrolling.svg" /> <None Include="Resources\enablescrolling.svg" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<None Include="Resources\filterquery.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\groupheader.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\title.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\save1.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\columnheaders.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

25
GUIs.Common/DocumentResultList/Layout.vb
View File

@ -1,17 +1,19 @@
Imports DevExpress.Utils Imports System.Windows.Forms
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Docking Imports DevExpress.XtraBars.Docking
Imports DevExpress.XtraGrid.Views.BandedGrid Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Namespace DocumentResultList Namespace DocumentResultList
Public Class Layout Public Class Layout
Inherits BaseClass Inherits BaseClass
Private Config As ConfigManager(Of Config) Private ReadOnly Config As ConfigManager(Of Config)
Private GridViews As List(Of GridView) Private ReadOnly GridViews As List(Of GridView)
Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config), pGridViews As List(Of GridView)) Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config), pGridViews As List(Of GridView))
MyBase.New(pLogConfig) MyBase.New(pLogConfig)
@ -76,6 +78,23 @@ Namespace DocumentResultList
Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath) Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath)
Return IO.Path.Combine(oDirectory, Filename) Return IO.Path.Combine(oDirectory, Filename)
End Function End Function
Public Sub LoadWindowLocationAndSize(ByRef pForm As Form)
If Utils.IsVisibleOnAnyScreen(Config.Config.WindowLocation) Then
If Utils.LocationIsVisible(Config.Config.WindowLocation) Then
pForm.Location = Config.Config.WindowLocation
End If
If Utils.SizeIsVisible(Config.Config.WindowSize) Then
pForm.Size = Config.Config.WindowSize
End If
End If
End Sub
Public Sub SaveWindowLocationAndSize(ByRef pForm As Form)
Config.Config.WindowLocation = pForm.Location
Config.Config.WindowSize = pForm.Size
Config.Save()
End Sub
#End Region #End Region
Public Sub SetGroupPanelVisible(pVisible As Boolean) Public Sub SetGroupPanelVisible(pVisible As Boolean)

50
GUIs.Common/My Project/Resources.Designer.vb generated
View File

@ -150,6 +150,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property columnheaders() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("columnheaders", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@ -220,6 +230,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property filterquery() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("filterquery", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@ -230,6 +250,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property groupheader() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("groupheader", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -310,6 +340,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property save1() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("save1", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@ -350,6 +390,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property title() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("title", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

39
GUIs.Common/My Project/Resources.resx
View File

@ -121,6 +121,9 @@
<data name="bo_transition" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bo_transition" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_transition.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\bo_transition.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="groupheader" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\groupheader.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="security_unlock" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="security_unlock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\security_unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\security_unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -142,6 +145,9 @@
<data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Open_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Open_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -154,21 +160,21 @@
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="title" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\title.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -193,15 +199,21 @@
<data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="editcolors" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="editcolors" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="filterquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\filterquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -211,13 +223,16 @@
<data name="Copy_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Copy_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </root>

174
GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb generated
View File

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

79
GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
View File

@ -6,6 +6,9 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language Imports DigitalData.Modules.Language
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DevExpress.XtraSplashScreen Imports DevExpress.XtraSplashScreen
Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Base.IDB
Imports DevExpress.XtraLayout
Public Class ctrlObjectPropertyDialog Public Class ctrlObjectPropertyDialog
Implements IBaseForm Implements IBaseForm
@ -14,15 +17,20 @@ Public Class ctrlObjectPropertyDialog
Private Property Logger As Logger Implements IBaseForm.Logger Private Property Logger As Logger Implements IBaseForm.Logger
Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Private Property ControlManager As AttributeControls Private Property ControlManager As AttributeControls
Private Property GridBuilder As GridBuilder
Private Property Client As Client Private Property Client As Client
Private Property Environment As Environment Private Property Environment As Environment
Private Property ObjectId As Long Private Property ObjectId As Long
Private ReadOnly Changes As New Dictionary(Of String, Object) Private ReadOnly Changes As New Dictionary(Of String, Object)
Public ReadOnly Property HasChanges As Boolean
Get
Return Changes.Count > 0
End Get
End Property
Private Loading As Boolean = False Private IsLoading As Boolean = False
Private LastEntityId As Integer = 0 Private LastEntityId As Integer = 0
Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
@ -34,10 +42,42 @@ Public Class ctrlObjectPropertyDialog
Logger = pLogConfig.GetLogger() Logger = pLogConfig.GetLogger()
ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm) ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm)
ControlManager = New AttributeControls(pLogConfig, pEnv, pClient) ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory)
GridBuilder.
WithDefaults().
WithReadOnlyOptions().
WithClipboardHandler()
AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
Client = pClient Client = pClient
Environment = pEnv Environment = pEnv
End Sub End Sub
Public Async Function SaveChanges() As Task
Try
For Each oChange As KeyValuePair(Of String, Object) In Changes
Logger.Info("Updating Attribute [{0}] with value [{1}]", oChange.Key, oChange.Value.ToString)
Await Client.SetAttributeValueAsync(ObjectId, oChange.Key, oChange.Value, New Options.SetAttributeValueOptions With {
.Language = Environment.User.Language,
.Username = Environment.User.UserName
})
Logger.Info("Updating Object State for Object [{0}]", ObjectId)
Await Client.SetObjectStateAsync(ObjectId, FileStore.OBJECT_STATE_METADATA_CHANGED, New Options.SetObjectStateOptions With {
.Language = Environment.User.Language,
.Username = Environment.User.UserName
})
Next
ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
Changes.Clear()
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "SaveChanges")
End Try
End Function
Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean) Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean)
' Load Business Entities ' Load Business Entities
Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId) Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId)
@ -52,7 +92,7 @@ Public Class ctrlObjectPropertyDialog
End Function End Function
Public Async Function LoadObject(pObjectId As Long, pEntityId As Long) As Task(Of Boolean) Public Async Function LoadObject(pObjectId As Long, pEntityId As Long) As Task(Of Boolean)
Loading = True IsLoading = True
Dim oLoadingHandle = SplashScreenManager.ShowOverlayForm(Me) Dim oLoadingHandle = SplashScreenManager.ShowOverlayForm(Me)
Try Try
@ -85,13 +125,16 @@ Public Class ctrlObjectPropertyDialog
' Save the current entity id ' Save the current entity id
LastEntityId = pEntityId LastEntityId = pEntityId
' Delete all existing changes from other objects
Changes.Clear()
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Return False Return False
Finally Finally
SplashScreenManager.CloseOverlayForm(oLoadingHandle) SplashScreenManager.CloseOverlayForm(oLoadingHandle)
Loading = False IsLoading = False
End Try End Try
End Function End Function
@ -123,8 +166,8 @@ Public Class ctrlObjectPropertyDialog
txtObjectId.Text = oRow.Item("IDB_OBJ_ID") txtObjectId.Text = oRow.Item("IDB_OBJ_ID")
txtCreatedWhen.Text = oRow.Item("ADDED_WHEN") txtCreatedWhen.Text = oRow.Item("ADDED_WHEN")
txtCreatedWho.Text = oRow.Item("ADDED_WHO") txtCreatedWho.Text = oRow.Item("ADDED_WHO")
txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN"), String.Empty) txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN_SUBSTRUCTURE"), String.Empty)
txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO"), String.Empty) txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO_SUBSTRUCTURE"), String.Empty)
lbLifecycleStart.Text = DirectCast(oRow.Item("ADDED_WHEN"), Date).ToShortDateString lbLifecycleStart.Text = DirectCast(oRow.Item("ADDED_WHEN"), Date).ToShortDateString
lbLifecycleEnd.Text = Date.MaxValue.ToShortDateString lbLifecycleEnd.Text = Date.MaxValue.ToShortDateString
@ -199,8 +242,6 @@ Public Class ctrlObjectPropertyDialog
MsgBox($"Es konnten keine Attribute für das Objekt '{pObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) MsgBox($"Es konnten keine Attribute für das Objekt '{pObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
End If End If
ControlManager.LoadControlsForAttributes(oAttributes, Root) ControlManager.LoadControlsForAttributes(oAttributes, Root)
Await ControlManager.LoadControlValuesForAttributes(pObjectId, Root) Await ControlManager.LoadControlValuesForAttributes(pObjectId, Root)
Catch ex As Exception Catch ex As Exception
@ -211,8 +252,28 @@ Public Class ctrlObjectPropertyDialog
Private Async Sub cmbEntityId_EditValueChanged(sender As Object, e As EventArgs) Handles cmbEntityId.EditValueChanged Private Async Sub cmbEntityId_EditValueChanged(sender As Object, e As EventArgs) Handles cmbEntityId.EditValueChanged
Dim oEntityId As Long Dim oEntityId As Long
If Integer.TryParse(cmbEntityId.EditValue, oEntityId) AndAlso Loading = False Then If Integer.TryParse(cmbEntityId.EditValue, oEntityId) AndAlso IsLoading = False Then
Await LoadObject(ObjectId, oEntityId) Await LoadObject(ObjectId, oEntityId)
End If End If
End Sub End Sub
Private Sub BaseEdit_EditValueChanged(sender As Object, e As EventArgs)
If IsLoading = True Then
Exit Sub
End If
Dim oControlItem As LayoutControlItem = sender
Dim oControl As BaseEdit = oControlItem.Control
Dim oAttribute As Attribute = oControl.Tag
Dim oValue = oControl.EditValue
Dim oKey = oAttribute.Title
If Changes.ContainsKey(oKey) Then
Changes.Item(oKey) = oValue
Else
Changes.Add(oAttribute.Title, oValue)
End If
End Sub
End Class End Class

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

@ -50,11 +50,9 @@ Partial Class frmObjectPropertyDialog
Me.lbLifecycleStart = New DevExpress.XtraEditors.LabelControl() Me.lbLifecycleStart = New DevExpress.XtraEditors.LabelControl()
Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit() Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
Me.txtObjectId = New DevExpress.XtraEditors.TextEdit() Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit() Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
@ -66,8 +64,6 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage() Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage()
Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer() Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer()
Me.GridValueHistory = New DevExpress.XtraGrid.GridControl() Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
@ -93,11 +89,9 @@ Partial Class frmObjectPropertyDialog
CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
@ -109,8 +103,6 @@ Partial Class frmObjectPropertyDialog
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabFormContentContainer4.SuspendLayout() Me.TabFormContentContainer4.SuspendLayout()
CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
@ -222,11 +214,9 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlObject.Controls.Add(Me.GroupControl1) Me.LayoutControlObject.Controls.Add(Me.GroupControl1)
Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen) Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen)
Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen) Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen)
Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen)
Me.LayoutControlObject.Controls.Add(Me.txtObjectId) Me.LayoutControlObject.Controls.Add(Me.txtObjectId)
Me.LayoutControlObject.Controls.Add(Me.txtCreatedWho) Me.LayoutControlObject.Controls.Add(Me.txtCreatedWho)
Me.LayoutControlObject.Controls.Add(Me.txtChangedWho) Me.LayoutControlObject.Controls.Add(Me.txtChangedWho)
Me.LayoutControlObject.Controls.Add(Me.TextEdit1)
Me.LayoutControlObject.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlObject.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControlObject.Location = New System.Drawing.Point(0, 0) Me.LayoutControlObject.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlObject.Name = "LayoutControlObject" Me.LayoutControlObject.Name = "LayoutControlObject"
@ -237,10 +227,10 @@ Partial Class frmObjectPropertyDialog
' '
'GridObjectHistory 'GridObjectHistory
' '
Me.GridObjectHistory.Location = New System.Drawing.Point(24, 211) Me.GridObjectHistory.Location = New System.Drawing.Point(24, 181)
Me.GridObjectHistory.MainView = Me.GridView1 Me.GridObjectHistory.MainView = Me.GridView1
Me.GridObjectHistory.Name = "GridObjectHistory" Me.GridObjectHistory.Name = "GridObjectHistory"
Me.GridObjectHistory.Size = New System.Drawing.Size(524, 199) Me.GridObjectHistory.Size = New System.Drawing.Size(524, 229)
Me.GridObjectHistory.TabIndex = 11 Me.GridObjectHistory.TabIndex = 11
Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
' '
@ -260,7 +250,7 @@ Partial Class frmObjectPropertyDialog
' '
'GridColumn7 'GridColumn7
' '
Me.GridColumn7.Caption = "Datum " Me.GridColumn7.Caption = "Datum"
Me.GridColumn7.FieldName = "ADDED_WHEN" Me.GridColumn7.FieldName = "ADDED_WHEN"
Me.GridColumn7.Name = "GridColumn7" Me.GridColumn7.Name = "GridColumn7"
Me.GridColumn7.Visible = True Me.GridColumn7.Visible = True
@ -310,81 +300,59 @@ Partial Class frmObjectPropertyDialog
' '
'txtCreatedWhen 'txtCreatedWhen
' '
Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78) Me.txtCreatedWhen.Location = New System.Drawing.Point(84, 78)
Me.txtCreatedWhen.Name = "txtCreatedWhen" Me.txtCreatedWhen.Name = "txtCreatedWhen"
Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtCreatedWhen.Properties.ReadOnly = True Me.txtCreatedWhen.Properties.ReadOnly = True
Me.txtCreatedWhen.Size = New System.Drawing.Size(172, 20) Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWhen.StyleController = Me.LayoutControlObject Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
Me.txtCreatedWhen.TabIndex = 4 Me.txtCreatedWhen.TabIndex = 4
' '
'txtChangedWhen 'txtChangedWhen
' '
Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108) Me.txtChangedWhen.Location = New System.Drawing.Point(84, 108)
Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtChangedWhen.Properties.ReadOnly = True Me.txtChangedWhen.Properties.ReadOnly = True
Me.txtChangedWhen.Size = New System.Drawing.Size(172, 20) Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWhen.StyleController = Me.LayoutControlObject Me.txtChangedWhen.StyleController = Me.LayoutControlObject
Me.txtChangedWhen.TabIndex = 5 Me.txtChangedWhen.TabIndex = 5
' '
'txtAccessedWhen
'
Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138)
Me.txtAccessedWhen.Name = "txtAccessedWhen"
Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtAccessedWhen.Properties.ReadOnly = True
Me.txtAccessedWhen.Size = New System.Drawing.Size(172, 20)
Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
Me.txtAccessedWhen.TabIndex = 6
'
'txtObjectId 'txtObjectId
' '
Me.txtObjectId.Location = New System.Drawing.Point(109, 48) Me.txtObjectId.Location = New System.Drawing.Point(84, 48)
Me.txtObjectId.Name = "txtObjectId" Me.txtObjectId.Name = "txtObjectId"
Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtObjectId.Properties.ReadOnly = True Me.txtObjectId.Properties.ReadOnly = True
Me.txtObjectId.Size = New System.Drawing.Size(436, 20) Me.txtObjectId.Size = New System.Drawing.Size(461, 20)
Me.txtObjectId.StyleController = Me.LayoutControlObject Me.txtObjectId.StyleController = Me.LayoutControlObject
Me.txtObjectId.TabIndex = 7 Me.txtObjectId.TabIndex = 7
' '
'txtCreatedWho 'txtCreatedWho
' '
Me.txtCreatedWho.Location = New System.Drawing.Point(373, 78) Me.txtCreatedWho.Location = New System.Drawing.Point(348, 78)
Me.txtCreatedWho.Name = "txtCreatedWho" Me.txtCreatedWho.Name = "txtCreatedWho"
Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtCreatedWho.Properties.ReadOnly = True Me.txtCreatedWho.Properties.ReadOnly = True
Me.txtCreatedWho.Size = New System.Drawing.Size(172, 20) Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
Me.txtCreatedWho.StyleController = Me.LayoutControlObject Me.txtCreatedWho.StyleController = Me.LayoutControlObject
Me.txtCreatedWho.TabIndex = 8 Me.txtCreatedWho.TabIndex = 8
' '
'txtChangedWho 'txtChangedWho
' '
Me.txtChangedWho.Location = New System.Drawing.Point(373, 108) Me.txtChangedWho.Location = New System.Drawing.Point(348, 108)
Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.txtChangedWho.Properties.ReadOnly = True Me.txtChangedWho.Properties.ReadOnly = True
Me.txtChangedWho.Size = New System.Drawing.Size(172, 20) Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
Me.txtChangedWho.StyleController = Me.LayoutControlObject Me.txtChangedWho.StyleController = Me.LayoutControlObject
Me.txtChangedWho.TabIndex = 9 Me.txtChangedWho.TabIndex = 9
' '
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(373, 138)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(172, 20)
Me.TextEdit1.StyleController = Me.LayoutControlObject
Me.TextEdit1.TabIndex = 10
'
'LayoutObject 'LayoutObject
' '
Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@ -397,7 +365,7 @@ Partial Class frmObjectPropertyDialog
'SimpleSeparator1 'SimpleSeparator1
' '
Me.SimpleSeparator1.AllowHotTrack = False Me.SimpleSeparator1.AllowHotTrack = False
Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 165) Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 135)
Me.SimpleSeparator1.Name = "SimpleSeparator1" Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1) Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
' '
@ -413,9 +381,9 @@ Partial Class frmObjectPropertyDialog
'LayoutControlGroup1 'LayoutControlGroup1
' '
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem8}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem8})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 166) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 136)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1" Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(552, 248) Me.LayoutControlGroup1.Size = New System.Drawing.Size(552, 278)
Me.LayoutControlGroup1.Text = "Objekt Historie" Me.LayoutControlGroup1.Text = "Objekt Historie"
' '
'LayoutControlItem8 'LayoutControlItem8
@ -423,16 +391,16 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem8.Control = Me.GridObjectHistory Me.LayoutControlItem8.Control = Me.GridObjectHistory
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Size = New System.Drawing.Size(528, 203) Me.LayoutControlItem8.Size = New System.Drawing.Size(528, 233)
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem8.TextVisible = False Me.LayoutControlItem8.TextVisible = False
' '
'LayoutControlGroup2 'LayoutControlGroup2
' '
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.txtAccessedWho}) Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2})
Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup2.Name = "LayoutControlGroup2" Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(552, 165) Me.LayoutControlGroup2.Size = New System.Drawing.Size(552, 135)
Me.LayoutControlGroup2.Text = "Eigenschaften" Me.LayoutControlGroup2.Text = "Eigenschaften"
' '
'LayoutControlItem4 'LayoutControlItem4
@ -443,7 +411,7 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 30) Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 30)
Me.LayoutControlItem4.Text = "Objekt Id" Me.LayoutControlItem4.Text = "Objekt Id"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(70, 13) Me.LayoutControlItem4.TextSize = New System.Drawing.Size(45, 13)
' '
'LayoutControlItem1 'LayoutControlItem1
' '
@ -453,7 +421,7 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem1.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem1.Size = New System.Drawing.Size(264, 30)
Me.LayoutControlItem1.Text = "Erstellt" Me.LayoutControlItem1.Text = "Erstellt"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13) Me.LayoutControlItem1.TextSize = New System.Drawing.Size(45, 13)
' '
'LayoutControlItem5 'LayoutControlItem5
' '
@ -463,7 +431,7 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem5.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem5.Size = New System.Drawing.Size(264, 30)
Me.LayoutControlItem5.Text = "von" Me.LayoutControlItem5.Text = "von"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13) Me.LayoutControlItem5.TextSize = New System.Drawing.Size(45, 13)
' '
'LayoutControlItem6 'LayoutControlItem6
' '
@ -473,7 +441,7 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem6.Size = New System.Drawing.Size(264, 30)
Me.LayoutControlItem6.Text = "von" Me.LayoutControlItem6.Text = "von"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13) Me.LayoutControlItem6.TextSize = New System.Drawing.Size(45, 13)
' '
'LayoutControlItem2 'LayoutControlItem2
' '
@ -483,28 +451,7 @@ Partial Class frmObjectPropertyDialog
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem2.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem2.Size = New System.Drawing.Size(264, 30)
Me.LayoutControlItem2.Text = "Geändert" Me.LayoutControlItem2.Text = "Geändert"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13) Me.LayoutControlItem2.TextSize = New System.Drawing.Size(45, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtAccessedWhen
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 90)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(264, 30)
Me.LayoutControlItem3.Text = "Letzter Zugriff"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
'
'txtAccessedWho
'
Me.txtAccessedWho.Control = Me.TextEdit1
Me.txtAccessedWho.CustomizationFormText = "von"
Me.txtAccessedWho.Location = New System.Drawing.Point(264, 90)
Me.txtAccessedWho.Name = "txtAccessedWho"
Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.txtAccessedWho.Size = New System.Drawing.Size(264, 30)
Me.txtAccessedWho.Text = "von"
Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13)
' '
'TabPageHistory 'TabPageHistory
' '
@ -615,11 +562,9 @@ Partial Class frmObjectPropertyDialog
CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
@ -631,8 +576,6 @@ Partial Class frmObjectPropertyDialog
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabFormContentContainer4.ResumeLayout(False) Me.TabFormContentContainer4.ResumeLayout(False)
CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
@ -665,12 +608,10 @@ Partial Class frmObjectPropertyDialog
Friend WithEvents AttributeLayout As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents AttributeLayout As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents txtCreatedWhen As DevExpress.XtraEditors.TextEdit Friend WithEvents txtCreatedWhen As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit
Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator
Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl
Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl
Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl
@ -683,8 +624,6 @@ Partial Class frmObjectPropertyDialog
Friend WithEvents LayoutControlItem2 As LayoutControlItem Friend WithEvents LayoutControlItem2 As LayoutControlItem
Friend WithEvents LayoutControlItem5 As LayoutControlItem Friend WithEvents LayoutControlItem5 As LayoutControlItem
Friend WithEvents LayoutControlItem6 As LayoutControlItem Friend WithEvents LayoutControlItem6 As LayoutControlItem
Friend WithEvents LayoutControlItem3 As LayoutControlItem
Friend WithEvents txtAccessedWho As LayoutControlItem
Friend WithEvents LayoutControlItem8 As LayoutControlItem Friend WithEvents LayoutControlItem8 As LayoutControlItem
Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents LayoutControlGroup1 As LayoutControlGroup Friend WithEvents LayoutControlGroup1 As LayoutControlGroup

22
GUIs.Common/Resources/columnheaders.svg Normal file
View File

@ -0,0 +1,22 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Black{fill:#727272;}
.Blue{fill:#1177D7;}
.White{fill:#FFFFFF;}
.Green{fill:#039C23;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
.st2{opacity:0.25;}
.st3{fill:#FFB115;}
</style>
<g />
<g id="ColumnHeaders">
<path d="M12,4h8v6h-8V4z M22,4h8v6h-8V4z M2,4h8v6H2V4z" class="Yellow" />
<g class="st1">
<path d="M12,12h8v16h-8V12z M2,12h8v16H2V12z M22,28h8V12h-8V28z" class="Black" />
</g>
</g>
</svg>

23
GUIs.Common/Resources/filterquery.svg Normal file
View File

@ -0,0 +1,23 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Black{fill:#727272;}
.Blue{fill:#1177D7;}
.White{fill:#FFFFFF;}
.Green{fill:#039C23;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
.st2{opacity:0.25;}
.st3{fill:#FFB115;}
</style>
<g />
<g id="FilterQuery">
<path d="M8,10H0v6h8V10z M8,2H0v6h8V2z M18,2h-8v6h8V2z M18,10h-8v6h8V10z" class="Green" />
<g class="st1">
<path d="M28,16h-8v-6h8V16z M28,2h-8v6h8V2z M0,24h8v-6H0V24z M14.3,21.1c-0.2-0.2-0.3-0.4-0.3-0.7V18h-4v6h7.2 L14.3,21.1z" class="Black" />
</g>
<polygon points="16,18 32,18 32,20 26,26 26,32 22,32 22,26 16,20 " class="Yellow" />
</g>
</svg>

21
GUIs.Common/Resources/groupheader.svg Normal file
View File

@ -0,0 +1,21 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
.Yellow{fill:#FFB115;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.White{fill:#FFFFFF;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
.st2{opacity:0.25;}
</style>
<g id="GroupHeader">
<path d="M25,2H5C4.5,2,4,2.5,4,3v24c0,0.5,0.5,1,1,1h20c0.5,0,1-0.5,1-1V3C26,2.5,25.5,2,25,2z M24,26H6V4h18V26z" class="Black" />
<rect x="8" y="6" width="14" height="6" rx="0" ry="0" class="Blue" />
<g class="st0">
<path d="M22,16H8v-2h14V16z M22,18H8v2h14V18z M22,22H8v2h14V22z" class="Black" />
</g>
</g>
</svg>

16
GUIs.Common/Resources/save1.svg Normal file
View File

@ -0,0 +1,16 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#737374;}
.Yellow{fill:#FCB01B;}
.Green{fill:#129C49;}
.Blue{fill:#387CB7;}
.Red{fill:#D02127;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{opacity:0.25;}
.st3{display:none;fill:#737374;}
</style>
<path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6 h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
</svg>

19
GUIs.Common/Resources/title.svg Normal file
View File

@ -0,0 +1,19 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Black{fill:#727272;}
.Blue{fill:#1177D7;}
.White{fill:#FFFFFF;}
.Green{fill:#039C23;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
.st2{opacity:0.25;}
.st3{fill:#FFB115;}
</style>
<g />
<g id="Title_1_">
<path d="M29,14H1c-0.5,0-1,0.5-1,1v12c0,0.5,0.5,1,1,1h28c0.5,0,1-0.5,1-1V15C30,14.5,29.5,14,29,14z M28,26H2V16h26V26z M22.9,11.2C23.7,10.6,24,10,24,9c0-0.6-0.2-1.2-0.7-1.6c-0.5-0.4-1.1-0.7-1.8-0.8c0.6-0.2,1.1-0.5,1.5-0.9 c0.4-0.4,0.6-0.9,0.6-1.4c0-0.7-0.3-1.3-0.9-1.7C22.1,2.2,21.1,2,19.9,2H16v9.9V12h4C21.2,12,22.3,11.8,22.9,11.2z M18.4,3.7h0.9 c1.1,0,1.7,0.4,1.7,1.1c0,0.4-0.1,0.7-0.4,0.9C20.4,5.9,20,6,19.5,6h-1.1V3.7z M18.4,10.2V7.6h1.3c0.5,0,0.9,0.1,1.3,0.3 c0.3,0.2,0.5,0.6,0.5,0.9c0,0.4-0.1,0.7-0.5,1c-0.3,0.2-0.8,0.4-1.3,0.4H18.4z M8.9,9.8h3.2l0.6,2.3H15L11.8,2H9.4L6.1,12h2.2 L8.9,9.8z M10.4,4.7c0.1-0.3,0.1-0.6,0.1-0.9h0.1c0,0.3,0.1,0.6,0.1,0.9l1,3.3H9.4L10.4,4.7z" id="Title" class="Black" />
</g>
</svg>

122
GUIs.Common/frmDocumentResultList.Designer.vb generated
View File

@ -21,6 +21,7 @@ Partial Class frmDocumentResultList
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocumentResultList)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocumentResultList))
Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView() Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
@ -57,23 +58,25 @@ Partial Class frmDocumentResultList
Me.chkGridShowQuickfilter = New DevExpress.XtraBars.BarCheckItem() Me.chkGridShowQuickfilter = New DevExpress.XtraBars.BarCheckItem()
Me.chkGridShowGrouping = New DevExpress.XtraBars.BarCheckItem() Me.chkGridShowGrouping = New DevExpress.XtraBars.BarCheckItem()
Me.chkGridShowTitle = New DevExpress.XtraBars.BarCheckItem() Me.chkGridShowTitle = New DevExpress.XtraBars.BarCheckItem()
Me.MenuItemSaveProperties = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.BarWorkspaceMenuItem1 = New DevExpress.XtraBars.BarWorkspaceMenuItem()
Me.WorkspaceManager1 = New DevExpress.Utils.WorkspaceManager(Me.components)
Me.RibbonPageCategoryFile = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPageCategoryFile = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage4 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage4 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageExport = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup_Layout = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupExport = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup_Layout = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@ -183,12 +186,13 @@ Partial Class frmDocumentResultList
'RibbonControl 'RibbonControl
' '
Me.RibbonControl.ExpandCollapseItem.Id = 0 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.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle}) 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, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarWorkspaceMenuItem1})
resources.ApplyResources(Me.RibbonControl, "RibbonControl") resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.MaxItemId = 43 Me.RibbonControl.MaxItemId = 46
Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile}) Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile})
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPageExport, Me.RibbonPage2}) Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1)
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2})
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2}) Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2})
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl.ShowToolbarCustomizeItem = False Me.RibbonControl.ShowToolbarCustomizeItem = False
@ -404,20 +408,49 @@ Partial Class frmDocumentResultList
' '
resources.ApplyResources(Me.chkGridShowQuickfilter, "chkGridShowQuickfilter") resources.ApplyResources(Me.chkGridShowQuickfilter, "chkGridShowQuickfilter")
Me.chkGridShowQuickfilter.Id = 40 Me.chkGridShowQuickfilter.Id = 40
Me.chkGridShowQuickfilter.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.filterquery
Me.chkGridShowQuickfilter.Name = "chkGridShowQuickfilter" Me.chkGridShowQuickfilter.Name = "chkGridShowQuickfilter"
' '
'chkGridShowGrouping 'chkGridShowGrouping
' '
resources.ApplyResources(Me.chkGridShowGrouping, "chkGridShowGrouping") resources.ApplyResources(Me.chkGridShowGrouping, "chkGridShowGrouping")
Me.chkGridShowGrouping.Id = 41 Me.chkGridShowGrouping.Id = 41
Me.chkGridShowGrouping.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.groupheader
Me.chkGridShowGrouping.Name = "chkGridShowGrouping" Me.chkGridShowGrouping.Name = "chkGridShowGrouping"
' '
'chkGridShowTitle 'chkGridShowTitle
' '
resources.ApplyResources(Me.chkGridShowTitle, "chkGridShowTitle") resources.ApplyResources(Me.chkGridShowTitle, "chkGridShowTitle")
Me.chkGridShowTitle.Id = 42 Me.chkGridShowTitle.Id = 42
Me.chkGridShowTitle.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.title
Me.chkGridShowTitle.Name = "chkGridShowTitle" Me.chkGridShowTitle.Name = "chkGridShowTitle"
' '
'MenuItemSaveProperties
'
resources.ApplyResources(Me.MenuItemSaveProperties, "MenuItemSaveProperties")
Me.MenuItemSaveProperties.Id = 43
Me.MenuItemSaveProperties.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.save1
Me.MenuItemSaveProperties.Name = "MenuItemSaveProperties"
'
'BarButtonItem11
'
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
Me.BarButtonItem11.Id = 44
Me.BarButtonItem11.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.columnheaders
Me.BarButtonItem11.Name = "BarButtonItem11"
'
'BarWorkspaceMenuItem1
'
resources.ApplyResources(Me.BarWorkspaceMenuItem1, "BarWorkspaceMenuItem1")
Me.BarWorkspaceMenuItem1.Id = 45
Me.BarWorkspaceMenuItem1.Name = "BarWorkspaceMenuItem1"
Me.BarWorkspaceMenuItem1.WorkspaceManager = Me.WorkspaceManager1
'
'WorkspaceManager1
'
Me.WorkspaceManager1.TargetControl = Me
Me.WorkspaceManager1.TransitionType = PushTransition1
'
'RibbonPageCategoryFile 'RibbonPageCategoryFile
' '
Me.RibbonPageCategoryFile.Appearance.BackColor = System.Drawing.Color.DarkGreen Me.RibbonPageCategoryFile.Appearance.BackColor = System.Drawing.Color.DarkGreen
@ -430,22 +463,18 @@ Partial Class frmDocumentResultList
' '
Me.RibbonPage4.Appearance.BackColor = System.Drawing.Color.Green Me.RibbonPage4.Appearance.BackColor = System.Drawing.Color.Green
Me.RibbonPage4.Appearance.Options.UseBackColor = True Me.RibbonPage4.Appearance.Options.UseBackColor = True
Me.RibbonPage4.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup7, Me.RibbonPageGroupFilesystem}) Me.RibbonPage4.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupFilesystem})
Me.RibbonPage4.Name = "RibbonPage4" Me.RibbonPage4.Name = "RibbonPage4"
resources.ApplyResources(Me.RibbonPage4, "RibbonPage4") resources.ApplyResources(Me.RibbonPage4, "RibbonPage4")
' '
'RibbonPageGroup3 'RibbonPageGroup3
' '
Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemFileOpen) Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemFileOpen)
Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemSaveProperties)
Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemPropertiesECM)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
' '
'RibbonPageGroup7
'
Me.RibbonPageGroup7.ItemLinks.Add(Me.MenuItemPropertiesECM, True)
Me.RibbonPageGroup7.Name = "RibbonPageGroup7"
resources.ApplyResources(Me.RibbonPageGroup7, "RibbonPageGroup7")
'
'RibbonPageGroupFilesystem 'RibbonPageGroupFilesystem
' '
Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderOpen) Me.RibbonPageGroupFilesystem.ItemLinks.Add(Me.MenuItemFolderOpen)
@ -476,7 +505,7 @@ Partial Class frmDocumentResultList
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup5}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup9, Me.RibbonPageGroupExport, Me.RibbonPageGroup5})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
@ -487,6 +516,23 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup_Navigation.Name = "RibbonPageGroup_Navigation" Me.RibbonPageGroup_Navigation.Name = "RibbonPageGroup_Navigation"
resources.ApplyResources(Me.RibbonPageGroup_Navigation, "RibbonPageGroup_Navigation") resources.ApplyResources(Me.RibbonPageGroup_Navigation, "RibbonPageGroup_Navigation")
' '
'RibbonPageGroup9
'
Me.RibbonPageGroup9.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowQuickfilter)
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowGrouping)
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowTitle)
Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup9.Name = "RibbonPageGroup9"
resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
'
'RibbonPageGroupExport
'
Me.RibbonPageGroupExport.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroupExport.ItemLinks.Add(Me.BarButtonItemExportGrid1)
Me.RibbonPageGroupExport.Name = "RibbonPageGroupExport"
resources.ApplyResources(Me.RibbonPageGroupExport, "RibbonPageGroupExport")
'
'RibbonPageGroup5 'RibbonPageGroup5
' '
Me.RibbonPageGroup5.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup5.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
@ -494,31 +540,12 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup5.Name = "RibbonPageGroup5" Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5") resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
' '
'RibbonPageExport
'
Me.RibbonPageExport.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
Me.RibbonPageExport.Name = "RibbonPageExport"
resources.ApplyResources(Me.RibbonPageExport, "RibbonPageExport")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItemExportGrid1)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
'
'RibbonPage2 'RibbonPage2
' '
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup9, Me.RibbonPageGroup_Layout}) Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup_Layout})
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
' '
'RibbonPageGroup_Layout
'
Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
Me.RibbonPageGroup_Layout.Name = "RibbonPageGroup_Layout"
resources.ApplyResources(Me.RibbonPageGroup_Layout, "RibbonPageGroup_Layout")
'
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout)
@ -526,13 +553,12 @@ Partial Class frmDocumentResultList
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
' '
'RibbonPageGroup9 'RibbonPageGroup_Layout
' '
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowQuickfilter) Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowGrouping) Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowTitle) Me.RibbonPageGroup_Layout.Name = "RibbonPageGroup_Layout"
Me.RibbonPageGroup9.Name = "RibbonPageGroup9" resources.ApplyResources(Me.RibbonPageGroup_Layout, "RibbonPageGroup_Layout")
resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
' '
'RepositoryItemTextEdit1 'RepositoryItemTextEdit1
' '
@ -796,8 +822,7 @@ Partial Class frmDocumentResultList
Friend WithEvents ButtonRefresh As DevExpress.XtraBars.BarButtonItem Friend WithEvents ButtonRefresh As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageExport As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroupExport As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
@ -808,7 +833,6 @@ Partial Class frmDocumentResultList
Friend WithEvents RibbonPageGroupFilesystem As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroupFilesystem As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup6 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 DockManager1 As DevExpress.XtraBars.Docking.DockManager
Friend WithEvents DockPanelDocViewer As DevExpress.XtraBars.Docking.DockPanel Friend WithEvents DockPanelDocViewer As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
@ -831,4 +855,8 @@ Partial Class frmDocumentResultList
Friend WithEvents chkGridShowTitle As DevExpress.XtraBars.BarCheckItem Friend WithEvents chkGridShowTitle As DevExpress.XtraBars.BarCheckItem
Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents MenuItemSaveProperties As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarWorkspaceMenuItem1 As DevExpress.XtraBars.BarWorkspaceMenuItem
Friend WithEvents WorkspaceManager1 As DevExpress.Utils.WorkspaceManager
End Class End Class

680
GUIs.Common/frmDocumentResultList.resx
View File

@ -468,291 +468,26 @@
<data name="chkGridShowTitle.Caption" xml:space="preserve"> <data name="chkGridShowTitle.Caption" xml:space="preserve">
<value>Titel anzeigen</value> <value>Titel anzeigen</value>
</data> </data>
<data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing"> <data name="MenuItemSaveProperties.Caption" xml:space="preserve">
<value>0, 0</value> <value>Speichern</value>
</data> </data>
<data name="RibbonPageGroup3.Text" xml:space="preserve"> <data name="BarButtonItem11.Caption" xml:space="preserve">
<value>RibbonPageGroup3</value> <value>Spaltenauswahl</value>
</data> </data>
<data name="RibbonPageGroup7.Text" xml:space="preserve"> <data name="BarWorkspaceMenuItem1.Caption" xml:space="preserve">
<value>RibbonPageGroup7</value> <value>BarWorkspaceMenuItem1</value>
</data> </data>
<data name="RibbonPageGroupFilesystem.Text" xml:space="preserve"> <metadata name="WorkspaceManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>RibbonPageGroup4</value> <value>456, 22</value>
</data> </metadata>
<data name="RibbonPage4.Text" xml:space="preserve"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Aktionen 1</value> <value>True</value>
</data> </metadata>
<data name="RibbonPageGroup4.Text" xml:space="preserve"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>RibbonPageGroup4</value> <value>6, 13</value>
</data> </data>
<data name="RibbonPageGroup8.Text" xml:space="preserve"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>RibbonPageGroup8</value> <value>1189, 671</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Aktionen 2</value>
</data>
<data name="RibbonPageCategoryFile.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="RibbonPageGroup_Navigation.Text" xml:space="preserve">
<value>Navigation</value>
</data>
<data name="RibbonPageGroup5.Text" xml:space="preserve">
<value>RibbonPageGroup5</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>RibbonPageGroup2</value>
</data>
<data name="RibbonPageExport.Text" xml:space="preserve">
<value>Export</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="RibbonPageGroup9.Text" xml:space="preserve">
<value>Tabellen Einstellungen</value>
</data>
<data name="RibbonPageGroup_Layout.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>Layout</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="RepositoryItemTextEdit1.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemTextEdit2.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RibbonControl.Size" type="System.Drawing.Size, System.Drawing">
<value>1189, 158</value>
</data>
<data name="RibbonStatusBar.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 647</value>
</data>
<data name="RibbonStatusBar.Size" type="System.Drawing.Size, System.Drawing">
<value>1189, 24</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Name" xml:space="preserve">
<value>RibbonStatusBar</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;RibbonControl.Name" xml:space="preserve">
<value>RibbonControl</value>
</data>
<data name="&gt;&gt;RibbonControl.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonControl.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;RibbonControl.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>568, 460</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="SplitContainerControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridBand2.AppearanceHeader.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt, style=Bold</value>
</data>
<data name="GridBand2.Caption" xml:space="preserve">
<value>GridBand2</value>
</data>
<data name="GridBand2.Name" xml:space="preserve">
<value>GridBand2</value>
</data>
<data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl2.Name" xml:space="preserve">
<value>GridControl2</value>
</data>
<data name="&gt;&gt;GridControl2.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl2.Parent" xml:space="preserve">
<value>SplitContainerControl2.Panel1</value>
</data>
<data name="&gt;&gt;GridControl2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Name" xml:space="preserve">
<value>SplitContainerControl2.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Parent" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="GridControl3.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControl3.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridBand3.AppearanceHeader.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt, style=Bold</value>
</data>
<data name="GridBand3.Caption" xml:space="preserve">
<value>GridBand3</value>
</data>
<data name="GridBand3.Name" xml:space="preserve">
<value>GridBand3</value>
</data>
<data name="GridControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl3.Name" xml:space="preserve">
<value>GridControl3</value>
</data>
<data name="&gt;&gt;GridControl3.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl3.Parent" xml:space="preserve">
<value>SplitContainerControl2.Panel2</value>
</data>
<data name="&gt;&gt;GridControl3.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Name" xml:space="preserve">
<value>SplitContainerControl2.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Parent" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="SplitContainerControl2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="SplitContainerControl2.Text" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Name" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>578, 460</value>
</data>
<data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="SplitContainerControl1.Text" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Name" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Parent" xml:space="preserve">
<value>DockPanel2_Container</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data> </data>
<data name="DocumentViewer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="DocumentViewer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
@ -763,6 +498,7 @@
<data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>318, 459</value> <value>318, 459</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib"> <data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
@ -778,24 +514,6 @@
<data name="&gt;&gt;DocumentViewer1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DocumentViewer1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="XtraSaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>12, 27</value>
</metadata>
<data name="RibbonPageGroup6.Text" xml:space="preserve">
<value>RibbonPageGroup6</value>
</data>
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>155, 22</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1189, 671</value>
</data>
<data name="DockPanel1_Container.Location" type="System.Drawing.Point, System.Drawing"> <data name="DockPanel1_Container.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 26</value> <value>3, 26</value>
</data> </data>
@ -890,7 +608,7 @@
<value>280, 489</value> <value>280, 489</value>
</data> </data>
<data name="DockPanelMetadata.Text" xml:space="preserve"> <data name="DockPanelMetadata.Text" xml:space="preserve">
<value>Mehr</value> <value>Eigenschaften</value>
</data> </data>
<data name="&gt;&gt;DockPanelMetadata.Name" xml:space="preserve"> <data name="&gt;&gt;DockPanelMetadata.Name" xml:space="preserve">
<value>DockPanelMetadata</value> <value>DockPanelMetadata</value>
@ -946,6 +664,24 @@
<data name="&gt;&gt;DockPanelFileList.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DockPanelFileList.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="RibbonStatusBar.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 647</value>
</data>
<data name="RibbonStatusBar.Size" type="System.Drawing.Size, System.Drawing">
<value>1189, 24</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Name" xml:space="preserve">
<value>RibbonStatusBar</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;RibbonStatusBar.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="frmDocumentResultList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmDocumentResultList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
@ -1227,6 +963,30 @@
<data name="&gt;&gt;chkGridShowTitle.Type" xml:space="preserve"> <data name="&gt;&gt;chkGridShowTitle.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;MenuItemSaveProperties.Name" xml:space="preserve">
<value>MenuItemSaveProperties</value>
</data>
<data name="&gt;&gt;MenuItemSaveProperties.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem11.Name" xml:space="preserve">
<value>BarButtonItem11</value>
</data>
<data name="&gt;&gt;BarButtonItem11.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarWorkspaceMenuItem1.Name" xml:space="preserve">
<value>BarWorkspaceMenuItem1</value>
</data>
<data name="&gt;&gt;BarWorkspaceMenuItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarWorkspaceMenuItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;WorkspaceManager1.Name" xml:space="preserve">
<value>WorkspaceManager1</value>
</data>
<data name="&gt;&gt;WorkspaceManager1.Type" xml:space="preserve">
<value>DevExpress.Utils.WorkspaceManager, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCategoryFile.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageCategoryFile.Name" xml:space="preserve">
<value>RibbonPageCategoryFile</value> <value>RibbonPageCategoryFile</value>
</data> </data>
@ -1245,12 +1005,6 @@
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup7.Name" xml:space="preserve">
<value>RibbonPageGroup7</value>
</data>
<data name="&gt;&gt;RibbonPageGroup7.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupFilesystem.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroupFilesystem.Name" xml:space="preserve">
<value>RibbonPageGroupFilesystem</value> <value>RibbonPageGroupFilesystem</value>
</data> </data>
@ -1287,46 +1041,40 @@
<data name="&gt;&gt;RibbonPageGroup_Navigation.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup_Navigation.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup9.Name" xml:space="preserve">
<value>RibbonPageGroup9</value>
</data>
<data name="&gt;&gt;RibbonPageGroup9.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupExport.Name" xml:space="preserve">
<value>RibbonPageGroupExport</value>
</data>
<data name="&gt;&gt;RibbonPageGroupExport.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup5.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup5.Name" xml:space="preserve">
<value>RibbonPageGroup5</value> <value>RibbonPageGroup5</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageExport.Name" xml:space="preserve">
<value>RibbonPageExport</value>
</data>
<data name="&gt;&gt;RibbonPageExport.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
<value>RibbonPageGroup2</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup_Layout.Name" xml:space="preserve">
<value>RibbonPageGroup_Layout</value>
</data>
<data name="&gt;&gt;RibbonPageGroup_Layout.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value> <value>RibbonPageGroup1</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup9.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup_Layout.Name" xml:space="preserve">
<value>RibbonPageGroup9</value> <value>RibbonPageGroup_Layout</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup9.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup_Layout.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RepositoryItemTextEdit1.Name" xml:space="preserve"> <data name="&gt;&gt;RepositoryItemTextEdit1.Name" xml:space="preserve">
@ -1395,6 +1143,276 @@
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Dokument</value>
</data>
<data name="RibbonPageGroupFilesystem.Text" xml:space="preserve">
<value>Dateien und Ordner</value>
</data>
<data name="RibbonPage4.Text" xml:space="preserve">
<value>Aktionen 1</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Workflow</value>
</data>
<data name="RibbonPageGroup8.Text" xml:space="preserve">
<value>Bearbeiten</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Aktionen 2</value>
</data>
<data name="RibbonPageCategoryFile.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="RibbonPageGroup_Navigation.Text" xml:space="preserve">
<value>Navigation</value>
</data>
<data name="RibbonPageGroup9.Text" xml:space="preserve">
<value>Tabellen Einstellungen</value>
</data>
<data name="RibbonPageGroupExport.Text" xml:space="preserve">
<value>Export</value>
</data>
<data name="RibbonPageGroup5.Text" xml:space="preserve">
<value>Aktualisieren</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="RibbonPageGroup_Layout.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RepositoryItemTextEdit1.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemTextEdit2.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RibbonControl.Size" type="System.Drawing.Size, System.Drawing">
<value>1189, 158</value>
</data>
<data name="&gt;&gt;RibbonControl.Name" xml:space="preserve">
<value>RibbonControl</value>
</data>
<data name="&gt;&gt;RibbonControl.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonControl.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;RibbonControl.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>568, 460</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="SplitContainerControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridBand2.AppearanceHeader.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt, style=Bold</value>
</data>
<data name="GridBand2.Caption" xml:space="preserve">
<value>GridBand2</value>
</data>
<data name="GridBand2.Name" xml:space="preserve">
<value>GridBand2</value>
</data>
<data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl2.Name" xml:space="preserve">
<value>GridControl2</value>
</data>
<data name="&gt;&gt;GridControl2.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl2.Parent" xml:space="preserve">
<value>SplitContainerControl2.Panel1</value>
</data>
<data name="&gt;&gt;GridControl2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Name" xml:space="preserve">
<value>SplitContainerControl2.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.Parent" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="GridControl3.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControl3.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridBand3.AppearanceHeader.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt, style=Bold</value>
</data>
<data name="GridBand3.Caption" xml:space="preserve">
<value>GridBand3</value>
</data>
<data name="GridBand3.Name" xml:space="preserve">
<value>GridBand3</value>
</data>
<data name="GridControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl3.Name" xml:space="preserve">
<value>GridControl3</value>
</data>
<data name="&gt;&gt;GridControl3.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl3.Parent" xml:space="preserve">
<value>SplitContainerControl2.Panel2</value>
</data>
<data name="&gt;&gt;GridControl3.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl2.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Name" xml:space="preserve">
<value>SplitContainerControl2.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.Parent" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="SplitContainerControl2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="SplitContainerControl2.Text" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Name" xml:space="preserve">
<value>SplitContainerControl2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>578, 460</value>
</data>
<data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="SplitContainerControl1.Text" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Name" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Parent" xml:space="preserve">
<value>DockPanel2_Container</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="XtraSaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>12, 27</value>
</metadata>
<data name="RibbonPageGroup6.Text" xml:space="preserve">
<value>RibbonPageGroup6</value>
</data>
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>155, 22</value>
</metadata>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>290, 22</value> <value>290, 22</value>
</metadata> </metadata>

300
GUIs.Common/frmDocumentResultList.vb
View File

@ -25,61 +25,52 @@ Imports DigitalData.GUIs.Common.Base
Public Class frmDocumentResultList Public Class frmDocumentResultList
Implements IResultForm, IBaseForm Implements IResultForm, IBaseForm
' These are NOT constants, only defaults
' Can be changed when calling frmDocumentResultList
Private ReadOnly COLUMN_FILEPATH As String = "FULL_FILENAME"
Private ReadOnly COLUMN_FILENAME As String = "Filename"
Private ReadOnly COLUMN_DOCID As String = "DocID"
Private ReadOnly COLUMN_ICON As String = "ICON"
' Constants ' Constants
Private Const OPEN_FILE As String = "Datei öffnen"
Private Const OPEN_DIRECTORY As String = "Ordner öffnen"
Private Const COPY_FILE_PATH As String = "Dateipfad kopieren"
Private Const COPY_FOLDER_PATH As String = "Ordnerpfad kopieren"
Private Const OPEN_PROPERTIES As String = "Eigenschaften"
Private Const FILE_OPEN_TIMER_INTERVAL As Integer = 500 Private Const FILE_OPEN_TIMER_INTERVAL As Integer = 500
Private Const SaveWindowLocationAndSize As Integer = 1
' Interface implementations
Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm
' Helper Classes ' Helper Classes
Private _IDBClient As Client Private Client As Client
Private Documentloader As DocumentResultList.Loader
Private ControlManager As AttributeControls
Private ReadOnly Config As ConfigManager(Of DocumentResultList.Config) Private ReadOnly Config As ConfigManager(Of DocumentResultList.Config)
Private ReadOnly Environment As Environment Private ReadOnly Environment As Environment
Private ReadOnly Filesystem As Modules.Filesystem.File Private ReadOnly Filesystem As Modules.Filesystem.File
Private ReadOnly GridBuilder As GridBuilder Private ReadOnly GridBuilder As GridBuilder
Private ReadOnly FileEx As Modules.Windows.File Private ReadOnly FileEx As Modules.Windows.File
Private ReadOnly Helpers As DocumentResultList.Helpers Private ReadOnly Helpers As DocumentResultList.Helpers
Private ReadOnly Params As DocumentResultList.Params Private ReadOnly Params As DocumentResultList.Params
Private ReadOnly LayoutManager As DocumentResultList.Layout Private ReadOnly LayoutManager As DocumentResultList.Layout
Private WithEvents Watcher As DocumentResultList.Watcher Private WithEvents Watcher As DocumentResultList.Watcher
Private ControlManager As AttributeControls
Private Documentloader As DocumentResultList.Loader
' Runtime variables ' Runtime variables
Private Property ResultLists As List(Of DocumentResultList.DocumentResult) Private Property ResultLists As List(Of DocumentResultList.DocumentResult)
Private _IsLoading As Boolean = True Private IsLoading As Boolean = True
Private _DragBoxFromMouseDown As Rectangle Private _DragBoxFromMouseDown As Rectangle
Private _ScreenOffset As Point Private _ScreenOffset As Point
Private _CurrentDocument As DocumentResultList.Document = Nothing Private _CurrentDocument As DocumentResultList.Document = Nothing
Private ReadOnly _FileOpenList As New Dictionary(Of Integer, String) Private ReadOnly UserLanguage As String
Private ReadOnly _Language As String
Private ReadOnly ColumnFilepath As String = "FULL_FILENAME"
Private ReadOnly ColumnFilename As String = "Filename"
Private ReadOnly ColumnDocumentId As String = "DocID"
Private ReadOnly ColumnIcon As String = "ICON"
Private Property _ActiveGrid As GridControl = Nothing Private Property _ActiveGrid As GridControl = Nothing
Private Property _ActiveGridBand As GridBand = Nothing Private Property _ActiveGridBand As GridBand = Nothing
Private Property GridList As List(Of GridControl) Private Property GridList As List(Of GridControl)
Private Property ViewList As List(Of BandedGridView) Private Property ViewList As List(Of BandedGridView)
Private Property OperationMode As OperationMode Implements IResultForm.OperationMode Private Property OperationMode As OperationMode Implements IResultForm.OperationMode
Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm
Public Event NeedsRefresh As EventHandler(Of Integer) Implements IResultForm.NeedsRefresh Public Event NeedsRefresh As EventHandler(Of Integer) Implements IResultForm.NeedsRefresh
Public Event ResultsRefreshed As EventHandler(Of List(Of DocumentResultList.DocumentResult)) Public Event ResultsRefreshed As EventHandler(Of List(Of DocumentResultList.DocumentResult))
@ -94,10 +85,10 @@ Public Class frmDocumentResultList
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "ResultList", pParams.WindowGuid) Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "ResultList", pParams.WindowGuid)
COLUMN_DOCID = pParams.ColumnNames.ObjectIdColumn ColumnDocumentId = pParams.ColumnNames.ObjectIdColumn
COLUMN_FILENAME = pParams.ColumnNames.FilenameColumn ColumnFilename = pParams.ColumnNames.FilenameColumn
COLUMN_FILEPATH = pParams.ColumnNames.FullPathColumn ColumnFilepath = pParams.ColumnNames.FullPathColumn
COLUMN_ICON = pParams.ColumnNames.IconColumn ColumnIcon = pParams.ColumnNames.IconColumn
LogConfig = pLogConfig LogConfig = pLogConfig
Logger = pLogConfig.GetLogger() Logger = pLogConfig.GetLogger()
@ -115,7 +106,7 @@ Public Class frmDocumentResultList
Watcher = New DocumentResultList.Watcher(pLogConfig) Watcher = New DocumentResultList.Watcher(pLogConfig)
LayoutManager = New DocumentResultList.Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3}) LayoutManager = New DocumentResultList.Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3})
_Language = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US) UserLanguage = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US)
End Sub End Sub
Private Function GetOperationMode() As OperationMode Private Function GetOperationMode() As OperationMode
@ -144,19 +135,20 @@ Public Class frmDocumentResultList
End If End If
Documentloader = New DocumentResultList.Loader(LogConfig, OperationMode, _IDBClient, Environment.User) Documentloader = New DocumentResultList.Loader(LogConfig, OperationMode, Client, Environment.User)
If Params.WindowTitle <> "" Then If Params.WindowTitle <> "" Then
Text = $"{Text} - {Params.WindowTitle}" Text = $"{Text} - {Params.WindowTitle}"
End If End If
' Initialize Viewer with GDPicture.NET License ' Initialize Viewer with GDPicture.NET License
If Environment.Settings.GdPictureKey = String.Empty Then If Environment.Settings.GdPictureKey <> String.Empty Then
Throw New ApplicationException("GDPicture Licensekey is missing!") DocumentViewer1.Init(LogConfig, Environment.Settings.GdPictureKey)
End If End If
DocumentViewer1.Init(LogConfig, Environment.Settings.GdPictureKey)
'Load config 'Load config
LayoutManager.LoadWindowLocationAndSize(Me)
LayoutManager.DockManager_RestoreLayout(DockManager1)
SplitContainerControl1.SplitterPosition = Config.Config.SplitContainer1Distance SplitContainerControl1.SplitterPosition = Config.Config.SplitContainer1Distance
SwitchMainContainerHorizontal.Checked = Config.Config.SplitContainer1Horizontal SwitchMainContainerHorizontal.Checked = Config.Config.SplitContainer1Horizontal
SplitContainerControl2.SplitterPosition = Config.Config.SplitContainer2Distance SplitContainerControl2.SplitterPosition = Config.Config.SplitContainer2Distance
@ -174,32 +166,16 @@ Public Class frmDocumentResultList
End If End If
If OperationMode <> OperationMode.NoAppServer Then If OperationMode <> OperationMode.NoAppServer Then
' Location and size will be managed by the ZooFlow Search Window CtrlObjectPropertyDialog.Initialize(LogConfig, Me, Client, Environment)
If Utils.IsVisibleOnAnyScreen(Config.Config.WindowLocation) Then
If Utils.LocationIsVisible(Config.Config.WindowLocation) Then
Location = Config.Config.WindowLocation
End If
If Utils.SizeIsVisible(Config.Config.WindowSize) Then
Size = Config.Config.WindowSize
End If
End If
CtrlObjectPropertyDialog.Initialize(LogConfig, Me, _IDBClient, Environment)
SwitchMainContainerHorizontal.Visibility = BarItemVisibility.Never SwitchMainContainerHorizontal.Visibility = BarItemVisibility.Never
SwitchDetailContainerHorizontal.Visibility = BarItemVisibility.Never SwitchDetailContainerHorizontal.Visibility = BarItemVisibility.Never
End If End If
GridBuilder.WithReadOnlyOptions()
AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
UpdateTotalResults() UpdateTotalResults()
UpdateGridData() LoadGridDataAndLayout()
LayoutManager.DockManager_RestoreLayout(DockManager1) GridBuilder.WithReadOnlyOptions()
chkGridShowQuickfilter.Checked = LayoutManager.GetFilterRowVisible() chkGridShowQuickfilter.Checked = LayoutManager.GetFilterRowVisible()
chkGridShowGrouping.Checked = LayoutManager.GetGroupPanelVisible() chkGridShowGrouping.Checked = LayoutManager.GetGroupPanelVisible()
@ -209,7 +185,7 @@ Public Class frmDocumentResultList
ErrorHandler.ShowErrorMessage(ex, "Error while loading results", "Form Load") ErrorHandler.ShowErrorMessage(ex, "Error while loading results", "Form Load")
Finally Finally
_IsLoading = False IsLoading = False
End Try End Try
End Sub End Sub
@ -218,10 +194,7 @@ Public Class frmDocumentResultList
Try Try
LayoutManager.GridView_SaveLayout(_ActiveGrid.MainView) LayoutManager.GridView_SaveLayout(_ActiveGrid.MainView)
LayoutManager.DockManager_SaveLayout(DockManager1) LayoutManager.DockManager_SaveLayout(DockManager1)
LayoutManager.SaveWindowLocationAndSize(Me)
Config.Config.WindowLocation = Location
Config.Config.WindowSize = Size
Config.Save()
DocumentViewer1.Done() DocumentViewer1.Done()
Catch ex As Exception Catch ex As Exception
@ -229,7 +202,7 @@ Public Class frmDocumentResultList
End Try End Try
End Sub End Sub
Private Async Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Private Async Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged, GridView2.FocusedRowChanged, GridView3.FocusedRowChanged
Helpers.SetRowHandle(e) Helpers.SetRowHandle(e)
Try Try
@ -237,52 +210,48 @@ Public Class frmDocumentResultList
If e.FocusedRowHandle >= 0 Then If e.FocusedRowHandle >= 0 Then
Dim oRow = sender.GetDataRow(Helpers.ActiveRowHandle) Dim oRow = sender.GetDataRow(Helpers.ActiveRowHandle)
Dim oObjectId = oRow.ItemEx(Of Long)(COLUMN_DOCID, 0) Dim oObjectId = oRow.ItemEx(Of Long)(ColumnDocumentId, 0)
Dim oFullPath = oRow.ItemEx(Of String)(COLUMN_FILEPATH, "") Dim oFullPath = oRow.ItemEx(ColumnFilepath, "")
Dim oDocumentInfo As DocumentResultList.Document = Nothing Dim oDocumentInfo As DocumentResultList.Document = Nothing
DocumentViewer1.CloseDocument() ' Show Ribbon Category
RibbonPageCategoryFile.Visible = True
' Load DocumentInfo
oDocumentInfo = Documentloader.Load(oObjectId, oFullPath) oDocumentInfo = Documentloader.Load(oObjectId, oFullPath)
' Check DocumentInfo
If IsNothing(oDocumentInfo) Then If IsNothing(oDocumentInfo) Then
DocumentViewer1.CloseDocument()
ErrorHandler.ShowErrorMessage("File could not be loaded!") ErrorHandler.ShowErrorMessage("File could not be loaded!")
Exit Sub Exit Sub
End If End If
Dim oFileName = $"{oObjectId}.{oDocumentInfo.Extension}" ' Save reference to current document
DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocumentInfo.Contents))
' Save reference to current
_CurrentDocument = oDocumentInfo _CurrentDocument = oDocumentInfo
' Load Document in Document Viewer
Dim oFileName = $"{oObjectId}.{oDocumentInfo.Extension}"
DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocumentInfo.Contents))
' Hide Export and filesystem options for view only right ' Hide Export and filesystem options for view only right
If oDocumentInfo.AccessRight = Rights.AccessRight.VIEW_ONLY Then If oDocumentInfo.AccessRight = Rights.AccessRight.VIEW_ONLY Then
DocumentViewer1.SetViewOnly(True) DocumentViewer1.SetViewOnly(True)
RibbonPageExport.Visible = False RibbonPageGroupExport.Visible = False
RibbonPageGroupFilesystem.Visible = False RibbonPageGroupFilesystem.Visible = False
Else Else
DocumentViewer1.SetViewOnly(False) DocumentViewer1.SetViewOnly(False)
RibbonPageExport.Visible = True RibbonPageGroupExport.Visible = True
RibbonPageGroupFilesystem.Visible = True RibbonPageGroupFilesystem.Visible = True
End If End If
If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
Dim oEntityId = 1 'Dim oEntityId = 1
Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(oEntityId) 'Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(oEntityId)
'If oAttributes.Count = 0 Then
If oAttributes.Count = 0 Then ' MsgBox($"Es konnten keine Attribute für das Objekt '{oObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
MsgBox($"Es konnten keine Attribute für das Objekt '{oObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) 'End If
End If
Await CtrlObjectPropertyDialog.LoadObject(oObjectId) Await CtrlObjectPropertyDialog.LoadObject(oObjectId)
'Await ControlManager.LoadControlsForAttributes(oObjectId, oAttributes, RootMetadata)
End If End If
RibbonPageCategoryFile.Visible = True
Else Else
RibbonPageCategoryFile.Visible = False RibbonPageCategoryFile.Visible = False
End If End If
@ -296,7 +265,7 @@ Public Class frmDocumentResultList
#Region "Watcher" #Region "Watcher"
Public Async Sub Watcher_FileOpened(sender As Object, e As DocumentResultList.Watcher.FileOpenedArgs) Handles Watcher.FileOpened Public Async Sub Watcher_FileOpened(sender As Object, e As DocumentResultList.Watcher.FileOpenedArgs) Handles Watcher.FileOpened
Await _IDBClient.SetObjectStateAsync(e.File.Document.Id, OBJECT_STATE_FILE_OPENED, New Options.SetObjectStateOptions With { Await Client.SetObjectStateAsync(e.File.Document.Id, OBJECT_STATE_FILE_OPENED, New Options.SetObjectStateOptions With {
.Language = Environment.User.Language, .Language = Environment.User.Language,
.Username = Environment.User.UserName .Username = Environment.User.UserName
}) })
@ -308,7 +277,7 @@ Public Class frmDocumentResultList
Dim oDoctype As GlobalStateDoctype = Nothing Dim oDoctype As GlobalStateDoctype = Nothing
If e.File.Document.DocumentType IsNot Nothing Then If e.File.Document.DocumentType IsNot Nothing Then
oDoctype = _IDBClient.ClientConfig.DocumentTypes. oDoctype = Client.ClientConfig.DocumentTypes.
Where(Function(doctype) doctype.Name = e.File.Document.DocumentType). Where(Function(doctype) doctype.Name = e.File.Document.DocumentType).
FirstOrDefault() FirstOrDefault()
End If End If
@ -346,7 +315,7 @@ Public Class frmDocumentResultList
Private Async Function Watcher_OverwriteFile(pFile As DocumentResultList.Watcher.OpenFile) As Task Private Async Function Watcher_OverwriteFile(pFile As DocumentResultList.Watcher.OpenFile) As Task
Await Watcher_UpdateFile(pFile, pCreateNewVersion:=False) Await Watcher_UpdateFile(pFile, pCreateNewVersion:=False)
Await _IDBClient.SetObjectStateAsync(pFile.Document.Id, OBJECT_STATE_FILE_CHANGED, New Options.SetObjectStateOptions With { Await Client.SetObjectStateAsync(pFile.Document.Id, OBJECT_STATE_FILE_CHANGED, New Options.SetObjectStateOptions With {
.Language = Environment.User.Language, .Language = Environment.User.Language,
.Username = Environment.User.UserName .Username = Environment.User.UserName
}) })
@ -354,7 +323,7 @@ Public Class frmDocumentResultList
Private Async Function Watcher_VersionFile(pFile As DocumentResultList.Watcher.OpenFile) As Task Private Async Function Watcher_VersionFile(pFile As DocumentResultList.Watcher.OpenFile) As Task
Await Watcher_UpdateFile(pFile, pCreateNewVersion:=True) Await Watcher_UpdateFile(pFile, pCreateNewVersion:=True)
Await _IDBClient.SetObjectStateAsync(pFile.Document.Id, OBJECT_STATE_FILE_VERSIONED, New Options.SetObjectStateOptions With { Await Client.SetObjectStateAsync(pFile.Document.Id, OBJECT_STATE_FILE_VERSIONED, New Options.SetObjectStateOptions With {
.Language = Environment.User.Language, .Language = Environment.User.Language,
.Username = Environment.User.UserName .Username = Environment.User.UserName
}) })
@ -363,7 +332,7 @@ Public Class frmDocumentResultList
Private Async Function Watcher_UpdateFile(pFile As DocumentResultList.Watcher.OpenFile, pCreateNewVersion As Boolean) As Task Private Async Function Watcher_UpdateFile(pFile As DocumentResultList.Watcher.OpenFile, pCreateNewVersion As Boolean) As Task
Dim oFileInfo As New FileInfo(pFile.FilePath) Dim oFileInfo As New FileInfo(pFile.FilePath)
Dim oDisplayName As String = pFile.Document.DisplayFileName Dim oDisplayName As String = pFile.Document.DisplayFileName
Dim oObjectId = Await _IDBClient.UpdateFileAsync(pFile.Document.Id, pFile.FilePath, New Options.UpdateFileOptions With { Dim oObjectId = Await Client.UpdateFileAsync(pFile.Document.Id, pFile.FilePath, New Options.UpdateFileOptions With {
.CreateNewFileVersion = pCreateNewVersion, .CreateNewFileVersion = pCreateNewVersion,
.Language = Environment.User.Language, .Language = Environment.User.Language,
.Username = Environment.User.UserName .Username = Environment.User.UserName
@ -401,17 +370,15 @@ Public Class frmDocumentResultList
End Function End Function
#End Region #End Region
Private Function InitAppServer() As Boolean Private Function InitAppServer() As Boolean
Dim oSplit As List(Of String) = Environment.Service.Address.Split(":").ToList() Dim oSplit As List(Of String) = Environment.Service.Address.Split(":").ToList()
Dim oAddress As String = oSplit.Item(0) Dim oAddress As String = oSplit.Item(0)
Dim oPort As Integer = oSplit.Item(1) Dim oPort As Integer = oSplit.Item(1)
_IDBClient = New Client(LogConfig, oAddress, oPort) Client = New Client(LogConfig, oAddress, oPort)
ControlManager = New AttributeControls(LogConfig, Environment, _IDBClient) ControlManager = New AttributeControls(LogConfig, Environment, Client)
If Not _IDBClient.Connect() Then If Not Client.Connect() Then
Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address) Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address)
Return False Return False
End If End If
@ -427,7 +394,7 @@ Public Class frmDocumentResultList
Dim oDelegate As New RefreshResultsDelegate(AddressOf RefreshResults) Dim oDelegate As New RefreshResultsDelegate(AddressOf RefreshResults)
Return GridControl1.Invoke(oDelegate, pResults) Return GridControl1.Invoke(oDelegate, pResults)
Else Else
_IsLoading = True IsLoading = True
Try Try
' Save the new results ' Save the new results
ResultLists = pResults ResultLists = pResults
@ -437,7 +404,7 @@ Public Class frmDocumentResultList
' Update the grid ' Update the grid
UpdateTotalResults() UpdateTotalResults()
UpdateGridData() LoadGridDataAndLayout()
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -446,18 +413,18 @@ Public Class frmDocumentResultList
MessageBox.Show("Error while refreshing results:" & vbNewLine & vbNewLine & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show("Error while refreshing results:" & vbNewLine & vbNewLine & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False Return False
Finally Finally
_IsLoading = False IsLoading = False
End Try End Try
End If End If
End Function End Function
Private Sub LoadGridData(View As GridView, Result As DocumentResultList.DocumentResult) Private Sub LoadGridData(View As GridView, Result As DocumentResultList.DocumentResult)
If Result.Datatable.Columns.Contains(COLUMN_DOCID) = False Then If Result.Datatable.Columns.Contains(ColumnDocumentId) = False Then
Throw New ApplicationException($"Datatable is missing DocId Column [{COLUMN_DOCID}] for search {Result.Title}!") Throw New ApplicationException($"Datatable is missing DocId Column [{ColumnDocumentId}] for search {Result.Title}!")
End If End If
If OperationMode = OperationMode.NoAppServer And Result.Datatable.Columns.Contains(COLUMN_FILEPATH) = False Then If OperationMode = OperationMode.NoAppServer And Result.Datatable.Columns.Contains(ColumnFilepath) = False Then
Throw New ApplicationException($"Datatable is missing Filepath Column [{COLUMN_FILEPATH}] for search {Result.Title}!") Throw New ApplicationException($"Datatable is missing Filepath Column [{ColumnFilepath}] for search {Result.Title}!")
End If End If
SetGridDataSource(View, Result.Datatable) SetGridDataSource(View, Result.Datatable)
@ -478,7 +445,7 @@ Public Class frmDocumentResultList
End Try End Try
End Sub End Sub
Private Sub UpdateGridData() Private Sub LoadGridDataAndLayout()
' Load Grids ' Load Grids
For oIndex = 0 To ResultLists.Count - 1 For oIndex = 0 To ResultLists.Count - 1
Select Case oIndex Select Case oIndex
@ -486,24 +453,24 @@ Public Class frmDocumentResultList
Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(0) Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(0)
LoadGridData(GridView1, oResult) LoadGridData(GridView1, oResult)
CreateDocumentGrid(GridView1, oResult)
LayoutManager.GridView_RestoreLayout(GridView1) LayoutManager.GridView_RestoreLayout(GridView1)
CreateDocumentGrid(GridView1, oResult)
UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
Case 1 Case 1
Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(1) Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(1)
LoadGridData(GridView2, oResult) LoadGridData(GridView2, oResult)
CreateDocumentGrid(GridView2, oResult)
LayoutManager.GridView_RestoreLayout(GridView2) LayoutManager.GridView_RestoreLayout(GridView2)
CreateDocumentGrid(GridView2, oResult)
UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
Case 2 Case 2
Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(2) Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(2)
LoadGridData(GridView3, oResult) LoadGridData(GridView3, oResult)
CreateDocumentGrid(GridView3, oResult)
LayoutManager.GridView_RestoreLayout(GridView3) LayoutManager.GridView_RestoreLayout(GridView3)
CreateDocumentGrid(GridView3, oResult)
UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count) UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
Case Else Case Else
@ -569,8 +536,8 @@ Public Class frmDocumentResultList
Private Sub CreateDocumentGrid(GridView As BandedGridView, Result As DocumentResultList.DocumentResult) Private Sub CreateDocumentGrid(GridView As BandedGridView, Result As DocumentResultList.DocumentResult)
Try Try
If IsNothing(GridView.Columns(COLUMN_ICON)) Then If IsNothing(GridView.Columns(ColumnIcon)) Then
Dim oIconColumn = GridView.Columns.AddVisible(COLUMN_ICON, COLUMN_ICON) Dim oIconColumn = GridView.Columns.AddVisible(ColumnIcon, ColumnIcon)
With oIconColumn With oIconColumn
.OptionsColumn.AllowSort = False .OptionsColumn.AllowSort = False
.OptionsColumn.AllowSize = False .OptionsColumn.AllowSize = False
@ -586,55 +553,61 @@ Public Class frmDocumentResultList
oFirstBand.Columns.MoveTo(0, oIconColumn) oFirstBand.Columns.MoveTo(0, oIconColumn)
End If End If
Dim oCreated, oChanged As String
If _Language = State.UserState.LANG_DE_DE Then
oChanged = "Geändert"
oCreated = "Erstellt"
Else
oCreated = "Created"
oChanged = "Changed"
End If
Dim oColumnsToHide As New List(Of String) From { Dim oColumnsToHide As New List(Of String) From {
oCreated, oChanged, COLUMN_DOCID, COLUMN_FILEPATH, ColumnDocumentId,
"CREATED_WHEN", "CREATED_WHO", "ADDED_WHEN", "ADDED_WHO" ColumnFilepath,
ColumnFilename,
ColumnIcon,
"ADDED_WHEN", "ADDED_WHO", "CHANGED_WHEN", "CHANGED_WHO",
"Added when", "Added who", "Changed when", "Changed who"
} }
For Each oFieldName As String In oColumnsToHide For Each oFieldName As String In oColumnsToHide
Try Try
Dim oColumn = GridView.Columns(oFieldName) Dim oColumn = GridView.Columns.
Where(Function(column) column.FieldName.ToUpper.Equals(oFieldName.ToUpper)).
FirstOrDefault()
If oColumn IsNot Nothing Then If oColumn IsNot Nothing Then
oColumn.Visible = False oColumn.VisibleIndex = -1
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
Next Next
Try 'Dim oCreated, oChanged As String
Dim oFilePathColumn As GridColumn = GridView.Columns(COLUMN_FILEPATH) 'If UserLanguage = State.UserState.LANG_DE_DE Then
If Not IsNothing(oFilePathColumn) Then ' oChanged = "Geändert"
' Hide Fullpath column completely in AppServer-Mode ' oCreated = "Erstellt"
If OperationMode = OperationMode.WithAppServer Then 'Else
oFilePathColumn.OptionsColumn.ShowInCustomizationForm = False ' oCreated = "Created"
End If ' oChanged = "Changed"
End If 'End If
'Try
' Dim oFilePathColumn As GridColumn = GridView.Columns(ColumnFilepath)
' If Not IsNothing(oFilePathColumn) Then
' ' Hide Fullpath column completely in AppServer-Mode
' If OperationMode = OperationMode.WithAppServer Then
' oFilePathColumn.OptionsColumn.ShowInCustomizationForm = False
' End If
' End If
'Dim oCreatedColumn = GridView.Columns(oCreated) ' 'Dim oCreatedColumn = GridView.Columns(oCreated)
'If Not IsNothing(oCreatedColumn) Then ' 'If Not IsNothing(oCreatedColumn) Then
' oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime ' ' oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
' oCreatedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss" ' ' oCreatedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
'End If ' 'End If
'Dim oChangedColumn = GridView.Columns(oChanged) ' 'Dim oChangedColumn = GridView.Columns(oChanged)
'If Not IsNothing(oChangedColumn) Then ' 'If Not IsNothing(oChangedColumn) Then
' oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime ' ' oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
' oChangedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss" ' ' oChangedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
'End If ' 'End If
Catch ex As Exception 'Catch ex As Exception
Logger.Error(ex) ' Logger.Error(ex)
End Try 'End Try
GridView.OptionsView.BestFitMaxRowCount = 10 GridView.OptionsView.BestFitMaxRowCount = 5
GridView.BestFitColumns() GridView.BestFitColumns()
Catch ex As ApplicationException Catch ex As ApplicationException
MsgBox($"Error while loading grid data for search {Result.Title}: {vbNewLine}{vbNewLine}{ex.Message}", MsgBoxStyle.Critical, Text) MsgBox($"Error while loading grid data for search {Result.Title}: {vbNewLine}{vbNewLine}{ex.Message}", MsgBoxStyle.Critical, Text)
@ -698,7 +671,7 @@ Public Class frmDocumentResultList
End If End If
Else Else
If _Language = State.UserState.LANG_DE_DE Then If UserLanguage = State.UserState.LANG_DE_DE Then
MessageBox.Show("Bitte wählen Sie eine Tabelle aus, die Sie exportieren möchten", Text, MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("Bitte wählen Sie eine Tabelle aus, die Sie exportieren möchten", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Else Else
MessageBox.Show("Please select a table that you want to export", Text, MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("Please select a table that you want to export", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
@ -783,7 +756,7 @@ Public Class frmDocumentResultList
If IO.File.Exists(oFile) Then If IO.File.Exists(oFile) Then
IO.File.Delete(oFile) IO.File.Delete(oFile)
End If End If
UpdateGridData() LoadGridDataAndLayout()
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
End Try End Try
@ -803,31 +776,19 @@ Public Class frmDocumentResultList
End If End If
End Function End Function
Private Function TestDirectoryExists(pDirectory As String, pTitle As String) As Boolean Private Function TestDirectoryExists(pDirectory As String) As Boolean
If _CurrentDocument Is Nothing Then If _CurrentDocument Is Nothing Then
Return False Return False
End If End If
If Directory.Exists(pDirectory) = False Then If Directory.Exists(pDirectory) = False Then
MessageBox.Show($"Ordner {pDirectory} existiert nicht oder wurde verschoben!", pTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) MessageBox.Show($"Ordner {pDirectory} existiert nicht oder wurde verschoben!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False Return False
Else Else
Return True Return True
End If End If
End Function End Function
Private Function TestObjectIdExists(pObjectId As Long, pTitle As String) As Boolean
If pObjectId = 0 Then
MessageBox.Show($"Objekt {pObjectId} existiert nicht oder wurde verschoben!", pTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
Else
Return True
End If
End Function
#Region "File Actions" #Region "File Actions"
Private Sub MenuItem_OpenProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesECM.ItemClick Private Sub MenuItem_OpenProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesECM.ItemClick
If _CurrentDocument Is Nothing Then If _CurrentDocument Is Nothing Then
@ -839,7 +800,7 @@ Public Class frmDocumentResultList
FileEx.OpenFileProperties(_CurrentDocument.FullPath) FileEx.OpenFileProperties(_CurrentDocument.FullPath)
Case Else Case Else
Dim oPropertyDialog As New frmObjectPropertyDialog(LogConfig, Environment, _IDBClient, _CurrentDocument.Id) Dim oPropertyDialog As New frmObjectPropertyDialog(LogConfig, Environment, Client, _CurrentDocument.Id)
oPropertyDialog.Show() oPropertyDialog.Show()
End Select End Select
End Sub End Sub
@ -850,7 +811,12 @@ Public Class frmDocumentResultList
End Sub End Sub
Private Sub MenuItem_CopyFilepath_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick Private Sub MenuItem_CopyFilepath_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick
Clipboard.SetText(_CurrentDocument.FullPath) If _CurrentDocument IsNot Nothing Then
Dim oPath = Utils.NotNull(_CurrentDocument.FullPath, "")
If oPath <> String.Empty Then
Clipboard.SetText(oPath)
End If
End If
End Sub End Sub
Private Async Sub MenuItem_OpenFile_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFileOpen.ItemClick Private Async Sub MenuItem_OpenFile_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFileOpen.ItemClick
@ -864,7 +830,7 @@ Public Class frmDocumentResultList
Private Sub MenuItem_FolderOpen_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFolderOpen.ItemClick Private Sub MenuItem_FolderOpen_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFolderOpen.ItemClick
Dim oFolderPath = Path.GetDirectoryName(_CurrentDocument.FullPath) Dim oFolderPath = Path.GetDirectoryName(_CurrentDocument.FullPath)
If TestDirectoryExists(oFolderPath, OPEN_DIRECTORY) = False Then If TestDirectoryExists(oFolderPath) = False Then
Exit Sub Exit Sub
End If End If
@ -918,13 +884,13 @@ Public Class frmDocumentResultList
#End Region #End Region
#Region "Layout" #Region "Layout"
Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged
If _IsLoading = False Then If IsLoading = False Then
Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition
End If End If
End Sub End Sub
Private Sub SplitContainerControl2_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl2.SplitterPositionChanged Private Sub SplitContainerControl2_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl2.SplitterPositionChanged
If _IsLoading = False Then If IsLoading = False Then
Config.Config.SplitContainer2Distance = SplitContainerControl2.SplitterPosition Config.Config.SplitContainer2Distance = SplitContainerControl2.SplitterPosition
End If End If
End Sub End Sub
@ -932,7 +898,7 @@ Public Class frmDocumentResultList
Private Sub SwitchMainContainerHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchMainContainerHorizontal.CheckedChanged Private Sub SwitchMainContainerHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchMainContainerHorizontal.CheckedChanged
SplitContainerControl1.Horizontal = SwitchMainContainerHorizontal.Checked SplitContainerControl1.Horizontal = SwitchMainContainerHorizontal.Checked
If Config IsNot Nothing And _IsLoading = False Then If Config IsNot Nothing And IsLoading = False Then
Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked
End If End If
End Sub End Sub
@ -940,7 +906,7 @@ Public Class frmDocumentResultList
Private Sub SwitchDetailContainerHorizontal2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged Private Sub SwitchDetailContainerHorizontal2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged
SplitContainerControl2.Horizontal = SwitchDetailContainerHorizontal.Checked SplitContainerControl2.Horizontal = SwitchDetailContainerHorizontal.Checked
If Config IsNot Nothing And _IsLoading = False Then If Config IsNot Nothing And IsLoading = False Then
Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked
End If End If
End Sub End Sub
@ -962,20 +928,28 @@ Public Class frmDocumentResultList
Private Sub chkGridShowGrouping_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowGrouping.CheckedChanged Private Sub chkGridShowGrouping_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowGrouping.CheckedChanged
If _IsLoading = False Then If IsLoading = False Then
LayoutManager.SetGroupPanelVisible(chkGridShowGrouping.Checked) LayoutManager.SetGroupPanelVisible(chkGridShowGrouping.Checked)
End If End If
End Sub End Sub
Private Sub chkGridShowQuickfilter_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowQuickfilter.CheckedChanged Private Sub chkGridShowQuickfilter_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowQuickfilter.CheckedChanged
If _IsLoading = False Then If IsLoading = False Then
LayoutManager.SetFilterRowVisible(chkGridShowQuickfilter.Checked) LayoutManager.SetFilterRowVisible(chkGridShowQuickfilter.Checked)
End If End If
End Sub End Sub
Private Sub chkGridShowTitle_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowTitle.CheckedChanged Private Sub chkGridShowTitle_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowTitle.CheckedChanged
If _IsLoading = False Then If IsLoading = False Then
LayoutManager.SetBandTitleVisible(chkGridShowTitle.Checked) LayoutManager.SetBandTitleVisible(chkGridShowTitle.Checked)
End If End If
End Sub End Sub
Private Async Sub MenuItemSaveProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemSaveProperties.ItemClick
Await CtrlObjectPropertyDialog.SaveChanges()
End Sub
Private Sub BarButtonItem11_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem11.ItemClick
GridView1.ShowCustomization()
End Sub
End Class End Class

11
GUIs.ZooFlow/Search/frmFlowSearch1.vb
View File

@ -247,10 +247,13 @@ Public Class frmFlowSearch1
Dim oSearchTerm = txtSearchInput.Text Dim oSearchTerm = txtSearchInput.Text
Dim oParams = New DocumentResultList.Params() With { Dim oParams = New DocumentResultList.Params() With {
.WindowGuid = "FlowSearch", .WindowGuid = "FlowSearch",
.WindowTitle = GetResultWindowString(oSearchTerm), .WindowTitle = GetResultWindowString(oSearchTerm),
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow, .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 354522 .ProfileGuid = 354522,
.ColumnNames = New DocumentResultList.ColumnNames With {
.ObjectIdColumn = "DocID"
}
} }
Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}" Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}"

6
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -182,6 +182,7 @@ Partial Class frmFlowForm
' '
Me.txtQuicksearch1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.txtQuicksearch1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtQuicksearch1.EditValue = ""
Me.txtQuicksearch1.Location = New System.Drawing.Point(21, 29) Me.txtQuicksearch1.Location = New System.Drawing.Point(21, 29)
Me.txtQuicksearch1.Name = "txtQuicksearch1" Me.txtQuicksearch1.Name = "txtQuicksearch1"
Me.txtQuicksearch1.Properties.Appearance.BackColor = System.Drawing.Color.LightGray Me.txtQuicksearch1.Properties.Appearance.BackColor = System.Drawing.Color.LightGray
@ -219,8 +220,6 @@ Partial Class frmFlowForm
' '
'Bar3 'Bar3
' '
Me.Bar3.BarAppearance.Normal.BackColor = System.Drawing.Color.White
Me.Bar3.BarAppearance.Normal.Options.UseBackColor = True
Me.Bar3.BarName = "Statusleiste" Me.Bar3.BarName = "Statusleiste"
Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom
Me.Bar3.DockCol = 0 Me.Bar3.DockCol = 0
@ -228,7 +227,6 @@ Partial Class frmFlowForm
Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
Me.Bar3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1)}) Me.Bar3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1)})
Me.Bar3.OptionsBar.AllowQuickCustomization = False Me.Bar3.OptionsBar.AllowQuickCustomization = False
Me.Bar3.OptionsBar.DrawBorder = False
Me.Bar3.OptionsBar.DrawDragBorder = False Me.Bar3.OptionsBar.DrawDragBorder = False
Me.Bar3.OptionsBar.UseWholeRow = True Me.Bar3.OptionsBar.UseWholeRow = True
Me.Bar3.Text = "Statusleiste" Me.Bar3.Text = "Statusleiste"
@ -254,7 +252,7 @@ Partial Class frmFlowForm
' '
Me.btnGlobixConfig.Caption = "Grundeinstellungen Globix" Me.btnGlobixConfig.Caption = "Grundeinstellungen Globix"
Me.btnGlobixConfig.Id = 10 Me.btnGlobixConfig.Id = 10
Me.btnGlobixConfig.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnGlobixConfig.ImageOptions.SvgImage = CType(resources.GetObject("btnGlobixConfig.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnGlobixConfig.Name = "btnGlobixConfig" Me.btnGlobixConfig.Name = "btnGlobixConfig"
' '
'btnServiceConfig 'btnServiceConfig

2
GUIs.ZooFlow/frmFlowForm.resx
View File

@ -1997,7 +1997,7 @@
DQogIDwvZz4NCjwvc3ZnPgs= DQogIDwvZz4NCjwvc3ZnPgs=
</value> </value>
</data> </data>
<data name="BarButtonItemGlobixGE.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnGlobixConfig.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl