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

Timestamp:

Jan 28, 2026, 9:57:27 PM (4 hours ago)

Author:

chronos

Message:

• Modified: Updated Common package.

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;