![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изменение размеров Image [D7, XP]
i2e © (2012-01-23 13:23:00)Изменяю размер 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;
Чего еще забыл сделать?
Германн (2012-01-23 13:50:00) [1]
> Только ж про него знать надо было. Теперь знаю.
:)
See also: TImage.Proportional
i2e (2012-01-23 13:45:00) [2]к [2].
Полностью устроило.
Только ж про него знать надо было. Теперь знаю.
Благодарю.
Сергей М. (2012-01-23 13:39:00) [3]
> Германн © (23.01.12 13:34) [2]
Стреч по идее работает для изображений, которые предзагружены в TImage.Picture.
А автор его, похоже, вообще не использует, что сводит на нет соотв.возможности TImage - с тем же успехом без пыли и шума можно было задействовать TPaintBox.
Германн (2012-01-23 13:34:00) [4]А чем не устроило свойство TImage.Stretch?
MBo (2012-01-23 13:27:00) [5]размеры TImage.Picture.Bitmap изменить