Вот скинул прогу, зум работает криво. Левую часть не могу при увеличении просмотреть. думаю проблема тут:
Код:
procedure TForm1.mniN4Click(Sender: TObject);
begin
img1.Width:=img1.Width+50; //Увеличиваем длину Image и ширину
img1.Height:=img1.Height+50;
img1.Stretch:=True; //Устанавливаем пропорциональность и чтобы изображение было подогнано под размер Image
img1.Proportional:=True;
if (Form1.Width-img1.Width) mod 2 = 0 then
img1.Left:=(Form1.Width-img1.Width)div 2 else img1.Left:=(Form1.Width-img1.Width)div 2-1; //Устанавливаем картинку по центру формы
if (Form1.Height-img1.Height) mod 2 =0 then
img1.Top:=(Form1.Height-img1.Height) div 2 else img1.Top:=(Form1.Height-img1.Height) div 2-1;
end;