anchor.diff:    end;
   end;
   
  -procedure TPerformedOperationResultsDlg.Init(const aMessage: string; const aLog: TPerformedOperationResultsAsLog);
  +procedure TPerformedOperationResultsDlg.Init(const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aIfSuccessfulShowAlwaysSummaryFirst : boolean = false);
     procedure AddMemo (aIndex : integer; aLines : TStrings);
     var
       memo : TMemo;
  
positive.code:   mi.Tag:=PtrInt(lb);
  end;
  
  class procedure TPerformedOperationResultsDlg.ShowResults(const aOwner: TComponent; const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType);
  var
    Dlg : TPerformedOperationResultsDlg;
  begin
    Dlg := TPerformedOperationResultsDlg.Create(aOwner);
    try
      if aDialogType = porTabbed then
        Dlg.Init(aMessage, aLog)
      else if aDialogType = porSingleList then
        Dlg.InitWithSingleList(aMessage, aLog);
      Dlg.ShowModal;
  
negative.code:   FNotebook.Pages.Add(rsInfoTabCaption);
    AddListBoxOperations(TAB_INFO_INDEX, aLog.Infos);
  
    if aIfSuccessfulShowAlwaysSummaryFirst then
    begin
      if aLog.Errors.Count > 0 then
        FTabs.TabIndex:= TAB_ERROR_INDEX
      else
        FTabs.TabIndex:= TAB_SUMMARY_INDEX;
    end
    else
    begin
      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;
  end;
  
  procedure TPerformedOperationResultsDlg.Init(const aMessage: string; const aLog: TStrings);
  