Changeset 120 for trunk/Forms

Timestamp:

Feb 19, 2022, 12:09:21 AM (3 years ago)

Author:

chronos

Message:

• Added: Partially implemented contacts compare.

Location:

trunk/Forms

Files:

• UFormCompare.lfm (added)
• UFormCompare.lrj (added)
• UFormCompare.pas (added)
• UFormMain.lfm (modified) (4 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -83 +83 @@
       Height = 34
       Top = 5
-      Width = 109
+      Width = 145
       Align = alNone
       AutoSize = True
@@ -97 +97 @@
       Transparent = True
       object ToolButton5: TToolButton
-        Left = 73
+        Left = 109
         Top = 0
         Action = Core.ASettings
@@ -110 +110 @@
         Top = 0
         Action = Core.AFind
+      end
+      object ToolButton8: TToolButton
+        Left = 73
+        Top = 0
+        Action = Core.AFileCompare
       end
     end
@@ -146 +151 @@
         Action = Core.AFileSplit
       end
+      object MenuItem12: TMenuItem
+        Action = Core.AFileCompare
+      end
       object MenuItem2: TMenuItem
         Caption = '-'

trunk/Forms/UFormMain.pas

@@ -19 +19 @@
     MenuItem10: TMenuItem;
     MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -52 +53 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);