AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2023-03-31 12:39:56 +02:00
parent 3cf60dfca3
commit b152c61270
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,6 +7,7 @@ Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language Imports DigitalData.Modules.Language
Imports DigitalData.Modules.ZooFlow
Namespace DocumentResultList Namespace DocumentResultList
Public Class Layout Public Class Layout
@ -14,11 +15,13 @@ Namespace DocumentResultList
Private ReadOnly Config As ConfigManager(Of Config) Private ReadOnly Config As ConfigManager(Of Config)
Private ReadOnly GridViews As List(Of GridView) Private ReadOnly GridViews As List(Of GridView)
Private ReadOnly Environment As Environment
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), pEnvironment As Environment)
MyBase.New(pLogConfig) MyBase.New(pLogConfig)
Config = pConfig Config = pConfig
GridViews = pGridViews GridViews = pGridViews
Environment = pEnvironment
End Sub End Sub
#Region "Saving and Restoring layout" #Region "Saving and Restoring layout"
@ -109,7 +112,7 @@ Namespace DocumentResultList
End Function End Function
Public Function GetGrid_LayoutName(pGridView As GridView) As String Public Function GetGrid_LayoutName(pGridView As GridView) As String
Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml" Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}_{Environment.User.Language}_UserLayout.xml"
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

2
GUIs.Common/DocumentResultList/frmDocumentResultList.vb
View File

@ -120,7 +120,7 @@ Public Class frmDocumentResultList
Filesystem = New Modules.Filesystem.File(pLogConfig) Filesystem = New Modules.Filesystem.File(pLogConfig)
GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3}) GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
FileEx = New Modules.Windows.File(pLogConfig) FileEx = New Modules.Windows.File(pLogConfig)
LayoutManager = New Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3}) LayoutManager = New Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3}, pEnvironment)
Workspace = New Workspace(Of Config)(pLogConfig, Config, WorkspaceManager1) Workspace = New Workspace(Of Config)(pLogConfig, Config, WorkspaceManager1)
UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US) UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)