Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.023 c
1-1822
Djon007
2002-12-18 22:02
2003.01.02
Help!!!!!!!!!!!!


1-1798
Батник
2002-12-20 11:47
2003.01.02
Вопрос про батники в win98


3-1757
sndanil
2002-12-11 15:07
2003.01.02
DBGrid


3-1761
AM
2002-12-11 14:36
2003.01.02
Мультивставка строк в таблицу - возможно ли это?


1-1777
Переяслов Григорий
2002-12-20 10:54
2003.01.02
Обработка клавиш на форме





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский