Changeset 250 for trunk/UCore.pas

Timestamp:

Sep 22, 2018, 10:11:33 PM (6 years ago)

Author:

chronos

Message:

• Added: Full screen mode.
• Added: Icon for keyboard shortcut.

File:

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

trunk/UCore.pas

@@ -17 +17 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AFullscreen: TAction;
     AToggleFogOfWar: TAction;
     AShowKeyShortcuts: TAction;
@@ -46 +47 @@
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFullscreenExecute(Sender: TObject);
     procedure AGameEndExecute(Sender: TObject);
     procedure AGameLoadExecute(Sender: TObject);
@@ -70 +72 @@
     GameLoaded: Boolean;
     FormNewTabIndex: Integer;
+    OldWindowState: TWindowState;
+    InFullScreenMode: Boolean;
     procedure LoadRecentExecute(Sender: TObject);
     procedure StartNewGame;
@@ -273 +277 @@
 end;
 
+procedure TCore.AFullscreenExecute(Sender: TObject);
+begin
+  if InFullScreenMode then begin
+    // Workaround: WindowState has sometimes wrong value under Linux.
+    // Try to switch fullscreen again before switching back.
+    if FormMain.WindowState <> wsFullScreen then begin
+      FormMain.WindowState := wsFullScreen;
+    end;
+    FormMain.WindowState := OldWindowState;
+    InFullScreenMode := False;
+  end else begin
+    OldWindowState := FormMain.WindowState;
+    FormMain.WindowState := wsFullScreen;
+    InFullScreenMode := True;
+  end;
+end;
+
 procedure TCore.AAboutExecute(Sender: TObject);
 begin