RGB - яркость

← →
Anatoly P (2003-07-18 12:53) [0]

Как цвету, заданному через RGB добавить (убавить) яркость?

← →
Юрий Федоров © (2003-07-18 12:59) [1]

type
TPercent = 0..100;

function IncreaseColorBrightness(Color : TColor; Percent: TPercent) : TColor;
var r, g, b : Byte;
begin
Color:=ColorToRGB(Color);
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
r:=r + muldiv(255-r,Percent,100);
g:=g + muldiv(255-g,Percent,100);
b:=b + muldiv(255-b,Percent,100);
Result:=RGB(r,g,b);
end;

← →
Anatoly P (2003-07-18 20:04) [2]

Спасибо!

RGB - яркость Найти похожие ветки