Главная страница
    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.026 c
2-1135845650
azl
2005-12-29 11:40
2006.01.22
Корректное завершение работы программы при выключении ПК


14-1134685773
Antip
2005-12-16 01:29
2006.01.22
Delphi 2006, скорость загрузки


2-1136225094
Sergey2005
2006-01-02 21:04
2006.01.22
JPG в BMP


2-1136287686
Officeman
2006-01-03 14:28
2006.01.22
Как програмно закрасить кнопку (TButton) красным ?


2-1136384434
Kshishtov
2006-01-04 17:20
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский