Оказалось быстрее написать простенькое решение, чем искать готовое... утилиту (точней, решения на её основе) можно использовать при работе с палитрами, заменой и фильтрацией цветов и т.п., например, если нужно найти в ограниченном наборе цветов палитры цвет, минимально отличающийся от заданного.

Утилита позволяет выбрать 2 цвета щелчком по левой и правой панелькам программы, появится стандартное окно выбора цвета TColorDialog.

Результат сравнения можно сохранить в файл HTML, вот такой:

 Пример файла HTML с результатми сравнения цветов (новое окно) (1 Кб)

Различие двух цветов оценивается по следующей формуле:
f(r,g,b) = 30*(R1-R2)2+59*(G1-G2)2+11*(B1-B2)2
где
R1, R2 - интенсивности красного для двух цветов,
G1, G2 - интенсивности зелёного,
B1, B2 - интенсивности синего.

Множители 30, 59, 11 реально отражают различную чувствительность человеческого глаза к красному, зеленому и синему цветам соответственно.

 Скачать утилиту ColorMeasure с исходниками (133 Кб, проект Delphi 3 и выше)

гостевая; E-mail