Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


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

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


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

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


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

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


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

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


Fenik   (2007-04-11 19:57:00) [4]

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


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

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


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

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


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

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


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

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


Fenik   (2007-04-11 19:20:00) [9]

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо