Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Оттенки цветов...   Найти похожие ветки 

 
ArtemESC ©   (2006-01-05 17:02) [0]

Как мне получить оттенок цвета, который немного ярче
чем данный цвет?


 
Anatoly Podgoretsky ©   (2006-01-05 17:13) [1]

Умножить


 
Джо ©   (2006-01-05 17:18) [2]

Алгоритмы есть разные. Мне для моих задач подошел вот такой:

function Darker(Color:TColor; Percent:Byte):TColor;
var
 r,g,b:Byte;
begin
 Color:=ColorToRGB(Color);
 r:=GetRValue(Color);
 g:=GetGValue(Color);
 b:=GetBValue(Color);
 r:=r-muldiv(r,Percent,100);//процент% уменьшения  яркости
 g:=g-muldiv(g,Percent,100);
 b:=b-muldiv(b,Percent,100);
 result:=RGB(r,g,b);
end;

function Lighter(Color:TColor; Percent:Byte):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;


 
Джо ©   (2006-01-05 17:19) [3]

П.С. Где взял, не помню.


 
Игорь Шевченко ©   (2006-01-05 17:29) [4]


> Алгоритмы есть разные.


Это точно. Я в HLS переводил и L увеличивал, потом обратно в RGB

Вроде этого:

function THSColorManager.GetDarkerColorEx(Color: TColor;
 PercentChange: Integer): TColor;
var
 H, S, L, Percent: Double;
begin
 RGBtoHSL (Color, H, S, L);
 Percent := PercentChange / 100.0;
 L := L - Percent;
 if L <= 0 then
   L := 0;
 Result := HSLtoRGB (H, S, L);
end;

function THSColorManager.GetLighterColorEx(Color: TColor;
 PercentChange: Integer): TColor;
var
 H, S, L, Percent: Double;
begin
 RGBtoHSL (Color, H, S, L);
 Percent := PercentChange / 100.0;
 L := L + Percent;
 if L >= 1 then begin
   S := S - (L - 1.0);
   if S < 0 then
     S := 0;
   L := 1;
 end;
 Result := HSLtoRGB (H, S, L);
end;


 
AlexWlad ©   (2006-01-05 17:30) [5]


> Джо ©   (05.01.06 17:18) [2]


Не совсем корректно. Надо переводить в HUE, там увеличивать яркость, а потом обратно. Тут на форумах проскакивали примеры - поищи.


 
Джо ©   (2006-01-05 18:36) [6]

AlexWlad ©  
> Надо переводить в HUE, там увеличивать яркость, а потом
> обратно

См. "Алгоритмы есть разные". :)
Вот у Игоря, в общем, формально наиболее корректный. Однако, во многих случаях, достаточно и [2].



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

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

Наверх




Память: 0.45 MB
Время: 0.027 c
6-1129103609
Wiz@rd
2005-10-12 11:53
2006.01.22
bind error


14-1135446275
Pazitron_Brain
2005-12-24 20:44
2006.01.22
Законопроект о бесплатных входящих принят во втором чтении


6-1128849804
Galiaf
2005-10-09 13:23
2006.01.22
Socket, отправить клиенту данные зная только его Ip.


14-1135654521
boalse
2005-12-27 06:35
2006.01.22
Редактирование


6-1128678819
Mr. WAP
2005-10-07 13:53
2006.01.22
Перекодировка ..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский