src/shared/console.pas

   1 unit console;
   2
   3 interface
   4
   5 procedure print(Text: string);
   6
   7 implementation
   8
   9 uses
  10   windows;
  11
  12 procedure print(Text: string);
  13 var
  14   a, len: Integer;
  15   attr: Word;
  16   h: LongWord;
  17 begin
  18  h := GetStdHandle(STD_OUTPUT_HANDLE);
  19
  20  attr := FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE;
  21  SetConsoleTextAttribute(h, attr);
  22
  23  len := Length(Text);
  24
  25  for a := 1 to len do
  26  begin
  27   if Text[a] = '^' then Continue;
  28   if Byte(Text[a]) = 7 then Continue;
  29
  30   if (a = 1) or (Text[a-1] <> '^') then
  31   begin
  32    write(Text[a]);
  33    Continue;
  34   end;
  35
  36   if a < len then
  37   begin
  38    case Text[a] of
  39     '1': attr := FOREGROUND_RED;
  40     '2': attr := FOREGROUND_GREEN;
  41     '3': attr := FOREGROUND_BLUE;
  42     '4': attr := FOREGROUND_BLUE or FOREGROUND_RED;
  43     '5': attr := FOREGROUND_GREEN or FOREGROUND_RED;
  44     '6': attr := FOREGROUND_BLUE or FOREGROUND_GREEN;
  45     '7': attr := FOREGROUND_BLUE or FOREGROUND_GREEN or FOREGROUND_RED;
  46     else Continue;
  47    end;
  48
  49    if (a > 2) and (Text[a-2] = '^') then attr := attr or FOREGROUND_INTENSITY;
  50
  51    SetConsoleTextAttribute(h, attr)
  52   end;
  53  end;
  54
  55  WriteLn;
  56
  57  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);
  58 end;
  59
  60 end.