Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.02;
Скачать: CL | DM;

Вниз

Есть цвет RGB надо узнать какой цвет ему   Найти похожие ветки 

 
SDS ©   (2002-12-20 17:46) [0]

сооиыетствует в градациях серого


 
MBo ©   (2002-12-20 18:01) [1]

(59g+30r+11b)/100


 
SDS ©   (2002-12-20 18:19) [2]

идея хорошая, но неужели в API ничего похожего нет?


 
MBo ©   (2002-12-21 07:33) [3]

>неужели в API ничего похожего нет?

Сделай ;)

library GrayAPI;

uses
Graphics;

//в асме не спец, наверно, можно оптимизировать
Function ColorToGray(Color:TColor):byte;
asm
push eax
push eax
mov edx, $001C974D
and eax, 0ffh
mul dl
mov ecx, eax
pop eax
and eax, 0ff00h
shr eax, 8
shr edx, 8
mul dl
add eax, ecx
mov ecx, eax
pop eax
and eax, 0ff0000h
shr eax, 16
shr edx, 8
mul dl
add eax, ecx
mov ecx, 128
add eax, ecx
shr eax, 8
end;

exports ColorToGray;

end.

------------------------------------------------

function ColorToGray (Color:TColor):byte; external "GrayAPI.DLL";

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=IntToStr(ColorToGray(clLime));
end;


 
AlexT1000   (2002-12-21 10:35) [4]

> MBo
сильно сказано. уважаю.


 
SDS ©   (2002-12-21 11:11) [5]

thanx



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

Текущий архив: 2003.01.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-1766
BF7ru
2002-12-11 15:48
2003.01.02
Вставка записи


4-1929
down
2002-11-16 19:49
2003.01.02
Тип упраляющего элемента по его его дескриптору


3-1764
pilot
2002-12-11 15:41
2003.01.02
Сравнение баз


6-1849
ppcat
2002-11-05 13:25
2003.01.02
Как получить список пользователей?


14-1867
saxon
2002-12-12 17:48
2003.01.02
Телефончик не нужен ?