Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2009, 18:32   #21
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Самое правильное - это брать HSL и сортировать по H (если H одинаковый, то сравнить S)
TwiX вне форума Ответить с цитированием
Старый 30.09.2009, 17:55   #22
Altera
Старожил
 
Аватар для Altera
 
Регистрация: 29.01.2008
Сообщений: 2,406
По умолчанию

Сделал так:
Код:
function compareColor(const color1, color2: tColor): integer;
var
h1, h2, s1, s2, l1, l2: byte;
begin
   ColorToHSL(color1, h1, s1, l1);
   ColorToHSL(color2, h2, s2, l2);
   result := h2 - h1;

   if result = 0 then
      result := s2 - s1;

   if result = 0 then
      result := l2 - l1;
end;
Вроде работает нормально...
Altera вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Затемнение и осветление цветов. proglamer Мультимедиа в Delphi 1 02.12.2008 16:09
Получение 2х цветов и их сравнение Zeraim Помощь студентам 3 26.04.2008 15:43
Сравнивание цветов Zeraim Общие вопросы Delphi 7 26.04.2008 12:49
Копирование текста ячейки 2 цветов WIC Microsoft Office Excel 3 24.09.2007 13:32
Прозрачность для нескольких цветов в Image SERG1980 Общие вопросы Delphi 3 11.05.2007 19:53