Скачать: CL | DM;

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

← →
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 ???

---

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

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

---

← →
MBo ©   (2002-02-07 14:11) [12]

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

---

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

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

---

← →
DK ©   (2002-02-08 03:16) [14]

Result:=SrcColor xor $00FFFFFF;

---

← →
Mbo ©   (2002-02-08 07:05) [15]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c