Смешиваем два цвета.
Материал из 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