Поменять яркость.

← →
Тфьу (2003-04-15 10:53) [0]

Надо цвет в TColor сделать ярче на определенное количество процентов, или темнее. Как проще реализовать, или подскажите существующую функцию.

← →
Skier © (2003-04-15 10:59) [1]

>Тфьу
Раскладывать цвет на Red-Green-Blue и играться...

← →
Kaban © (2003-04-15 11:01) [2]

MyColor := $RRGGBB, где

RR = количество красного
GG = количество зеленого
BB = количество синего

Например, MyColor := $FF0000 - яркокрасный

Дальше извращайся, как хочешь

← →
Владимир Васильев © (2003-04-15 11:12) [3]

http://www.efg2.com/Lab/index.html - здесь всё про работу с цветом и битмапами.
Для яркости : перевести RGB > HSL, изменить L (level - яркость) и обратно в RGB.

← →
Тфьу (2003-04-15 13:23) [4]

Я раскладываю и играюсь.
>Владимир Васильев ©
За ссылку спасибо. Но похоже те условия, которые я накладываю на цвет с целью его преобразования более простые, чем использование HLStoRGB и RGBToHLS.

А вот по поводу GetRValue,GetGValue,GetBValue и я узнал только вчера (можете поприкалываться). Раньше делал только с помощью:
A: TColor;
R, G, B : word;
R:=A and $FF;
G:=A and $FF00;
B:=A and $FF0000;

Поменять яркость. Найти похожие ветки