Changeset 146 for trunk/Forms

Timestamp:

Aug 30, 2022, 7:56:17 PM (2 years ago)

Author:

chronos

Message:

• Modified: General test part moved into Common package.

Location:

trunk/Forms

Files:

• UFormTest.lfm (modified) (2 diffs)
• UFormTest.pas (modified) (5 diffs)

trunk/Forms/UFormTest.lfm

@@ -10 +10 @@
   OnClose = FormClose
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.2.0'
   object ListViewTestCases: TListView
     Left = 19
@@ -55 +54 @@
     Anchors = [akLeft, akBottom]
     Caption = '   '
+    ParentColor = False
   end
   object ActionList1: TActionList

trunk/Forms/UFormTest.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  ActnList, Menus, UTest;
+  ActnList, Menus, UTest, UTestCase;
 
 type
@@ -26 +26 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewTestCasesData(Sender: TObject; Item: TListItem);
@@ -59 +58 @@
     Item.Caption := Name;
     Item.Data := TestCases[Item.Index];
-    Item.SubItems.Add(ResultText[Result]);
+    Item.SubItems.Add(ResultText[TestResult]);
   end;
 end;
@@ -97 +96 @@
   Failed := 0;
   for I := 0 to TestCases.Count - 1 do begin
-    case TestCases[I].Result of
+    case TestCases[I].TestResult of
       trPassed: Inc(Passed);
       trFailed: Inc(Failed);
@@ -148 +147 @@
 end;
 
-procedure TFormTest.FormDestroy(Sender: TObject);
-begin
-end;
-
 procedure TFormTest.FormShow(Sender: TObject);
 begin