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

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 ©
ТД
Опечатка?

---

← →
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]

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

---

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

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



Память: 0.47 MB
Время: 0.009 c