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

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

Как узнать координаты точки рисунка, что лежит в Image? [D7, 95/98]


dera ©   (2006-03-07 14:21:00) 


Virgo_Style   (2006-03-07 21:32:00) [1]

dera   (07.03.06 17:44) [14]
А что, если jpeg, то нельзя определить цвет?


Я вроде чуть выше написал, как надо грузить jpeg?


antonn   (2006-03-07 18:57:00) [2]

цвет - это число.

label1.caption:=inttostr(clred);


dera   (2006-03-07 18:11:00) [3]

Как определить цвет? Т.е., чтоб при клике на картинке (bmp) показало в лейбле код (или название) цвета.


dera   (2006-03-07 17:44:00) [4]

а что должно быть? А что, если jpeg, то нельзя определить цвет?


Virgo_Style   (2006-03-07 17:37:00) [5]

dera   (07.03.06 16:44) [11]

мне кажется, что такая ошибка при загрузке jpg и обращении через Bitmap происходит, нет? Не помню уже.

тогда загружать jpg надо так (по памяти) -

uses JPEG;
...
var JPG:TJpegImage;
...
JPG:=TJpegImage.Create;
try
 JPG.LoadFromFile(...);
 Image.Picture.Bitmap.Assign(JPG);
finally
 JPG.Free;
end;


antonn   (2006-03-07 17:30:00) [6]

потому что там jpeg...


dera   (2006-03-07 16:44:00) [7]

>if Image.Canvas.Pixels[x,y] = clRed then MessageBox (в OnMousDown)

Пишет:"Can only modify an image if it contains a bitmap"


Virgo_Style   (2006-03-07 16:22:00) [8]

if Image.Canvas.Pixels[x,y] = clRed then MessageBox(...)


dera   (2006-03-07 15:55:00) [9]

как можна сделать такое: Если точка с координатами (X,Y) красного цвета, то вывести сообщение - "красный"


dera   (2006-03-07 14:54:00) [10]

>Zeqfreed ©   (07.03.06 14:50) [7]
Спасибо!!!


Zeqfreed   (2006-03-07 14:50:00) [11]

Canvas это свойство класса TImage. Image.Canvas, ну или Image.Picture.Bitmap.Canvas.


dera   (2006-03-07 14:44:00) [12]

извиняюсь за глупый вопрос, но что такое Canvas и на какой закладке он лежит?


Zeqfreed   (2006-03-07 14:37:00) [13]

например, Canvas.Pixels[X, Y] вернет цвет пиксела с координатами X, Y.


dera   (2006-03-07 14:35:00) [14]

спасибо.
а цвет как узнать?


Zeqfreed   (2006-03-07 14:31:00) [15]

Координаты точки относительно верхнего левого (по умолчанию) угла рисунка: X, Y в пределах обработчиков OnMouseMove/Up/Down.


dera   (2006-03-07 14:27:00) [16]

например, я кликаю по рисунку и необходимо знать координаты точки


antonn   (2006-03-07 14:24:00) [17]

как узнать долготу и широту?


Наверх

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