Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.03.09;
Скачать: 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 вся ветка

Текущий архив: 2008.03.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
4-1184345957
GrayWolf
2007-07-13 20:59
2008.03.09
Утечка USER-хэндлов


3-1193051390
9899100
2007-10-22 15:09
2008.03.09
Oracle


15-1201951330
ketmar
2008-02-02 14:22
2008.03.09
любителям консольных утилит — просьба погонять


6-1179846831
samael6
2007-05-22 19:13
2008.03.09
Вынуть аттачмент из TidMessage без его "распаковки" + с хеадером


4-1184173897
kernel
2007-07-11 21:11
2008.03.09
Работа с HDD