Changeset 40 for trunk/Forms/UFormMove.pas

Timestamp:

Mar 11, 2014, 9:09:56 AM (11 years ago)

Author:

chronos

Message:

• Fixed: Save game settings not only on application exit but also on new game confirmation.
• Modified: Made moves arrows look like arrow now.

File:

• trunk/Forms/UFormMove.pas (modified) (2 diffs)

trunk/Forms/UFormMove.pas

@@ -22 +22 @@
     TrackBarOnce: TTrackBar;
     TrackBarRepeat: TTrackBar;
+    procedure FormShow(Sender: TObject);
     procedure SpinEditOnceChange(Sender: TObject);
     procedure SpinEditRepeatChange(Sender: TObject);
@@ -59 +60 @@
 end;
 
+procedure TFormMove.FormShow(Sender: TObject);
+begin
+  ButtonOk.SetFocus;
+end;
+
 procedure TFormMove.SpinEditRepeatChange(Sender: TObject);
 begin