anchor.diff:      procedure OnSaveToFile (Sender : TObject);
     public
       { public declarations }
  -    procedure Init (const aMessage : string; const aLog : TPerformedOperationResultsAsLog); overload;
  +    procedure Init (const aMessage : string; const aLog : TPerformedOperationResultsAsLog; const aIfSuccessfulShowAlwaysSummaryFirst : boolean = false); overload;
       procedure Init (const aMessage : string; const aLog : TStrings); overload;
       procedure InitWithSingleList (const aMessage : string; const aLog : TPerformedOperationResultsAsLog);
   
  -    class procedure ShowResults(const aOwner: TComponent; const aMessage : string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType); overload;
  +    class procedure ShowResults(const aOwner: TComponent; const aMessage : string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType; const aIfSuccessfulShowAlwaysSummaryFirst : boolean = false); overload;
       class procedure ShowResults(const aOwner: TComponent; const aMessage : string; const aLog: TStrings); overload;
     end;
   
  
positive.code:   FNotebook.Pages.Add(rsInfoTabCaption);
    AddListBoxOperations(TAB_INFO_INDEX, aLog.Infos);
  
    if aLog.Results.Count > 0 then
      FTabs.TabIndex:= TAB_RESULT_INDEX
    else if aLog.Errors.Count > 0 then
      FTabs.TabIndex:= TAB_ERROR_INDEX
    else if aLog.Warnings.Count > 0 then
      FTabs.TabIndex:= TAB_WARNING_INDEX
    else
      FTabs.TabIndex:= TAB_SUMMARY_INDEX;
  end;
  
  procedure TPerformedOperationResultsDlg.Init(const aMessage: string; const aLog: TStrings);
  
negative.code:   end;
  end;
  
  procedure TPerformedOperationResultsDlg.Init(const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aIfSuccessfulShowAlwaysSummaryFirst : boolean = false);
    procedure AddMemo (aIndex : integer; aLines : TStrings);
    var
      memo : TMemo;
  