Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-21 02:30:07 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

CRT unit bugfixes © 0CodErr

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-08 23:18:54 +03:00
parent bf2e9bcc4b
commit f59ec2420a
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Lib/CRT.pas
View File

@@ -17,9 +17,9 @@ const
Cyan = 3; Cyan = 3;
Red = 4; Red = 4;
Magenta = 5; Magenta = 5;
Brown = 6; // none in KolibriOS? Brown = 6;
LightGray = 7; LightGray = 7;
DarkGray = 8; // none in KolibriOS? DarkGray = 8;
LightBlue = 9; LightBlue = 9;
LightGreen = 10; LightGreen = 10;
LightCyan = 11; LightCyan = 11;
@@ -68,7 +68,7 @@ end;
procedure TextBackground(Color: Integer); procedure TextBackground(Color: Integer);
const const
Light = #27'[1m'; Light = #27'[5m';
Colors: array[Black..LightGray] of PKolibriChar = ( Colors: array[Black..LightGray] of PKolibriChar = (
#27'[40m', // Black #27'[40m', // Black
#27'[44m', // Blue #27'[44m', // Blue
@@ -77,7 +77,7 @@ const
#27'[41m', // Red #27'[41m', // Red
#27'[45m', // Magenta #27'[45m', // Magenta
#27'[43m', // Brown #27'[43m', // Brown
#27'[37m' // LightGray #27'[47m' // LightGray
); );
begin begin
case Color of case Color of
@@ -85,7 +85,7 @@ begin
Write(Colors[Color]); Write(Colors[Color]);
DarkGray..White: DarkGray..White:
begin begin
Write(Colors[Color]); Write(Colors[Color - 8]);
Write(Light); Write(Light);
end; end;
end; end;
@@ -93,7 +93,7 @@ end;
procedure TextColor(Color: Integer); procedure TextColor(Color: Integer);
const const
Light = #27'[5m'; Light = #27'[1m';
Colors: array[Black..LightGray] of PKolibriChar = ( Colors: array[Black..LightGray] of PKolibriChar = (
#27'[30m', // Black #27'[30m', // Black
#27'[34m', // Blue #27'[34m', // Blue
@@ -110,7 +110,7 @@ begin
Write(Colors[Color]); Write(Colors[Color]);
DarkGray..White: DarkGray..White:
begin begin
Write(Colors[Color]); Write(Colors[Color - 8]);
Write(Light); Write(Light);
end; end;
end; end;