Changeset 365 for trunk/Packages/Common/Forms/FormTests.pas

Timestamp:

Jan 2, 2025, 2:29:10 PM (5 days ago)

Author:

chronos

Message:

• Modified: OK button moved to be on the left side of buttons.
• Modified: Allow to run test from test form.
• Fixed: Free tests during test list form close.

File:

• trunk/Packages/Common/Forms/FormTests.pas (modified) (2 diffs)

trunk/Packages/Common/Forms/FormTests.pas

@@ -16 +16 @@
     ActionList1: TActionList;
     ButtonRun: TButton;
+    ButtonClose: TButton;
     LabelResult: TLabel;
     ListViewTestCases: TListView;
@@ -119 +120 @@
   with TFormTest.Create(nil) do
   try
-    MemoLog.Text := TTestCase(ListViewTestCases.Selected.Data).Log;
+    TestCase := TTestCase(ListViewTestCases.Selected.Data);
     ShowModal;
+    ReloadList;
   finally
     Free;