Вниз
Скачать: CL | DM;

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

 
ПАВЕЛ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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
3-1192621905
gentos
2007-10-17 15:51
2008.03.09
как прикрепить файл к письму ?


15-1202060677
Kostafey
2008-02-03 20:44
2008.03.09
С днем рождения ! 3 февраля


2-1202642822
oleg_teacher
2008-02-10 14:27
2008.03.09
Stringgrid


2-1202983389
oleg_teacher
2008-02-14 13:03
2008.03.09
Компонент ListBox


2-1202901262
olega
2008-02-13 14:14
2008.03.09
Ошибка при работе с ф-цией Copy(S:String,Index,Length:Integer)




   Наверх