Изменение размеров Image

← →
i2e (2012-01-23 13:23) [0]

Изменяю размер Image1 из работающей программы. Перерисовка картинки делается пропорционально изменению. Как и задумано.
Но отрисовывается только ее часть, которая соответствует ИЗНАЧАЛЬНО заданному размеру Image. Т.е. габарит изображения остается прежний.

Отрисовка:
pRect := PictForm.Image1.ClientRect; // задали область отрисовки Image1.Canvas.StretchDraw(pRect, ImgPic.Picture.Graphic); // из переменной ImgPic загрузили картинку и растянули до размера Image1

Изменение размера:
Image1.Width := Image1.Width * 2; Image1.Height := Image1.Height * 2; Image1.Repaint;

Чего еще забыл сделать?

← →
MBo © (2012-01-23 13:27) [1]

размеры TImage.Picture.Bitmap изменить

← →
Германн © (2012-01-23 13:34) [2]

А чем не устроило свойство TImage.Stretch?

← →
Сергей М. © (2012-01-23 13:39) [3]

> Германн © (23.01.12 13:34) [2]

Стреч по идее работает для изображений, которые предзагружены в TImage.Picture.

А автор его, похоже, вообще не использует, что сводит на нет соотв.возможности TImage - с тем же успехом без пыли и шума можно было задействовать TPaintBox.

← →
i2e (2012-01-23 13:45) [4]

к [2].

Полностью устроило.
Только ж про него знать надо было. Теперь знаю.
Благодарю.

> Только ж про него знать надо было. Теперь знаю.

:)
See also: TImage.Proportional

Изменение размеров Image Найти похожие ветки