Changeset 11 for trunk/UCore.pas

Timestamp:

Oct 4, 2019, 11:57:05 PM (5 years ago)

Author:

chronos

Message:

• Added: Configurable speed of animations.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator,
-  URegistry, UGame;
+  URegistry, UGame, ActnList, Forms, Controls;
 
 type
@@ -14 +14 @@
 
   TCore = class(TDataModule)
+    AAbout: TAction;
+    ASettings: TAction;
+    ActionList1: TActionList;
+    AExit: TAction;
+    AGameNew: TAction;
     ApplicationInfo1: TApplicationInfo;
     PersistentForm1: TPersistentForm;
     ThemeManager1: TThemeManager;
     Translator1: TTranslator;
+    procedure AAboutExecute(Sender: TObject);
+    procedure AExitExecute(Sender: TObject);
+    procedure AGameNewExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -36 +45 @@
 
 uses
-  UFormMain;
+  UFormMain, UFormSettings, UFormAbout, UFormNew;
 
 { TCore }
@@ -49 +58 @@
 end;
 
+procedure TCore.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.ShowModal;
+  finally
+    FreeAndNil(FormSettings);
+  end;
+end;
+
+procedure TCore.AAboutExecute(Sender: TObject);
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := Core.ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
+end;
+
+procedure TCore.AExitExecute(Sender: TObject);
+begin
+  FormMain.Close;
+end;
+
+procedure TCore.AGameNewExecute(Sender: TObject);
+begin
+  FormNew := TFormNew.Create(nil);
+  try
+    FormNew.Load(Core.Game);
+    if FormNew.ShowModal = mrOk then begin
+      FormNew.Save(Core.Game);
+      Game.New;
+    end;
+  finally
+    FreeAndNil(FormNew);
+  end;
+end;
+
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
@@ -57 +106 @@
 procedure TCore.GameChange(Sender: TObject);
 begin
-  FormMain.Repaint;
+  FormMain.Redraw;
 end;
 
@@ -67 +116 @@
 
     Game.TopScore := ReadIntegerWithDefault('TopScore', 0);
+    Game.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
+    Game.AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
   finally
     Free;
@@ -79 +130 @@
 
     WriteInteger('TopScore', Game.TopScore);
+    WriteInteger('SizeX', Game.Size.X);
+    WriteInteger('SizeY', Game.Size.Y);
+    WriteInteger('AnimationDuration', Game.AnimationDuration);
   finally
     Free;