Changeset 584 for Common/Forms/FormTests.pas

Timestamp:

Jan 17, 2025, 8:00:49 AM (12 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

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;