Changeset 8 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 26, 2019, 10:08:16 PM (5 years ago)

Author:

chronos

Message:

• Added: About application dialog.

Location:

trunk/Forms

Files:

• . (added)
• UFormMain.pas (moved) (moved from trunk/UFormMain.pas ) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    AAbout: TAction;
     AExit: TAction;
     AGameNew: TAction;
     ActionList1: TActionList;
-    ApplicationInfo1: TApplicationInfo;
     MainMenu1: TMainMenu;
-    MenuItem1: TMenuItem;
-    MenuItem2: TMenuItem;
+    MenuItemNew: TMenuItem;
+    MenuItemExit: TMenuItem;
+    MenuItemHelp: TMenuItem;
+    MenuItemAbout: TMenuItem;
     MenuItemGame: TMenuItem;
-    PersistentForm1: TPersistentForm;
+    procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
@@ -32 +34 @@
     procedure FormShow(Sender: TObject);
   private
-
   public
     Game: TGame;
@@ -46 +47 @@
 
 uses
-  UFormNew;
+  UCore, UFormNew, UFormAbout;
 
 { TFormMain }
@@ -75 +76 @@
 procedure TFormMain.AGameNewExecute(Sender: TObject);
 begin
-  FormNew.Load(Game);
-  if FormNew.ShowModal = mrOk then begin
-    FormNew.Save(Game);
-    Game.New;
+  FormNew := TFormNew.Create(nil);
+  try
+    FormNew.Load(Game);
+    if FormNew.ShowModal = mrOk then begin
+      FormNew.Save(Game);
+      Game.New;
+    end;
+  finally
+    FreeAndNil(FormNew);
   end;
 end;
@@ -84 +90 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  PersistentForm1.Save(Self);
+  Core.PersistentForm1.Save(Self);
 end;
 
@@ -90 +96 @@
 begin
   Close;
+end;
+
+procedure TFormMain.AAboutExecute(Sender: TObject);
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := Core.ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
 end;
 
@@ -107 +124 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
-  PersistentForm1.Load(Self);
+  Core.PersistentForm1.RegistryContext := Core.ApplicationInfo1.GetRegistryContext;
+  Core.PersistentForm1.Load(Self);
   Game.New;
   {