Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
Тфьу   (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;



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

Форум: "Основная";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
1-91330
Zheka
2003-04-15 12:26
2003.04.28
Дата создания файла


3-91223
xxxCrazyManxxx
2003-04-10 19:00
2003.04.28
Помогите в работе с курсорами MS SQL 7


3-91176
Patrick
2003-04-09 15:39
2003.04.28
Использование AppendRecord


6-91444
West Morgan
2003-03-05 15:12
2003.04.28
socket : asynchronous socket error 10061


1-91326
Stas
2003-04-15 11:00
2003.04.28
Копирование папки





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский