jj 13.12 devexpress themes

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -1,11 +1,14 @@
 Imports System.IO
 Imports System.Xml
 Imports DD_LIB_Standards
+Imports DevExpress.LookAndFeel
+
 Module ModuleMySettings
     Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
     Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
 
     Public MyConnectionString As String = ""
+    Public MyFormsDesign As String = ""
 
     Public LogErrorsOnly As Boolean = True
     Public Sett_TaskOverviewKeepInFront As Boolean = True
@@ -52,9 +55,9 @@ Module ModuleMySettings
         Dim rowresult As String = ""
         Try
             'if file doesn't exist, create the file with its default xml table
-            If Not File.Exists(path_FileExclusions) Then
+            If Not File.Exists(PATH_FileExclusions) Then
                 DTEXCLUDE_FILES = CreateExclusionTable()
-                DTEXCLUDE_FILES.WriteXml(path_FileExclusions)
+                DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions)
             End If
             DTEXCLUDE_FILES = GetTablefromXML(PATH_FileExclusions)
 
@@ -204,6 +207,10 @@ Module ModuleMySettings
                         Else
                             MY_ADDON_PATH = Row.Item("Value")
                         End If
+                    Case "MyFormsDesign"
+                        If Row.Item("Value") <> String.Empty Then
+                            MyFormsDesign = Row.Item("Value")
+                        End If
                 End Select
             Next
             'update 1.1
@@ -256,6 +263,13 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
+            If rowresult.Contains("MyFormsDesign") = False Then
+                Dim newRow As DataRow = DT.NewRow()
+                newRow("ConfigName") = "MyFormsDesign"
+                newRow("Value") = ""
+                DT.Rows.Add(newRow)
+                DT.WriteXml(ConfigPath)
+            End If
 
 
         Catch ex As Exception
@@ -349,6 +363,9 @@ Module ModuleMySettings
             newRow15("ConfigName") = "MyLinkedServer"
             newRow15("Value") = ""
             table.Rows.Add(newRow15)
+            Dim newRow16 As DataRow = table.NewRow()
+            newRow16("ConfigName") = "MyFormsDesign"
+            newRow16("Value") = ""
 
             table.AcceptChanges()
             ClassLogger.Add(">> CreateConfigTable su...", False)