IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> соответствие кодов цветов Dos и Windows, нужно найти
сообщение
Сообщение #1


Гость






помогите кто может! срочно нужна таблица соответствия кодов цветов для DOSа и WINDOWSа , а то я не могу нормально использовать файл .bmp в
паскалевской программе.
если у кого есть скиньте ,пожалста, мне на ящик - <rkv.gorodok.net>
Заранее благодарен.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Ну, если у тебя 15-битный режим, то можно было бы попробывать так:
Код

Function RGB15(r,g,b:Byte):Word;Assembler;
Asm
 MOV AL,[r]
 SHL AX,5
 OR AL,[g]
 SHL AL,5
 OR AL,[b]
 AND AX,7FFFh
End;

Function RGB32ToRGB15(Color:LongInt):Word;
Var
 r,g,b:Byte;
Begin
 r:=(Color And $00FF0000) Shr 16;
 g:=(Color And $0000FF00) Shr 8;
 b:=(Color And $000000FF);
 r:=Round(31*r/255);
 g:=Round(31*g/255);
 b:=Round(31*b/255);
 RGB32ToRGB15:=RGB15(r,g,b)
End;

Или что-то типа этого. А что virt прислал что-то другое? Выложи - интересно.
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 4.05.2024 21:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name