anchor.diff:      FOnAppClickLink: TATSynEditClickLinkEvent;
       FProgressForm: TForm;
       FProgressGauge: TATGauge;
  +    FProgressOldProgress: integer;
       FProgressOldHandler: TNotifyEvent;
   
       procedure ApplyThemeToInfoPanel(APanel: TPanel);
  
positive.code:           //AppCollapseHomeDirInFilename(ExtractFileDir(AFileName)),
            NFileSize div (1024*1024)
            ]));
        FProgressOldHandler:= Ed.Strings.OnProgress;
        Ed.Strings.OnProgress:= @HandleStringsProgress;
        FProgressForm.Show;
  
negative.code: end;
  
  procedure TEditorFrame.HandleStringsProgress(Sender: TObject);
  const
    //avoid too many form updates
    cStepPercents = 8;
  var
    St: TATStrings;
  begin
    St:= TATStrings(Sender);
    if St.ProgressValue-FProgressOldProgress<cStepPercents then exit;
    FProgressGauge.Progress:= St.ProgressValue;
    FProgressOldProgress:= St.ProgressValue;
    Application.ProcessMessages;
  end;
  
  