diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb index 04f68e6..da5046d 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb @@ -5,7 +5,7 @@ Private ChildFeature As String Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load - + CheckAvailability() End Sub Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem @@ -37,6 +37,12 @@ Else Select Case lst_Features.SelectedItem + Case "Console" + Dim Shifter_Console As New DuWM_Shifter_Console + Shifter_Console.Size = pnl_Content.Size + ChildFeature = "Console" + pnl_Content.Controls.Clear() + pnl_Content.Controls.Add(Shifter_Console) Case "Desktop" Dim Shifter_Desktop As New DuWM_Shifter_Desktop Shifter_Desktop.Size = pnl_Content.Size @@ -59,6 +65,9 @@ Private Sub Apply() Select Case lst_Features.SelectedItem + Case "Console" + Console.TextBox1.Font = DuWM_Shifter_Configs.ConsoleFont + GUISCustomizations.GUIConsoleFont = Console.TextBox1.Font Case "Desktop" Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor GUISCustomizations.DesktopColor = Desktop.BackColor @@ -69,4 +78,10 @@ Apply() Close() End Sub + + Private Sub CheckAvailability() + If Strings.AvailableFeature(53) = 0 Then + lst_Features.Items.Remove("Console") + End If + End Sub End Class
\ No newline at end of file |