Есть цвет 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
сильно сказано. уважаю.

thanx

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