TConsole

type TConsole = record

public

const

  ExitCodeOK = CON_EXIT_CODE_OK

  ExitCodeError = CON_EXIT_CODE_ERROR

  ExitCodeSyntaxError = CON_EXIT_CODE_SYNTAX_ERROR

  clNone = CON_COLOR_NONE

  clBlackText = CON_COLOR_BLACK_FG

  clWhiteText = CON_COLOR_WHITE_FG

  clBlackBg = CON_COLOR_BLACK_BG

  clWhiteBg = CON_COLOR_WHITE_BG

  clLightBlackText = CON_COLOR_BLACK_LIGHT_FG

  clLightWhiteText = clWhiteText

  clLightRedText = CON_COLOR_RED_LIGHT_FG

  clLightGreenText = CON_COLOR_GREEN_LIGHT_FG

  clLightBlueText = CON_COLOR_BLUE_LIGHT_FG

  clLightCyanText = CON_COLOR_CYAN_LIGHT_FG

  clLightMagentaText = CON_COLOR_MAGENTA_LIGHT_FG

  clLightYellowText = CON_COLOR_YELLOW_LIGHT_FG

  clDarkBlackText = CON_COLOR_BLACK_DARK_FG

  clDarkWhiteText = CON_COLOR_WHITE_DARK_FG

  clDarkRedText = CON_COLOR_RED_DARK_FG

  clDarkGreenText = CON_COLOR_GREEN_DARK_FG

  clDarkBlueText = CON_COLOR_BLUE_DARK_FG

  clDarkCyanText = CON_COLOR_CYAN_DARK_FG

  clDarkMagentaText = CON_COLOR_MAGENTA_DARK_FG

  clDarkYellowText = CON_COLOR_YELLOW_DARK_FG

  clLightBlackBg = CON_COLOR_BLACK_LIGHT_BG

  clLightWhiteBg = CON_COLOR_WHITE_BG

  clLightRedBg = CON_COLOR_RED_LIGHT_BG

  clLightGreenBg = CON_COLOR_GREEN_LIGHT_BG

  clLightBlueBg = CON_COLOR_BLUE_LIGHT_BG

  clLightCyanBg = CON_COLOR_CYAN_LIGHT_BG

  clLightMagentaBg = CON_COLOR_MAGENTA_LIGHT_BG

  clLightYellowBg = CON_COLOR_YELLOW_LIGHT_BG

  clDarkBlackBg = CON_COLOR_BLACK_DARK_BG

  clDarkWhiteBg = CON_COLOR_WHITE_DARK_BG

  clDarkRedBg = CON_COLOR_RED_DARK_BG

  clDarkGreenBg = CON_COLOR_GREEN_DARK_BG

  clDarkBlueBg = CON_COLOR_BLUE_DARK_BG

  clDarkCyanBg = CON_COLOR_CYAN_DARK_BG

  clDarkMagentaBg = CON_COLOR_MAGENTA_DARK_BG

  clDarkYellowBg = CON_COLOR_YELLOW_DARK_BG

  clLightGrayText = clDarkWhiteText

  clDarkGrayText = clLightBlackText

  clLightGrayBg = clLightGrayText

  clDarkGrayBg = clDarkGrayText

public

  class procedure ResetColors;

  class procedure ResetColorsAEC;

  class procedure SetTextColor();

  class procedure SetBackgroundColor();

  class procedure SetColors();

  class procedure SetRgbTextColor();

  class procedure SetRgbBackgroundColor();

  class procedure WriteColoredText();

  class procedure WriteColoredTextLine();

  class procedure WriteColoredTextEx();

  class procedure WriteColoredTextLineEx();

  class procedure WriteTaggedText();

  class procedure WriteTaggedTextLine();

  class procedure WriteStringArray();

  class procedure Init;

  property TextCodePage: Cardinal; [rw]

end;