MS Skins

2023-09-21 12:07:24 +02:00 · 2023-09-21 12:07:24 +02:00 · ef804638b3
commit ef804638b3
parent 6edb3879de
8 changed files with 827 additions and 369 deletions
--- a/Global_Indexer/App.config
+++ b/Global_Indexer/App.config
@ -8,10 +8,10 @@
  <applicationSettings>
    <DevExpress.LookAndFeel.Design.AppSettings>
      <setting name="DefaultAppSkin" serializeAs="String">
-        <value>Skin/Office 2019 White</value>
+        <value>Skin/Office 2016 Colorful</value>
      </setting>
      <setting name="DefaultPalette" serializeAs="String">
-        <value>Yale</value>
+        <value></value>
      </setting>
      <setting name="TouchUI" serializeAs="String">
        <value></value>
--- a/Global_Indexer/ClassConfig.vb
+++ b/Global_Indexer/ClassConfig.vb
@ -19,4 +19,5 @@ Public Class ClassConfig
    ' Misc Settings
    Public Property LogDEBUG As Boolean = True
    Public Property WindreamSearchMaximized As Boolean = False
+    Public Property MyFormsDesign As String = ""
 End Class
--- a/Global_Indexer/frmConfig_Basic.designer.vb
+++ b/Global_Indexer/frmConfig_Basic.designer.vb
@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
@ -63,6 +63,9 @@ Partial Class frmConfig_Basic
        Me.btnstartstop2 = New System.Windows.Forms.Button()
        Me.btnstartstop1 = New System.Windows.Forms.Button()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.cmbDesign = New System.Windows.Forms.ComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.TabPage2.SuspendLayout()
@ -169,6 +172,9 @@ Partial Class frmConfig_Basic
        '
        'TabPage2
        '
+        Me.TabPage2.Controls.Add(Me.Label10)
+        Me.TabPage2.Controls.Add(Me.Button5)
+        Me.TabPage2.Controls.Add(Me.cmbDesign)
        Me.TabPage2.Controls.Add(Me.LinkLabel1)
        Me.TabPage2.Controls.Add(Me.Button3)
        Me.TabPage2.Controls.Add(Me.cmbLanguage)
@ -266,8 +272,8 @@ Partial Class frmConfig_Basic
        '
        'DataGridView1
        '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.Aqua
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
        resources.ApplyResources(Me.DataGridView1, "DataGridView1")
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DataGridView1.Name = "DataGridView1"
@ -343,6 +349,24 @@ Partial Class frmConfig_Basic
        '
        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
        '
+        'Button5
+        '
+        resources.ApplyResources(Me.Button5, "Button5")
+        Me.Button5.Name = "Button5"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'cmbDesign
+        '
+        resources.ApplyResources(Me.cmbDesign, "cmbDesign")
+        Me.cmbDesign.FormattingEnabled = True
+        Me.cmbDesign.Items.AddRange(New Object() {resources.GetString("cmbDesign.Items"), resources.GetString("cmbDesign.Items1"), resources.GetString("cmbDesign.Items2"), resources.GetString("cmbDesign.Items3"), resources.GetString("cmbDesign.Items4"), resources.GetString("cmbDesign.Items5"), resources.GetString("cmbDesign.Items6")})
+        Me.cmbDesign.Name = "cmbDesign"
+        '
+        'Label10
+        '
+        resources.ApplyResources(Me.Label10, "Label10")
+        Me.Label10.Name = "Label10"
+        '
        'frmConfig_Basic
        '
        resources.ApplyResources(Me, "$this")
@ -401,4 +425,7 @@ Partial Class frmConfig_Basic
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Button5 As Button
+    Friend WithEvents cmbDesign As ComboBox
 End Class
--- a/Global_Indexer/frmConfig_Basic.resx
+++ b/Global_Indexer/frmConfig_Basic.resx
--- a/Global_Indexer/frmConfig_Basic.vb
+++ b/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
--- a/Global_Indexer/frmIndex.resx
+++ b/Global_Indexer/frmIndex.resx
@ -421,7 +421,7 @@
    <value>Multi-Indexing - Alle nachfolgenden Dateien (0) identisch indexieren</value>
  </data>
  <data name="checkMultiindex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>441, 18</value>
+    <value>441, 20</value>
  </data>
  <data name="checkMultiindex.TabIndex" type="System.Int32, mscorlib">
    <value>12</value>
@ -610,7 +610,7 @@
    <value>DocumentViewer1</value>
  </data>
  <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.1.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
    <value>SplitContainer1.Panel2</value>
--- a/Global_Indexer/frmStart.resx
+++ b/Global_Indexer/frmStart.resx
@ -543,10 +543,10 @@
    <value>Bottom</value>
  </data>
  <data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 136</value>
+    <value>0, 135</value>
  </data>
  <data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing">
-    <value>294, 25</value>
+    <value>294, 26</value>
  </data>
  <data name="&gt;&gt;barDockControlBottom.Name" xml:space="preserve">
    <value>barDockControlBottom</value>
@ -567,7 +567,7 @@
    <value>0, 0</value>
  </data>
  <data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 136</value>
+    <value>0, 135</value>
  </data>
  <data name="&gt;&gt;barDockControlLeft.Name" xml:space="preserve">
    <value>barDockControlLeft</value>
@ -588,7 +588,7 @@
    <value>294, 0</value>
  </data>
  <data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 136</value>
+    <value>0, 135</value>
  </data>
  <data name="&gt;&gt;barDockControlRight.Name" xml:space="preserve">
    <value>barDockControlRight</value>
@ -634,7 +634,7 @@
    <value>25, 20, 20, 20</value>
  </data>
  <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>294, 136</value>
+    <value>294, 135</value>
  </data>
  <data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
    <value>8</value>
--- a/Global_Indexer/frmStart.vb
+++ b/Global_Indexer/frmStart.vb
@ -8,6 +8,7 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Windows
 Imports DigitalData.Modules.License
 Imports DigitalData.GUIs.Common
+Imports DevExpress.LookAndFeel

 Public Class frmStart
    Public LicenseManager As LicenseManagerLegacy
@ -93,6 +94,10 @@ Public Class frmStart
            End If
            DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")

+            If CONFIG.Config.MyFormsDesign <> "" Then
+                UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.MyFormsDesign)
+            End If
+
            TopMost = True

        Catch ex As Exception
@ -674,4 +679,8 @@ Public Class frmStart
    Private Sub LabelControl1_DragLeave(sender As Object, e As EventArgs) Handles LabelControl1.DragLeave
        'PictureEdit1.Visible = False
    End Sub
+
+    Private Sub frmStart_GiveFeedback(sender As Object, e As GiveFeedbackEventArgs) Handles Me.GiveFeedback
+
+    End Sub
 End Class