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

trunk/Forms/FormMove.pas

@@ -12 +12 @@
 
   TFormMove = class(TFormEx)
+    ButtonOnceMax: TButton;
+    ButtonOnceMin: TButton;
     ButtonRemove: TButton;
-    ButtonRepeatMax: TButton;
-    ButtonOnceMin: TButton;
-    ButtonOnceMax: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ButtonRepeatMax: TButton;
     ButtonRepeatMin: TButton;
     Label1: TLabel;
@@ -23 +23 @@
     Label3: TLabel;
     LabelWinProbability: TLabel;
+    ScrollBox1: TScrollBox;
     SpinEditOnce: TSpinEdit;
     SpinEditRepeat: TSpinEdit;
     TrackBarOnce: TTrackBar;
     TrackBarRepeat: TTrackBar;
+    procedure ButtonOkClick(Sender: TObject);
     procedure ButtonOnceMaxClick(Sender: TObject);
     procedure ButtonRemoveClick(Sender: TObject);
@@ -107 +109 @@
 end;
 
+procedure TFormMove.ButtonOkClick(Sender: TObject);
+begin
+
+end;
+
 procedure TFormMove.ButtonRemoveClick(Sender: TObject);
 begin