Changeset 40 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMove.lfm (modified) (1 diff)
• UFormMove.pas (modified) (2 diffs)
• UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormMove.lfm

@@ -8 +8 @@
   ClientHeight = 240
   ClientWidth = 320
+  OnShow = FormShow
   LCLVersion = '1.3'
   object SpinEditOnce: TSpinEdit

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

trunk/Forms/UFormNew.pas

@@ -194 +194 @@
   SpinEditMapSizeX.Value := Game.Map.Size.X;
   SpinEditMapSizeY.Value := Game.Map.Size.Y;
+  TrackBarSizeX.Position := Game.Map.Size.X;
+  TrackBarSizeY.Position := Game.Map.Size.Y;
   RadioGroupGrowAmount.ItemIndex := Integer(Game.GrowAmount);
   RadioGroupGrowCells.ItemIndex := Integer(Game.GrowCells);