 Цвет экрана в текстовом режиме |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| inet007 |
 
Сообщение
#1
|
 Группа: Пользователи Сообщений: 4 Репутация:  0   |
Как сделать цвет экрана, ну например, белым в текстовом режиме?
|
   |
 
|
  |
Ответов
| APAL |
Сообщение
#2
|
 Смотрю...  Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цвет фона задается в пределах 0..7
Хотя есть какой-то способ обойти это ограничение... (где-то выставляется флаг об использовании бита) =============================== Procedure TextBackground(Color : Byte); Замечания: Color - целочисленное выражение в диапазоне 0 .. 7, соответствющее одной из первых восьми констант цвета в текстовом режиме. В модуле Crt существует переменная типа байт - TextAttr, которая используется для хранения текущего видеоатрибута. TextBackground устанавливает биты 4-6 переменной TextAttr в Color. ======================================= Procedure TextColor(Color : Byte); Замечания: Параметр Color - целочисленное выражение в диапазоне 0 .. 15, соответствующий одной из констант цвета текстового режима, определенных в модуле Crt. В модуле Crt существует переменная типа байт - TextAttr, которая используется для хранения текущего видеоатрибута. TextColor устанавливает биты 0-3 переменной TextAttr в Color. Если Color больше 15, то бит 7 (бит, определяюший мигание) тоже поднимается. Сообщение отредактировано: APAL - -------------------- |
|
|
|
Сообщений в этой теме
inet007 Цвет экрана в текстовом режиме 29.02.2004 1:57
AlaRic textbackground(15); 29.02.2004 2:10 neex Не все так просто, а як же підключеня бібліотеки, … 29.02.2004 2:48 AlaRic 1 - не думаю что он не догадается про uses crt;
2 … 29.02.2004 3:09 Nemo TextAttr:=$10*BG+T;
Где BG - цвет фона, а Т -… 29.02.2004 3:20 inet007 Я так и думал, что последует ответ: TextBackground… 2.03.2004 19:17 neex Если человек знает что такое uses crt то думаю он … 3.03.2004 2:28 neex И почему форум отступы хавает? 3.03.2004 2:29 inet007 Молодец neex!. Именно это я и имел в виду. Одн… 3.03.2004 13:43 APAL
Разве только в оконном?
ЗЫ: Я к видео-памяти об… 3.03.2004 16:29 neex
Странный глюк, если оно и должно работать то в по… 4.03.2004 2:46 GLuk Изменяй не память, а палитру:
Порт 3D8h - номер р… 4.03.2004 5:02 trminator Чтобы залить весь экран цветом, после TextBackgrou… 18.03.2004 11:03
Atos
Действительно, например при WindowsNT нет никако… 20.03.2004 10:15 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 5.05.2024 0:02 |
Связь с администрацией: bu_gen в домене octagram.name