Changeset 12 for trunk/UFormMain.pas

Timestamp:

Feb 18, 2014, 8:47:40 PM (11 years ago)

Author:

chronos

Message:

• Added: Form where move parameters can be adjusted.

File:

• trunk/UFormMain.pas (modified) (4 diffs)

trunk/UFormMain.pas

@@ -58 +58 @@
     MoveActive: Boolean;
     RedrawPending: Boolean;
+    procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer);
   public
     Game: TGame;
@@ -69 +70 @@
 
 uses
-  UFormNew;
+  UFormNew, UFormMove;
 
 {$R *.lfm}
@@ -97 +98 @@
 end;
 
+procedure TFormMain.DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
+  CountRepeat: Integer);
+begin
+  FormMove.SpinEditOnce.Value := CountOnce;
+  FormMove.SpinEditRepeat.Value := CountRepeat;
+  if FormMove.ShowModal = mrOk then begin
+    CountOnce := FormMove.SpinEditOnce.Value;
+    CountRepeat := FormMove.SpinEditRepeat.Value;
+  end;
+end;
+
 procedure TFormMain.Redraw;
 begin
@@ -105 +117 @@
 begin
   Game := TGame.Create;
+  Game.OnMove := DoOnMove;
 end;