Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Вниз

как найти цвет изображение в любой его точке   Найти похожие ветки 

 
ПАВЕЛ123 ©   (2007-04-11 19:02) [0]

подскажите по делфи. имеется картинка, как определить код цвета РГБ в любом ее месте??
photo := TBitmap.Create;
photo.LoadFromFile("trace.bmp");
как найти цвет на координате х, у??


 
Fenik ©   (2007-04-11 19:20) [1]

var C: TColor;

  C := photo.Canvas.Pixels[x, y]
  R := C and $FF;
  G := (C and $FF00) shr 8;
  B := (C and $FF0000) shr 16;



 
ПАВЕЛ123 ©   (2007-04-11 19:25) [2]

спасибо! оперативно:)


 
ПАВЕЛ123 ©   (2007-04-11 19:38) [3]

а переменные R,G,B как описывать?


 
ПАВЕЛ123 ©   (2007-04-11 19:45) [4]

с переменными разобрался.как теперь код вывести вывести на экран?


 
ПАВЕЛ123 ©   (2007-04-11 19:45) [5]

скажем в левом верхнем углу картинки....


 
Fenik ©   (2007-04-11 19:57) [6]

Что значит вывести на экран?
Можно положить на форму TLabel и менять его Caption.


 
ПАВЕЛ123 ©   (2007-04-11 20:09) [7]

можешь мне помочь по аське? я плоховато разбираюсь в Делфи.. Учусь.  Вобщем стукни 308-541-911. Пожалуста:)


 
ПАВЕЛ123 ©   (2007-04-11 20:27) [8]

я делаю лабораторку по делфи, игру - гонки. машинка по трассе уже ездит. трасса нарисована в паинте. трасса серая и белая, трава зеленая, объекты, в которые машинка может врезатся - темно-серые. вот хочу чтоб анализировалось положение машинки в каждый момент времени на трассе, и в зависимости от того, по какому цвету она едет, происходило либо замедление (если по траве), либо остановка (если машинка наезжает на темно-серый объект). координаты машинки определить получается, а вот с цветами проблема.....жду хелпа:)


 
ПАВЕЛ123 ©   (2007-04-11 20:28) [9]

фишка в том, что можно за 5 сек нарисовать новую трассу



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

Форум: "Media";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.054 c
15-1201683696
Галинка
2008-01-30 12:01
2008.03.09
SQL Server


15-1201784829
NailMan
2008-01-31 16:07
2008.03.09
Нужен удобный FileWatcher


2-1202813111
Цукор5
2008-02-12 13:45
2008.03.09
преобразование строки


15-1201854959
clickmaker
2008-02-01 11:35
2008.03.09
Вызов почтового клиента из .NET


15-1201948234
ketmar
2008-02-02 13:30
2008.03.09
задачка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский