Changeset 126 for trunk/UCore.pas

Timestamp:

Apr 6, 2022, 11:36:27 AM (2 years ago)

Author:

chronos

Message:

• Added: Action to remove exact duplicates.
• Modified: Test cases definition moved to separate file.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -17 +17 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    ARemoveExactDuplicates: TAction;
     AFileCompare: TAction;
     AViewSource: TAction;
@@ -60 +61 @@
     procedure AGenerateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
+    procedure ARemoveExactDuplicatesExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure ATestExecute(Sender: TObject);
@@ -66 +68 @@
     procedure DataModuleDestroy(Sender: TObject);
     procedure LastOpenedList1Change(Sender: TObject);
+    procedure TranslatorTranslate(Sender: TObject);
   private
     InitializeStarted: Boolean;
@@ -113 +116 @@
 
 uses
-  UFormMain, UFormSettings, UContact, UFormContacts, UFormFindDuplicity,
-  UFormGenerate, UFormError, UFormFind, UFormTest, UFormSource, UFormCompare;
+  UFormMain, UFormSettings, UContact, UFormContacts, UFormFindDuplicity, UTest,
+  UFormGenerate, UFormError, UFormFind, UFormTest, UFormSource, UFormCompare,
+  UTestCases;
 
 resourcestring
@@ -294 +298 @@
 end;
 
+procedure TCore.ARemoveExactDuplicatesExecute(Sender: TObject);
+begin
+  TContactsFile(DataFile).Contacts.RemoveExactDuplicates;
+  UpdateFile;
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
@@ -313 +323 @@
   with TFormTest.Create(nil) do
   try
-    ShowModal;
+    TestCases := InitTestCases;
+    try
+      ShowModal;
+    finally
+      TestCases.Free;
+    end;
   finally
     Free;
@@ -428 +443 @@
   LastOpenedList1.LoadToMenuItem(FormMain.MenuItemFileOpenRecent, AFileOpenRecentExecute);
   LastOpenedList1.LoadToMenuItem(FormMain.PopupMenuOpenRecent.Items, AFileOpenRecentExecute);
+end;
+
+procedure TCore.TranslatorTranslate(Sender: TObject);
+begin
+  UTest.Translate;
 end;