diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index cf418cf..8a40b03 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -228,8 +228,8 @@ Public Class frmMain Return False End Try End Function - Private Function GetXML_LayoutName() - Dim Filename As String = String.Format("GridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE) + Private Function GetXML_OverviewLayoutName() + Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) End Function @@ -238,7 +238,7 @@ Public Class frmMain Exit Sub End If Try - Dim xml As String = GetXML_LayoutName() + Dim xml As String = GetXML_OverviewLayoutName() GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) Catch ex As Exception LOGGER.Error(ex) @@ -252,7 +252,7 @@ Public Class frmMain End If Try - Dim oXml As String = GetXML_LayoutName() + Dim oXml As String = GetXML_OverviewLayoutName() GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) Catch ex As Exception LOGGER.Error(ex) @@ -262,7 +262,7 @@ Public Class frmMain Private Sub ResetLayout() Try - Dim xml As String = GetXML_LayoutName() + Dim xml As String = GetXML_OverviewLayoutName() IO.File.Delete(xml) GridView_Docs.Columns.Clear() @@ -754,7 +754,7 @@ Public Class frmMain Next 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False - GridView_Docs.OptionsView.ShowGroupedColumns = False + 'GridView_Docs.OptionsView.ShowGroupedColumns = False Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) @@ -1238,8 +1238,8 @@ Public Class frmMain RestoreLayout() Try - GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False - GridView_Docs.OptionsView.ShowGroupedColumns = False + 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False + 'GridView_Docs.OptionsView.ShowGroupedColumns = False GridView_Docs.OptionsView.ShowGroupPanel = False Dim oindex As Integer = 0 If Not IsNothing(DTGRID_GROUPS) Then