Changeset 90 for trunk/UCore.pas

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/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -17 +17 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    ATest: TAction;
     AFind: TAction;
     AFileSplit: TAction;
@@ -57 +58 @@
     procedure AHomePageExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure ATestExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -102 +104 @@
 uses
   UFormMain, UFormSettings, UContact, UFormContacts, UFormFindDuplicity,
-  UFormGenerate, UFormError, UFormFind;
+  UFormGenerate, UFormError, UFormFind, UFormTest;
 
 resourcestring
@@ -264 +266 @@
 end;
 
+procedure TCore.ATestExecute(Sender: TObject);
+begin
+  with TFormTest.Create(nil) do
+  try
+    ShowModal;
+  finally
+    Free;
+  end;
+end;
+
 procedure TCore.AFileNewExecute(Sender: TObject);
 begin
@@ -512 +524 @@
   AFindDuplicate.Enabled := Assigned(DataFile);
   AGenerate.Enabled := Assigned(DataFile);
+  {$IFOPT D+}
+  ATest.Enabled := True;
+  {$ENDIF}
+  {$IFOPT D-}
+  ATest.Enabled := False;
+  {$ENDIF}
+  ATest.Visible := ATest.Enabled;
 end;