Changeset 62 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Main game menu.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -35 +35 @@
     Top = 21
   end
+  object Translator1: TTranslator
+    POFilesFolder = 'Languages'
+    Left = 496
+    Top = 358
+  end
+  object ApplicationInfo1: TApplicationInfo
+    Identification = 1
+    VersionMajor = 1
+    VersionMinor = 1
+    VersionBugFix = 0
+    HomePage = 'https://app.zdechov.net/BigMetro'
+    AuthorsName = 'Chronosoft'
+    EmailContact = 'robie@centrum.cz'
+    AppName = 'Big Metro'
+    Description = 'Enjoyable real-time metro building game.'
+    ReleaseDate = 44160
+    RegistryKey = '\Software\Chronosoft\BigMetro'
+    RegistryRoot = rrKeyCurrentUser
+    License = 'CC0'
+    Left = 484
+    Top = 460
+  end
 end

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.