Смешиваем два цвета

Самый простой способ смешать два цвета c1 и c2, это вычислить средние значения rgb-значений. Данный пример не отличается особой быстротой, поэтому если Вам нужно быстро смешивать цвета, то прийдётся пошевелить мозгами...

function
 GetMixColor(c1, c2: TColor): TColor;
begin

  // вычисляем средние значения Красного, Синего и Зелёного значений
  // цветов c1 и c2:
  Result := RGB(
    (GetRValue(c1) + GetRValue(c2)) div
 2,
    (GetGValue(c1) + GetGValue(c2)) div
 2,
    (GetBValue(c1) + GetBValue(c2)) div
 2
    );
end
;

Другое по теме:

• Работа с палитрой
• Перевод RGB в GRAY
• Преобразование цвета RGB 34 HLS