From 30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Wed, 23 Nov 2022 08:36:50 +0700
Subject: DuWM enhancements

---
 .../Applications/DuWM/Shifter/DuWM_Shifter.vb      | 50 ++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb

(limited to 'ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb')

diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
new file mode 100644
index 0000000..55f0e41
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
@@ -0,0 +1,50 @@
+Public Class DuWM_Shifter
+    Private PrevHeight As Integer = Height
+    Private PrevWidth As Integer = Width
+    Private FeatureGap As Integer = 450 - 400
+    Private ChildFeature As String
+
+    Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
+        Close()
+    End Sub
+
+    Private Sub DuWM_Shifter_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
+        Dim WidthRatio As Double = (Width / PrevWidth)
+        Dim HeightRatio As Double = (Height / PrevHeight)
+        lst_Features.Height = Height - FeatureGap
+        PrevHeight = Height
+        PrevWidth = Width
+    End Sub
+
+    Private Sub lst_Features_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_Features.SelectedIndexChanged
+        If lst_Features.SelectedItem = ChildFeature Then
+
+        Else
+            Select Case lst_Features.SelectedItem
+                Case "Desktop"
+                    Dim Shifter_Desktop As New DuWM_Shifter_Desktop
+                    Shifter_Desktop.Size = pnl_Content.Size
+                    ChildFeature = "Desktop"
+                    pnl_Content.Controls.Clear()
+                    pnl_Content.Controls.Add(Shifter_Desktop)
+                Case "About"
+                    ChildFeature = "About"
+                    Dim Shifter_About As New DuWM_Shifter_About
+                    Shifter_About.Size = pnl_Content.Size
+                    pnl_Content.Controls.Clear()
+                    pnl_Content.Controls.Add(Shifter_About)
+            End Select
+        End If
+    End Sub
+
+    Private Sub btn_Apply_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Select Case lst_Features.SelectedItem
+            Case "Desktop"
+                Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor
+        End Select
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3