anchor.diff:            //AppCollapseHomeDirInFilename(ExtractFileDir(AFileName)),
             NFileSize div (1024*1024)
             ]));
  +      FProgressOldProgress:= 0;
         FProgressOldHandler:= Ed.Strings.OnProgress;
         Ed.Strings.OnProgress:= @HandleStringsProgress;
         FProgressForm.Show;
  
positive.code: end;
  
  procedure TEditorFrame.HandleStringsProgress(Sender: TObject);
  var
    St: TATStrings;
  begin
    St:= Sender as TATStrings;
    FProgressGauge.Progress:= St.ProgressValue;
    Application.ProcessMessages;
  end;
  
  
negative.code:     FOnAppClickLink: TATSynEditClickLinkEvent;
      FProgressForm: TForm;
      FProgressGauge: TATGauge;
      FProgressOldProgress: integer;
      FProgressOldHandler: TNotifyEvent;
  
      procedure ApplyThemeToInfoPanel(APanel: TPanel);
  