Как сменить текст моей консольной проги.

← →
Serd_hhc (2002-03-26 14:09) [0]

Плз, ответьте на сабж.
Старые куда-до делись.

← →
Юрий Зотов (2002-03-26 14:11) [1]

> Как сменить текст моей консольной проги.

А как Вы сами ответили бы на ТАКОЙ вопрос?

← →
Serd_hhc (2002-03-26 14:16) [2]

Т.Е. цвет текста.... Сори.

← →
Юрий Зотов (2002-03-26 14:21) [3]

См. SetConsoleTextAttribute в SDK.

← →
Serd_hhc (2002-03-26 14:36) [4]

Ну а как его использовать? Что в uses то писать?

← →
Юрий Зотов (2002-03-26 14:39) [5]

Windows, естественно.

← →
Вадим (2002-03-26 14:54) [6]

Проверь почту

← →
Serd_hhc (2002-03-26 15:45) [7]

Проверил, но после этого прога не работала, хотя цвет поменялся, и размер увеличился дро 120 КБ :(

П.С.
А как быть с хэндлом окна, ведь у меня консоль?

← →
Юрий Зотов (2002-03-26 16:06) [8]

Там не хэндл окна, там хэндл стандартного потока вывода. См. GetStdHandle.

Вот эта программа весит 16 кБ.

program Project3;
{$APPTYPE CONSOLE}
uses
Windows;

begin
SetConsoleTextAttribute(
GetStdHandle(STD_OUTPUT_HANDLE),
BACKGROUND_RED or BACKGROUND_GREEN or BACKGROUND_INTENSITY // желтый фон
or FOREGROUND_BLUE // синий текст
);
WriteLn("Hello, world!");
ReadLn
end.

← →
Anatoly Podgoretsky (2002-03-26 21:09) [9]

Serd_hhc (26.03.02 15:45)
Что ты для этого сделал, модуль Windows увеличивает размер на 0 байт

← →
Serd_hhc (2002-03-27 16:26) [10]

-> Для Anatoly Podgoretsky
Сообщение было одресовано Вадиму...

-> Для Юрия Зотова
Огромное спасибо.
П.С. А как сделать цвет светло-зелёным?

← →
Андрей Сенченко (2002-03-27 17:06) [11]

Есть функция RGB(red,green,blue),
где
red, green и blue - яркости составляющих основного цвета. Могут быть от 0 ( минимум - соответствует черному ) до 255 ( максимум - соответствует белому )
Нужное Тебе сочетание можешь подобрать с помощью Фотошопа или просто методо тыка.

← →
Юрий Зотов (2002-03-28 12:25) [12]

> как сделать цвет светло-зелёным?

Очевидно, Green (зеленый) + Intensity (светлый).

Тут все просто (писал по памяти и логике, возможны неточности).

Red Green Blue Intensity Result 0 0 0 0 Черный 1 0 0 0 красный 0 1 0 0 зеленый 1 1 0 0 коричневый 0 0 1 0 синий 1 0 1 0 фиолетовый 0 1 1 0 циан 1 1 1 0 светло-серый 0 0 0 1 темно-серый 1 0 0 1 светло-красный 0 1 0 1 светло-зеленый 1 1 0 1 желтый 0 0 1 1 голубой 1 0 1 1 светло-фиолетовый 0 1 1 1 светлый циан 1 1 1 1 белый

Как сменить текст моей консольной проги. Найти похожие ветки