Changeset 62 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 25, 2020, 4:25:09 PM (3 years ago)

Author:

chronos

Message:

• Added: Main game menu.

File:

• trunk/Forms/UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, UEngine, LCLType, types;
+  ExtCtrls, UEngine, LCLType, types, UTranslator, UApplicationInfo, URegistry;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ApplicationInfo1: TApplicationInfo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    Translator1: TTranslator;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -33 +35 @@
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+  private
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
     Engine: TEngine;
@@ -52 +57 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  LoadConfig;
   Engine := TEngine.Create;
   //PaintBox1.ControlStyle := [csOpaque];
+  Randomize;
 end;
 
@@ -59 +66 @@
 begin
   Engine.Free;
+  SaveConfig;
 end;
 
@@ -76 +84 @@
   Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
   Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
-  Engine.Reset;
+  Engine.MainMenu;
 end;
 
@@ -132 +140 @@
 end;
 
+procedure TFormMain.LoadConfig;
+var
+  LangCode: string;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    if ValueExists('LanguageCode') then begin
+      LangCode := ReadStringWithDefault('LanguageCode', '');
+      Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
+    end else Translator1.Language := Translator1.Languages.SearchByCode('');
+    //ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormMain.SaveConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    if Assigned(Translator1.Language) and (Translator1.Language.Code <> '') then
+      WriteString('LanguageCode', Translator1.Language.Code)
+      else DeleteValue('LanguageCode');
+    //WriteString('Theme', ThemeManager1.Theme.Name);
+  finally
+    Free;
+  end;
+end;
+
+
 end.