Changeset 365 for trunk/Packages/Common/Forms/FormTest.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/FormTest.pas (modified) (3 diffs)

trunk/Packages/Common/Forms/FormTest.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, FormEx;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, FormEx,
+  TestCase;
 
 type
@@ -11 +12 @@
 
   TFormTest = class(TFormEx)
+    ButtonRun: TButton;
+    ButtonClose: TButton;
     MemoLog: TMemo;
+    procedure FormShow(Sender: TObject);
+    procedure ButtonRunClick(Sender: TObject);
+  private
+    FTestCase: TTestCase;
+    procedure SetTestCase(AValue: TTestCase);
+  public
+    property TestCase: TTestCase read FTestCase write SetTestCase;
   end;
 
@@ -19 +29 @@
 {$R *.lfm}
 
+{ TFormTest }
+
+procedure TFormTest.FormShow(Sender: TObject);
+begin
+  if Assigned(FTestCase) then MemoLog.Text := FTestCase.Log;
+end;
+
+procedure TFormTest.SetTestCase(AValue: TTestCase);
+begin
+  if FTestCase = AValue then Exit;
+  FTestCase := AValue;
+end;
+
+procedure TFormTest.ButtonRunClick(Sender: TObject);
+begin
+  if Assigned(FTestCase) then begin
+    FTestCase.Run;
+    MemoLog.Text := FTestCase.Log;
+  end;
+end;
+
 end.