Масштабирование TImage

← →
Piero © (2003-12-06 18:14) [0]

Можно ли как-то автоматически выбирать масштаб для TImage. Stretch - не подходит т.к. нужно, что бы картинка изменялася в размерах пропорционально по вертикали и горизонтали. Спасибо

← →
Anatoly Podgoretsky © (2003-12-06 18:22) [1]

Все равно Stretch и математика из начальной школы, про пропорции.

← →
Mihey © (2003-12-06 18:45) [2]

Не знаю, конечно, как это поможет, но вт если бы ты использовал Graphic32, то ни о чём беспокоиться не надо было бы.

← →
Stilgar © (2003-12-06 20:18) [3]

Image1.Proportional:=True;

← →
Piero © (2003-12-06 20:24) [4]

Stilgar ©, я работаю на 5-й Delphi, и там нет такого свойства :(

← →
Stilgar © (2003-12-06 20:47) [5]

Ладно, воспользуюсь советом Anatoly Podgoretsky © (06.12.03 18:22) [1] :
procedure TMainForm.StretchProportional(Percent: Word);
begin
Image1.Stretch:=True;
if Image1.AutoSize=False then{может проверка лишняя, но я не знаю как у вас установлено это свойство}
begin
Image1.AutoSize:=True;
Image1.AutoSize:=False;
end;
Image1.Width:=Round(Image1.Width*Percent/100);
Image1.Height:=Round(Image1.Height*Percent/100);
end;

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=21-988625190

Спасибо

Масштабирование TImage Найти похожие ветки