Changeset 42 for trunk/Forms/UFormMove.pas

Timestamp:

Mar 18, 2014, 12:16:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Min and Max buttons on unit move form for easy usual actions.
• Added: Win objective can be selected on New game form.
• Added: Max number of netureal starting units per cell cen be adjusted.
• Added: Unit count is shown in move arrows.

File:

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

trunk/Forms/UFormMove.pas

@@ -14 +14 @@
 
   TFormMove = class(TForm)
+    ButtonRepeatMax: TButton;
+    ButtonOnceMin: TButton;
+    ButtonOnceMax: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ButtonRepeatMin: TButton;
     Label1: TLabel;
     Label2: TLabel;
@@ -22 +26 @@
     TrackBarOnce: TTrackBar;
     TrackBarRepeat: TTrackBar;
+    procedure ButtonOnceMaxClick(Sender: TObject);
+    procedure ButtonRepeatMinClick(Sender: TObject);
+    procedure uttonOnceMinClick(Sender: TObject);
+    procedure ButtonRepeatMaxClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure SpinEditOnceChange(Sender: TObject);
@@ -65 +73 @@
 end;
 
+procedure TFormMove.ButtonOnceMaxClick(Sender: TObject);
+begin
+  TrackBarOnce.Position := TrackBarRepeat.Max;
+end;
+
+procedure TFormMove.ButtonRepeatMinClick(Sender: TObject);
+begin
+  TrackBarRepeat.Position := TrackBarRepeat.Min;
+end;
+
+procedure TFormMove.uttonOnceMinClick(Sender: TObject);
+begin
+  TrackBarOnce.Position := TrackBarOnce.Min;
+end;
+
+procedure TFormMove.ButtonRepeatMaxClick(Sender: TObject);
+begin
+  TrackBarRepeat.Position := TrackBarRepeat.Max;
+end;
+
 procedure TFormMove.SpinEditRepeatChange(Sender: TObject);
 begin