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
Strings.OnceInfo(3) = Bg & Fg
End Select
End Sub
End Module