Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Вниз
Инверсный цвет Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c
