diff options
| author | EverythingWindows <[email protected]> | 2022-12-03 23:16:06 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-12-03 23:16:06 +0700 |
| commit | 0e6eb6e76f8227b8055f5ea032f9582dcacee5f5 (patch) | |
| tree | d4dd7645353ed283b480ee9f2adea0f20a81e590 /ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb | |
| parent | 16094d6b2fd9409d0866ac8f62ca355a383ebb1e (diff) | |
| download | shiftos-therevival-old-0e6eb6e76f8227b8055f5ea032f9582dcacee5f5.tar.gz shiftos-therevival-old-0e6eb6e76f8227b8055f5ea032f9582dcacee5f5.tar.bz2 shiftos-therevival-old-0e6eb6e76f8227b8055f5ea032f9582dcacee5f5.zip | |
Console Font finished and the foundation of new window manager is there
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 |