Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо