Changeset 2 for trunk/UFormMain.pas

Timestamp:

Dec 6, 2018, 10:58:45 PM (5 years ago)

Author:

chronos

Message:

• Added: New game dialog with setting of game board size.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (5 diffs)

trunk/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UGame;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
+  ActnList, UGame;
 
 type
@@ -13 +14 @@
 
   TFormMain = class(TForm)
+    AGameNew: TAction;
+    ActionList1: TActionList;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItemGame: TMenuItem;
+    procedure AGameNewExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormPaint(Sender: TObject);
@@ -29 +38 @@
 
 {$R *.lfm}
+
+uses
+  UFormNew;
 
 { TFormMain }
@@ -50 +62 @@
 end;
 
+procedure TFormMain.AGameNewExecute(Sender: TObject);
+begin
+  FormNew.Load(Game);
+  if FormNew.ShowModal = mrOk then begin
+    FormNew.Save(Game);
+    Game.New;
+  end;
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+  Randomize;
+  Game := TGame.Create;
+  Game.Size := Point(4, 4);
+  Game.OnChange := GameChange;
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  Game.Free;
+end;
+
 procedure TFormMain.FormPaint(Sender: TObject);
 begin
@@ -57 +91 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Randomize;
-  Game := TGame.Create;
-  Game.Size := Point(3, 3);
-  Game.OnChange := GameChange;
   Game.New;
-
   {
   Game.Cells[0, 0].Value := 1;