Скачать: CL | DM;

Изменение размеров 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].

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

---

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

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

:)
See also: TImage.Proportional

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c