anchor.diff:      procedure Init (const aMessage : string; const aLog : TStrings); overload;
       procedure InitWithSingleList (const aMessage : string; const aLog : TPerformedOperationResultsAsLog);
   
  -    class procedure ShowResults(const aOwnerForm: TForm; const aMessage : string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType); overload;
  -    class procedure ShowResults(const aOwnerForm: TForm; const aMessage : string; const aLog: TStrings); overload;
  +    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;
   
   
  
positive.code:   end;
  end;
  
  class procedure TPerformedOperationResultsDlg.ShowResults(const aOwnerForm: TForm; const aMessage: string; const aLog: TStrings);
  var
    Dlg : TPerformedOperationResultsDlg;
  begin
    Dlg := TPerformedOperationResultsDlg.Create(aOwnerForm);
    try
      Dlg.Init(aMessage, aLog);
      Dlg.ShowModal;
  
negative.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)
  