Changeset 126 for trunk/UCore.lfm

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.lfm (modified) (6 diffs)

trunk/UCore.lfm

@@ -3 +3 @@
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
-  Height = 551
-  HorizontalOffset = 697
-  VerticalOffset = 632
-  Width = 756
-  PPI = 150
+  Height = 529
+  HorizontalOffset = 669
+  VerticalOffset = 607
+  Width = 726
+  PPI = 144
   object ImageList1: TImageList
-    Left = 120
-    Top = 208
+    Left = 115
+    Top = 200
     Bitmap = {
       4C7A1300000010000000100000008B1500000000000078DADD9B075854C7DAC7
@@ -190 +190 @@
   object ActionList1: TActionList
     Images = ImageList1
-    Left = 400
-    Top = 208
+    Left = 384
+    Top = 200
     object AExit: TAction
       Caption = 'Exit'
@@ -293 +293 @@
       OnExecute = AFileCompareExecute
     end
+    object ARemoveExactDuplicates: TAction
+      Caption = 'Remove exact duplicates'
+      OnExecute = ARemoveExactDuplicatesExecute
+    end
   end
   object LastOpenedList1: TLastOpenedList
     MaxCount = 10
     OnChange = LastOpenedList1Change
-    Left = 400
-    Top = 300
+    Left = 384
+    Top = 288
   end
   object OpenDialog1: TOpenDialog
     Title = 'Open existing file'
-    Left = 400
-    Top = 380
+    Left = 384
+    Top = 365
   end
   object SaveDialog1: TSaveDialog
     Title = 'Save file as'
-    Left = 120
-    Top = 380
+    Left = 115
+    Top = 365
   end
   object ApplicationInfo1: TApplicationInfo
@@ -321 +325 @@
     AppName = 'vCard Studio'
     Description = 'vCard files management tool'
-    ReleaseDate = 44636
+    ReleaseDate = 44687
     RegistryKey = '\Software\Chronosoft\vCard Studio'
     RegistryRoot = rrKeyCurrentUser
@@ -8521 +8525 @@
       0000000000000000000000000000000000000000000000000000
     }
-    Left = 120
-    Top = 300
+    Left = 115
+    Top = 288
   end
   object PersistentForm1: TPersistentForm
     MinVisiblePart = 50
     EntireVisible = False
-    Left = 400
-    Top = 130
+    Left = 384
+    Top = 125
   end
   object Translator: TTranslator
     POFilesFolder = 'Languages'
-    Left = 120
-    Top = 50
+    OnTranslate = TranslatorTranslate
+    Left = 115
+    Top = 48
   end
   object ScaleDPI1: TScaleDPI
     AutoDetect = False
-    Left = 400
-    Top = 50
+    Left = 384
+    Top = 48
   end
   object ThemeManager1: TThemeManager
-    Left = 120
-    Top = 130
+    Left = 115
+    Top = 125
   end
   object AboutDialog1: TAboutDialog
@@ -8548 +8553 @@
     ThemeManager = ThemeManager1
     ApplicationInfo = ApplicationInfo1
-    Left = 600
-    Top = 50
+    Left = 576
+    Top = 48
   end
   object SelectDirectoryDialog1: TSelectDirectoryDialog
     Title = 'Select directory'
-    Left = 602
-    Top = 392
+    Left = 578
+    Top = 376
   end
 end