Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.05;
Скачать: 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 вся ветка

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

Наверх




Память: 0.49 MB
Время: 0.015 c
1-12797
Cranium
2003-04-21 15:37
2003.05.05
Как в событии GridDrawColumnCell определить какой столбец рисуетс


1-12817
Ольга
2003-04-22 17:44
2003.05.05
Слова разного цвета в TRichEdit


14-12930
spirit
2003-04-18 00:12
2003.05.05
разработка компонент


14-12927
Angel_Forever
2003-04-18 09:00
2003.05.05
блок-схемы


1-12726
Dabadabiabo
2003-04-23 17:09
2003.05.05
Проблемы при передаче данных в Word XP