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

fix: icon column beijng at the end, layout file errors

Browse Source
This commit is contained in:
Jonathan Jenne 2021-02-08 16:30:25 +01:00
parent e5971a093f
commit 71ceb85b47
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,10 +362,11 @@ Public Class frmDocumentResultList
.Width = 20 .Width = 20
.MaxWidth = 20 .MaxWidth = 20
.MinWidth = 20 .MinWidth = 20
.VisibleIndex = 0
End With End With
GridView.Bands.First().Columns.Add(oIconColumn) Dim oFirstBand As GridBand = GridView.Bands.First()
oFirstBand.Columns.Add(oIconColumn)
oFirstBand.Columns.MoveTo(0, oIconColumn)
End If End If
Dim oCreated, oChanged As String Dim oCreated, oChanged As String
@ -514,7 +515,7 @@ Public Class frmDocumentResultList
End Function End Function
Private Function GetDevexpressGrid_LayoutName(pGridView As GridView) Private Function GetDevexpressGrid_LayoutName(pGridView As GridView)
Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml" Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml"
Return System.IO.Path.Combine(_Config.UserConfigPath.Replace("UserConfig.xml", ""), Filename) Return Path.Combine(_Config.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
End Function End Function
Private Function GetActiveGridControl() As GridControl Private Function GetActiveGridControl() As GridControl
If _ActiveGrid Is Nothing Then If _ActiveGrid Is Nothing Then
@ -535,8 +536,10 @@ Public Class frmDocumentResultList
End Sub End Sub
Private Sub RestoreLayout(pGridView As GridView) Private Sub RestoreLayout(pGridView As GridView)
Try Try
Dim oXml As String = GetDevexpressGrid_LayoutName(pGridView) Dim oLayoutFile As String = GetDevexpressGrid_LayoutName(pGridView)
pGridView.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) If File.Exists(oLayoutFile) Then
pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout)
End If
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
_Logger.Info("Error while restoring layout: " & ex.Message) _Logger.Info("Error while restoring layout: " & ex.Message)