paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* oc_blue properly named as noted by Don Siders

Browse Source
This commit is contained in:
florian 2024-05-20 20:43:14 +02:00
parent bba8558a1a
commit 83abe1fb15
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/comphook.pas
View File

@ -183,7 +183,7 @@ begin
end; end;
type type
TOutputColor = (oc_black,oc_red,oc_green,oc_orange,og_blue,oc_magenta,oc_cyan,oc_lightgray); TOutputColor = (oc_black,oc_red,oc_green,oc_orange,oc_blue,oc_magenta,oc_cyan,oc_lightgray);
procedure WriteColoredOutput(var t: Text;color: TOutputColor;const s : AnsiString); procedure WriteColoredOutput(var t: Text;color: TOutputColor;const s : AnsiString);
begin begin
@ -198,7 +198,7 @@ procedure WriteColoredOutput(var t: Text;color: TOutputColor;const s : AnsiStrin
write(t,#27'[1m'#27'[32m'); write(t,#27'[1m'#27'[32m');
oc_orange: oc_orange:
write(t,#27'[1m'#27'[33m'); write(t,#27'[1m'#27'[33m');
og_blue: oc_blue:
write(t,#27'[1m'#27'[34m'); write(t,#27'[1m'#27'[34m');
oc_magenta: oc_magenta:
write(t,#27'[1m'#27'[35m'); write(t,#27'[1m'#27'[35m');