Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сменить текст моей консольной проги. [D5, D6, Win95/98]


Serd_hhc ©   (2002-03-26 14:09:00) 

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


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

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

Очевидно, 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 белый


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

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


Serd_hhc   (2002-03-27 16:26:00) [3]

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

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


Anatoly Podgoretsky   (2002-03-26 21:09:00) [4]

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


Юрий Зотов   (2002-03-26 16:06:00) [5]

Там не хэндл окна, там хэндл стандартного потока вывода. См. 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.


Serd_hhc   (2002-03-26 15:45:00) [6]

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

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


Вадим   (2002-03-26 14:54:00) [7]

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


Юрий Зотов   (2002-03-26 14:39:00) [8]

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


Serd_hhc   (2002-03-26 14:36:00) [9]

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


Юрий Зотов   (2002-03-26 14:21:00) [10]

См. SetConsoleTextAttribute в SDK.


Serd_hhc   (2002-03-26 14:16:00) [11]

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


Юрий Зотов   (2002-03-26 14:11:00) [12]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо