//pnlActive - TPanel (Align=alClient)
//ievActive - TImageEnView (Align=alNone, parent = pnlActive)
procedure RealignImage;
begin
  ievActive.LockPaint;
  ievActive.Width := pnlActive.Width;
  ievActive.Height := pnlActive.Height;

  if (actFit.Checked = true) then
    if ((ievActive.Bitmap.height > ievActive.height) or
      (ievActive.Bitmap.width > ievActive.width)) then
      ievActive.Fit
    else
      ievActive.Zoom := 100;

  ievActive.Width := ievActive.IdealComponentWidth - 1;
  ievActive.Height := ievActive.IdealComponentHeight - 1;
  ievActive.Left := (pnlActive.Width - ievActive.Width) div 2;
  ievActive.Top := (pnlActive.Height - ievActive.Height) div 2;

  ievActive.UnLockPaint;
end;