克隆 ImageEnView1 的图像到第二个 ImageEnView2

procedure TForm1.ImageEnView1ViewChange(Sender: TObject; Change: Integer);

var

  Dest : TImageEnView;

begin

  if fUpdatingView then

    exit;



  if Sender = ImageEnView2 then

    Dest := ImageEnView1

  else

    Dest := ImageEnView2;



  fUpdatingView := True;

  Dest.LockUpdate();

  try

    Dest.Zoom := TImageEnView( Sender ).Zoom;

    Dest.SetViewXY( TImageEnView( Sender ).ViewX, TImageEnView( Sender ).ViewY );

  finally

    Dest.UnlockUpdate();

    fUpdatingView := False;

  end;

end;