|
Вопрос # 632/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста как в TImage пропорционально изменять масштаб изображения (необходимо чтобы картинка вписывалась в данный TImage сохраняя пропорциональными высоту и ширину относительно исходных). Заранее спасибо, Сергей
 |
Вопрос задал: Сергей Миюсов - 1091 (статус: Посетитель)
Вопрос отправлен: 14 июня 2007, 16:48
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Сергей Миюсов!
Выставить два свойства?
Proportional = True
Stretch = True
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 14 июня 2007, 16:57
Оценка за ответ: 1
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 15 июня 2007, 11:52; участников в обсуждении: 3.
|
|
Сергей Миюсов - 1091 (статус: Посетитель), 14 июня 2007, 18:08 [#1]:
К сожалению у меня еще Delphi 5 и свойство Proportional в TImage отсутствует.
|
|
|
Вадим К (статус: Академик), 14 июня 2007, 18:20 [#2]:
хм. Поставили оценку 1 за то, что я не знал, что у вас 5 делфи? У вас указание на это отсутствует.
Это можно решить тремя способами.
а) установить 7 делфи. Она работает на порядок лучше.
б) прорисовывать самому
в) подсмотреть реализацию в 7 делфи и написать своего наследника.
При особом желании могу прислать реализацию этого класса в 7 делфи
Галочка "подтверждения прочтения" - вселенское зло.
|
|
Градов Ю.М. (статус: 8-ой класс), 15 июня 2007, 08:30 [#3]:
var
Height, Width: integer;
HH, WW: real;
begin
Height := 329;
Width := 329;
Image1.Picture.LoadFromFile(edit1.Text);
Image1.AutoSize := true;
Image1.AutoSize := false;
HH := Image1.Height / Height;
WW := Image1.Width / Width;
if (HH > WW) then
begin
Image1.Height := trunc(Image1.Height / HH);
Image1.Width := trunc(Image1.Width / HH);
Image1.Stretch := True;
//По высоте;
end
else
begin
Image1.Height := trunc(Image1.Height / WW);
Image1.Width := trunc(Image1.Width / WW);
Image1.Stretch := True;
//По ширине;
end;
end;
|
|
|
Градов Ю.М. (статус: 8-ой класс), 15 июня 2007, 11:52 [#5]:
Не за что! Удачи
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
