Как в консольном приложении можно задать цвет текста, вывести текст в нужном месте

Delphi , ОС и Железо , DOS и Консоль

Цвет Текста задается командой SetTextColor(Color), параметр Color - целое число от 0 до 15.

Вывод текста в указанном месте экрана задается командой GotoXY(X,Y,Text).

• X,Y-координаты экрана
• Text - переменная типа String

Вот текст модуля, напоминающего про наш любимый ДОС (CRT-like):

unit UffCRT;

interface

procedure ClrScr;
procedure SetAttr(attr: word);
function GetAttr: word;
procedure GotoXY(aX, aY: integer); { zero-based coords }
function WhereX: integer;
function WhereY: integer;

implementation

uses Windows;

var
  UpperLeft: TCoord = (X:0; Y:0);
  hCon: integer;

procedure GotoXY(aX, aY: integer);
var
  aCoord: TCoord;
begin
  aCoord.x:=aX;
  aCoord.y:=aY;
  SetConsoleCursorPosition(hCon,aCoord);
end;

procedure SetAttr(attr: word);
begin
  SetConsoleTextAttribute(hCon,attr);
end;

function WhereX: integer;
var
  ScrBufInfo: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hCon,ScrBufInfo);
  Result:=ScrBufInfo.dwCursorPosition.x;
end;

function WhereY: integer;
var
  ScrBufInfo: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hCon,ScrBufInfo);
  Result:=ScrBufInfo.dwCursorPosition.y;
end;

function GetAttr: word;
var
  ScrBufInfo: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hCon,ScrBufInfo);
  Result:=ScrBufInfo.wAttributes;
end;

procedure ClrScr;
var
  fill: integer;
  ScrBufInfo: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hCon,ScrBufInfo);
  fill:=ScrBufInfo.dwSize.x*ScrBufInfo.dwSize.y;
  FillConsoleOutputCharacter(hCon,' ',fill,UpperLeft,fill);
  FillConsoleOutputAttribute(hCon,ScrBufInfo.wAttributes, fill,
  UpperLeft, fill);
  GotoXY(0,0);
end;

initialization
  hCon := GetStdHandle(STD_OUTPUT_HANDLE);

end.

Теперь можно творить такое:

uses UffCRT;
...
ClrScr;
SetAttr($1E);
GotoXY(32,12);
write('Delphi World is the BEST!');
ReadLn;
...

Что за приятная история! Теперь давайте сфокусируемся на коде.

Предоставленный модуль UffCRT - это CRT-подобный модуль для Delphi, который предоставляет процедуры и функции для взаимодействия с консолью. Он использует Windows API для достижения этого.

Вот разбивка кода:

• Процедура GotoXY перемещает курсор на конкретное местоположение (X, Y) на экране. Координаты нулевые.
• Процедура SetAttr устанавливает атрибут текста (цвет, стиль и т.д.) для последующего вывода. Параметр attr - это слово-значение, представляющее собой желаемый атрибут.
• Функция GetAttr возвращает текущий атрибут текста консоли.
• Процедура ClrScr очищает экран, заполняя его пробелами и сбрасывая атрибуты до их исходного состояния.

Чтобы установить цвет текста, вы можете использовать процедуру SetAttr. Параметр attr - это слово-значение, представляющее собой желаемый атрибут. В этом случае $1E соответствует атрибуту "Светло-синий на черном".

Вот пример кода:

uses UffCRT;

procedure Main;
begin
  ClrScr; // Очищает экран
  SetAttr($1E); // Устанавливает цвет текста в Светло-синий на черном
  GotoXY(32, 12); // Перемещает курсор на X=32, Y=12
  Write('Delphi World is the BEST!'); // Выводит текст
  ReadLn; // Ожидает нажатия клавиши
end;

begin
  Main;
end.

Этот код очистит экран, установит цвет текста в Светло-синий на черном, переместит курсор на X=32, Y=12, выведет текст "Delphi World is the BEST!", а затем ожидает нажатия клавиши.

Обратите внимание, что вам нужно включить модуль UffCRT в ваш проект с помощью использования клауза.

Как в консольном приложении можно задать цвет текста, вывести текст в нужном месте, используя процедуры SetAttr и GotoXY из модуля UffCRT.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DOS и Консоль ::