Вниз
Скачать: CL | DM;

Как получить R,G,B из clBtnFace?   Найти похожие ветки 

 
ancara ©   (2004-06-11 10:49) [0]

Доброго времени суток, господа! Поскажите пожалуйста как из clBtnFace и ему подобных вытащить R, G и B значения. Посмотрел в Graphics.pas, там
COLOR_BTNFACE = 15;
  и
clBtnFace = (COLOR_BTNFACE or $80000000);
 Я так понимаю, 15 это индекс в сист. палитре, да? А как мне из этой палитры RGB получить?


 
YurikGL ©   (2004-06-11 10:55) [1]

GetRValue
GetBValue
GerGValue


 
ancara ©   (2004-06-11 11:02) [2]

> YurikGL ©   (11.06.04 10:55) [1]
> GetRValue


Windows.pas:

function GetRValue(rgb: DWORD): Byte;
begin
 Result := Byte(rgb);
end;


В качестве параметра rgb мы передаем clBtnFace, а он равен $8000000F, что получаем на выходе?


 
Gero ©   (2004-06-11 11:04) [3]

Color := ColorToRGB(clBtnFace);
R := GetRValue;
G := GetGValue;
B := GetBValue;

Считайте сами.


 
ancara ©   (2004-06-11 11:15) [4]


> Gero ©   (11.06.04 11:04) [3]
> Color := ColorToRGB(clBtnFace);


Так вот оно в чем дело! Все, арбайтет! Спасибо!


 
Anatoly Podgoretsky ©   (2004-06-11 11:39) [5]

ancara ©   (11.06.04 11:15) [4]
Да в этом, TColor это не RGB, а гораддо комплекснее.


 
YurikGL ©   (2004-06-11 11:41) [6]


> Anatoly Podgoretsky ©   (11.06.04 11:39) [5]

На один байт?


 
Anatoly Podgoretsky ©   (2004-06-11 12:06) [7]

Не только, кроме этого первые три байта могут сожержать далеко не RGB



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c
14-1086759148
KilkennyCat
2004-06-09 09:32
2004.06.27
мой любимый анекдот (мож кто не слышал) :)


14-1086757862
Baks
2004-06-09 09:11
2004.06.27
Вопрос на зацепку (скорее на скорость ответа)


14-1086469407
KilkennyCat
2004-06-06 01:03
2004.06.27
Конкурс: Стих паскальный. Приз - Токай Ассу 3 пут. 1996 года


4-1084959583
Elysium
2004-05-19 13:39
2004.06.27
Как написать приложение используя WinAPI


3-1086254751
Aladin
2004-06-03 13:25
2004.06.27
IBQuery.CachedUpdates




   Наверх