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

Previous  Top  Next

    
 

 

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

Code:

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;

 

 

©Drkb::03679

Взято из http://forum.sources.ru