diff options
| author | EverythingWindows <[email protected]> | 2022-11-23 08:36:50 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-23 08:36:50 +0700 |
| commit | 30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d (patch) | |
| tree | 64ea4a51d30d7405d96866c546779f8a1f051060 /ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb | |
| parent | 60b812a15b3912afe36679652d8fa625aea126bf (diff) | |
| download | shiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.tar.gz shiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.tar.bz2 shiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.zip | |
DuWM enhancements
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb deleted file mode 100644 index b0b4afb..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb +++ /dev/null @@ -1,43 +0,0 @@ -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 Button1_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 -End Class
\ No newline at end of file |
