Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Графика и Игры \ Цвета и Палитра \ Получить цвет обратный указанному

Получить цвет обратный указанному

procedure EdBackColor(FontC: TColor; var EditableColor,
   ReadOnlyColor: TColor);
   // Calculate the luminance of the color using the simplified formula 
  //     luminance = 0.25*red + 0.625*green + 0.125*blue 
  // If greater than 0.5, use a dark background 
var
   R, G, B: Integer;
 begin
   R := GetRValue(FontC) * 2;
   G := GetGValue(FontC) * 5;
   B := GetBValue(FontC);
   if R + G + B < 1024 then
   begin
     EditableColor := clWhite;
     ReadOnlyColor := clSilver;
   end
   else
   begin
     EditableColor := clBlack;
     ReadOnlyColor := clDkGray;
   end;
 end;

Название: Получить цвет обратный указанному
Дата публикации: 2004-08-31 (2276 Прочтено)

 
 

 

Page generation 0.033 seconds