IsColorBright

← →
anbezr (2003-04-21 14:53) [0]

Привет!
нет ли какой стандарной процедуры, с помощью которой можно было бы определить яркий ли данный цвет.

← →
MBo (2003-04-21 14:53) [1]

нет. Напиши за 7 секунд

← →
Palladin (2003-04-21 14:59) [2]

спорю на 5 баксов что и за 7 минут не напишет

← →
sashas (2003-04-21 15:02) [3]

Если постарается то может и напишет. (Если ему дать 5$ :))

← →
anbezr (2003-04-21 15:03) [4]

function IsColorLight(Color: TColor): boolean;
const
RED = $000000FF; GREEN = $0000FF00; BLUE = $00FF0000;
begin
Result := ((Color and RED)>$80) or (((Color and GREEN) shr 8)>$80) or (((Color and BLUE) shr 16)>$80)
end;
за 5 сек написал Palladin, ты проспорил

← →
evvcom (2003-04-21 15:07) [5]

Вот что с людьми алчность делает! Сразу думать начинают!

← →
Palladin (2003-04-21 15:09) [6]

:))

← →
Palladin (2003-04-21 15:13) [7]

а хотел IsColorBright
за не соответсвие ТД никаких баксов, если вообще не штраф

← →
anbezr (2003-04-21 15:32) [8]

да нет, написал я ее еще до того, как спросил. просто фирменное всегда лучше.:}

2 evvcom © (21.04.03 15:07)
Palladin © (21.04.03 14:59) не со мной спорит

← →
Cobalt (2003-04-21 15:35) [9]

← →
Palladin (2003-04-21 15:41) [10]

техническая документация

← →
REA (2003-04-21 15:45) [11]

procedure ColorRGBToHLS(clrRGB: COLORREF; var Hue, Luminance, Saturation: Word);

Кажется Luminance это как раз светимость. С психофизической точки зрения корректнее анализировать этот параметр, чем RGB.
Хотя если речь о насыщенности цвета, то Saturation;

← →
anbezr (2003-04-21 16:20) [12]

ага, спасибо!
очень полезная ф-я

IsColorBright Найти похожие ветки