Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос О COLOR-e

Демонов Е.В. © (2002-10-01 11:30:00)
КАКим образом из RGB можно получить соответствующий оттенок серого ?

P.S:должна быть некая формула - в своё время видел но была не нужна - а теперь нужна, но не могу найти.

Рыжик (2002-10-02 10:11:00) [1]

> ЮЮ © (01.10.02 12:46)

Да пропорции можно использовать разные. Хоть 1/3 везде. Результат конечно будет тоже разным. Мои пропорции - это те, которые используются в телевидении. В книжках обычно их дают. Но возможно действительно лучше использовать (R * 61 + G * 174 + B * 21) / 256. Это надо попробовать.

R_G_B_ (2002-10-01 15:35:00) [2]
>Смешно.

Ну и зря!

Демонов Е.В. (2002-10-01 14:34:00) [3]
>>ЮЮ
Поясните пожалста - В Graphics32 -

ЮЮ (2002-10-01 12:46:00) [4]
В Graphics32 несколько иные пропорции:
(R * 61 + G * 174 + B * 21) / 256

Демонов Е.В. (2002-10-01 12:33:00) [5]
>>Рыжик
Вот это я и искал

>>R_G_B_ (01.10.02 11:59)
Даю.... Смешно.

Рыжик (2002-10-01 12:27:00) [6]
function RgbToGray(RGBColor : TColor) : TColor;
var
Gray : byte;
begin
Gray := Round((0.30 * GetRValue(RGBColor)) +
(0.59 * GetGValue(RGBColor)) +
(0.11 * GetBValue(RGBColor )));
Result := RGB(Gray, Gray, Gray);
end;

R_G_B_ (2002-10-01 11:59:00) [7]

Gray:=max(Red(color),max(Green(color),Blue(color)));
color.Red := Gray;
color.Green := Gray;
color.Blue := Gray;

Opuhshii (2002-10-01 11:54:00) [8]
точно,. видел,.. в Факе,.. только-что посмотрел,. нашел,. чего и Вам советую,.. ;)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »