@AngelFantom

Собственно вопрос следующий.
Мне нужно в компонент Timage заносить изображения различних размеров (изображение заносится попиксельно Timage.Canvas.pixels[x,y] := $0044554433). После занесения изображения в Timage изображение растягивается при помощи метода Stretch(). Если таким подходом занисить первое изображение и растягивается, то никаких проблем не возникает, проблемы возникают если нужно занисти другое изображение с другими размерами, очень сильное искажение (входящее изображение растягивается на размеры предыдущего).

Вопрос как сделать это другими подходом или подскажите что я делаю неправильно.

буду благодаран за любую помощь.

0

@Ядовитый

Ты размер TImage сначала явно устанавливай, стретч только растягивает всё, для пропорциональности используй свойство Proportional.
PS - а стретч - это метод? я всегда думал что свойство . .

0

@AngelFantom

To: Ядовитый.

да нет размер Timage я задаю наперед и мне нунужно что бы масштабировка была пропорциональной.
Распишу более подробно. Например я поставил окно Timage 500х500. Мне нужно ввести изображение 300х200 (это первое изображение). Вводится попиксельно и без проблем растягивается на размер 500х500. После этого мне нужно ввести изображение 50х100. Что происходит. Ввоже изображение попиксельно, но вот проблема оно не масштабируется, поскольку оно меньше чем первое(по размеру). тоисть масштабируются теже 300х200. Тоисть нужной масштабировки нет. Тоисть, как я понял, Timage масштабируэт не по размеру изображения а по количеству "залитых" точек. от сюда вопрос как сделать что бы все работаль или как очистить "залитые" точки. Понятно что простой зарисовкой ничего не получается для компоненты что все поле залито черным цветом что картинкой всеравно.

0

@Aravinio

"Залитые" пикселы TImage хранит в TImage.Picture.Bitmap (тип этой штуки - TBitmap), который также имеет свойства Heigth и Width. Оставь в покое TImage и попробуй, просто, задать в них "настоящий" размер изображения

0