![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
chel |
![]()
Сообщение
#1
|
Гость ![]() |
помогите кто может! срочно нужна таблица соответствия кодов цветов для DOSа и WINDOWSа , а то я не могу нормально использовать файл .bmp в
паскалевской программе. если у кого есть скиньте ,пожалста, мне на ящик - <rkv.gorodok.net> Заранее благодарен. |
![]() ![]() |
BlackShadow |
![]()
Сообщение
#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 прислал что-то другое? Выложи - интересно. |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 14:17 |