Changeset 6 for trunk/UFormMain.pas

Timestamp:

Feb 9, 2014, 9:53:30 PM (11 years ago)

Author:

chronos

Message:

• Added: New game parameters form.
• Added: Preparaton for cell mouse selection.

File:

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

trunk/UFormMain.pas

@@ -17 +17 @@
 
   TFormMain = class(TForm)
+    AGameRestart: TAction;
     AGameEndTurn: TAction;
     AGameEnd: TAction;
@@ -29 +30 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     PaintBox1: TPaintBox;
     procedure AExitExecute(Sender: TObject);
@@ -61 +63 @@
 implementation
 
+uses
+  UFormNew;
+
 {$R *.lfm}
 
@@ -86 +91 @@
 procedure TFormMain.AGameNewExecute(Sender: TObject);
 begin
-  Game.New;
-  PaintBox1.Repaint;
+  FormNew.Load(Game);
+  if FormNew.ShowModal = mrOk then begin
+    FormNew.Save(Game);
+    Game.New;
+    PaintBox1.Repaint;
+  end;
 end;
 
@@ -103 +112 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  StartMousePoint := Point(X, Y);
-  StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top);
-  MoveActive := True;
+  if Button = mbLeft then begin
+    StartMousePoint := Point(X, Y);
+    StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top);
+    MoveActive := True;
+  end;
 end;
 
@@ -121 +132 @@
       TPlayer(Game.Players[0]).View.Right - TPlayer(Game.Players[0]).View.Left,
       TPlayer(Game.Players[0]).View.Bottom - TPlayer(Game.Players[0]).View.Top);
+    TPlayer(Game.Players[0]).SelectCell(Point(X, Y));
     PaintBox1.Repaint;
   end;
-  Caption := IntToStr(TPlayer(Game.Players[0]).View.Right - TPlayer(Game.Players[0]).View.Left);
 end;