anchor.diff:    mi.Tag:=PtrInt(lb);
   end;
   
  -class procedure TPerformedOperationResultsDlg.ShowResults(const aOwner: TComponent; const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType);
  +class procedure TPerformedOperationResultsDlg.ShowResults(const aOwner: TComponent; const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType; const aIfSuccessfulShowAlwaysSummaryFirst : boolean = false);
   var
     Dlg : TPerformedOperationResultsDlg;
   begin
     Dlg := TPerformedOperationResultsDlg.Create(aOwner);
     try
       if aDialogType = porTabbed then
  -      Dlg.Init(aMessage, aLog)
  +      Dlg.Init(aMessage, aLog, aIfSuccessfulShowAlwaysSummaryFirst)
       else if aDialogType = porSingleList then
         Dlg.InitWithSingleList(aMessage, aLog);
       Dlg.ShowModal;
  
positive.code:     procedure OnSaveToFile (Sender : TObject);
    public
      { public declarations }
      procedure Init (const aMessage : string; const aLog : TPerformedOperationResultsAsLog); 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: TStrings); overload;
    end;
  
  
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;
  