jj 13.12 devexpress themes

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -1,5 +1,6 @@
 Imports System.Threading
 Imports System.Globalization
+Imports DevExpress.LookAndFeel
 Imports DD_LIB_Standards
 Public Class frmConfig_Basic
     Dim formloaded As Boolean = False
@@ -154,6 +155,9 @@ Public Class frmConfig_Basic
             Else
                 cmbConstructor.Enabled = False
             End If
+
+            cmbDesign.Text = MyFormsDesign
+
             'Catch ex As Exception
             '    MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             'End Try
@@ -514,4 +518,16 @@ Public Class frmConfig_Basic
     Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs)
 
     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)
+            SaveMySettingsValue("MyFormsDesign", cmbDesign.Text, "ConfigMain")
+        End If
+
+    End Sub
+
+    Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
+
+    End Sub
 End Class