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

groupingSavetry

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-22 10:25:24 +02:00
parent 8dc00e0383
commit b1d35c865b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -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