 Цвет экрана в текстовом режиме |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| inet007 |
  28.02.2004 21:57
Сообщение
#1
|
 Группа: Пользователи Сообщений: 4 Репутация:  0   |
Как сделать цвет экрана, ну например, белым в текстовом режиме?
|
   |
 
|
  |
Ответов
| APAL |
1.03.2004 19:03
Сообщение
#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 - 1.03.2004 19:04 -------------------- |
|
|
|
Сообщений в этой теме
inet007 Цвет экрана в текстовом режиме 28.02.2004 21:57
AlaRic textbackground(15); 28.02.2004 22:10 neex Не все так просто, а як же підключеня бібліотеки, ... 28.02.2004 22:48 AlaRic 1 - не думаю что он не догадается про uses crt;
2 ... 28.02.2004 23:09 Nemo TextAttr:=$10*BG+T;
Где BG - цвет фона, а Т -... 28.02.2004 23:20 inet007 Я так и думал, что последует ответ: TextBackground... 2.03.2004 15:17 neex Если человек знает что такое uses crt то думаю он ... 2.03.2004 22:28 neex И почему форум отступы хавает? 2.03.2004 22:29 inet007 Молодец neex!. Именно это я и имел в виду. Одн... 3.03.2004 9:43 APAL
Разве только в оконном?
ЗЫ: Я к видео-памяти об... 3.03.2004 12:29 neex
Странный глюк, если оно и должно работать то в по... 3.03.2004 22:46 GLuk Изменяй не память, а палитру:
Порт 3D8h - номер р... 4.03.2004 1:02 trminator Чтобы залить весь экран цветом, после TextBackgrou... 18.03.2004 7:03
Atos
Действительно, например при WindowsNT нет никако... 20.03.2004 6:15 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.06.2025 3:52 |