mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 17:41:01 +02:00
ConsoleColors example optimized
This commit is contained in:
parent
c0078559bb
commit
777db5d972
@ -3,76 +3,29 @@ program ConsoleColors;
|
|||||||
uses
|
uses
|
||||||
CRT;
|
CRT;
|
||||||
|
|
||||||
|
const
|
||||||
|
ColorName: array[Black..White] of PKolibriChar = (
|
||||||
|
'Black', 'Blue', 'Green', 'Cyan', 'Red', 'Magenta', 'Brown', 'Light Gray',
|
||||||
|
'Dark Gray', 'Light Blue', 'Light Green', 'Light Cyan', 'Light Red', 'Light Magenta', 'Yellow', 'White'
|
||||||
|
);
|
||||||
|
|
||||||
|
var
|
||||||
|
Color: Byte;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
InitConsole('Console Colors');
|
InitConsole('Console Colors');
|
||||||
|
|
||||||
TextBackground(Black);
|
for Color := Low(ColorName) to High(ColorName) do
|
||||||
WriteLn('Black');
|
begin
|
||||||
TextBackground(Blue);
|
TextBackground(Color);
|
||||||
WriteLn('Blue');
|
WriteLn(ColorName[Color]);
|
||||||
TextBackground(Green);
|
end;
|
||||||
WriteLn('Green');
|
|
||||||
TextBackground(Cyan);
|
|
||||||
WriteLn('Cyan');
|
|
||||||
TextBackground(Red);
|
|
||||||
WriteLn('Red');
|
|
||||||
TextBackground(Magenta);
|
|
||||||
WriteLn('Magenta');
|
|
||||||
TextBackground(Brown);
|
|
||||||
WriteLn('Brown');
|
|
||||||
TextBackground(LightGray);
|
|
||||||
WriteLn('LightGray');
|
|
||||||
TextBackground(DarkGray);
|
|
||||||
WriteLn('DarkGray');
|
|
||||||
TextBackground(LightBlue);
|
|
||||||
WriteLn('LightBlue');
|
|
||||||
TextBackground(LightGreen);
|
|
||||||
WriteLn('LightGreen');
|
|
||||||
TextBackground(LightCyan);
|
|
||||||
WriteLn('LightCyan');
|
|
||||||
TextBackground(LightRed);
|
|
||||||
WriteLn('LightRed');
|
|
||||||
TextBackground(LightMagenta);
|
|
||||||
WriteLn('LightMagenta');
|
|
||||||
TextBackground(Yellow);
|
|
||||||
WriteLn('Yellow');
|
|
||||||
TextBackground(White);
|
|
||||||
WriteLn('White');
|
|
||||||
|
|
||||||
NormVideo;
|
NormVideo;
|
||||||
|
|
||||||
TextColor(Black);
|
for Color := Low(ColorName) to High(ColorName) do
|
||||||
WriteLn('Black');
|
begin
|
||||||
TextColor(Blue);
|
TextColor(Color);
|
||||||
WriteLn('Blue');
|
WriteLn(ColorName[Color]);
|
||||||
TextColor(Green);
|
end;
|
||||||
WriteLn('Green');
|
|
||||||
TextColor(Cyan);
|
|
||||||
WriteLn('Cyan');
|
|
||||||
TextColor(Red);
|
|
||||||
WriteLn('Red');
|
|
||||||
TextColor(Magenta);
|
|
||||||
WriteLn('Magenta');
|
|
||||||
TextColor(Brown);
|
|
||||||
WriteLn('Brown');
|
|
||||||
TextColor(LightGray);
|
|
||||||
WriteLn('LightGray');
|
|
||||||
TextColor(DarkGray);
|
|
||||||
WriteLn('DarkGray');
|
|
||||||
TextColor(LightBlue);
|
|
||||||
WriteLn('LightBlue');
|
|
||||||
TextColor(LightGreen);
|
|
||||||
WriteLn('LightGreen');
|
|
||||||
TextColor(LightCyan);
|
|
||||||
WriteLn('LightCyan');
|
|
||||||
TextColor(LightRed);
|
|
||||||
WriteLn('LightRed');
|
|
||||||
TextColor(LightMagenta);
|
|
||||||
WriteLn('LightMagenta');
|
|
||||||
TextColor(Yellow);
|
|
||||||
WriteLn('Yellow');
|
|
||||||
TextColor(White);
|
|
||||||
WriteLn('White');
|
|
||||||
|
|
||||||
ReadKey;
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user