Смешиваем два цвета.
Falk0ner, вс, 06/07/2008 - 15:35.
Самый простой способ смешать два цвета 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;
begin
// вычисляем средние значения Красного, Синего и Зелёного значений
// цветов c1 и c2:
Result := RGB (
(GetRValue (c1) + GetRValue (c2)) div 2,
(GetGValue (c1) + GetGValue (c2)) div 2,
(GetBValue (c1) + GetBValue (c2)) div 2
);
end;
Взято из http://forum.sources.ru
Отправить комментарий