[ivanko1993]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

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