Обратный цвет

← →
MIKL (2003-11-29 20:37) [0]

Как использовать обратный цвет(черный-белый, желтый синий и т.д) не зная какой именно?

← →
Sam Stone © (2003-11-29 21:04) [1]

Вычти из белого имеющийся цвет.

← →
Vemer © (2003-11-30 14:44) [2]

Или попробуй операцию NOT на исходном цвете, но если значение цвета хранить в Integer, надо старшие 8 бит обнулить/не трогать, чтоб палитра не переключалась.

← →
Sam Stone © (2003-11-30 16:05) [3]

> надо старшие 8 бит обнулить/не трогать

может старшее слово? Integer же 4 байта занимает

← →
Vemer © (2003-12-01 12:00) [4]

> Sam Stone
Нет, старший байт.
Самый младший байт - красный цвет.
Затем -зеленый и синий.
А старший байт (или старшие 8 бит) - номер палитры.

> использовать

Растровые операции?

TPen.Mode
pmNotCopy Inverse of pen color

function GetInvertColor(const ASrcColor: TColor): TColor;
begin
Result := $00FFFFFF and (not ASrcColor);
end;

Обратный цвет Найти похожие ветки