diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb index 7526f329..2ba0f184 100644 --- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb +++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb @@ -362,10 +362,11 @@ Public Class frmDocumentResultList .Width = 20 .MaxWidth = 20 .MinWidth = 20 - .VisibleIndex = 0 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 Dim oCreated, oChanged As String @@ -514,7 +515,7 @@ Public Class frmDocumentResultList End Function Private Function GetDevexpressGrid_LayoutName(pGridView As GridView) 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 Private Function GetActiveGridControl() As GridControl If _ActiveGrid Is Nothing Then @@ -535,8 +536,10 @@ Public Class frmDocumentResultList End Sub Private Sub RestoreLayout(pGridView As GridView) Try - Dim oXml As String = GetDevexpressGrid_LayoutName(pGridView) - pGridView.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) + Dim oLayoutFile As String = GetDevexpressGrid_LayoutName(pGridView) + If File.Exists(oLayoutFile) Then + pGridView.RestoreLayoutFromXml(oLayoutFile, OptionsLayoutBase.FullLayout) + End If Catch ex As Exception _Logger.Error(ex) _Logger.Info("Error while restoring layout: " & ex.Message)