MS Skins

Global_Indexer/frmConfig_Basic.vb

@@ -2,6 +2,7 @@
 Imports System.Threading
 Imports System.Globalization
 Imports DigitalData.Modules.Database
+Imports DevExpress.LookAndFeel
 
 Public Class frmConfig_Basic
     Dim formloaded = False
@@ -149,6 +150,8 @@ Public Class frmConfig_Basic
                 Else
                     cmbLanguage.SelectedIndex = 1
                 End If
+                cmbDesign.Text = CONFIG.Config.MyFormsDesign
+
                 'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
             Case 2
                 If ERROR_STATE = "NO DB-CONNECTION" Then
@@ -521,4 +524,17 @@ Public Class frmConfig_Basic
         ' Navigate to a URL.
         Process.Start("https://digitaldata.works/support")
     End Sub
+
+    Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
+
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        If cmbDesign.SelectedIndex <> -1 Then
+            UserLookAndFeel.Default.SetSkinStyle(cmbDesign.Text)
+            CONFIG.Config.MyFormsDesign = cmbDesign.Text
+            CONFIG.Save()
+
+        End If
+    End Sub
 End Class