Форум: "Основная";
Поиск по всему сайту: 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.033 c
3-22555           Turalyon              2002-03-15 15:15  2002.04.08  
Сервисы и IB


1-22744           Yuraz                 2002-03-27 08:20  2002.04.08  
Мастера, помогите с написанием функции удаления лишних пробелов в строке,


1-22760           Goblinus              2002-03-27 13:03  2002.04.08  
Загрузка файлов не из программы


1-22645           handra                2002-03-28 10:24  2002.04.08  
Actions & DLL


6-22784           Kirill_               2002-01-25 00:47  2002.04.08  
Net