Changeset 90 for trunk/Forms/UFormMain.lfm

Timestamp:

Feb 2, 2022, 2:55:58 PM (2 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.2.0.
• Modified: Updated Common package.
• Added: Read Me file with app description and development information.
• Added: Test form available in debug mode from Tools menu with list of test cases to better support app testability.

File:

• trunk/Forms/UFormMain.lfm (modified) (10 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 601
-  Height = 796
+  Height = 829
   Top = 447
-  Width = 1178
+  Width = 1227
   Caption = 'vCard Studio'
-  ClientHeight = 762
-  ClientWidth = 1178
-  DesignTimePPI = 144
+  ClientHeight = 794
+  ClientWidth = 1227
+  DesignTimePPI = 150
   Menu = MainMenu1
   OnClose = FormClose
@@ -15 +15 @@
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '2.0.12.0'
+  LCLVersion = '2.2.0.4'
   object CoolBar1: TCoolBar
     Left = 0
-    Height = 43
+    Height = 44
     Top = 0
-    Width = 1178
+    Width = 1227
     AutoSize = True
     Bands = <    
@@ -39 +39 @@
       AnchorSideTop.Control = CoolBar1
       Left = 24
-      Height = 33
+      Height = 34
       Top = 5
-      Width = 159
+      Width = 164
       Align = alNone
       AutoSize = True
@@ -60 +60 @@
       end
       object ToolButton2: TToolButton
-        Left = 36
+        Left = 37
         Top = 0
         Action = Core.AFileOpen
@@ -67 +67 @@
       end
       object ToolButton3: TToolButton
-        Left = 89
+        Left = 92
         Top = 0
         Action = Core.AFileSave
       end
       object ToolButton4: TToolButton
-        Left = 124
+        Left = 128
         Top = 0
         Action = Core.AFileClose
@@ -81 +81 @@
       AnchorSideTop.Control = CoolBar1
       Left = 188
-      Height = 33
+      Height = 34
       Top = 5
-      Width = 106
+      Width = 109
       Align = alNone
       AutoSize = True
@@ -97 +97 @@
       Transparent = True
       object ToolButton5: TToolButton
-        Left = 71
+        Left = 73
         Top = 0
         Action = Core.ASettings
       end
       object ToolButton6: TToolButton
-        Left = 36
+        Left = 37
         Top = 0
         Action = Core.AFindDuplicate
@@ -115 +115 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageList1
-    Left = 192
-    Top = 120
+    Left = 200
+    Top = 125
     object MenuItemFile: TMenuItem
       Caption = 'File'
@@ -181 +181 @@
         Action = Core.AGenerate
       end
+      object MenuItem4: TMenuItem
+        Action = Core.ATest
+      end
     end
     object MenuItemHelp: TMenuItem
@@ -193 +196 @@
   end
   object PopupMenuOpenRecent: TPopupMenu
-    Left = 420
-    Top = 120
+    Left = 438
+    Top = 125
   end
 end