Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

16 разрядов и 32   Найти похожие ветки 

 
parovoZZ ©   (2004-07-29 19:20) [0]

Значится так. Делаю так: DDBltFx.dwFillColor := RGB ();
В режиме 32 цвета получается вполне ожидаемый цвет, но стоит перейти в режим 16 цветов, функция не работает должным образом. Было замечено, что последний параметр не влияет вообще ни на что. Как сделать ожидаемый результат (то бишь цвет)?


 
cyborg ©   (2004-07-29 20:00) [1]

Дарю:

//Функция возвращает 16 битовый цвет:
Function Make16bColor(R,G,B : Byte) : Word; // Inline;
begin
 Result:=Word((B shr 3) or (G shr 2 shl 5) or (R shr 3 shl 11));
end;


 
parovoZZ ©   (2004-07-29 22:07) [2]

Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
4-1095577813
SergP.
2004-09-19 11:10
2004.10.24
Как в Delphi обработать аппаратное прерывание?


6-1092814132
Sergey Vorobyev
2004-08-18 11:28
2004.10.24
Как настроить шлюз?


6-1092410075
Дмитрий Ботвин
2004-08-13 19:14
2004.10.24
Тип запуска службы


4-1095487425
kukuikar
2004-09-18 10:03
2004.10.24
ExtractIcon


3-1096270335
Sectey
2004-09-27 11:32
2004.10.24
Запись в таблицу не зависимо, отменена или подтверждена транзакци