Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
ВнизМасштабирование 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;
← →
Zew (2003-12-06 22:01) [6]http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=21-988625190
← →
Piero (2003-12-06 23:53) [7]Спасибо
← →
Piero (2003-12-06 23:53) [8]Спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c