Как сделать Zoom (масштабирование) изображений

@Kiminaro · Регистрация: 03.04.2016

Всем привет. Сделал обозреватель изображений, все норм, но не знаю как можно приблизить картинку используя Батоны или трэкбар.
Если можете подсказать, то желательно используя трекбар. Пожалуйста.

@edukra · 04.04.2016, 08:57

Можно так: у TImage выставить свойства stretch и proportional в true , а затем менять размер самого TImage

Pascal

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  image1.width:=trackbar1.Position;
  image1.height:=trackbar1.Position;
end;

@Kiminaro · 04.04.2016, 16:34 **[ТС]**

Хорошо, вроде разобрался, но теперь он увеличивает изображение постоянно, даже если увожу трекбар до 0, через For 1 to 10 не получается.

Pascal

for TrackBar1.Position:=1 to 10 do begin
 image1.Width:=Image1.Width+500;
 image1.height:=Image1.Height+500; 
end;

ошибку выдает, что не может быть как For.

@edukra · 04.04.2016, 17:02

что-то я не понял: зачем нужен цикл? Вообще по первому вопросу я подумал, что нужно масштабировать изображение при помощи trackbar. А использовать свойство компонента в качестве счетчика цикла не получится.

@Kiminaro · 04.04.2016, 17:10 **[ТС]**

Pascal

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if TrackBar1.Position=0 then Image1.Align:=alClient else image1.Align:=alCustom;
    if TrackBar1.Position=0 then Image1.Center:=true else Image1.Center:=False;
    image1.Width:=Image1.Width+500;
  image1.height:=Image1.Height+500;
end;
end.

Вот код, когда двигаешь ползунок трек бара, он приближает, все нормально, но когда двигаешь обратно до нуля, он все еще приближает, так как срабатывает *+500.вот надо чтоб в обратном было -500 на каждую позицию, и не знаю как сделать...

@edukra · 04.04.2016, 18:56

А чем не устраивает тот код, что я привел в пример? достаточно trackbar.max назначить большое число, например 8000 и можно менять размер изображения от 1х1 до 8000х8000

@Kiminaro 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 18
		1
	Как сделать Zoom (масштабирование) изображений 03.04.2016, 21:25. Показов 4401. Ответов 5 Метки нет (Все метки) Всем привет. Сделал обозреватель изображений, все норм, но не знаю как можно приблизить картинку используя Батоны или трэкбар. Если можете подсказать, то желательно используя трекбар. Пожалуйста. 0

@edukra 591 / 543 / 206 Регистрация: 24.01.2012 Сообщений: 1,338
	04.04.2016, 17:02	4
	что-то я не понял: зачем нужен цикл? Вообще по первому вопросу я подумал, что нужно масштабировать изображение при помощи trackbar. А использовать свойство компонента в качестве счетчика цикла не получится. 0

@edukra 591 / 543 / 206 Регистрация: 24.01.2012 Сообщений: 1,338
	04.04.2016, 18:56	6
	А чем не устраивает тот код, что я привел в пример? достаточно trackbar.max назначить большое число, например 8000 и можно менять размер изображения от 1х1 до 8000х8000 0

Опции темы