Инверсный цвет

← →
Kozhanov © (2002-02-07 13:30) [0]

Господа, подскажите как лучше написать функцию получения
инверсного цвета.

Что-то типа :
function GetInvertColor(ASrcColor : TColor) : TColor;
begin
//.....................
end;

← →
Андрей Сенченко © (2002-02-07 13:43) [1]

RGB палитра - это смесь трех цветов по яркости
R- red от 0 до 255
G- green от 0 до 255
B- blue от 0 до 255

От этого и танцуй. Какая инверсия Тебя интересует ?

← →
Kozhanov © (2002-02-07 13:51) [2]

> Андрей Сенченко
Меня интересует инверсия цвета как такогого.
Например задаём цвет clRed получаем инверсный ему цвет.
Какие будут предложения ???

← →
Андрей Сенченко © (2002-02-07 13:52) [3]

Мысль не совсем закончил ... Соответственно для примера простая инверсия:
r,g,b : integer; realColor := RGB(r,g,b); invertColor := RGB(255-r,255-g,255-b);

← →
MBo © (2002-02-07 13:53) [4]

Result:=@00FFFFFF and (not ASrcColor);

← →
MBo © (2002-02-07 13:55) [5]

>@00FFFFFF $00FFFFFF, конечно

← →
Андрей Сенченко © (2002-02-07 13:57) [6]

> MBo © (07.02.02 13:53)

Как там в фильме ? Люблю смотреть как Ты колдуешь :) Расшифруй пожалуйста @00FFFFFF, не дай помереть в неведении :)

← →
Kozhanov © (2002-02-07 13:59) [7]

> MBo
И мне тоже расшифруй пожалуйста...

← →
MBo © (2002-02-07 14:00) [8]

расшифровал. а с @ тоже красиво ;)

← →
Андрей Сенченко © (2002-02-07 14:03) [9]

>> MBo © (07.02.02 14:00)
>> расшифровал. а с @ тоже красиво ;)

Кстати, на самом деле же не все поймут. Растолковал бы. Коротенько.

← →
Kozhanov © (2002-02-07 14:04) [10]

> MBo
Я серьёзно MBo, что такое $00FFFFFF ???

цвет - число Integer (Longint), в котором первый байт нам не нужен, а остальные - R,G,B
not инвертирует биты, например R=240 становится 15, а
and сбрасывает первый байт в 0, не влияя на другие

$00FFFFFF -в шестнадцатиричном представлении 2^24-1
(в двоично виде 8 нулей, 24 единицы)

> MBo
Круто !
Спасибо за разъяснения !!
Ваш совет мне был очень кстати !!!

Result:=SrcColor xor $00FFFFFF;

Верно. Мудро.

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