anchor.diff:    end;
   end;
   
  -class procedure TPerformedOperationResultsDlg.ShowResults(const aOwnerForm: TForm; const aMessage: string; const aLog: TStrings);
  +class procedure TPerformedOperationResultsDlg.ShowResults(const aOwner: TComponent; const aMessage: string; const aLog: TStrings);
   var
     Dlg : TPerformedOperationResultsDlg;
   begin
  -  Dlg := TPerformedOperationResultsDlg.Create(aOwnerForm);
  +  Dlg := TPerformedOperationResultsDlg.Create(aOwner);
     try
       Dlg.Init(aMessage, aLog);
       Dlg.ShowModal;
  
positive.code:   mi.Tag:=PtrInt(lb);
  end;
  
  class procedure TPerformedOperationResultsDlg.ShowResults(const aOwnerForm: TForm; const aMessage: string; const aLog: TPerformedOperationResultsAsLog; const aDialogType: TPerformedOperationResultsDlgType);
  var
    Dlg : TPerformedOperationResultsDlg;
  begin
    Dlg := TPerformedOperationResultsDlg.Create(aOwnerForm);
    try
      if aDialogType = porTabbed then
        Dlg.Init(aMessage, aLog)
  
negative.code:     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;
  
  
  