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

Материал из DRKB


Самый простой способ смешать два цвета 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;


Source: http://forum.sources.ru
ID: 03679