aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb
diff options
context:
space:
mode:
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb209
1 files changed, 209 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb b/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb
new file mode 100644
index 0000000..2dd8c85
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb
@@ -0,0 +1,209 @@
+Module TerminalColorSystem
+ 'GUIDE to COLORS in TERMINAL
+ 'Using the same Hexadecimal numbering as what Command Prompt used to:
+ '0 = Black 8 = Gray
+ '1 = Blue 9 = Light Blue
+ '2 = Green A = Light Green
+ '3 = Aqua B = Light Aqua
+ '4 = Red C = Light Red
+ '5 = Purple D = Light Purple
+ '6 = Yellow E = Yellow
+ '7 = Dark Gray F = White
+ Public BgColor As Color
+ Public FgColor As Color
+
+ Public Sub DisplayColors()
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "TERMINAL SUPPORTED COLORS" & Environment.NewLine & Environment.NewLine
+ If Strings.AvailableFeature(10) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "0 = Black 8 = Gray"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "0 = Black 8 = ???"
+ End If
+ If Strings.AvailableFeature(14) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = Blue 9 = Light Blue"
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = Green A = Light Green"
+
+ Else
+ If Strings.AvailableFeature(13) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = Light Blue"
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = Green A = ???"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = ???"
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = ??? A = ???"
+ End If
+ End If
+ If Strings.AvailableFeature(15) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "3 = Aqua B = Light Aqua"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "3 = ??? B = ???"
+ End If
+ If Strings.AvailableFeature(14) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = Red C = Light Red"
+ ElseIf Strings.AvailableFeature(13) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = ??? C = Light Red"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = ??? C = ???"
+ End If
+ If Strings.AvailableFeature(15) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "5 = Purple D = Light Purple"
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "6 = Yellow E = Yellow"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "5 = ??? D = ???"
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "6 = ??? E = ???"
+ End If
+ If Strings.AvailableFeature(10) = "1" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "7 = Dark Gray F = White"
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "7 = ??? F = White"
+ End If
+ End Sub
+
+ Public Sub GetColor(App As String, Bg As String, Fg As String)
+ Select Case App
+ Case "terminal"
+ BgColor = Color.Black
+ FgColor = Color.White
+ Case "infobar"
+ BgColor = Color.White
+ FgColor = Color.Black
+ End Select
+ If Bg = Fg Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Background and Foreground Color cannot be same!"
+ Else
+ If Strings.AvailableFeature(10) = "1" Then
+ Select Case Bg
+ Case "0"
+ BgColor = Color.Black
+ Case "7"
+ BgColor = Color.Silver
+ Case "8"
+ BgColor = Color.Gray
+ Case "f"
+ BgColor = Color.White
+ Case "2", "9", "c"
+ If Strings.AvailableFeature(13) = "1" Then
+ Select Case Bg
+ Case "2"
+ BgColor = Color.Green
+ Case "9"
+ BgColor = Color.Blue
+ Case "c"
+ BgColor = Color.Red
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case "1", "4", "a"
+ If Strings.AvailableFeature(14) = "1" Then
+ Select Case Bg
+ Case "1"
+ BgColor = Color.Navy
+ Case "4"
+ BgColor = Color.Maroon
+ Case "a"
+ BgColor = Color.Lime
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case "3", "5", "6", "b", "d", "e"
+ If Strings.AvailableFeature(15) = "1" Then
+ Select Case Bg
+ Case "3"
+ BgColor = Color.Cyan
+ Case "5"
+ BgColor = Color.Magenta
+ Case "6"
+ BgColor = Color.Brown
+ Case "b"
+ BgColor = Color.Aqua
+ Case "d"
+ BgColor = Color.Fuchsia
+ Case "e"
+ BgColor = Color.Yellow
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case Else
+ BgColor = Color.Black
+ End Select
+ Select Case Fg
+ Case "0"
+ FgColor = Color.Black
+ Case "7"
+ FgColor = Color.Silver
+ Case "8"
+ FgColor = Color.Gray
+ Case "f"
+ FgColor = Color.White
+ Case "2", "9", "c"
+ If Strings.AvailableFeature(13) = "1" Then
+ Select Case Fg
+ Case "2"
+ FgColor = Color.Green
+ Case "9"
+ FgColor = Color.Blue
+ Case "c"
+ FgColor = Color.Red
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case "1", "4", "a"
+ If Strings.AvailableFeature(14) = "1" Then
+ Select Case Fg
+ Case "1"
+ FgColor = Color.Navy
+ Case "4"
+ FgColor = Color.Maroon
+ Case "a"
+ FgColor = Color.Lime
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case "3", "5", "6", "b", "d", "e"
+ If Strings.AvailableFeature(15) = "1" Then
+ Select Case Fg
+ Case "3"
+ FgColor = Color.Cyan
+ Case "5"
+ FgColor = Color.Magenta
+ Case "6"
+ FgColor = Color.Brown
+ Case "b"
+ FgColor = Color.Aqua
+ Case "d"
+ FgColor = Color.Fuchsia
+ Case "e"
+ FgColor = Color.Yellow
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
+ End If
+ Case Else
+ FgColor = Color.White
+ End Select
+ Else
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Color is not supported for 1-bit Color Display"
+ Select Case App
+ Case "terminal"
+ BgColor = Color.Black
+ FgColor = Color.White
+ Case "infobar"
+ BgColor = Color.White
+ FgColor = Color.Black
+ End Select
+ End If
+ End If
+ Select Case App
+ Case "infobar"
+ Terminal.InfoBar.BackColor = BgColor
+ Terminal.InfoBar.ForeColor = FgColor
+ Case "terminal"
+ Terminal.TextBox1.BackColor = BgColor
+ Terminal.TextBox1.ForeColor = FgColor
+ End Select
+ End Sub
+End Module
generated by cgit v1.2.3 (git 2.46.0) at 2026-06-04 17:19:30 +0000