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

CONFIG.UserConfigPath

Browse Source
This commit is contained in:
SchreiberM
2020-12-22 14:33:43 +01:00
parent e326a7b660
commit 650ebd8848
8 changed files with 341 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/frmAdmin2.vb
View File

@@ -23,12 +23,12 @@ Public Class frmAdmin2
oSave = True
Try
Dim oFilename As String = String.Format("DevExLayoutAdmin2_Email.xml")
Dim oXml As String = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Dim oXml As String = System.IO.Path.Combine(CONFIG.UserConfigPath, oFilename)
If File.Exists(oXml) Then
DataLayoutControl1.RestoreLayoutFromXml(oXml)
End If
oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
oXml = System.IO.Path.Combine(CONFIG.UserConfigPath, oFilename)
If File.Exists(oXml) Then
DataLayoutControl2.RestoreLayoutFromXml(oXml)
End If
@@ -263,12 +263,12 @@ Public Class frmAdmin2
End If
Try
Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml")
Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath, Filename)
'If File.Exists(xml) Then
DataLayoutControl1.SaveLayoutToXml(xml)
'End If
Filename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
xml = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
xml = System.IO.Path.Combine(CONFIG.UserConfigPath, Filename)
DataLayoutControl2.SaveLayoutToXml(xml)
Catch ex As Exception
LOGGER.Error(ex)
@@ -283,7 +283,7 @@ Public Class frmAdmin2
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
Try
Dim oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Dim oXml = System.IO.Path.Combine(CONFIG.UserConfigPath, oFilename)
File.Delete(oXml)
MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information)
Me.Close()
@@ -298,7 +298,7 @@ Public Class frmAdmin2
Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
Try
Dim oFilename = String.Format("DevExLayoutAdmin2_Email.xml")
Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Dim oXml = System.IO.Path.Combine(CONFIG.UserConfigPath, oFilename)
File.Delete(oXml)
MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information)
Me.Close()