[ivanko1993]

Вот скинул прогу, зум работает криво. Левую часть не могу при увеличении просмотреть. думаю проблема тут:

Код:

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;

[ivanko1993]

Подскажите что нужно исправить.