Changeset 81

Timestamp:

Dec 17, 2021, 11:04:40 AM (2 years ago)

Author:

chronos

Message:

• Added: Find button in main app toolbar.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 1178
   Caption = 'vCard Studio'
-  ClientHeight = 766
+  ClientHeight = 762
   ClientWidth = 1178
   DesignTimePPI = 144
@@ -83 +83 @@
       Height = 33
       Top = 5
-      Width = 71
+      Width = 106
       Align = alNone
       AutoSize = True
@@ -97 +97 @@
       Transparent = True
       object ToolButton5: TToolButton
-        Left = 36
+        Left = 71
         Top = 0
         Action = Core.ASettings
       end
       object ToolButton6: TToolButton
+        Left = 36
+        Top = 0
+        Action = Core.AFindDuplicate
+      end
+      object ToolButton7: TToolButton
         Left = 1
         Top = 0
-        Action = Core.AFindDuplicate
+        Action = Core.AFind
       end
     end

trunk/Forms/UFormMain.pas

@@ -49 +49 @@
     ToolButton5: TToolButton;
     ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);