Changeset 64 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 26, 2020, 4:58:02 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for dark mode.
• Added: Top left back button to exit from game to game menu. Allow to restart game and continue with playing.
• Added: Support for Escape key for exiting game and menu.

File:

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

trunk/Forms/UFormMain.pas

@@ -65 +65 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  Engine := TEngine.Create;
   LoadConfig;
-  Engine := TEngine.Create;
   //PaintBox1.ControlStyle := [csOpaque];
   Randomize;
@@ -85 +85 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  SaveConfig;
   Engine.Free;
-  SaveConfig;
 end;
 
@@ -103 +103 @@
 begin
   if Key = KeyF11 then begin
-    FormMain.FullScreen := not FormMain.FullScreen;
-    FormMain.PersistentForm1.SetFullScreen(FormMain.FullScreen);
-  end;
+    FullScreen := not FullScreen;
+    PersistentForm1.SetFullScreen(FormMain.FullScreen);
+  end else
+    Engine.KeyUp(Key);
 end;
 
@@ -112 +113 @@
   PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
   PersistentForm1.Load(Self, False, True);
+  FullScreen := PersistentForm1.FormFullScreen;
   Randomize;
+  Engine.InitMenus;
   Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);
   Engine.ImageLocomotive.Picture.Assign(FormImages.ImageLocomotive.Picture);
@@ -185 +188 @@
       Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
     end else Translator1.Language := Translator1.Languages.SearchByCode('');
-    //ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
+    Engine.DarkMode := ReadBoolWithDefault('DarkMode', False);
   finally
     Free;
@@ -200 +203 @@
       WriteString('LanguageCode', Translator1.Language.Code)
       else DeleteValue('LanguageCode');
-    //WriteString('Theme', ThemeManager1.Theme.Name);
+    WriteBool('DarkMode', Engine.DarkMode);
   finally
     Free;