Image со свойством Stretch=True и чтение пикселей - Общие вопросы Delphi

Tronix · 05.11.2010, 16:10

Привет.
Есть картинко в Image1. У самого Image1 стоит свойство Stretch=True и Proportional=True. Image1 размером 320x200. Таким образом если картинко большая 1024x768, она сжимается до 320x200 на экране.

Вопрос стоит в том, чтобы как-то читать цвет пикселя с большой картинки. Ведь по идее, даже не смотря на Stretch=True, она вся целиком хранится где-то. Если делать например color := Image1.Canvas.Pixels[x,y], то X и Y должны быть в пределах 320 и 200, тоесть мы уже читаем пиксели с уменьшенной картинки. Если делать Image1.Picture.Bitmap.Canvas.Pixels[x,y], то вроде как тоже не работает (читает опять с малеькой картинки). Как получить цвет пикселя по координатам 670,500 к примеру (если изображение 1024x768)?

mihali4 · 05.11.2010, 16:52

Кинуть на форму еще одну Image2 с Visible=False, Autosize=True и читать пикселы оттуда...

Tronix · 05.11.2010, 18:32

Оказывается я тупил. Все нормально читается с помощью Image1.Canvas.Pixels[x,y] не смотря ни на какие свойства. Баг был совершенно в другом месте программы. Спасибо.

05.11.2010, 16:10	#1
Tronix Форумчанин Регистрация: 15.06.2010 Сообщений: 740	Image со свойством Stretch=True и чтение пикселей Привет. Есть картинко в Image1. У самого Image1 стоит свойство Stretch=True и Proportional=True. Image1 размером 320x200. Таким образом если картинко большая 1024x768, она сжимается до 320x200 на экране. Вопрос стоит в том, чтобы как-то читать цвет пикселя с большой картинки. Ведь по идее, даже не смотря на Stretch=True, она вся целиком хранится где-то. Если делать например color := Image1.Canvas.Pixels[x,y], то X и Y должны быть в пределах 320 и 200, тоесть мы уже читаем пиксели с уменьшенной картинки. Если делать Image1.Picture.Bitmap.Canvas.Pixels[x,y], то вроде как тоже не работает (читает опять с малеькой картинки). Как получить цвет пикселя по координатам 670,500 к примеру (если изображение 1024x768)? Чтобы понять рекурсию, сперва нужно понять рекурсию.

05.11.2010, 18:32	#3
Tronix Форумчанин Регистрация: 15.06.2010 Сообщений: 740	Оказывается я тупил. Все нормально читается с помощью Image1.Canvas.Pixels[x,y] не смотря ни на какие свойства. Баг был совершенно в другом месте программы. Спасибо. Чтобы понять рекурсию, сперва нужно понять рекурсию.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
быстрое чтение пикселей с экрана	eldalex	Общие вопросы Delphi	12	19.10.2010 13:20
Как сохранить Image со свойство Transparent:=True?	artemavd	Общие вопросы Delphi	17	17.10.2010 11:48
Проблема загрузки ХР, как результат конфликта Comodo Disk Encrypter и Acronis True Image 2010 HOME	amberrise	Windows	2	28.07.2010 14:19
Как избежать сужения (уменьшение размера) пикселей изображения, при включенном свойстве Stretch?	Лукманов Александр	Мультимедиа в Delphi	8	26.10.2009 09:52
В Image Transparen = true - тормоза при рисовании	lexaltd	Мультимедиа в Delphi	0	28.09.2008 16:03

05.11.2010, 16:52	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Кинуть на форму еще одну Image2 с Visible=False, Autosize=True и читать пикселы оттуда...