Changeset 63 for trunk/UEngine.pas

Timestamp:

Nov 26, 2020, 1:18:19 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for full screen mode.

File:

• trunk/UEngine.pas (modified) (4 diffs)

trunk/UEngine.pas

@@ -301 +301 @@
     procedure DarkModeChanged(Sender: TObject);
     procedure LanguageChanged(Sender: TObject);
+    procedure FullScreenChanged(Sender: TObject);
     procedure InitMenus;
   public
@@ -1883 +1884 @@
   NewLanguage: TLanguage;
 begin
-  NewLanguage := TLanguage(TMenuItemComboBox(MenuOptions.Items[0]).States.Objects[TMenuItemComboBox(MenuOptions.Items[0]).Index]);
+  NewLanguage := TLanguage(TMenuItemComboBox(Sender).States.Objects[TMenuItemComboBox(Sender).Index]);
   if FormMain.Translator1.Language <> NewLanguage then begin
     FormMain.Translator1.Language := NewLanguage;
@@ -1889 +1890 @@
     InitMenus;
   end;
+end;
+
+procedure TEngine.FullScreenChanged(Sender: TObject);
+begin
+  FormMain.FullScreen := TMenuItemCheckBox(Sender).Checked;
+  FormMain.PersistentForm1.SetFullScreen(FormMain.FullScreen);
 end;
 
@@ -1908 +1915 @@
     end;
     AddCheckBox(SDarkMode, DarkModeChanged);
+    with AddCheckBox(SFullScreen, FullScreenChanged) do begin
+      Checked := FormMain.FullScreen;
+    end;
     AddButton(SBack, MenuItemBack);
   end;