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