Форум: "Основная";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];

Вниз

Есть цвет 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c