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

Вниз

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]

Спасибо!

---

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

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

Наверх

Память: 0.46 MB
Время: 0.021 c