Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

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


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 белый




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.021 c
1-22715           Di_wind               2002-03-26 21:07  2002.04.08  
Динамическое создание.


1-22714           [HDD]John             2002-03-26 20:51  2002.04.08  
Не догоняю !!!


1-22657           Serd_hhc              2002-03-26 14:09  2002.04.08  
Как сменить текст моей консольной проги.


14-22806          alan                  2002-02-27 06:26  2002.04.08  
Помогите найти...


1-22635           Keylook               2002-03-27 21:08  2002.04.08  
Как можно программно поменять местами клавиши на клавиатуре?